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

[seq] fix reverse function

parent cdc0bec1
......@@ -19,7 +19,7 @@ mapMaybe f = go empty
where
go acc s =
case uncons s of
Nothing -> reverse acc
Nothing -> acc
Just (Tuple x xs) ->
case f x of
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