+-- | WV Bitstream
+data WVBitstream
+ = WVBitstream {
+ wvStream ∷ !L.ByteString
+ }
+ deriving (Eq, Show, Typeable)
+
+instance Metadata WVBitstream where
+ metaID _ = 0x0A
+ metaSize = fromIntegral ∘ L.length ∘ wvStream
+
+instance Binary WVBitstream where
+ put = putLazyByteString ∘ wvStream
+ get = fmap WVBitstream getRemainingLazyByteString
+