putFloat64BE :: Double -> Encode
putFloat64BE double = fixed 8 $ \ptr -> byteSwap64 <$> floatToWord double
                                        >>= poke (castPtr ptr)
putFloat64BE :: Double -> Encode
putFloat64BE double = fixed 8 $ \ptr -> byteSwap64 <$> floatToWord double
                                        >>= poke (castPtr ptr)
putFloat64BE double = fixed 8 $ \ptr -> byteSwap64 <$> floatToWord double
                                        >>= poke (castPtr ptr)