Add a release notes file for 6.14.1
[ghc-hetmet.git] / utils / describe-unexpected / describe-unexpected.hs
1
2 module Main (main) where
3
4 import Data.List
5
6 main :: IO ()
7 main = do xs <- readFile "testlog"
8           let ls = lines xs
9               tests = breakTests ls
10               unexpectedTests = filter (any ("unexpected" `isInfixOf`)) tests
11           putStr $ unlines $ concat unexpectedTests
12
13 breakTests :: [String] -> [[String]]
14 breakTests xs = splitStarting ("=====> " `isPrefixOf`)
15                 -- Ignore lines telling us that we're running a .T file:
16               $ filter (not . ("====> Running " `isPrefixOf`)) xs
17
18 splitStarting :: (a -> Bool) -> [a] -> [[a]]
19 splitStarting f xs0 = case break f xs0 of
20                       (_, intro : xs) -> ss intro xs
21                       _ -> error "No data"
22     where ss intro xs = case break f xs of
23                         (this, intro' : rest) ->
24                             (intro : this) : ss intro' rest
25                         (this, []) -> [intro : this]