}
deriving (Eq, Show, Typeable)
instance Metadata WVBitstream where
metaID _ = 0x0A
}
deriving (Eq, Show, Typeable)
instance Metadata WVBitstream where
metaID _ = 0x0A
- put = putLazyByteString ∘ B.toByteString ∘ wvStream
- get = fmap (WVBitstream ∘ B.fromByteString) getRemainingLazyByteString
+ put = putLazyByteString ∘ wvStream
+ get = fmap WVBitstream getRemainingLazyByteString