ByteString

gistfile1.txt

import Data.Binary.Put
import GHC.Word

data HeartBeat = HeartBeat {
    typet :: Word8,
    autopilot :: Word8,
    basemode :: Word8,
    custommode :: Word32,
    systemstatus :: Word8,
    version :: Word8
}

serializeHeartBeat :: HeartBeat -> Put
serializeHeartBeat h = do
   putWord32be $ custommode h
   putWord8 $ typet h 
   putWord8 $ autopilot h 
   putWord8 $ basemode h 
   putWord8 $ systemstatus h
   putWord8 $ version h