{-# OPTIONS_GHC -fno-warn-orphans #-}

module Data.HashMap.Strict.Instances
  (
  ) where

import ClassyPrelude

import Data.Binary (Binary(..))
import Data.HashMap.Strict (HashMap)
import qualified Data.HashMap.Strict as HashMap


instance (Binary k, Binary v, Hashable k, Eq k) => Binary (HashMap k v) where
  put = put . HashMap.toList
  get = HashMap.fromList <$> get