{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE RecordWildCards #-}
module SwiftNav.SBP.Settings
( module SwiftNav.SBP.Settings
) 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) #-}
msgSettingsSave :: Word16
msgSettingsSave :: Word16
msgSettingsSave = Word16
0x00A1
data MsgSettingsSave = MsgSettingsSave
deriving ( Int -> MsgSettingsSave -> ShowS
[MsgSettingsSave] -> ShowS
MsgSettingsSave -> String
(Int -> MsgSettingsSave -> ShowS)
-> (MsgSettingsSave -> String)
-> ([MsgSettingsSave] -> ShowS)
-> Show MsgSettingsSave
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgSettingsSave] -> ShowS
$cshowList :: [MsgSettingsSave] -> ShowS
show :: MsgSettingsSave -> String
$cshow :: MsgSettingsSave -> String
showsPrec :: Int -> MsgSettingsSave -> ShowS
$cshowsPrec :: Int -> MsgSettingsSave -> ShowS
Show, ReadPrec [MsgSettingsSave]
ReadPrec MsgSettingsSave
Int -> ReadS MsgSettingsSave
ReadS [MsgSettingsSave]
(Int -> ReadS MsgSettingsSave)
-> ReadS [MsgSettingsSave]
-> ReadPrec MsgSettingsSave
-> ReadPrec [MsgSettingsSave]
-> Read MsgSettingsSave
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgSettingsSave]
$creadListPrec :: ReadPrec [MsgSettingsSave]
readPrec :: ReadPrec MsgSettingsSave
$creadPrec :: ReadPrec MsgSettingsSave
readList :: ReadS [MsgSettingsSave]
$creadList :: ReadS [MsgSettingsSave]
readsPrec :: Int -> ReadS MsgSettingsSave
$creadsPrec :: Int -> ReadS MsgSettingsSave
Read, MsgSettingsSave -> MsgSettingsSave -> Bool
(MsgSettingsSave -> MsgSettingsSave -> Bool)
-> (MsgSettingsSave -> MsgSettingsSave -> Bool)
-> Eq MsgSettingsSave
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgSettingsSave -> MsgSettingsSave -> Bool
$c/= :: MsgSettingsSave -> MsgSettingsSave -> Bool
== :: MsgSettingsSave -> MsgSettingsSave -> Bool
$c== :: MsgSettingsSave -> MsgSettingsSave -> Bool
Eq )
instance Binary MsgSettingsSave where
get :: Get MsgSettingsSave
get =
MsgSettingsSave -> Get MsgSettingsSave
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgSettingsSave
MsgSettingsSave
put :: MsgSettingsSave -> Put
put MsgSettingsSave
MsgSettingsSave =
() -> Put
forall (f :: * -> *) a. Applicative f => a -> f a
pure ()
$(makeSBP 'msgSettingsSave ''MsgSettingsSave)
$(makeJSON "_msgSettingsSave_" ''MsgSettingsSave)
$(makeLenses ''MsgSettingsSave)
msgSettingsWrite :: Word16
msgSettingsWrite :: Word16
msgSettingsWrite = Word16
0x00A0
data MsgSettingsWrite = MsgSettingsWrite
{ MsgSettingsWrite -> Text
_msgSettingsWrite_setting :: !Text
} deriving ( Int -> MsgSettingsWrite -> ShowS
[MsgSettingsWrite] -> ShowS
MsgSettingsWrite -> String
(Int -> MsgSettingsWrite -> ShowS)
-> (MsgSettingsWrite -> String)
-> ([MsgSettingsWrite] -> ShowS)
-> Show MsgSettingsWrite
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgSettingsWrite] -> ShowS
$cshowList :: [MsgSettingsWrite] -> ShowS
show :: MsgSettingsWrite -> String
$cshow :: MsgSettingsWrite -> String
showsPrec :: Int -> MsgSettingsWrite -> ShowS
$cshowsPrec :: Int -> MsgSettingsWrite -> ShowS
Show, ReadPrec [MsgSettingsWrite]
ReadPrec MsgSettingsWrite
Int -> ReadS MsgSettingsWrite
ReadS [MsgSettingsWrite]
(Int -> ReadS MsgSettingsWrite)
-> ReadS [MsgSettingsWrite]
-> ReadPrec MsgSettingsWrite
-> ReadPrec [MsgSettingsWrite]
-> Read MsgSettingsWrite
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgSettingsWrite]
$creadListPrec :: ReadPrec [MsgSettingsWrite]
readPrec :: ReadPrec MsgSettingsWrite
$creadPrec :: ReadPrec MsgSettingsWrite
readList :: ReadS [MsgSettingsWrite]
$creadList :: ReadS [MsgSettingsWrite]
readsPrec :: Int -> ReadS MsgSettingsWrite
$creadsPrec :: Int -> ReadS MsgSettingsWrite
Read, MsgSettingsWrite -> MsgSettingsWrite -> Bool
(MsgSettingsWrite -> MsgSettingsWrite -> Bool)
-> (MsgSettingsWrite -> MsgSettingsWrite -> Bool)
-> Eq MsgSettingsWrite
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgSettingsWrite -> MsgSettingsWrite -> Bool
$c/= :: MsgSettingsWrite -> MsgSettingsWrite -> Bool
== :: MsgSettingsWrite -> MsgSettingsWrite -> Bool
$c== :: MsgSettingsWrite -> MsgSettingsWrite -> Bool
Eq )
instance Binary MsgSettingsWrite where
get :: Get MsgSettingsWrite
get = do
Text
_msgSettingsWrite_setting <- ByteString -> Text
decodeUtf8 (ByteString -> Text)
-> (ByteString -> ByteString) -> ByteString -> Text
forall k (cat :: k -> k -> *) (b :: k) (c :: k) (a :: k).
Category cat =>
cat b c -> cat a b -> cat a c
. ByteString -> ByteString
toStrict (ByteString -> Text) -> Get ByteString -> Get Text
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Get ByteString
getRemainingLazyByteString
MsgSettingsWrite -> Get MsgSettingsWrite
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgSettingsWrite :: Text -> MsgSettingsWrite
MsgSettingsWrite {Text
_msgSettingsWrite_setting :: Text
_msgSettingsWrite_setting :: Text
..}
put :: MsgSettingsWrite -> Put
put MsgSettingsWrite {Text
_msgSettingsWrite_setting :: Text
_msgSettingsWrite_setting :: MsgSettingsWrite -> Text
..} = do
ByteString -> Put
putByteString (ByteString -> Put) -> ByteString -> Put
forall a b. (a -> b) -> a -> b
$ Text -> ByteString
encodeUtf8 Text
_msgSettingsWrite_setting
$(makeSBP 'msgSettingsWrite ''MsgSettingsWrite)
$(makeJSON "_msgSettingsWrite_" ''MsgSettingsWrite)
$(makeLenses ''MsgSettingsWrite)
msgSettingsWriteResp :: Word16
msgSettingsWriteResp :: Word16
msgSettingsWriteResp = Word16
0x00AF
data MsgSettingsWriteResp = MsgSettingsWriteResp
{ MsgSettingsWriteResp -> Word8
_msgSettingsWriteResp_status :: !Word8
, MsgSettingsWriteResp -> Text
_msgSettingsWriteResp_setting :: !Text
} deriving ( Int -> MsgSettingsWriteResp -> ShowS
[MsgSettingsWriteResp] -> ShowS
MsgSettingsWriteResp -> String
(Int -> MsgSettingsWriteResp -> ShowS)
-> (MsgSettingsWriteResp -> String)
-> ([MsgSettingsWriteResp] -> ShowS)
-> Show MsgSettingsWriteResp
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgSettingsWriteResp] -> ShowS
$cshowList :: [MsgSettingsWriteResp] -> ShowS
show :: MsgSettingsWriteResp -> String
$cshow :: MsgSettingsWriteResp -> String
showsPrec :: Int -> MsgSettingsWriteResp -> ShowS
$cshowsPrec :: Int -> MsgSettingsWriteResp -> ShowS
Show, ReadPrec [MsgSettingsWriteResp]
ReadPrec MsgSettingsWriteResp
Int -> ReadS MsgSettingsWriteResp
ReadS [MsgSettingsWriteResp]
(Int -> ReadS MsgSettingsWriteResp)
-> ReadS [MsgSettingsWriteResp]
-> ReadPrec MsgSettingsWriteResp
-> ReadPrec [MsgSettingsWriteResp]
-> Read MsgSettingsWriteResp
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgSettingsWriteResp]
$creadListPrec :: ReadPrec [MsgSettingsWriteResp]
readPrec :: ReadPrec MsgSettingsWriteResp
$creadPrec :: ReadPrec MsgSettingsWriteResp
readList :: ReadS [MsgSettingsWriteResp]
$creadList :: ReadS [MsgSettingsWriteResp]
readsPrec :: Int -> ReadS MsgSettingsWriteResp
$creadsPrec :: Int -> ReadS MsgSettingsWriteResp
Read, MsgSettingsWriteResp -> MsgSettingsWriteResp -> Bool
(MsgSettingsWriteResp -> MsgSettingsWriteResp -> Bool)
-> (MsgSettingsWriteResp -> MsgSettingsWriteResp -> Bool)
-> Eq MsgSettingsWriteResp
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgSettingsWriteResp -> MsgSettingsWriteResp -> Bool
$c/= :: MsgSettingsWriteResp -> MsgSettingsWriteResp -> Bool
== :: MsgSettingsWriteResp -> MsgSettingsWriteResp -> Bool
$c== :: MsgSettingsWriteResp -> MsgSettingsWriteResp -> Bool
Eq )
instance Binary MsgSettingsWriteResp where
get :: Get MsgSettingsWriteResp
get = do
Word8
_msgSettingsWriteResp_status <- Get Word8
getWord8
Text
_msgSettingsWriteResp_setting <- ByteString -> Text
decodeUtf8 (ByteString -> Text)
-> (ByteString -> ByteString) -> ByteString -> Text
forall k (cat :: k -> k -> *) (b :: k) (c :: k) (a :: k).
Category cat =>
cat b c -> cat a b -> cat a c
. ByteString -> ByteString
toStrict (ByteString -> Text) -> Get ByteString -> Get Text
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Get ByteString
getRemainingLazyByteString
MsgSettingsWriteResp -> Get MsgSettingsWriteResp
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgSettingsWriteResp :: Word8 -> Text -> MsgSettingsWriteResp
MsgSettingsWriteResp {Word8
Text
_msgSettingsWriteResp_setting :: Text
_msgSettingsWriteResp_status :: Word8
_msgSettingsWriteResp_setting :: Text
_msgSettingsWriteResp_status :: Word8
..}
put :: MsgSettingsWriteResp -> Put
put MsgSettingsWriteResp {Word8
Text
_msgSettingsWriteResp_setting :: Text
_msgSettingsWriteResp_status :: Word8
_msgSettingsWriteResp_setting :: MsgSettingsWriteResp -> Text
_msgSettingsWriteResp_status :: MsgSettingsWriteResp -> Word8
..} = do
Word8 -> Put
putWord8 Word8
_msgSettingsWriteResp_status
ByteString -> Put
putByteString (ByteString -> Put) -> ByteString -> Put
forall a b. (a -> b) -> a -> b
$ Text -> ByteString
encodeUtf8 Text
_msgSettingsWriteResp_setting
$(makeSBP 'msgSettingsWriteResp ''MsgSettingsWriteResp)
$(makeJSON "_msgSettingsWriteResp_" ''MsgSettingsWriteResp)
$(makeLenses ''MsgSettingsWriteResp)
msgSettingsReadReq :: Word16
msgSettingsReadReq :: Word16
msgSettingsReadReq = Word16
0x00A4
data MsgSettingsReadReq = MsgSettingsReadReq
{ MsgSettingsReadReq -> Text
_msgSettingsReadReq_setting :: !Text
} deriving ( Int -> MsgSettingsReadReq -> ShowS
[MsgSettingsReadReq] -> ShowS
MsgSettingsReadReq -> String
(Int -> MsgSettingsReadReq -> ShowS)
-> (MsgSettingsReadReq -> String)
-> ([MsgSettingsReadReq] -> ShowS)
-> Show MsgSettingsReadReq
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgSettingsReadReq] -> ShowS
$cshowList :: [MsgSettingsReadReq] -> ShowS
show :: MsgSettingsReadReq -> String
$cshow :: MsgSettingsReadReq -> String
showsPrec :: Int -> MsgSettingsReadReq -> ShowS
$cshowsPrec :: Int -> MsgSettingsReadReq -> ShowS
Show, ReadPrec [MsgSettingsReadReq]
ReadPrec MsgSettingsReadReq
Int -> ReadS MsgSettingsReadReq
ReadS [MsgSettingsReadReq]
(Int -> ReadS MsgSettingsReadReq)
-> ReadS [MsgSettingsReadReq]
-> ReadPrec MsgSettingsReadReq
-> ReadPrec [MsgSettingsReadReq]
-> Read MsgSettingsReadReq
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgSettingsReadReq]
$creadListPrec :: ReadPrec [MsgSettingsReadReq]
readPrec :: ReadPrec MsgSettingsReadReq
$creadPrec :: ReadPrec MsgSettingsReadReq
readList :: ReadS [MsgSettingsReadReq]
$creadList :: ReadS [MsgSettingsReadReq]
readsPrec :: Int -> ReadS MsgSettingsReadReq
$creadsPrec :: Int -> ReadS MsgSettingsReadReq
Read, MsgSettingsReadReq -> MsgSettingsReadReq -> Bool
(MsgSettingsReadReq -> MsgSettingsReadReq -> Bool)
-> (MsgSettingsReadReq -> MsgSettingsReadReq -> Bool)
-> Eq MsgSettingsReadReq
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgSettingsReadReq -> MsgSettingsReadReq -> Bool
$c/= :: MsgSettingsReadReq -> MsgSettingsReadReq -> Bool
== :: MsgSettingsReadReq -> MsgSettingsReadReq -> Bool
$c== :: MsgSettingsReadReq -> MsgSettingsReadReq -> Bool
Eq )
instance Binary MsgSettingsReadReq where
get :: Get MsgSettingsReadReq
get = do
Text
_msgSettingsReadReq_setting <- ByteString -> Text
decodeUtf8 (ByteString -> Text)
-> (ByteString -> ByteString) -> ByteString -> Text
forall k (cat :: k -> k -> *) (b :: k) (c :: k) (a :: k).
Category cat =>
cat b c -> cat a b -> cat a c
. ByteString -> ByteString
toStrict (ByteString -> Text) -> Get ByteString -> Get Text
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Get ByteString
getRemainingLazyByteString
MsgSettingsReadReq -> Get MsgSettingsReadReq
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgSettingsReadReq :: Text -> MsgSettingsReadReq
MsgSettingsReadReq {Text
_msgSettingsReadReq_setting :: Text
_msgSettingsReadReq_setting :: Text
..}
put :: MsgSettingsReadReq -> Put
put MsgSettingsReadReq {Text
_msgSettingsReadReq_setting :: Text
_msgSettingsReadReq_setting :: MsgSettingsReadReq -> Text
..} = do
ByteString -> Put
putByteString (ByteString -> Put) -> ByteString -> Put
forall a b. (a -> b) -> a -> b
$ Text -> ByteString
encodeUtf8 Text
_msgSettingsReadReq_setting
$(makeSBP 'msgSettingsReadReq ''MsgSettingsReadReq)
$(makeJSON "_msgSettingsReadReq_" ''MsgSettingsReadReq)
$(makeLenses ''MsgSettingsReadReq)
msgSettingsReadResp :: Word16
msgSettingsReadResp :: Word16
msgSettingsReadResp = Word16
0x00A5
data MsgSettingsReadResp = MsgSettingsReadResp
{ MsgSettingsReadResp -> Text
_msgSettingsReadResp_setting :: !Text
} deriving ( Int -> MsgSettingsReadResp -> ShowS
[MsgSettingsReadResp] -> ShowS
MsgSettingsReadResp -> String
(Int -> MsgSettingsReadResp -> ShowS)
-> (MsgSettingsReadResp -> String)
-> ([MsgSettingsReadResp] -> ShowS)
-> Show MsgSettingsReadResp
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgSettingsReadResp] -> ShowS
$cshowList :: [MsgSettingsReadResp] -> ShowS
show :: MsgSettingsReadResp -> String
$cshow :: MsgSettingsReadResp -> String
showsPrec :: Int -> MsgSettingsReadResp -> ShowS
$cshowsPrec :: Int -> MsgSettingsReadResp -> ShowS
Show, ReadPrec [MsgSettingsReadResp]
ReadPrec MsgSettingsReadResp
Int -> ReadS MsgSettingsReadResp
ReadS [MsgSettingsReadResp]
(Int -> ReadS MsgSettingsReadResp)
-> ReadS [MsgSettingsReadResp]
-> ReadPrec MsgSettingsReadResp
-> ReadPrec [MsgSettingsReadResp]
-> Read MsgSettingsReadResp
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgSettingsReadResp]
$creadListPrec :: ReadPrec [MsgSettingsReadResp]
readPrec :: ReadPrec MsgSettingsReadResp
$creadPrec :: ReadPrec MsgSettingsReadResp
readList :: ReadS [MsgSettingsReadResp]
$creadList :: ReadS [MsgSettingsReadResp]
readsPrec :: Int -> ReadS MsgSettingsReadResp
$creadsPrec :: Int -> ReadS MsgSettingsReadResp
Read, MsgSettingsReadResp -> MsgSettingsReadResp -> Bool
(MsgSettingsReadResp -> MsgSettingsReadResp -> Bool)
-> (MsgSettingsReadResp -> MsgSettingsReadResp -> Bool)
-> Eq MsgSettingsReadResp
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgSettingsReadResp -> MsgSettingsReadResp -> Bool
$c/= :: MsgSettingsReadResp -> MsgSettingsReadResp -> Bool
== :: MsgSettingsReadResp -> MsgSettingsReadResp -> Bool
$c== :: MsgSettingsReadResp -> MsgSettingsReadResp -> Bool
Eq )
instance Binary MsgSettingsReadResp where
get :: Get MsgSettingsReadResp
get = do
Text
_msgSettingsReadResp_setting <- ByteString -> Text
decodeUtf8 (ByteString -> Text)
-> (ByteString -> ByteString) -> ByteString -> Text
forall k (cat :: k -> k -> *) (b :: k) (c :: k) (a :: k).
Category cat =>
cat b c -> cat a b -> cat a c
. ByteString -> ByteString
toStrict (ByteString -> Text) -> Get ByteString -> Get Text
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Get ByteString
getRemainingLazyByteString
MsgSettingsReadResp -> Get MsgSettingsReadResp
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgSettingsReadResp :: Text -> MsgSettingsReadResp
MsgSettingsReadResp {Text
_msgSettingsReadResp_setting :: Text
_msgSettingsReadResp_setting :: Text
..}
put :: MsgSettingsReadResp -> Put
put MsgSettingsReadResp {Text
_msgSettingsReadResp_setting :: Text
_msgSettingsReadResp_setting :: MsgSettingsReadResp -> Text
..} = do
ByteString -> Put
putByteString (ByteString -> Put) -> ByteString -> Put
forall a b. (a -> b) -> a -> b
$ Text -> ByteString
encodeUtf8 Text
_msgSettingsReadResp_setting
$(makeSBP 'msgSettingsReadResp ''MsgSettingsReadResp)
$(makeJSON "_msgSettingsReadResp_" ''MsgSettingsReadResp)
$(makeLenses ''MsgSettingsReadResp)
msgSettingsReadByIndexReq :: Word16
msgSettingsReadByIndexReq :: Word16
msgSettingsReadByIndexReq = Word16
0x00A2
data MsgSettingsReadByIndexReq = MsgSettingsReadByIndexReq
{ MsgSettingsReadByIndexReq -> Word16
_msgSettingsReadByIndexReq_index :: !Word16
} deriving ( Int -> MsgSettingsReadByIndexReq -> ShowS
[MsgSettingsReadByIndexReq] -> ShowS
MsgSettingsReadByIndexReq -> String
(Int -> MsgSettingsReadByIndexReq -> ShowS)
-> (MsgSettingsReadByIndexReq -> String)
-> ([MsgSettingsReadByIndexReq] -> ShowS)
-> Show MsgSettingsReadByIndexReq
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgSettingsReadByIndexReq] -> ShowS
$cshowList :: [MsgSettingsReadByIndexReq] -> ShowS
show :: MsgSettingsReadByIndexReq -> String
$cshow :: MsgSettingsReadByIndexReq -> String
showsPrec :: Int -> MsgSettingsReadByIndexReq -> ShowS
$cshowsPrec :: Int -> MsgSettingsReadByIndexReq -> ShowS
Show, ReadPrec [MsgSettingsReadByIndexReq]
ReadPrec MsgSettingsReadByIndexReq
Int -> ReadS MsgSettingsReadByIndexReq
ReadS [MsgSettingsReadByIndexReq]
(Int -> ReadS MsgSettingsReadByIndexReq)
-> ReadS [MsgSettingsReadByIndexReq]
-> ReadPrec MsgSettingsReadByIndexReq
-> ReadPrec [MsgSettingsReadByIndexReq]
-> Read MsgSettingsReadByIndexReq
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgSettingsReadByIndexReq]
$creadListPrec :: ReadPrec [MsgSettingsReadByIndexReq]
readPrec :: ReadPrec MsgSettingsReadByIndexReq
$creadPrec :: ReadPrec MsgSettingsReadByIndexReq
readList :: ReadS [MsgSettingsReadByIndexReq]
$creadList :: ReadS [MsgSettingsReadByIndexReq]
readsPrec :: Int -> ReadS MsgSettingsReadByIndexReq
$creadsPrec :: Int -> ReadS MsgSettingsReadByIndexReq
Read, MsgSettingsReadByIndexReq -> MsgSettingsReadByIndexReq -> Bool
(MsgSettingsReadByIndexReq -> MsgSettingsReadByIndexReq -> Bool)
-> (MsgSettingsReadByIndexReq -> MsgSettingsReadByIndexReq -> Bool)
-> Eq MsgSettingsReadByIndexReq
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgSettingsReadByIndexReq -> MsgSettingsReadByIndexReq -> Bool
$c/= :: MsgSettingsReadByIndexReq -> MsgSettingsReadByIndexReq -> Bool
== :: MsgSettingsReadByIndexReq -> MsgSettingsReadByIndexReq -> Bool
$c== :: MsgSettingsReadByIndexReq -> MsgSettingsReadByIndexReq -> Bool
Eq )
instance Binary MsgSettingsReadByIndexReq where
get :: Get MsgSettingsReadByIndexReq
get = do
Word16
_msgSettingsReadByIndexReq_index <- Get Word16
getWord16le
MsgSettingsReadByIndexReq -> Get MsgSettingsReadByIndexReq
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgSettingsReadByIndexReq :: Word16 -> MsgSettingsReadByIndexReq
MsgSettingsReadByIndexReq {Word16
_msgSettingsReadByIndexReq_index :: Word16
_msgSettingsReadByIndexReq_index :: Word16
..}
put :: MsgSettingsReadByIndexReq -> Put
put MsgSettingsReadByIndexReq {Word16
_msgSettingsReadByIndexReq_index :: Word16
_msgSettingsReadByIndexReq_index :: MsgSettingsReadByIndexReq -> Word16
..} = do
Word16 -> Put
putWord16le Word16
_msgSettingsReadByIndexReq_index
$(makeSBP 'msgSettingsReadByIndexReq ''MsgSettingsReadByIndexReq)
$(makeJSON "_msgSettingsReadByIndexReq_" ''MsgSettingsReadByIndexReq)
$(makeLenses ''MsgSettingsReadByIndexReq)
msgSettingsReadByIndexResp :: Word16
msgSettingsReadByIndexResp :: Word16
msgSettingsReadByIndexResp = Word16
0x00A7
data MsgSettingsReadByIndexResp = MsgSettingsReadByIndexResp
{ MsgSettingsReadByIndexResp -> Word16
_msgSettingsReadByIndexResp_index :: !Word16
, MsgSettingsReadByIndexResp -> Text
_msgSettingsReadByIndexResp_setting :: !Text
} deriving ( Int -> MsgSettingsReadByIndexResp -> ShowS
[MsgSettingsReadByIndexResp] -> ShowS
MsgSettingsReadByIndexResp -> String
(Int -> MsgSettingsReadByIndexResp -> ShowS)
-> (MsgSettingsReadByIndexResp -> String)
-> ([MsgSettingsReadByIndexResp] -> ShowS)
-> Show MsgSettingsReadByIndexResp
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgSettingsReadByIndexResp] -> ShowS
$cshowList :: [MsgSettingsReadByIndexResp] -> ShowS
show :: MsgSettingsReadByIndexResp -> String
$cshow :: MsgSettingsReadByIndexResp -> String
showsPrec :: Int -> MsgSettingsReadByIndexResp -> ShowS
$cshowsPrec :: Int -> MsgSettingsReadByIndexResp -> ShowS
Show, ReadPrec [MsgSettingsReadByIndexResp]
ReadPrec MsgSettingsReadByIndexResp
Int -> ReadS MsgSettingsReadByIndexResp
ReadS [MsgSettingsReadByIndexResp]
(Int -> ReadS MsgSettingsReadByIndexResp)
-> ReadS [MsgSettingsReadByIndexResp]
-> ReadPrec MsgSettingsReadByIndexResp
-> ReadPrec [MsgSettingsReadByIndexResp]
-> Read MsgSettingsReadByIndexResp
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgSettingsReadByIndexResp]
$creadListPrec :: ReadPrec [MsgSettingsReadByIndexResp]
readPrec :: ReadPrec MsgSettingsReadByIndexResp
$creadPrec :: ReadPrec MsgSettingsReadByIndexResp
readList :: ReadS [MsgSettingsReadByIndexResp]
$creadList :: ReadS [MsgSettingsReadByIndexResp]
readsPrec :: Int -> ReadS MsgSettingsReadByIndexResp
$creadsPrec :: Int -> ReadS MsgSettingsReadByIndexResp
Read, MsgSettingsReadByIndexResp -> MsgSettingsReadByIndexResp -> Bool
(MsgSettingsReadByIndexResp -> MsgSettingsReadByIndexResp -> Bool)
-> (MsgSettingsReadByIndexResp
-> MsgSettingsReadByIndexResp -> Bool)
-> Eq MsgSettingsReadByIndexResp
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgSettingsReadByIndexResp -> MsgSettingsReadByIndexResp -> Bool
$c/= :: MsgSettingsReadByIndexResp -> MsgSettingsReadByIndexResp -> Bool
== :: MsgSettingsReadByIndexResp -> MsgSettingsReadByIndexResp -> Bool
$c== :: MsgSettingsReadByIndexResp -> MsgSettingsReadByIndexResp -> Bool
Eq )
instance Binary MsgSettingsReadByIndexResp where
get :: Get MsgSettingsReadByIndexResp
get = do
Word16
_msgSettingsReadByIndexResp_index <- Get Word16
getWord16le
Text
_msgSettingsReadByIndexResp_setting <- ByteString -> Text
decodeUtf8 (ByteString -> Text)
-> (ByteString -> ByteString) -> ByteString -> Text
forall k (cat :: k -> k -> *) (b :: k) (c :: k) (a :: k).
Category cat =>
cat b c -> cat a b -> cat a c
. ByteString -> ByteString
toStrict (ByteString -> Text) -> Get ByteString -> Get Text
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Get ByteString
getRemainingLazyByteString
MsgSettingsReadByIndexResp -> Get MsgSettingsReadByIndexResp
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgSettingsReadByIndexResp :: Word16 -> Text -> MsgSettingsReadByIndexResp
MsgSettingsReadByIndexResp {Word16
Text
_msgSettingsReadByIndexResp_setting :: Text
_msgSettingsReadByIndexResp_index :: Word16
_msgSettingsReadByIndexResp_setting :: Text
_msgSettingsReadByIndexResp_index :: Word16
..}
put :: MsgSettingsReadByIndexResp -> Put
put MsgSettingsReadByIndexResp {Word16
Text
_msgSettingsReadByIndexResp_setting :: Text
_msgSettingsReadByIndexResp_index :: Word16
_msgSettingsReadByIndexResp_setting :: MsgSettingsReadByIndexResp -> Text
_msgSettingsReadByIndexResp_index :: MsgSettingsReadByIndexResp -> Word16
..} = do
Word16 -> Put
putWord16le Word16
_msgSettingsReadByIndexResp_index
ByteString -> Put
putByteString (ByteString -> Put) -> ByteString -> Put
forall a b. (a -> b) -> a -> b
$ Text -> ByteString
encodeUtf8 Text
_msgSettingsReadByIndexResp_setting
$(makeSBP 'msgSettingsReadByIndexResp ''MsgSettingsReadByIndexResp)
$(makeJSON "_msgSettingsReadByIndexResp_" ''MsgSettingsReadByIndexResp)
$(makeLenses ''MsgSettingsReadByIndexResp)
msgSettingsReadByIndexDone :: Word16
msgSettingsReadByIndexDone :: Word16
msgSettingsReadByIndexDone = Word16
0x00A6
data MsgSettingsReadByIndexDone = MsgSettingsReadByIndexDone
deriving ( Int -> MsgSettingsReadByIndexDone -> ShowS
[MsgSettingsReadByIndexDone] -> ShowS
MsgSettingsReadByIndexDone -> String
(Int -> MsgSettingsReadByIndexDone -> ShowS)
-> (MsgSettingsReadByIndexDone -> String)
-> ([MsgSettingsReadByIndexDone] -> ShowS)
-> Show MsgSettingsReadByIndexDone
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgSettingsReadByIndexDone] -> ShowS
$cshowList :: [MsgSettingsReadByIndexDone] -> ShowS
show :: MsgSettingsReadByIndexDone -> String
$cshow :: MsgSettingsReadByIndexDone -> String
showsPrec :: Int -> MsgSettingsReadByIndexDone -> ShowS
$cshowsPrec :: Int -> MsgSettingsReadByIndexDone -> ShowS
Show, ReadPrec [MsgSettingsReadByIndexDone]
ReadPrec MsgSettingsReadByIndexDone
Int -> ReadS MsgSettingsReadByIndexDone
ReadS [MsgSettingsReadByIndexDone]
(Int -> ReadS MsgSettingsReadByIndexDone)
-> ReadS [MsgSettingsReadByIndexDone]
-> ReadPrec MsgSettingsReadByIndexDone
-> ReadPrec [MsgSettingsReadByIndexDone]
-> Read MsgSettingsReadByIndexDone
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgSettingsReadByIndexDone]
$creadListPrec :: ReadPrec [MsgSettingsReadByIndexDone]
readPrec :: ReadPrec MsgSettingsReadByIndexDone
$creadPrec :: ReadPrec MsgSettingsReadByIndexDone
readList :: ReadS [MsgSettingsReadByIndexDone]
$creadList :: ReadS [MsgSettingsReadByIndexDone]
readsPrec :: Int -> ReadS MsgSettingsReadByIndexDone
$creadsPrec :: Int -> ReadS MsgSettingsReadByIndexDone
Read, MsgSettingsReadByIndexDone -> MsgSettingsReadByIndexDone -> Bool
(MsgSettingsReadByIndexDone -> MsgSettingsReadByIndexDone -> Bool)
-> (MsgSettingsReadByIndexDone
-> MsgSettingsReadByIndexDone -> Bool)
-> Eq MsgSettingsReadByIndexDone
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgSettingsReadByIndexDone -> MsgSettingsReadByIndexDone -> Bool
$c/= :: MsgSettingsReadByIndexDone -> MsgSettingsReadByIndexDone -> Bool
== :: MsgSettingsReadByIndexDone -> MsgSettingsReadByIndexDone -> Bool
$c== :: MsgSettingsReadByIndexDone -> MsgSettingsReadByIndexDone -> Bool
Eq )
instance Binary MsgSettingsReadByIndexDone where
get :: Get MsgSettingsReadByIndexDone
get =
MsgSettingsReadByIndexDone -> Get MsgSettingsReadByIndexDone
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgSettingsReadByIndexDone
MsgSettingsReadByIndexDone
put :: MsgSettingsReadByIndexDone -> Put
put MsgSettingsReadByIndexDone
MsgSettingsReadByIndexDone =
() -> Put
forall (f :: * -> *) a. Applicative f => a -> f a
pure ()
$(makeSBP 'msgSettingsReadByIndexDone ''MsgSettingsReadByIndexDone)
$(makeJSON "_msgSettingsReadByIndexDone_" ''MsgSettingsReadByIndexDone)
$(makeLenses ''MsgSettingsReadByIndexDone)
msgSettingsRegister :: Word16
msgSettingsRegister :: Word16
msgSettingsRegister = Word16
0x00AE
data MsgSettingsRegister = MsgSettingsRegister
{ MsgSettingsRegister -> Text
_msgSettingsRegister_setting :: !Text
} deriving ( Int -> MsgSettingsRegister -> ShowS
[MsgSettingsRegister] -> ShowS
MsgSettingsRegister -> String
(Int -> MsgSettingsRegister -> ShowS)
-> (MsgSettingsRegister -> String)
-> ([MsgSettingsRegister] -> ShowS)
-> Show MsgSettingsRegister
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgSettingsRegister] -> ShowS
$cshowList :: [MsgSettingsRegister] -> ShowS
show :: MsgSettingsRegister -> String
$cshow :: MsgSettingsRegister -> String
showsPrec :: Int -> MsgSettingsRegister -> ShowS
$cshowsPrec :: Int -> MsgSettingsRegister -> ShowS
Show, ReadPrec [MsgSettingsRegister]
ReadPrec MsgSettingsRegister
Int -> ReadS MsgSettingsRegister
ReadS [MsgSettingsRegister]
(Int -> ReadS MsgSettingsRegister)
-> ReadS [MsgSettingsRegister]
-> ReadPrec MsgSettingsRegister
-> ReadPrec [MsgSettingsRegister]
-> Read MsgSettingsRegister
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgSettingsRegister]
$creadListPrec :: ReadPrec [MsgSettingsRegister]
readPrec :: ReadPrec MsgSettingsRegister
$creadPrec :: ReadPrec MsgSettingsRegister
readList :: ReadS [MsgSettingsRegister]
$creadList :: ReadS [MsgSettingsRegister]
readsPrec :: Int -> ReadS MsgSettingsRegister
$creadsPrec :: Int -> ReadS MsgSettingsRegister
Read, MsgSettingsRegister -> MsgSettingsRegister -> Bool
(MsgSettingsRegister -> MsgSettingsRegister -> Bool)
-> (MsgSettingsRegister -> MsgSettingsRegister -> Bool)
-> Eq MsgSettingsRegister
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgSettingsRegister -> MsgSettingsRegister -> Bool
$c/= :: MsgSettingsRegister -> MsgSettingsRegister -> Bool
== :: MsgSettingsRegister -> MsgSettingsRegister -> Bool
$c== :: MsgSettingsRegister -> MsgSettingsRegister -> Bool
Eq )
instance Binary MsgSettingsRegister where
get :: Get MsgSettingsRegister
get = do
Text
_msgSettingsRegister_setting <- ByteString -> Text
decodeUtf8 (ByteString -> Text)
-> (ByteString -> ByteString) -> ByteString -> Text
forall k (cat :: k -> k -> *) (b :: k) (c :: k) (a :: k).
Category cat =>
cat b c -> cat a b -> cat a c
. ByteString -> ByteString
toStrict (ByteString -> Text) -> Get ByteString -> Get Text
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Get ByteString
getRemainingLazyByteString
MsgSettingsRegister -> Get MsgSettingsRegister
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgSettingsRegister :: Text -> MsgSettingsRegister
MsgSettingsRegister {Text
_msgSettingsRegister_setting :: Text
_msgSettingsRegister_setting :: Text
..}
put :: MsgSettingsRegister -> Put
put MsgSettingsRegister {Text
_msgSettingsRegister_setting :: Text
_msgSettingsRegister_setting :: MsgSettingsRegister -> Text
..} = do
ByteString -> Put
putByteString (ByteString -> Put) -> ByteString -> Put
forall a b. (a -> b) -> a -> b
$ Text -> ByteString
encodeUtf8 Text
_msgSettingsRegister_setting
$(makeSBP 'msgSettingsRegister ''MsgSettingsRegister)
$(makeJSON "_msgSettingsRegister_" ''MsgSettingsRegister)
$(makeLenses ''MsgSettingsRegister)
msgSettingsRegisterResp :: Word16
msgSettingsRegisterResp :: Word16
msgSettingsRegisterResp = Word16
0x01AF
data MsgSettingsRegisterResp = MsgSettingsRegisterResp
{ MsgSettingsRegisterResp -> Word8
_msgSettingsRegisterResp_status :: !Word8
, MsgSettingsRegisterResp -> Text
_msgSettingsRegisterResp_setting :: !Text
} deriving ( Int -> MsgSettingsRegisterResp -> ShowS
[MsgSettingsRegisterResp] -> ShowS
MsgSettingsRegisterResp -> String
(Int -> MsgSettingsRegisterResp -> ShowS)
-> (MsgSettingsRegisterResp -> String)
-> ([MsgSettingsRegisterResp] -> ShowS)
-> Show MsgSettingsRegisterResp
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgSettingsRegisterResp] -> ShowS
$cshowList :: [MsgSettingsRegisterResp] -> ShowS
show :: MsgSettingsRegisterResp -> String
$cshow :: MsgSettingsRegisterResp -> String
showsPrec :: Int -> MsgSettingsRegisterResp -> ShowS
$cshowsPrec :: Int -> MsgSettingsRegisterResp -> ShowS
Show, ReadPrec [MsgSettingsRegisterResp]
ReadPrec MsgSettingsRegisterResp
Int -> ReadS MsgSettingsRegisterResp
ReadS [MsgSettingsRegisterResp]
(Int -> ReadS MsgSettingsRegisterResp)
-> ReadS [MsgSettingsRegisterResp]
-> ReadPrec MsgSettingsRegisterResp
-> ReadPrec [MsgSettingsRegisterResp]
-> Read MsgSettingsRegisterResp
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgSettingsRegisterResp]
$creadListPrec :: ReadPrec [MsgSettingsRegisterResp]
readPrec :: ReadPrec MsgSettingsRegisterResp
$creadPrec :: ReadPrec MsgSettingsRegisterResp
readList :: ReadS [MsgSettingsRegisterResp]
$creadList :: ReadS [MsgSettingsRegisterResp]
readsPrec :: Int -> ReadS MsgSettingsRegisterResp
$creadsPrec :: Int -> ReadS MsgSettingsRegisterResp
Read, MsgSettingsRegisterResp -> MsgSettingsRegisterResp -> Bool
(MsgSettingsRegisterResp -> MsgSettingsRegisterResp -> Bool)
-> (MsgSettingsRegisterResp -> MsgSettingsRegisterResp -> Bool)
-> Eq MsgSettingsRegisterResp
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgSettingsRegisterResp -> MsgSettingsRegisterResp -> Bool
$c/= :: MsgSettingsRegisterResp -> MsgSettingsRegisterResp -> Bool
== :: MsgSettingsRegisterResp -> MsgSettingsRegisterResp -> Bool
$c== :: MsgSettingsRegisterResp -> MsgSettingsRegisterResp -> Bool
Eq )
instance Binary MsgSettingsRegisterResp where
get :: Get MsgSettingsRegisterResp
get = do
Word8
_msgSettingsRegisterResp_status <- Get Word8
getWord8
Text
_msgSettingsRegisterResp_setting <- ByteString -> Text
decodeUtf8 (ByteString -> Text)
-> (ByteString -> ByteString) -> ByteString -> Text
forall k (cat :: k -> k -> *) (b :: k) (c :: k) (a :: k).
Category cat =>
cat b c -> cat a b -> cat a c
. ByteString -> ByteString
toStrict (ByteString -> Text) -> Get ByteString -> Get Text
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Get ByteString
getRemainingLazyByteString
MsgSettingsRegisterResp -> Get MsgSettingsRegisterResp
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgSettingsRegisterResp :: Word8 -> Text -> MsgSettingsRegisterResp
MsgSettingsRegisterResp {Word8
Text
_msgSettingsRegisterResp_setting :: Text
_msgSettingsRegisterResp_status :: Word8
_msgSettingsRegisterResp_setting :: Text
_msgSettingsRegisterResp_status :: Word8
..}
put :: MsgSettingsRegisterResp -> Put
put MsgSettingsRegisterResp {Word8
Text
_msgSettingsRegisterResp_setting :: Text
_msgSettingsRegisterResp_status :: Word8
_msgSettingsRegisterResp_setting :: MsgSettingsRegisterResp -> Text
_msgSettingsRegisterResp_status :: MsgSettingsRegisterResp -> Word8
..} = do
Word8 -> Put
putWord8 Word8
_msgSettingsRegisterResp_status
ByteString -> Put
putByteString (ByteString -> Put) -> ByteString -> Put
forall a b. (a -> b) -> a -> b
$ Text -> ByteString
encodeUtf8 Text
_msgSettingsRegisterResp_setting
$(makeSBP 'msgSettingsRegisterResp ''MsgSettingsRegisterResp)
$(makeJSON "_msgSettingsRegisterResp_" ''MsgSettingsRegisterResp)
$(makeLenses ''MsgSettingsRegisterResp)