putWord64BE :: Word64 -> Encode
putWord64BE w = fixed 8 $ \p -> poke (castPtr p) (byteSwap64 w)
putWord64BE :: Word64 -> Encode
putWord64BE w = fixed 8 $ \p -> poke (castPtr p) (byteSwap64 w)
putWord64BE w = fixed 8 $ \p -> poke (castPtr p) (byteSwap64 w)