Faster filter

elm-community · Oct 20, 2021 · 8a4d6b3 · 8a4d6b3
1 parent 7f60f43
commit 8a4d6b3
Showing 1 changed file with 8 additions and 4 deletions.
diff --git a/src/Maybe/Extra.elm b/src/Maybe/Extra.elm
@@ -149,11 +149,15 @@ join mx =
 -}
 filter : (a -> Bool) -> Maybe a -> Maybe a
 filter f m =
-    case Maybe.map f m of
-        Just True ->
-            m
+    case m of
+        Just a ->
+            if f a then
+                m
 
-        _ ->
+            else
+                Nothing
+
+        Nothing ->
             Nothing