{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE RecordWildCards #-}
module SwiftNav.SBP.Flash
( module SwiftNav.SBP.Flash
) where
import BasicPrelude
import Control.Lens
import Control.Monad.Loops
import Data.Binary
import Data.Binary.Get
import Data.Binary.IEEE754
import Data.Binary.Put
import Data.ByteString.Lazy hiding (ByteString)
import Data.Int
import Data.Word
import SwiftNav.SBP.TH
import SwiftNav.SBP.Types
{-# ANN module ("HLint: ignore Use camelCase"::String) #-}
{-# ANN module ("HLint: ignore Redundant do"::String) #-}
{-# ANN module ("HLint: ignore Use newtype instead of data"::String) #-}
msgFlashProgram :: Word16
msgFlashProgram :: Word16
msgFlashProgram = Word16
0x00E6
data MsgFlashProgram = MsgFlashProgram
{ MsgFlashProgram -> Word8
_msgFlashProgram_target :: !Word8
, MsgFlashProgram -> [Word8]
_msgFlashProgram_addr_start :: ![Word8]
, MsgFlashProgram -> Word8
_msgFlashProgram_addr_len :: !Word8
, MsgFlashProgram -> [Word8]
_msgFlashProgram_data :: ![Word8]
} deriving ( Int -> MsgFlashProgram -> ShowS
[MsgFlashProgram] -> ShowS
MsgFlashProgram -> String
(Int -> MsgFlashProgram -> ShowS)
-> (MsgFlashProgram -> String)
-> ([MsgFlashProgram] -> ShowS)
-> Show MsgFlashProgram
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgFlashProgram] -> ShowS
$cshowList :: [MsgFlashProgram] -> ShowS
show :: MsgFlashProgram -> String
$cshow :: MsgFlashProgram -> String
showsPrec :: Int -> MsgFlashProgram -> ShowS
$cshowsPrec :: Int -> MsgFlashProgram -> ShowS
Show, ReadPrec [MsgFlashProgram]
ReadPrec MsgFlashProgram
Int -> ReadS MsgFlashProgram
ReadS [MsgFlashProgram]
(Int -> ReadS MsgFlashProgram)
-> ReadS [MsgFlashProgram]
-> ReadPrec MsgFlashProgram
-> ReadPrec [MsgFlashProgram]
-> Read MsgFlashProgram
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgFlashProgram]
$creadListPrec :: ReadPrec [MsgFlashProgram]
readPrec :: ReadPrec MsgFlashProgram
$creadPrec :: ReadPrec MsgFlashProgram
readList :: ReadS [MsgFlashProgram]
$creadList :: ReadS [MsgFlashProgram]
readsPrec :: Int -> ReadS MsgFlashProgram
$creadsPrec :: Int -> ReadS MsgFlashProgram
Read, MsgFlashProgram -> MsgFlashProgram -> Bool
(MsgFlashProgram -> MsgFlashProgram -> Bool)
-> (MsgFlashProgram -> MsgFlashProgram -> Bool)
-> Eq MsgFlashProgram
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgFlashProgram -> MsgFlashProgram -> Bool
$c/= :: MsgFlashProgram -> MsgFlashProgram -> Bool
== :: MsgFlashProgram -> MsgFlashProgram -> Bool
$c== :: MsgFlashProgram -> MsgFlashProgram -> Bool
Eq )
instance Binary MsgFlashProgram where
get :: Get MsgFlashProgram
get = do
Word8
_msgFlashProgram_target <- Get Word8
getWord8
[Word8]
_msgFlashProgram_addr_start <- Int -> Get Word8 -> Get [Word8]
forall (m :: * -> *) a. Applicative m => Int -> m a -> m [a]
replicateM Int
3 Get Word8
getWord8
Word8
_msgFlashProgram_addr_len <- Get Word8
getWord8
[Word8]
_msgFlashProgram_data <- Get Bool -> Get Word8 -> Get [Word8]
forall (m :: * -> *) a. Monad m => m Bool -> m a -> m [a]
whileM (Bool -> Bool
not (Bool -> Bool) -> Get Bool -> Get Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Get Bool
isEmpty) Get Word8
getWord8
MsgFlashProgram -> Get MsgFlashProgram
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgFlashProgram :: Word8 -> [Word8] -> Word8 -> [Word8] -> MsgFlashProgram
MsgFlashProgram {[Word8]
Word8
_msgFlashProgram_data :: [Word8]
_msgFlashProgram_addr_len :: Word8
_msgFlashProgram_addr_start :: [Word8]
_msgFlashProgram_target :: Word8
_msgFlashProgram_data :: [Word8]
_msgFlashProgram_addr_len :: Word8
_msgFlashProgram_addr_start :: [Word8]
_msgFlashProgram_target :: Word8
..}
put :: MsgFlashProgram -> Put
put MsgFlashProgram {[Word8]
Word8
_msgFlashProgram_data :: [Word8]
_msgFlashProgram_addr_len :: Word8
_msgFlashProgram_addr_start :: [Word8]
_msgFlashProgram_target :: Word8
_msgFlashProgram_data :: MsgFlashProgram -> [Word8]
_msgFlashProgram_addr_len :: MsgFlashProgram -> Word8
_msgFlashProgram_addr_start :: MsgFlashProgram -> [Word8]
_msgFlashProgram_target :: MsgFlashProgram -> Word8
..} = do
Word8 -> Put
putWord8 Word8
_msgFlashProgram_target
(Word8 -> Put) -> [Word8] -> Put
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ Word8 -> Put
putWord8 [Word8]
_msgFlashProgram_addr_start
Word8 -> Put
putWord8 Word8
_msgFlashProgram_addr_len
(Word8 -> Put) -> [Word8] -> Put
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ Word8 -> Put
putWord8 [Word8]
_msgFlashProgram_data
$(makeSBP 'msgFlashProgram ''MsgFlashProgram)
$(makeJSON "_msgFlashProgram_" ''MsgFlashProgram)
$(makeLenses ''MsgFlashProgram)
msgFlashDone :: Word16
msgFlashDone :: Word16
msgFlashDone = Word16
0x00E0
data MsgFlashDone = MsgFlashDone
{ MsgFlashDone -> Word8
_msgFlashDone_response :: !Word8
} deriving ( Int -> MsgFlashDone -> ShowS
[MsgFlashDone] -> ShowS
MsgFlashDone -> String
(Int -> MsgFlashDone -> ShowS)
-> (MsgFlashDone -> String)
-> ([MsgFlashDone] -> ShowS)
-> Show MsgFlashDone
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgFlashDone] -> ShowS
$cshowList :: [MsgFlashDone] -> ShowS
show :: MsgFlashDone -> String
$cshow :: MsgFlashDone -> String
showsPrec :: Int -> MsgFlashDone -> ShowS
$cshowsPrec :: Int -> MsgFlashDone -> ShowS
Show, ReadPrec [MsgFlashDone]
ReadPrec MsgFlashDone
Int -> ReadS MsgFlashDone
ReadS [MsgFlashDone]
(Int -> ReadS MsgFlashDone)
-> ReadS [MsgFlashDone]
-> ReadPrec MsgFlashDone
-> ReadPrec [MsgFlashDone]
-> Read MsgFlashDone
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgFlashDone]
$creadListPrec :: ReadPrec [MsgFlashDone]
readPrec :: ReadPrec MsgFlashDone
$creadPrec :: ReadPrec MsgFlashDone
readList :: ReadS [MsgFlashDone]
$creadList :: ReadS [MsgFlashDone]
readsPrec :: Int -> ReadS MsgFlashDone
$creadsPrec :: Int -> ReadS MsgFlashDone
Read, MsgFlashDone -> MsgFlashDone -> Bool
(MsgFlashDone -> MsgFlashDone -> Bool)
-> (MsgFlashDone -> MsgFlashDone -> Bool) -> Eq MsgFlashDone
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgFlashDone -> MsgFlashDone -> Bool
$c/= :: MsgFlashDone -> MsgFlashDone -> Bool
== :: MsgFlashDone -> MsgFlashDone -> Bool
$c== :: MsgFlashDone -> MsgFlashDone -> Bool
Eq )
instance Binary MsgFlashDone where
get :: Get MsgFlashDone
get = do
Word8
_msgFlashDone_response <- Get Word8
getWord8
MsgFlashDone -> Get MsgFlashDone
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgFlashDone :: Word8 -> MsgFlashDone
MsgFlashDone {Word8
_msgFlashDone_response :: Word8
_msgFlashDone_response :: Word8
..}
put :: MsgFlashDone -> Put
put MsgFlashDone {Word8
_msgFlashDone_response :: Word8
_msgFlashDone_response :: MsgFlashDone -> Word8
..} = do
Word8 -> Put
putWord8 Word8
_msgFlashDone_response
$(makeSBP 'msgFlashDone ''MsgFlashDone)
$(makeJSON "_msgFlashDone_" ''MsgFlashDone)
$(makeLenses ''MsgFlashDone)
msgFlashReadReq :: Word16
msgFlashReadReq :: Word16
msgFlashReadReq = Word16
0x00E7
data MsgFlashReadReq = MsgFlashReadReq
{ MsgFlashReadReq -> Word8
_msgFlashReadReq_target :: !Word8
, MsgFlashReadReq -> [Word8]
_msgFlashReadReq_addr_start :: ![Word8]
, MsgFlashReadReq -> Word8
_msgFlashReadReq_addr_len :: !Word8
} deriving ( Int -> MsgFlashReadReq -> ShowS
[MsgFlashReadReq] -> ShowS
MsgFlashReadReq -> String
(Int -> MsgFlashReadReq -> ShowS)
-> (MsgFlashReadReq -> String)
-> ([MsgFlashReadReq] -> ShowS)
-> Show MsgFlashReadReq
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgFlashReadReq] -> ShowS
$cshowList :: [MsgFlashReadReq] -> ShowS
show :: MsgFlashReadReq -> String
$cshow :: MsgFlashReadReq -> String
showsPrec :: Int -> MsgFlashReadReq -> ShowS
$cshowsPrec :: Int -> MsgFlashReadReq -> ShowS
Show, ReadPrec [MsgFlashReadReq]
ReadPrec MsgFlashReadReq
Int -> ReadS MsgFlashReadReq
ReadS [MsgFlashReadReq]
(Int -> ReadS MsgFlashReadReq)
-> ReadS [MsgFlashReadReq]
-> ReadPrec MsgFlashReadReq
-> ReadPrec [MsgFlashReadReq]
-> Read MsgFlashReadReq
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgFlashReadReq]
$creadListPrec :: ReadPrec [MsgFlashReadReq]
readPrec :: ReadPrec MsgFlashReadReq
$creadPrec :: ReadPrec MsgFlashReadReq
readList :: ReadS [MsgFlashReadReq]
$creadList :: ReadS [MsgFlashReadReq]
readsPrec :: Int -> ReadS MsgFlashReadReq
$creadsPrec :: Int -> ReadS MsgFlashReadReq
Read, MsgFlashReadReq -> MsgFlashReadReq -> Bool
(MsgFlashReadReq -> MsgFlashReadReq -> Bool)
-> (MsgFlashReadReq -> MsgFlashReadReq -> Bool)
-> Eq MsgFlashReadReq
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgFlashReadReq -> MsgFlashReadReq -> Bool
$c/= :: MsgFlashReadReq -> MsgFlashReadReq -> Bool
== :: MsgFlashReadReq -> MsgFlashReadReq -> Bool
$c== :: MsgFlashReadReq -> MsgFlashReadReq -> Bool
Eq )
instance Binary MsgFlashReadReq where
get :: Get MsgFlashReadReq
get = do
Word8
_msgFlashReadReq_target <- Get Word8
getWord8
[Word8]
_msgFlashReadReq_addr_start <- Int -> Get Word8 -> Get [Word8]
forall (m :: * -> *) a. Applicative m => Int -> m a -> m [a]
replicateM Int
3 Get Word8
getWord8
Word8
_msgFlashReadReq_addr_len <- Get Word8
getWord8
MsgFlashReadReq -> Get MsgFlashReadReq
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgFlashReadReq :: Word8 -> [Word8] -> Word8 -> MsgFlashReadReq
MsgFlashReadReq {[Word8]
Word8
_msgFlashReadReq_addr_len :: Word8
_msgFlashReadReq_addr_start :: [Word8]
_msgFlashReadReq_target :: Word8
_msgFlashReadReq_addr_len :: Word8
_msgFlashReadReq_addr_start :: [Word8]
_msgFlashReadReq_target :: Word8
..}
put :: MsgFlashReadReq -> Put
put MsgFlashReadReq {[Word8]
Word8
_msgFlashReadReq_addr_len :: Word8
_msgFlashReadReq_addr_start :: [Word8]
_msgFlashReadReq_target :: Word8
_msgFlashReadReq_addr_len :: MsgFlashReadReq -> Word8
_msgFlashReadReq_addr_start :: MsgFlashReadReq -> [Word8]
_msgFlashReadReq_target :: MsgFlashReadReq -> Word8
..} = do
Word8 -> Put
putWord8 Word8
_msgFlashReadReq_target
(Word8 -> Put) -> [Word8] -> Put
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ Word8 -> Put
putWord8 [Word8]
_msgFlashReadReq_addr_start
Word8 -> Put
putWord8 Word8
_msgFlashReadReq_addr_len
$(makeSBP 'msgFlashReadReq ''MsgFlashReadReq)
$(makeJSON "_msgFlashReadReq_" ''MsgFlashReadReq)
$(makeLenses ''MsgFlashReadReq)
msgFlashReadResp :: Word16
msgFlashReadResp :: Word16
msgFlashReadResp = Word16
0x00E1
data MsgFlashReadResp = MsgFlashReadResp
{ MsgFlashReadResp -> Word8
_msgFlashReadResp_target :: !Word8
, MsgFlashReadResp -> [Word8]
_msgFlashReadResp_addr_start :: ![Word8]
, MsgFlashReadResp -> Word8
_msgFlashReadResp_addr_len :: !Word8
} deriving ( Int -> MsgFlashReadResp -> ShowS
[MsgFlashReadResp] -> ShowS
MsgFlashReadResp -> String
(Int -> MsgFlashReadResp -> ShowS)
-> (MsgFlashReadResp -> String)
-> ([MsgFlashReadResp] -> ShowS)
-> Show MsgFlashReadResp
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgFlashReadResp] -> ShowS
$cshowList :: [MsgFlashReadResp] -> ShowS
show :: MsgFlashReadResp -> String
$cshow :: MsgFlashReadResp -> String
showsPrec :: Int -> MsgFlashReadResp -> ShowS
$cshowsPrec :: Int -> MsgFlashReadResp -> ShowS
Show, ReadPrec [MsgFlashReadResp]
ReadPrec MsgFlashReadResp
Int -> ReadS MsgFlashReadResp
ReadS [MsgFlashReadResp]
(Int -> ReadS MsgFlashReadResp)
-> ReadS [MsgFlashReadResp]
-> ReadPrec MsgFlashReadResp
-> ReadPrec [MsgFlashReadResp]
-> Read MsgFlashReadResp
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgFlashReadResp]
$creadListPrec :: ReadPrec [MsgFlashReadResp]
readPrec :: ReadPrec MsgFlashReadResp
$creadPrec :: ReadPrec MsgFlashReadResp
readList :: ReadS [MsgFlashReadResp]
$creadList :: ReadS [MsgFlashReadResp]
readsPrec :: Int -> ReadS MsgFlashReadResp
$creadsPrec :: Int -> ReadS MsgFlashReadResp
Read, MsgFlashReadResp -> MsgFlashReadResp -> Bool
(MsgFlashReadResp -> MsgFlashReadResp -> Bool)
-> (MsgFlashReadResp -> MsgFlashReadResp -> Bool)
-> Eq MsgFlashReadResp
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgFlashReadResp -> MsgFlashReadResp -> Bool
$c/= :: MsgFlashReadResp -> MsgFlashReadResp -> Bool
== :: MsgFlashReadResp -> MsgFlashReadResp -> Bool
$c== :: MsgFlashReadResp -> MsgFlashReadResp -> Bool
Eq )
instance Binary MsgFlashReadResp where
get :: Get MsgFlashReadResp
get = do
Word8
_msgFlashReadResp_target <- Get Word8
getWord8
[Word8]
_msgFlashReadResp_addr_start <- Int -> Get Word8 -> Get [Word8]
forall (m :: * -> *) a. Applicative m => Int -> m a -> m [a]
replicateM Int
3 Get Word8
getWord8
Word8
_msgFlashReadResp_addr_len <- Get Word8
getWord8
MsgFlashReadResp -> Get MsgFlashReadResp
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgFlashReadResp :: Word8 -> [Word8] -> Word8 -> MsgFlashReadResp
MsgFlashReadResp {[Word8]
Word8
_msgFlashReadResp_addr_len :: Word8
_msgFlashReadResp_addr_start :: [Word8]
_msgFlashReadResp_target :: Word8
_msgFlashReadResp_addr_len :: Word8
_msgFlashReadResp_addr_start :: [Word8]
_msgFlashReadResp_target :: Word8
..}
put :: MsgFlashReadResp -> Put
put MsgFlashReadResp {[Word8]
Word8
_msgFlashReadResp_addr_len :: Word8
_msgFlashReadResp_addr_start :: [Word8]
_msgFlashReadResp_target :: Word8
_msgFlashReadResp_addr_len :: MsgFlashReadResp -> Word8
_msgFlashReadResp_addr_start :: MsgFlashReadResp -> [Word8]
_msgFlashReadResp_target :: MsgFlashReadResp -> Word8
..} = do
Word8 -> Put
putWord8 Word8
_msgFlashReadResp_target
(Word8 -> Put) -> [Word8] -> Put
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ Word8 -> Put
putWord8 [Word8]
_msgFlashReadResp_addr_start
Word8 -> Put
putWord8 Word8
_msgFlashReadResp_addr_len
$(makeSBP 'msgFlashReadResp ''MsgFlashReadResp)
$(makeJSON "_msgFlashReadResp_" ''MsgFlashReadResp)
$(makeLenses ''MsgFlashReadResp)
msgFlashErase :: Word16
msgFlashErase :: Word16
msgFlashErase = Word16
0x00E2
data MsgFlashErase = MsgFlashErase
{ MsgFlashErase -> Word8
_msgFlashErase_target :: !Word8
, MsgFlashErase -> Word32
_msgFlashErase_sector_num :: !Word32
} deriving ( Int -> MsgFlashErase -> ShowS
[MsgFlashErase] -> ShowS
MsgFlashErase -> String
(Int -> MsgFlashErase -> ShowS)
-> (MsgFlashErase -> String)
-> ([MsgFlashErase] -> ShowS)
-> Show MsgFlashErase
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgFlashErase] -> ShowS
$cshowList :: [MsgFlashErase] -> ShowS
show :: MsgFlashErase -> String
$cshow :: MsgFlashErase -> String
showsPrec :: Int -> MsgFlashErase -> ShowS
$cshowsPrec :: Int -> MsgFlashErase -> ShowS
Show, ReadPrec [MsgFlashErase]
ReadPrec MsgFlashErase
Int -> ReadS MsgFlashErase
ReadS [MsgFlashErase]
(Int -> ReadS MsgFlashErase)
-> ReadS [MsgFlashErase]
-> ReadPrec MsgFlashErase
-> ReadPrec [MsgFlashErase]
-> Read MsgFlashErase
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgFlashErase]
$creadListPrec :: ReadPrec [MsgFlashErase]
readPrec :: ReadPrec MsgFlashErase
$creadPrec :: ReadPrec MsgFlashErase
readList :: ReadS [MsgFlashErase]
$creadList :: ReadS [MsgFlashErase]
readsPrec :: Int -> ReadS MsgFlashErase
$creadsPrec :: Int -> ReadS MsgFlashErase
Read, MsgFlashErase -> MsgFlashErase -> Bool
(MsgFlashErase -> MsgFlashErase -> Bool)
-> (MsgFlashErase -> MsgFlashErase -> Bool) -> Eq MsgFlashErase
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgFlashErase -> MsgFlashErase -> Bool
$c/= :: MsgFlashErase -> MsgFlashErase -> Bool
== :: MsgFlashErase -> MsgFlashErase -> Bool
$c== :: MsgFlashErase -> MsgFlashErase -> Bool
Eq )
instance Binary MsgFlashErase where
get :: Get MsgFlashErase
get = do
Word8
_msgFlashErase_target <- Get Word8
getWord8
Word32
_msgFlashErase_sector_num <- Get Word32
getWord32le
MsgFlashErase -> Get MsgFlashErase
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgFlashErase :: Word8 -> Word32 -> MsgFlashErase
MsgFlashErase {Word8
Word32
_msgFlashErase_sector_num :: Word32
_msgFlashErase_target :: Word8
_msgFlashErase_sector_num :: Word32
_msgFlashErase_target :: Word8
..}
put :: MsgFlashErase -> Put
put MsgFlashErase {Word8
Word32
_msgFlashErase_sector_num :: Word32
_msgFlashErase_target :: Word8
_msgFlashErase_sector_num :: MsgFlashErase -> Word32
_msgFlashErase_target :: MsgFlashErase -> Word8
..} = do
Word8 -> Put
putWord8 Word8
_msgFlashErase_target
Word32 -> Put
putWord32le Word32
_msgFlashErase_sector_num
$(makeSBP 'msgFlashErase ''MsgFlashErase)
$(makeJSON "_msgFlashErase_" ''MsgFlashErase)
$(makeLenses ''MsgFlashErase)
msgStmFlashLockSector :: Word16
msgStmFlashLockSector :: Word16
msgStmFlashLockSector = Word16
0x00E3
data MsgStmFlashLockSector = MsgStmFlashLockSector
{ MsgStmFlashLockSector -> Word32
_msgStmFlashLockSector_sector :: !Word32
} deriving ( Int -> MsgStmFlashLockSector -> ShowS
[MsgStmFlashLockSector] -> ShowS
MsgStmFlashLockSector -> String
(Int -> MsgStmFlashLockSector -> ShowS)
-> (MsgStmFlashLockSector -> String)
-> ([MsgStmFlashLockSector] -> ShowS)
-> Show MsgStmFlashLockSector
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgStmFlashLockSector] -> ShowS
$cshowList :: [MsgStmFlashLockSector] -> ShowS
show :: MsgStmFlashLockSector -> String
$cshow :: MsgStmFlashLockSector -> String
showsPrec :: Int -> MsgStmFlashLockSector -> ShowS
$cshowsPrec :: Int -> MsgStmFlashLockSector -> ShowS
Show, ReadPrec [MsgStmFlashLockSector]
ReadPrec MsgStmFlashLockSector
Int -> ReadS MsgStmFlashLockSector
ReadS [MsgStmFlashLockSector]
(Int -> ReadS MsgStmFlashLockSector)
-> ReadS [MsgStmFlashLockSector]
-> ReadPrec MsgStmFlashLockSector
-> ReadPrec [MsgStmFlashLockSector]
-> Read MsgStmFlashLockSector
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgStmFlashLockSector]
$creadListPrec :: ReadPrec [MsgStmFlashLockSector]
readPrec :: ReadPrec MsgStmFlashLockSector
$creadPrec :: ReadPrec MsgStmFlashLockSector
readList :: ReadS [MsgStmFlashLockSector]
$creadList :: ReadS [MsgStmFlashLockSector]
readsPrec :: Int -> ReadS MsgStmFlashLockSector
$creadsPrec :: Int -> ReadS MsgStmFlashLockSector
Read, MsgStmFlashLockSector -> MsgStmFlashLockSector -> Bool
(MsgStmFlashLockSector -> MsgStmFlashLockSector -> Bool)
-> (MsgStmFlashLockSector -> MsgStmFlashLockSector -> Bool)
-> Eq MsgStmFlashLockSector
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgStmFlashLockSector -> MsgStmFlashLockSector -> Bool
$c/= :: MsgStmFlashLockSector -> MsgStmFlashLockSector -> Bool
== :: MsgStmFlashLockSector -> MsgStmFlashLockSector -> Bool
$c== :: MsgStmFlashLockSector -> MsgStmFlashLockSector -> Bool
Eq )
instance Binary MsgStmFlashLockSector where
get :: Get MsgStmFlashLockSector
get = do
Word32
_msgStmFlashLockSector_sector <- Get Word32
getWord32le
MsgStmFlashLockSector -> Get MsgStmFlashLockSector
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgStmFlashLockSector :: Word32 -> MsgStmFlashLockSector
MsgStmFlashLockSector {Word32
_msgStmFlashLockSector_sector :: Word32
_msgStmFlashLockSector_sector :: Word32
..}
put :: MsgStmFlashLockSector -> Put
put MsgStmFlashLockSector {Word32
_msgStmFlashLockSector_sector :: Word32
_msgStmFlashLockSector_sector :: MsgStmFlashLockSector -> Word32
..} = do
Word32 -> Put
putWord32le Word32
_msgStmFlashLockSector_sector
$(makeSBP 'msgStmFlashLockSector ''MsgStmFlashLockSector)
$(makeJSON "_msgStmFlashLockSector_" ''MsgStmFlashLockSector)
$(makeLenses ''MsgStmFlashLockSector)
msgStmFlashUnlockSector :: Word16
msgStmFlashUnlockSector :: Word16
msgStmFlashUnlockSector = Word16
0x00E4
data MsgStmFlashUnlockSector = MsgStmFlashUnlockSector
{ MsgStmFlashUnlockSector -> Word32
_msgStmFlashUnlockSector_sector :: !Word32
} deriving ( Int -> MsgStmFlashUnlockSector -> ShowS
[MsgStmFlashUnlockSector] -> ShowS
MsgStmFlashUnlockSector -> String
(Int -> MsgStmFlashUnlockSector -> ShowS)
-> (MsgStmFlashUnlockSector -> String)
-> ([MsgStmFlashUnlockSector] -> ShowS)
-> Show MsgStmFlashUnlockSector
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgStmFlashUnlockSector] -> ShowS
$cshowList :: [MsgStmFlashUnlockSector] -> ShowS
show :: MsgStmFlashUnlockSector -> String
$cshow :: MsgStmFlashUnlockSector -> String
showsPrec :: Int -> MsgStmFlashUnlockSector -> ShowS
$cshowsPrec :: Int -> MsgStmFlashUnlockSector -> ShowS
Show, ReadPrec [MsgStmFlashUnlockSector]
ReadPrec MsgStmFlashUnlockSector
Int -> ReadS MsgStmFlashUnlockSector
ReadS [MsgStmFlashUnlockSector]
(Int -> ReadS MsgStmFlashUnlockSector)
-> ReadS [MsgStmFlashUnlockSector]
-> ReadPrec MsgStmFlashUnlockSector
-> ReadPrec [MsgStmFlashUnlockSector]
-> Read MsgStmFlashUnlockSector
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgStmFlashUnlockSector]
$creadListPrec :: ReadPrec [MsgStmFlashUnlockSector]
readPrec :: ReadPrec MsgStmFlashUnlockSector
$creadPrec :: ReadPrec MsgStmFlashUnlockSector
readList :: ReadS [MsgStmFlashUnlockSector]
$creadList :: ReadS [MsgStmFlashUnlockSector]
readsPrec :: Int -> ReadS MsgStmFlashUnlockSector
$creadsPrec :: Int -> ReadS MsgStmFlashUnlockSector
Read, MsgStmFlashUnlockSector -> MsgStmFlashUnlockSector -> Bool
(MsgStmFlashUnlockSector -> MsgStmFlashUnlockSector -> Bool)
-> (MsgStmFlashUnlockSector -> MsgStmFlashUnlockSector -> Bool)
-> Eq MsgStmFlashUnlockSector
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgStmFlashUnlockSector -> MsgStmFlashUnlockSector -> Bool
$c/= :: MsgStmFlashUnlockSector -> MsgStmFlashUnlockSector -> Bool
== :: MsgStmFlashUnlockSector -> MsgStmFlashUnlockSector -> Bool
$c== :: MsgStmFlashUnlockSector -> MsgStmFlashUnlockSector -> Bool
Eq )
instance Binary MsgStmFlashUnlockSector where
get :: Get MsgStmFlashUnlockSector
get = do
Word32
_msgStmFlashUnlockSector_sector <- Get Word32
getWord32le
MsgStmFlashUnlockSector -> Get MsgStmFlashUnlockSector
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgStmFlashUnlockSector :: Word32 -> MsgStmFlashUnlockSector
MsgStmFlashUnlockSector {Word32
_msgStmFlashUnlockSector_sector :: Word32
_msgStmFlashUnlockSector_sector :: Word32
..}
put :: MsgStmFlashUnlockSector -> Put
put MsgStmFlashUnlockSector {Word32
_msgStmFlashUnlockSector_sector :: Word32
_msgStmFlashUnlockSector_sector :: MsgStmFlashUnlockSector -> Word32
..} = do
Word32 -> Put
putWord32le Word32
_msgStmFlashUnlockSector_sector
$(makeSBP 'msgStmFlashUnlockSector ''MsgStmFlashUnlockSector)
$(makeJSON "_msgStmFlashUnlockSector_" ''MsgStmFlashUnlockSector)
$(makeLenses ''MsgStmFlashUnlockSector)
msgStmUniqueIdReq :: Word16
msgStmUniqueIdReq :: Word16
msgStmUniqueIdReq = Word16
0x00E8
data MsgStmUniqueIdReq = MsgStmUniqueIdReq
deriving ( Int -> MsgStmUniqueIdReq -> ShowS
[MsgStmUniqueIdReq] -> ShowS
MsgStmUniqueIdReq -> String
(Int -> MsgStmUniqueIdReq -> ShowS)
-> (MsgStmUniqueIdReq -> String)
-> ([MsgStmUniqueIdReq] -> ShowS)
-> Show MsgStmUniqueIdReq
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgStmUniqueIdReq] -> ShowS
$cshowList :: [MsgStmUniqueIdReq] -> ShowS
show :: MsgStmUniqueIdReq -> String
$cshow :: MsgStmUniqueIdReq -> String
showsPrec :: Int -> MsgStmUniqueIdReq -> ShowS
$cshowsPrec :: Int -> MsgStmUniqueIdReq -> ShowS
Show, ReadPrec [MsgStmUniqueIdReq]
ReadPrec MsgStmUniqueIdReq
Int -> ReadS MsgStmUniqueIdReq
ReadS [MsgStmUniqueIdReq]
(Int -> ReadS MsgStmUniqueIdReq)
-> ReadS [MsgStmUniqueIdReq]
-> ReadPrec MsgStmUniqueIdReq
-> ReadPrec [MsgStmUniqueIdReq]
-> Read MsgStmUniqueIdReq
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgStmUniqueIdReq]
$creadListPrec :: ReadPrec [MsgStmUniqueIdReq]
readPrec :: ReadPrec MsgStmUniqueIdReq
$creadPrec :: ReadPrec MsgStmUniqueIdReq
readList :: ReadS [MsgStmUniqueIdReq]
$creadList :: ReadS [MsgStmUniqueIdReq]
readsPrec :: Int -> ReadS MsgStmUniqueIdReq
$creadsPrec :: Int -> ReadS MsgStmUniqueIdReq
Read, MsgStmUniqueIdReq -> MsgStmUniqueIdReq -> Bool
(MsgStmUniqueIdReq -> MsgStmUniqueIdReq -> Bool)
-> (MsgStmUniqueIdReq -> MsgStmUniqueIdReq -> Bool)
-> Eq MsgStmUniqueIdReq
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgStmUniqueIdReq -> MsgStmUniqueIdReq -> Bool
$c/= :: MsgStmUniqueIdReq -> MsgStmUniqueIdReq -> Bool
== :: MsgStmUniqueIdReq -> MsgStmUniqueIdReq -> Bool
$c== :: MsgStmUniqueIdReq -> MsgStmUniqueIdReq -> Bool
Eq )
instance Binary MsgStmUniqueIdReq where
get :: Get MsgStmUniqueIdReq
get =
MsgStmUniqueIdReq -> Get MsgStmUniqueIdReq
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgStmUniqueIdReq
MsgStmUniqueIdReq
put :: MsgStmUniqueIdReq -> Put
put MsgStmUniqueIdReq
MsgStmUniqueIdReq =
() -> Put
forall (f :: * -> *) a. Applicative f => a -> f a
pure ()
$(makeSBP 'msgStmUniqueIdReq ''MsgStmUniqueIdReq)
$(makeJSON "_msgStmUniqueIdReq_" ''MsgStmUniqueIdReq)
$(makeLenses ''MsgStmUniqueIdReq)
msgStmUniqueIdResp :: Word16
msgStmUniqueIdResp :: Word16
msgStmUniqueIdResp = Word16
0x00E5
data MsgStmUniqueIdResp = MsgStmUniqueIdResp
{ MsgStmUniqueIdResp -> [Word8]
_msgStmUniqueIdResp_stm_id :: ![Word8]
} deriving ( Int -> MsgStmUniqueIdResp -> ShowS
[MsgStmUniqueIdResp] -> ShowS
MsgStmUniqueIdResp -> String
(Int -> MsgStmUniqueIdResp -> ShowS)
-> (MsgStmUniqueIdResp -> String)
-> ([MsgStmUniqueIdResp] -> ShowS)
-> Show MsgStmUniqueIdResp
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgStmUniqueIdResp] -> ShowS
$cshowList :: [MsgStmUniqueIdResp] -> ShowS
show :: MsgStmUniqueIdResp -> String
$cshow :: MsgStmUniqueIdResp -> String
showsPrec :: Int -> MsgStmUniqueIdResp -> ShowS
$cshowsPrec :: Int -> MsgStmUniqueIdResp -> ShowS
Show, ReadPrec [MsgStmUniqueIdResp]
ReadPrec MsgStmUniqueIdResp
Int -> ReadS MsgStmUniqueIdResp
ReadS [MsgStmUniqueIdResp]
(Int -> ReadS MsgStmUniqueIdResp)
-> ReadS [MsgStmUniqueIdResp]
-> ReadPrec MsgStmUniqueIdResp
-> ReadPrec [MsgStmUniqueIdResp]
-> Read MsgStmUniqueIdResp
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgStmUniqueIdResp]
$creadListPrec :: ReadPrec [MsgStmUniqueIdResp]
readPrec :: ReadPrec MsgStmUniqueIdResp
$creadPrec :: ReadPrec MsgStmUniqueIdResp
readList :: ReadS [MsgStmUniqueIdResp]
$creadList :: ReadS [MsgStmUniqueIdResp]
readsPrec :: Int -> ReadS MsgStmUniqueIdResp
$creadsPrec :: Int -> ReadS MsgStmUniqueIdResp
Read, MsgStmUniqueIdResp -> MsgStmUniqueIdResp -> Bool
(MsgStmUniqueIdResp -> MsgStmUniqueIdResp -> Bool)
-> (MsgStmUniqueIdResp -> MsgStmUniqueIdResp -> Bool)
-> Eq MsgStmUniqueIdResp
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgStmUniqueIdResp -> MsgStmUniqueIdResp -> Bool
$c/= :: MsgStmUniqueIdResp -> MsgStmUniqueIdResp -> Bool
== :: MsgStmUniqueIdResp -> MsgStmUniqueIdResp -> Bool
$c== :: MsgStmUniqueIdResp -> MsgStmUniqueIdResp -> Bool
Eq )
instance Binary MsgStmUniqueIdResp where
get :: Get MsgStmUniqueIdResp
get = do
[Word8]
_msgStmUniqueIdResp_stm_id <- Int -> Get Word8 -> Get [Word8]
forall (m :: * -> *) a. Applicative m => Int -> m a -> m [a]
replicateM Int
12 Get Word8
getWord8
MsgStmUniqueIdResp -> Get MsgStmUniqueIdResp
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgStmUniqueIdResp :: [Word8] -> MsgStmUniqueIdResp
MsgStmUniqueIdResp {[Word8]
_msgStmUniqueIdResp_stm_id :: [Word8]
_msgStmUniqueIdResp_stm_id :: [Word8]
..}
put :: MsgStmUniqueIdResp -> Put
put MsgStmUniqueIdResp {[Word8]
_msgStmUniqueIdResp_stm_id :: [Word8]
_msgStmUniqueIdResp_stm_id :: MsgStmUniqueIdResp -> [Word8]
..} = do
(Word8 -> Put) -> [Word8] -> Put
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ Word8 -> Put
putWord8 [Word8]
_msgStmUniqueIdResp_stm_id
$(makeSBP 'msgStmUniqueIdResp ''MsgStmUniqueIdResp)
$(makeJSON "_msgStmUniqueIdResp_" ''MsgStmUniqueIdResp)
$(makeLenses ''MsgStmUniqueIdResp)
msgM25FlashWriteStatus :: Word16
msgM25FlashWriteStatus :: Word16
msgM25FlashWriteStatus = Word16
0x00F3
data MsgM25FlashWriteStatus = MsgM25FlashWriteStatus
{ MsgM25FlashWriteStatus -> [Word8]
_msgM25FlashWriteStatus_status :: ![Word8]
} deriving ( Int -> MsgM25FlashWriteStatus -> ShowS
[MsgM25FlashWriteStatus] -> ShowS
MsgM25FlashWriteStatus -> String
(Int -> MsgM25FlashWriteStatus -> ShowS)
-> (MsgM25FlashWriteStatus -> String)
-> ([MsgM25FlashWriteStatus] -> ShowS)
-> Show MsgM25FlashWriteStatus
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgM25FlashWriteStatus] -> ShowS
$cshowList :: [MsgM25FlashWriteStatus] -> ShowS
show :: MsgM25FlashWriteStatus -> String
$cshow :: MsgM25FlashWriteStatus -> String
showsPrec :: Int -> MsgM25FlashWriteStatus -> ShowS
$cshowsPrec :: Int -> MsgM25FlashWriteStatus -> ShowS
Show, ReadPrec [MsgM25FlashWriteStatus]
ReadPrec MsgM25FlashWriteStatus
Int -> ReadS MsgM25FlashWriteStatus
ReadS [MsgM25FlashWriteStatus]
(Int -> ReadS MsgM25FlashWriteStatus)
-> ReadS [MsgM25FlashWriteStatus]
-> ReadPrec MsgM25FlashWriteStatus
-> ReadPrec [MsgM25FlashWriteStatus]
-> Read MsgM25FlashWriteStatus
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgM25FlashWriteStatus]
$creadListPrec :: ReadPrec [MsgM25FlashWriteStatus]
readPrec :: ReadPrec MsgM25FlashWriteStatus
$creadPrec :: ReadPrec MsgM25FlashWriteStatus
readList :: ReadS [MsgM25FlashWriteStatus]
$creadList :: ReadS [MsgM25FlashWriteStatus]
readsPrec :: Int -> ReadS MsgM25FlashWriteStatus
$creadsPrec :: Int -> ReadS MsgM25FlashWriteStatus
Read, MsgM25FlashWriteStatus -> MsgM25FlashWriteStatus -> Bool
(MsgM25FlashWriteStatus -> MsgM25FlashWriteStatus -> Bool)
-> (MsgM25FlashWriteStatus -> MsgM25FlashWriteStatus -> Bool)
-> Eq MsgM25FlashWriteStatus
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgM25FlashWriteStatus -> MsgM25FlashWriteStatus -> Bool
$c/= :: MsgM25FlashWriteStatus -> MsgM25FlashWriteStatus -> Bool
== :: MsgM25FlashWriteStatus -> MsgM25FlashWriteStatus -> Bool
$c== :: MsgM25FlashWriteStatus -> MsgM25FlashWriteStatus -> Bool
Eq )
instance Binary MsgM25FlashWriteStatus where
get :: Get MsgM25FlashWriteStatus
get = do
[Word8]
_msgM25FlashWriteStatus_status <- Int -> Get Word8 -> Get [Word8]
forall (m :: * -> *) a. Applicative m => Int -> m a -> m [a]
replicateM Int
1 Get Word8
getWord8
MsgM25FlashWriteStatus -> Get MsgM25FlashWriteStatus
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgM25FlashWriteStatus :: [Word8] -> MsgM25FlashWriteStatus
MsgM25FlashWriteStatus {[Word8]
_msgM25FlashWriteStatus_status :: [Word8]
_msgM25FlashWriteStatus_status :: [Word8]
..}
put :: MsgM25FlashWriteStatus -> Put
put MsgM25FlashWriteStatus {[Word8]
_msgM25FlashWriteStatus_status :: [Word8]
_msgM25FlashWriteStatus_status :: MsgM25FlashWriteStatus -> [Word8]
..} = do
(Word8 -> Put) -> [Word8] -> Put
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ Word8 -> Put
putWord8 [Word8]
_msgM25FlashWriteStatus_status
$(makeSBP 'msgM25FlashWriteStatus ''MsgM25FlashWriteStatus)
$(makeJSON "_msgM25FlashWriteStatus_" ''MsgM25FlashWriteStatus)
$(makeLenses ''MsgM25FlashWriteStatus)