putWord16BE :: Word16 -> Encode
putWord16BE w = fixed 2 $ \p -> poke (castPtr p) (byteSwap16 w)
putWord16BE :: Word16 -> Encode
putWord16BE w = fixed 2 $ \p -> poke (castPtr p) (byteSwap16 w)
putWord16BE w = fixed 2 $ \p -> poke (castPtr p) (byteSwap16 w)