@@ -52,13 +52,13 @@ colors = cycle [green, blue, magenta, cyan]
5252
5353writeOutput :: [String] -> String -> Handle -> IO Bool
5454writeOutput color prog h = do
55− inputAvailable <- hReady h
56− if inputAvailable
57− then do
55+ eof <- hIsEOF h
56+ if eof
57+ then return False
58+ else do
5859 l <- hGetLine h
5960 putStrLn $ formatWith color (prog <> " | ") <> l
6061 return True
61− else return False
6262
6363prettifyProcesses :: [String] -> [String]
6464prettifyProcesses ps' =