haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-02-02 09:30:28 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

second ==> minute

Browse Source
This commit is contained in:
Michael Snoyman 2015-01-05 17:18:47 +02:00
parent cb9526b2fd
commit 241d5d72e2
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Stackage/CompleteBuild.hs
View File

@ -148,14 +148,15 @@ renderLTSVer lts = fpFromText $ concat
, ".yaml" , ".yaml"
] ]
-- | Just print a message saying "still alive" every second, to appease Travis. -- | Just print a message saying "still alive" every minute, to appease Travis.
stillAlive :: IO () -> IO () stillAlive :: IO () -> IO ()
stillAlive inner = stillAlive inner =
withAsync printer $ const inner withAsync (printer 1) $ const inner
where where
printer = forever $ do printer i = forever $ do
threadDelay 1000000 threadDelay 60000000
putStrLn "Still alive" putStrLn $ "Still alive: " ++ tshow i
printer $! i + 1
-- | Generate and check a new build plan, but do not execute it. -- | Generate and check a new build plan, but do not execute it.
-- --