{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE TemplateHaskell #-}
module SwiftNav.SBP.TH
( makeSBP
, makeJSON
) where
import BasicPrelude
import Control.Lens
import Data.Aeson.TH
import Data.Binary
import qualified Data.ByteString as BS
import qualified Data.ByteString.Lazy as LBS
import Language.Haskell.TH
import SwiftNav.SBP.Types
makeSBP :: Name -> Name -> Q [Dec]
makeSBP msgType name =
[d|instance ToSBP $(conT name) where
toSBP m senderID = encoded & msgSBPCrc .~ checkCrc encoded
where
payload = LBS.toStrict $ encode m
len = fromIntegral $ BS.length payload
encoded = Msg $(varE msgType) senderID len (Bytes payload) 0
|]
makeJSON :: String -> Name -> Q [Dec]
makeJSON prefix = deriveJSON defaultOptions
{ fieldLabelModifier = ap fromMaybe $ stripPrefix prefix
}