Replace foldl by any. #82

statebox · Oct 20, 2018 · b2e4a1c · b2e4a1c
1 parent 5517b4b
commit b2e4a1c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Language/Mapping.hs b/src/Language/Mapping.hs
@@ -150,7 +150,7 @@ conv'' ((ty2,ty):tl) = case cast ty :: Maybe ty of
    Nothing -> Left $ "Not in target schema/typeside: " ++ show ty
 
 elem' :: (Typeable t, Typeable a, Eq a) => t -> [a] -> Bool
-elem' x ys = maybe False (\x' -> foldl (\acc y -> acc || y == x') False ys) (cast x)
+elem' x ys = maybe False (\x' -> any ((==) x') ys) (cast x)
 
 member' :: (Typeable t, Typeable a, Eq a) => t -> Map a v -> Bool
 member' k m = elem' k (Map.keys m)