putByteStringNull :: ByteString -> Encode
putByteStringNull bs = putByteString bs <> putWord8 0
putByteStringNull :: ByteString -> Encode
putByteStringNull bs = putByteString bs <> putWord8 0
putByteStringNull bs = putByteString bs <> putWord8 0