haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-02-04 15:20:25 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Remove accidental commit of checker

Browse Source
This commit is contained in:
Chris Done 2014-06-01 14:08:10 +02:00
parent c66124dfb3
commit b94f44d94c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Application.hs
View File

@ -153,7 +153,7 @@ makeFoundation useEcho conf = do
(messageLoggerSource foundation logger) (messageLoggerSource foundation logger)
-- Start the cabal file loader -- 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" $logInfoS "CLEANUP" "Cleaning up /tmp"
now <- liftIO getCurrentTime now <- liftIO getCurrentTime
runResourceT $ sourceDirectory "/tmp" $$ mapM_C (cleanupTemp now) runResourceT $ sourceDirectory "/tmp" $$ mapM_C (cleanupTemp now)
@ -181,7 +181,7 @@ makeFoundation useEcho conf = do
case eres of case eres of
Left e -> $logError $ tshow e Left e -> $logError $ tshow e
Right () -> return () Right () -> return ()
liftIO $ threadDelay $ 30 * 60 * 1000000 -} liftIO $ threadDelay $ 30 * 60 * 1000000
return foundation return foundation
cleanupTemp :: UTCTime -> FilePath -> ResourceT (LoggingT IO) () cleanupTemp :: UTCTime -> FilePath -> ResourceT (LoggingT IO) ()