diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-07-25 23:50:14 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-07-25 23:50:14 -0400 |
| commit | 81b40cf882e50be4d996fd40d045039de94784ef (patch) | |
| tree | e29b144f2da4e28952de7f494697903c42850b27 | |
| parent | abe5a73d3f50edc679cd990c0e8e27c36b775d29 (diff) | |
fix editor damage
| -rw-r--r-- | Command/WebApp.hs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/Command/WebApp.hs b/Command/WebApp.hs index 616a6512a..0e01a07cd 100644 --- a/Command/WebApp.hs +++ b/Command/WebApp.hs @@ -51,8 +51,6 @@ start = notBareRepo $ do case r of Just _ -> return () Nothing -> do - liftIO $ - threadDelay 100000 -- 0.1 seconds - - -waitdaemon (n - 1) + -- wait 0.1 seconds before retry + liftIO $ threadDelay 100000 + waitdaemon (n - 1) |