From 81b40cf882e50be4d996fd40d045039de94784ef Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 25 Jul 2012 23:50:14 -0400 Subject: [PATCH] fix editor damage --- Command/WebApp.hs | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/Command/WebApp.hs b/Command/WebApp.hs index 616a6512a8..0e01a07cd3 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)