module Flat.Instances.Vector
()
where
import Flat.Instances.Mono
import Flat.Instances.Util
import qualified Data.Vector as V
import qualified Data.Vector.Unboxed as U
import qualified Data.Vector.Storable as S
instance Flat a => Flat (V.Vector a) where
size = sizeSequence
encode = encodeSequence
decode = decodeSequence
instance (U.Unbox a,Flat a) => Flat (U.Vector a) where
size = sizeSequence
encode = encodeSequence
decode = decodeSequence
instance (S.Storable a,Flat a) => Flat (S.Vector a) where
size = sizeSequence
encode = encodeSequence
decode = decodeSequence