mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-18 21:12:09 +03:00
29 lines
809 B
Haskell
29 lines
809 B
Haskell
|
module Data.HashMap.Strict.InsOrd.Extended
|
||
|
|
( OMap.elems
|
||
|
|
, groupTuples
|
||
|
|
, groupListWith
|
||
|
|
) where
|
||
|
|
|
||
|
|
import qualified Data.HashMap.Strict.InsOrd as OMap
|
||
|
|
import qualified Data.Sequence.NonEmpty as NE
|
||
|
|
|
||
|
|
import Data.Hashable (Hashable)
|
||
|
|
import Data.List (foldl')
|
||
|
|
|
||
|
|
import Prelude (Eq, Foldable, Functor, fmap, ($))
|
||
|
|
|
||
|
|
groupTuples
|
||
|
|
:: (Eq k, Hashable k, Foldable t)
|
||
|
|
=> t (k, v) -> OMap.InsOrdHashMap k (NE.NESeq v)
|
||
|
|
groupTuples =
|
||
|
|
foldl' groupFlds OMap.empty
|
||
|
|
where
|
||
|
|
groupFlds m (k, v) =
|
||
|
|
OMap.insertWith (\_ c -> c NE.|> v) k (NE.init v) m
|
||
|
|
|
||
|
|
groupListWith
|
||
|
|
:: (Eq k, Hashable k, Foldable t, Functor t)
|
||
|
|
=> (v -> k) -> t v -> OMap.InsOrdHashMap k (NE.NESeq v)
|
||
|
|
groupListWith f l =
|
||
|
|
groupTuples $ fmap (\v -> (f v, v)) l
|