19 lines
361 B
Haskell
19 lines
361 B
Haskell
{-# OPTIONS_GHC -fno-warn-orphans #-}
|
|
|
|
module Data.Vector.Instances
|
|
(
|
|
) where
|
|
|
|
import ClassyPrelude
|
|
|
|
import Data.Vector (Vector)
|
|
import qualified Data.Vector as Vector
|
|
|
|
import Data.Binary (Binary)
|
|
import qualified Data.Binary as Binary
|
|
|
|
|
|
instance Binary a => Binary (Vector a) where
|
|
get = Vector.fromList <$> Binary.get
|
|
put = Binary.put . Vector.toList
|