From 80c99d3bd756ca4cef1d14a1cbe356b11945a1f2 Mon Sep 17 00:00:00 2001
From: Neil Brown <neil@twistedsquare.com>
Date: Fri, 28 Nov 2008 11:38:29 +0000
Subject: [PATCH] Fixed another use of Map.lookup in the tests

---
 flow/FlowGraphTest.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/flow/FlowGraphTest.hs b/flow/FlowGraphTest.hs
index dd8dba9..e38378c 100644
--- a/flow/FlowGraphTest.hs
+++ b/flow/FlowGraphTest.hs
@@ -832,7 +832,7 @@ testModify =
 
     -- | 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 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:
 qcTests :: (Test, [LabelledQuickCheckTest])