Commit 652e5682 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski

[seq] fix reverse function

parent cdc0bec1
...@@ -19,7 +19,7 @@ mapMaybe f = go empty ...@@ -19,7 +19,7 @@ mapMaybe f = go empty
where where
go acc s = go acc s =
case uncons s of case uncons s of
Nothing -> reverse acc Nothing -> acc
Just (Tuple x xs) -> Just (Tuple x xs) ->
case f x of case f x of
Nothing -> go acc xs Nothing -> go acc xs
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment