putFloat32BE :: Float -> Encode
putFloat32BE float = fixed 4 $ \ptr -> byteSwap32 <$> floatToWord float
                                        >>= poke (castPtr ptr)
putFloat32BE :: Float -> Encode
putFloat32BE float = fixed 4 $ \ptr -> byteSwap32 <$> floatToWord float
                                        >>= poke (castPtr ptr)
putFloat32BE float = fixed 4 $ \ptr -> byteSwap32 <$> floatToWord float
                                        >>= poke (castPtr ptr)