Commit 790ec952 authored by Nicolas Pouillard's avatar Nicolas Pouillard

Remove Gargantext.Utils.Seq: if we need it, it should be one directly...

Remove Gargantext.Utils.Seq: if we need it, it should be one directly implemented using the underlying tree
parent df805421
...@@ -7,13 +7,6 @@ import Data.Tuple ...@@ -7,13 +7,6 @@ import Data.Tuple
import Gargantext.Prelude import Gargantext.Prelude
reverse :: forall a. Seq a -> Seq a
reverse s = case uncons s of
Nothing -> empty
Just (Tuple x xs) -> snoc (reverse xs) x
mapMaybe :: forall a b. (a -> Maybe b) -> Seq a -> Seq b mapMaybe :: forall a b. (a -> Maybe b) -> Seq a -> Seq b
mapMaybe f = go empty mapMaybe f = go empty
where where
......
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