Skip to content
Snippets Groups Projects
Commit 782ba67a authored by tibbe's avatar tibbe
Browse files

Make test suite compile with GHC 7.10

parent 99b1586c
No related branches found
No related tags found
No related merge requests found
......@@ -15,6 +15,9 @@ orFail err r = case find (all isSpace . snd) r of
Nothing -> error err
Just (i, _) -> i
find' :: (a -> Bool) -> [a] -> Maybe a
find' = find
suite :: FilePath -> Test
suite ghcPath = TestCase $ do
-- ToDo: Turn this into a utility function
......@@ -24,7 +27,7 @@ suite ghcPath = TestCase $ do
. readP_to_S parseVersion
. snd
. fromJust
. find ((=="Project version").fst)
. find' ((=="Project version").fst)
. orFail "could not parse ghc --info output"
. reads
$ xs
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment