suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed another use of Map.lookup in the tests

Browse Source
This commit is contained in:
Neil Brown 2008-11-28 11:38:29 +00:00
parent b48129d4e5
commit 80c99d3bd7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
flow/FlowGraphTest.hs
View File

@ -832,7 +832,7 @@ testModify =
-- | Applies the functions associated with the given meta tags -- | Applies the functions associated with the given meta tags
applyMetas :: Monad m => [Meta] -> Map.Map Meta (A.Structured a -> m (A.Structured a)) -> (A.Structured a -> m (A.Structured a)) applyMetas :: Monad m => [Meta] -> Map.Map Meta (A.Structured a -> m (A.Structured a)) -> (A.Structured a -> m (A.Structured a))
applyMetas ms funcs = foldFuncsM $ concatMap (\m -> Map.lookup m funcs) ms applyMetas ms funcs = foldFuncsM $ mapMaybe (\m -> Map.lookup m funcs) ms
-- | Returns the list of tests: -- | Returns the list of tests:
qcTests :: (Test, [LabelledQuickCheckTest]) qcTests :: (Test, [LabelledQuickCheckTest])