diff options
-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) |