{-# 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
