toBinaryValue :: ValueCodec a => a -> BinaryValue a
toBinaryValue = MkBinaryValue . unEncode . encodeValue
toBinaryValue :: ValueCodec a => a -> BinaryValue a
toBinaryValue = MkBinaryValue . unEncode . encodeValue
toBinaryValue = MkBinaryValue . unEncode . encodeValue