optimize mapMaybe manually lest it gets a layz return type

Frege · May 10, 2018 · ed1d1be · ed1d1be
1 parent 281407c
commit ed1d1be
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/frege/prelude/Maybe.fr b/frege/prelude/Maybe.fr
@@ -115,7 +115,7 @@ catMaybes xs = [ a | Just a <- xs ]
     If this is 'Nothing', no element is added on to the result list. 
     If it just 'Just' _b_, then _b_ is included in the result list.
     -}
-mapMaybe f = catMaybes • map f
+mapMaybe f xs = catMaybes (map f xs)
 
 --- give the first element of a list or 'Nothing'
 listToMaybe xs = listToMaybe xs.toList where      -- reexported from frege.prelude.Maybe