untilFinished :: [String] -> [String]
untilFinished = takeWhile (\l -> not ("finished" `isPrefixOf` l))
untilFinished :: [String] -> [String]
untilFinished = takeWhile (\l -> not ("finished" `isPrefixOf` l))
untilFinished = takeWhile (\l -> not ("finished" `isPrefixOf` l))