module Gargantext.Utils.Seq (mapMaybe) where import Data.Maybe (Maybe, maybe) import Data.Sequence (Seq, concatMap, empty, singleton) import Gargantext.Prelude ((<<<)) mapMaybe :: forall a b. (a -> Maybe b) -> Seq a -> Seq b mapMaybe f = concatMap (maybe empty singleton <<< f)