From b94f44d94c51c70ed2663c41b0e638fcd9b63485 Mon Sep 17 00:00:00 2001 From: Chris Done Date: Sun, 1 Jun 2014 14:08:10 +0200 Subject: [PATCH] Remove accidental commit of checker --- Application.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Application.hs b/Application.hs index 702d2e2..f8e14ef 100644 --- a/Application.hs +++ b/Application.hs @@ -153,7 +153,7 @@ makeFoundation useEcho conf = do (messageLoggerSource foundation logger) -- Start the cabal file loader - {-void $ forkIO $ forever $ flip runLoggingT (messageLoggerSource foundation logger) $ do + void $ forkIO $ forever $ flip runLoggingT (messageLoggerSource foundation logger) $ do $logInfoS "CLEANUP" "Cleaning up /tmp" now <- liftIO getCurrentTime runResourceT $ sourceDirectory "/tmp" $$ mapM_C (cleanupTemp now) @@ -181,7 +181,7 @@ makeFoundation useEcho conf = do case eres of Left e -> $logError $ tshow e Right () -> return () - liftIO $ threadDelay $ 30 * 60 * 1000000 -} + liftIO $ threadDelay $ 30 * 60 * 1000000 return foundation cleanupTemp :: UTCTime -> FilePath -> ResourceT (LoggingT IO) ()