diff --git a/src/Data/HashMap.purs b/src/Data/HashMap.purs index 44d0c66..67de62a 100644 --- a/src/Data/HashMap.purs +++ b/src/Data/HashMap.purs @@ -68,6 +68,8 @@ import Partial.Unsafe (unsafePartial) -- | Note that this is an *unordered* collection. foreign import data HashMap :: Type -> Type -> Type +type role HashMap nominal representational + foreign import eqPurs :: forall k v. Fn2 (k -> k -> Boolean) (v -> v -> Boolean) (HashMap k v -> HashMap k v -> Boolean) instance eqHashMap :: (Eq k, Eq v) => Eq (HashMap k v) where