+-- | WV Bitstream
+data WVBitstream
+ = WVBitstream {
+ wvStream ∷ !B.BitString
+ }
+ deriving (Eq, Show, Typeable)
+
+instance Metadata WVBitstream where
+ metaID _ = 0x0A
+ metaSize = (`div` 8) ∘ B.length ∘ wvStream
+
+instance Binary WVBitstream where
+ put = putLazyByteString ∘ B.toByteString ∘ wvStream
+ get = fmap (WVBitstream ∘ B.fromByteString) getRemainingLazyByteString
+