{-# 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