    {-# OPTIONS_GHC -Wno-orphans #-}

    module Data.Map.Ordered.Extra where

    import Control.DeepSeq (NFData(rnf))
    import Data.Map.Ordered (OMap)
    import qualified Data.Map.Ordered as OMap

    instance (NFData k, NFData v) => NFData (OMap k v) where
      rnf :: OMap k v -> ()
    rnf = [(k, v)] -> ()
    forall a. NFData a => a -> ()
    rnf ([(k, v)] -> ()) -> (OMap k v -> [(k, v)]) -> OMap k v -> ()
    forall b c a. (b -> c) -> (a -> b) -> a -> c
    . OMap k v -> [(k, v)]
    forall k v. OMap k v -> [(k, v)]
    OMap.assocs