17 lines
372 B
Haskell
17 lines
372 B
Haskell
{-# 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
|