@@ -148,14 +148,15 @@ renderLTSVer lts = fpFromText $ concat
148 , ".yaml"
148 , ".yaml"
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.
152stillAlive :: IO () -> IO ()
152stillAlive :: IO () -> IO ()
153stillAlive inner =
153stillAlive inner =
154− withAsync printer $ const inner
154+ withAsync (printer 1) $ const inner
156− printer = forever $ do
156+ printer i = forever $ do
157− threadDelay 1000000
157+ threadDelay 60000000
158− putStrLn "Still alive"
158+ putStrLn $ "Still alive: " ++ tshow i
160-- | Generate and check a new build plan, but do not execute it.
161-- | Generate and check a new build plan, but do not execute it.