module Nm.IntMap ( insert
                 , findWithDefault
                 ) where

import qualified Data.IntMap as IM
import           Nm
import           U

insert :: Nm a -> b -> IM.IntMap b -> IM.IntMap b
insert :: forall a b. Nm a -> b -> IntMap b -> IntMap b
insert (Nm Text
_ (U Int
i) a
_) = Int -> b -> IntMap b -> IntMap b
forall a. Int -> a -> IntMap a -> IntMap a
IM.insert Int
i

findWithDefault :: a -> Nm a -> IntMap a -> a
findWithDefault a
x (Nm Text
_ (U Int
i) a
_) = a -> Int -> IntMap a -> a
forall a. a -> Int -> IntMap a -> a
IM.findWithDefault a
x Int
i