git.iko.soy/typeable/ordered-containers
on master help sign in
derived Functor instance for OMap
06bd539Daniel Wagner
Data/Map/Ordered.hs+2−1
compare with master
unifiedsplit
@@ -1,4 +1,5 @@
1{-# LANGUAGE CPP #-}
1{-# LANGUAGE CPP #-}
2+{-# LANGUAGE DeriveFunctor #-}
2#if __GLASGOW_HASKELL__
3#if __GLASGOW_HASKELL__
3{-# LANGUAGE DeriveDataTypeable, StandaloneDeriving #-}
4{-# LANGUAGE DeriveDataTypeable, StandaloneDeriving #-}
4#endif
5#endif
@@ -43,7 +44,7 @@ import qualified Data.Map as M
43import Data.Data
44import Data.Data
44#endif
45#endif
45
46
46−data OMap k v = OMap !(Map k (Tag, v)) !(Map Tag (k, v))
47+data OMap k v = OMap !(Map k (Tag, v)) !(Map Tag (k, v)) deriving Functor
47
48
48-- | Values are produced in insertion order, not key order.
49-- | Values are produced in insertion order, not key order.
49instance Foldable (OMap k) where foldMap f (OMap _ kvs) = foldMap (f . snd) kvs
50instance Foldable (OMap k) where foldMap f (OMap _ kvs) = foldMap (f . snd) kvs