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