@@ -148,14 +148,15 @@ renderLTSVer lts = fpFromText $ concat
148148 , ".yaml"
149149 ]
150150
151−-- | Just print a message saying "still alive" every second, to appease Travis.
151+-- | Just print a message saying "still alive" every minute, to appease Travis.
152152stillAlive :: IO () -> IO ()
153153stillAlive inner =
154− withAsync printer $ const inner
154+ withAsync (printer 1) $ const inner
155155 where
156− printer = forever $ do
157− threadDelay 1000000
158− putStrLn "Still alive"
156+ printer i = forever $ do
157+ threadDelay 60000000
158+ putStrLn $ "Still alive: " ++ tshow i
159+ printer $! i + 1
159160
160161-- | Generate and check a new build plan, but do not execute it.
161162--