summaryrefslogtreecommitdiff
path: root/Command
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-07-25 23:50:14 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-07-25 23:50:14 -0400
commit81b40cf882e50be4d996fd40d045039de94784ef (patch)
treee29b144f2da4e28952de7f494697903c42850b27 /Command
parentabe5a73d3f50edc679cd990c0e8e27c36b775d29 (diff)
fix editor damage
Diffstat (limited to 'Command')
-rw-r--r--Command/WebApp.hs8
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)