{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE RecordWildCards #-}
module SwiftNav.SBP.Linux
( module SwiftNav.SBP.Linux
) 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) #-}
msgLinuxCpuStateDepA :: Word16
msgLinuxCpuStateDepA :: Word16
msgLinuxCpuStateDepA = Word16
0x7F00
data MsgLinuxCpuStateDepA = MsgLinuxCpuStateDepA
{ MsgLinuxCpuStateDepA -> Word8
_msgLinuxCpuStateDepA_index :: !Word8
, MsgLinuxCpuStateDepA -> Word16
_msgLinuxCpuStateDepA_pid :: !Word16
, MsgLinuxCpuStateDepA -> Word8
_msgLinuxCpuStateDepA_pcpu :: !Word8
, MsgLinuxCpuStateDepA -> Text
_msgLinuxCpuStateDepA_tname :: !Text
, MsgLinuxCpuStateDepA -> Text
_msgLinuxCpuStateDepA_cmdline :: !Text
} deriving ( Int -> MsgLinuxCpuStateDepA -> ShowS
[MsgLinuxCpuStateDepA] -> ShowS
MsgLinuxCpuStateDepA -> String
(Int -> MsgLinuxCpuStateDepA -> ShowS)
-> (MsgLinuxCpuStateDepA -> String)
-> ([MsgLinuxCpuStateDepA] -> ShowS)
-> Show MsgLinuxCpuStateDepA
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgLinuxCpuStateDepA] -> ShowS
$cshowList :: [MsgLinuxCpuStateDepA] -> ShowS
show :: MsgLinuxCpuStateDepA -> String
$cshow :: MsgLinuxCpuStateDepA -> String
showsPrec :: Int -> MsgLinuxCpuStateDepA -> ShowS
$cshowsPrec :: Int -> MsgLinuxCpuStateDepA -> ShowS
Show, ReadPrec [MsgLinuxCpuStateDepA]
ReadPrec MsgLinuxCpuStateDepA
Int -> ReadS MsgLinuxCpuStateDepA
ReadS [MsgLinuxCpuStateDepA]
(Int -> ReadS MsgLinuxCpuStateDepA)
-> ReadS [MsgLinuxCpuStateDepA]
-> ReadPrec MsgLinuxCpuStateDepA
-> ReadPrec [MsgLinuxCpuStateDepA]
-> Read MsgLinuxCpuStateDepA
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgLinuxCpuStateDepA]
$creadListPrec :: ReadPrec [MsgLinuxCpuStateDepA]
readPrec :: ReadPrec MsgLinuxCpuStateDepA
$creadPrec :: ReadPrec MsgLinuxCpuStateDepA
readList :: ReadS [MsgLinuxCpuStateDepA]
$creadList :: ReadS [MsgLinuxCpuStateDepA]
readsPrec :: Int -> ReadS MsgLinuxCpuStateDepA
$creadsPrec :: Int -> ReadS MsgLinuxCpuStateDepA
Read, MsgLinuxCpuStateDepA -> MsgLinuxCpuStateDepA -> Bool
(MsgLinuxCpuStateDepA -> MsgLinuxCpuStateDepA -> Bool)
-> (MsgLinuxCpuStateDepA -> MsgLinuxCpuStateDepA -> Bool)
-> Eq MsgLinuxCpuStateDepA
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgLinuxCpuStateDepA -> MsgLinuxCpuStateDepA -> Bool
$c/= :: MsgLinuxCpuStateDepA -> MsgLinuxCpuStateDepA -> Bool
== :: MsgLinuxCpuStateDepA -> MsgLinuxCpuStateDepA -> Bool
$c== :: MsgLinuxCpuStateDepA -> MsgLinuxCpuStateDepA -> Bool
Eq )
instance Binary MsgLinuxCpuStateDepA where
get :: Get MsgLinuxCpuStateDepA
get = do
Word8
_msgLinuxCpuStateDepA_index <- Get Word8
getWord8
Word16
_msgLinuxCpuStateDepA_pid <- Get Word16
getWord16le
Word8
_msgLinuxCpuStateDepA_pcpu <- Get Word8
getWord8
Text
_msgLinuxCpuStateDepA_tname <- ByteString -> Text
decodeUtf8 (ByteString -> Text) -> Get ByteString -> Get Text
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Int -> Get ByteString
getByteString Int
15
Text
_msgLinuxCpuStateDepA_cmdline <- 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
MsgLinuxCpuStateDepA -> Get MsgLinuxCpuStateDepA
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgLinuxCpuStateDepA :: Word8 -> Word16 -> Word8 -> Text -> Text -> MsgLinuxCpuStateDepA
MsgLinuxCpuStateDepA {Word8
Word16
Text
_msgLinuxCpuStateDepA_cmdline :: Text
_msgLinuxCpuStateDepA_tname :: Text
_msgLinuxCpuStateDepA_pcpu :: Word8
_msgLinuxCpuStateDepA_pid :: Word16
_msgLinuxCpuStateDepA_index :: Word8
_msgLinuxCpuStateDepA_cmdline :: Text
_msgLinuxCpuStateDepA_tname :: Text
_msgLinuxCpuStateDepA_pcpu :: Word8
_msgLinuxCpuStateDepA_pid :: Word16
_msgLinuxCpuStateDepA_index :: Word8
..}
put :: MsgLinuxCpuStateDepA -> Put
put MsgLinuxCpuStateDepA {Word8
Word16
Text
_msgLinuxCpuStateDepA_cmdline :: Text
_msgLinuxCpuStateDepA_tname :: Text
_msgLinuxCpuStateDepA_pcpu :: Word8
_msgLinuxCpuStateDepA_pid :: Word16
_msgLinuxCpuStateDepA_index :: Word8
_msgLinuxCpuStateDepA_cmdline :: MsgLinuxCpuStateDepA -> Text
_msgLinuxCpuStateDepA_tname :: MsgLinuxCpuStateDepA -> Text
_msgLinuxCpuStateDepA_pcpu :: MsgLinuxCpuStateDepA -> Word8
_msgLinuxCpuStateDepA_pid :: MsgLinuxCpuStateDepA -> Word16
_msgLinuxCpuStateDepA_index :: MsgLinuxCpuStateDepA -> Word8
..} = do
Word8 -> Put
putWord8 Word8
_msgLinuxCpuStateDepA_index
Word16 -> Put
putWord16le Word16
_msgLinuxCpuStateDepA_pid
Word8 -> Put
putWord8 Word8
_msgLinuxCpuStateDepA_pcpu
ByteString -> Put
putByteString (ByteString -> Put) -> ByteString -> Put
forall a b. (a -> b) -> a -> b
$ Text -> ByteString
encodeUtf8 Text
_msgLinuxCpuStateDepA_tname
ByteString -> Put
putByteString (ByteString -> Put) -> ByteString -> Put
forall a b. (a -> b) -> a -> b
$ Text -> ByteString
encodeUtf8 Text
_msgLinuxCpuStateDepA_cmdline
$(makeSBP 'msgLinuxCpuStateDepA ''MsgLinuxCpuStateDepA)
$(makeJSON "_msgLinuxCpuStateDepA_" ''MsgLinuxCpuStateDepA)
$(makeLenses ''MsgLinuxCpuStateDepA)
msgLinuxMemStateDepA :: Word16
msgLinuxMemStateDepA :: Word16
msgLinuxMemStateDepA = Word16
0x7F01
data MsgLinuxMemStateDepA = MsgLinuxMemStateDepA
{ MsgLinuxMemStateDepA -> Word8
_msgLinuxMemStateDepA_index :: !Word8
, MsgLinuxMemStateDepA -> Word16
_msgLinuxMemStateDepA_pid :: !Word16
, MsgLinuxMemStateDepA -> Word8
_msgLinuxMemStateDepA_pmem :: !Word8
, MsgLinuxMemStateDepA -> Text
_msgLinuxMemStateDepA_tname :: !Text
, MsgLinuxMemStateDepA -> Text
_msgLinuxMemStateDepA_cmdline :: !Text
} deriving ( Int -> MsgLinuxMemStateDepA -> ShowS
[MsgLinuxMemStateDepA] -> ShowS
MsgLinuxMemStateDepA -> String
(Int -> MsgLinuxMemStateDepA -> ShowS)
-> (MsgLinuxMemStateDepA -> String)
-> ([MsgLinuxMemStateDepA] -> ShowS)
-> Show MsgLinuxMemStateDepA
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgLinuxMemStateDepA] -> ShowS
$cshowList :: [MsgLinuxMemStateDepA] -> ShowS
show :: MsgLinuxMemStateDepA -> String
$cshow :: MsgLinuxMemStateDepA -> String
showsPrec :: Int -> MsgLinuxMemStateDepA -> ShowS
$cshowsPrec :: Int -> MsgLinuxMemStateDepA -> ShowS
Show, ReadPrec [MsgLinuxMemStateDepA]
ReadPrec MsgLinuxMemStateDepA
Int -> ReadS MsgLinuxMemStateDepA
ReadS [MsgLinuxMemStateDepA]
(Int -> ReadS MsgLinuxMemStateDepA)
-> ReadS [MsgLinuxMemStateDepA]
-> ReadPrec MsgLinuxMemStateDepA
-> ReadPrec [MsgLinuxMemStateDepA]
-> Read MsgLinuxMemStateDepA
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgLinuxMemStateDepA]
$creadListPrec :: ReadPrec [MsgLinuxMemStateDepA]
readPrec :: ReadPrec MsgLinuxMemStateDepA
$creadPrec :: ReadPrec MsgLinuxMemStateDepA
readList :: ReadS [MsgLinuxMemStateDepA]
$creadList :: ReadS [MsgLinuxMemStateDepA]
readsPrec :: Int -> ReadS MsgLinuxMemStateDepA
$creadsPrec :: Int -> ReadS MsgLinuxMemStateDepA
Read, MsgLinuxMemStateDepA -> MsgLinuxMemStateDepA -> Bool
(MsgLinuxMemStateDepA -> MsgLinuxMemStateDepA -> Bool)
-> (MsgLinuxMemStateDepA -> MsgLinuxMemStateDepA -> Bool)
-> Eq MsgLinuxMemStateDepA
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgLinuxMemStateDepA -> MsgLinuxMemStateDepA -> Bool
$c/= :: MsgLinuxMemStateDepA -> MsgLinuxMemStateDepA -> Bool
== :: MsgLinuxMemStateDepA -> MsgLinuxMemStateDepA -> Bool
$c== :: MsgLinuxMemStateDepA -> MsgLinuxMemStateDepA -> Bool
Eq )
instance Binary MsgLinuxMemStateDepA where
get :: Get MsgLinuxMemStateDepA
get = do
Word8
_msgLinuxMemStateDepA_index <- Get Word8
getWord8
Word16
_msgLinuxMemStateDepA_pid <- Get Word16
getWord16le
Word8
_msgLinuxMemStateDepA_pmem <- Get Word8
getWord8
Text
_msgLinuxMemStateDepA_tname <- ByteString -> Text
decodeUtf8 (ByteString -> Text) -> Get ByteString -> Get Text
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Int -> Get ByteString
getByteString Int
15
Text
_msgLinuxMemStateDepA_cmdline <- 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
MsgLinuxMemStateDepA -> Get MsgLinuxMemStateDepA
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgLinuxMemStateDepA :: Word8 -> Word16 -> Word8 -> Text -> Text -> MsgLinuxMemStateDepA
MsgLinuxMemStateDepA {Word8
Word16
Text
_msgLinuxMemStateDepA_cmdline :: Text
_msgLinuxMemStateDepA_tname :: Text
_msgLinuxMemStateDepA_pmem :: Word8
_msgLinuxMemStateDepA_pid :: Word16
_msgLinuxMemStateDepA_index :: Word8
_msgLinuxMemStateDepA_cmdline :: Text
_msgLinuxMemStateDepA_tname :: Text
_msgLinuxMemStateDepA_pmem :: Word8
_msgLinuxMemStateDepA_pid :: Word16
_msgLinuxMemStateDepA_index :: Word8
..}
put :: MsgLinuxMemStateDepA -> Put
put MsgLinuxMemStateDepA {Word8
Word16
Text
_msgLinuxMemStateDepA_cmdline :: Text
_msgLinuxMemStateDepA_tname :: Text
_msgLinuxMemStateDepA_pmem :: Word8
_msgLinuxMemStateDepA_pid :: Word16
_msgLinuxMemStateDepA_index :: Word8
_msgLinuxMemStateDepA_cmdline :: MsgLinuxMemStateDepA -> Text
_msgLinuxMemStateDepA_tname :: MsgLinuxMemStateDepA -> Text
_msgLinuxMemStateDepA_pmem :: MsgLinuxMemStateDepA -> Word8
_msgLinuxMemStateDepA_pid :: MsgLinuxMemStateDepA -> Word16
_msgLinuxMemStateDepA_index :: MsgLinuxMemStateDepA -> Word8
..} = do
Word8 -> Put
putWord8 Word8
_msgLinuxMemStateDepA_index
Word16 -> Put
putWord16le Word16
_msgLinuxMemStateDepA_pid
Word8 -> Put
putWord8 Word8
_msgLinuxMemStateDepA_pmem
ByteString -> Put
putByteString (ByteString -> Put) -> ByteString -> Put
forall a b. (a -> b) -> a -> b
$ Text -> ByteString
encodeUtf8 Text
_msgLinuxMemStateDepA_tname
ByteString -> Put
putByteString (ByteString -> Put) -> ByteString -> Put
forall a b. (a -> b) -> a -> b
$ Text -> ByteString
encodeUtf8 Text
_msgLinuxMemStateDepA_cmdline
$(makeSBP 'msgLinuxMemStateDepA ''MsgLinuxMemStateDepA)
$(makeJSON "_msgLinuxMemStateDepA_" ''MsgLinuxMemStateDepA)
$(makeLenses ''MsgLinuxMemStateDepA)
msgLinuxSysStateDepA :: Word16
msgLinuxSysStateDepA :: Word16
msgLinuxSysStateDepA = Word16
0x7F02
data MsgLinuxSysStateDepA = MsgLinuxSysStateDepA
{ MsgLinuxSysStateDepA -> Word16
_msgLinuxSysStateDepA_mem_total :: !Word16
, MsgLinuxSysStateDepA -> Word8
_msgLinuxSysStateDepA_pcpu :: !Word8
, MsgLinuxSysStateDepA -> Word8
_msgLinuxSysStateDepA_pmem :: !Word8
, MsgLinuxSysStateDepA -> Word16
_msgLinuxSysStateDepA_procs_starting :: !Word16
, MsgLinuxSysStateDepA -> Word16
_msgLinuxSysStateDepA_procs_stopping :: !Word16
, MsgLinuxSysStateDepA -> Word16
_msgLinuxSysStateDepA_pid_count :: !Word16
} deriving ( Int -> MsgLinuxSysStateDepA -> ShowS
[MsgLinuxSysStateDepA] -> ShowS
MsgLinuxSysStateDepA -> String
(Int -> MsgLinuxSysStateDepA -> ShowS)
-> (MsgLinuxSysStateDepA -> String)
-> ([MsgLinuxSysStateDepA] -> ShowS)
-> Show MsgLinuxSysStateDepA
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgLinuxSysStateDepA] -> ShowS
$cshowList :: [MsgLinuxSysStateDepA] -> ShowS
show :: MsgLinuxSysStateDepA -> String
$cshow :: MsgLinuxSysStateDepA -> String
showsPrec :: Int -> MsgLinuxSysStateDepA -> ShowS
$cshowsPrec :: Int -> MsgLinuxSysStateDepA -> ShowS
Show, ReadPrec [MsgLinuxSysStateDepA]
ReadPrec MsgLinuxSysStateDepA
Int -> ReadS MsgLinuxSysStateDepA
ReadS [MsgLinuxSysStateDepA]
(Int -> ReadS MsgLinuxSysStateDepA)
-> ReadS [MsgLinuxSysStateDepA]
-> ReadPrec MsgLinuxSysStateDepA
-> ReadPrec [MsgLinuxSysStateDepA]
-> Read MsgLinuxSysStateDepA
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgLinuxSysStateDepA]
$creadListPrec :: ReadPrec [MsgLinuxSysStateDepA]
readPrec :: ReadPrec MsgLinuxSysStateDepA
$creadPrec :: ReadPrec MsgLinuxSysStateDepA
readList :: ReadS [MsgLinuxSysStateDepA]
$creadList :: ReadS [MsgLinuxSysStateDepA]
readsPrec :: Int -> ReadS MsgLinuxSysStateDepA
$creadsPrec :: Int -> ReadS MsgLinuxSysStateDepA
Read, MsgLinuxSysStateDepA -> MsgLinuxSysStateDepA -> Bool
(MsgLinuxSysStateDepA -> MsgLinuxSysStateDepA -> Bool)
-> (MsgLinuxSysStateDepA -> MsgLinuxSysStateDepA -> Bool)
-> Eq MsgLinuxSysStateDepA
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgLinuxSysStateDepA -> MsgLinuxSysStateDepA -> Bool
$c/= :: MsgLinuxSysStateDepA -> MsgLinuxSysStateDepA -> Bool
== :: MsgLinuxSysStateDepA -> MsgLinuxSysStateDepA -> Bool
$c== :: MsgLinuxSysStateDepA -> MsgLinuxSysStateDepA -> Bool
Eq )
instance Binary MsgLinuxSysStateDepA where
get :: Get MsgLinuxSysStateDepA
get = do
Word16
_msgLinuxSysStateDepA_mem_total <- Get Word16
getWord16le
Word8
_msgLinuxSysStateDepA_pcpu <- Get Word8
getWord8
Word8
_msgLinuxSysStateDepA_pmem <- Get Word8
getWord8
Word16
_msgLinuxSysStateDepA_procs_starting <- Get Word16
getWord16le
Word16
_msgLinuxSysStateDepA_procs_stopping <- Get Word16
getWord16le
Word16
_msgLinuxSysStateDepA_pid_count <- Get Word16
getWord16le
MsgLinuxSysStateDepA -> Get MsgLinuxSysStateDepA
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgLinuxSysStateDepA :: Word16
-> Word8
-> Word8
-> Word16
-> Word16
-> Word16
-> MsgLinuxSysStateDepA
MsgLinuxSysStateDepA {Word8
Word16
_msgLinuxSysStateDepA_pid_count :: Word16
_msgLinuxSysStateDepA_procs_stopping :: Word16
_msgLinuxSysStateDepA_procs_starting :: Word16
_msgLinuxSysStateDepA_pmem :: Word8
_msgLinuxSysStateDepA_pcpu :: Word8
_msgLinuxSysStateDepA_mem_total :: Word16
_msgLinuxSysStateDepA_pid_count :: Word16
_msgLinuxSysStateDepA_procs_stopping :: Word16
_msgLinuxSysStateDepA_procs_starting :: Word16
_msgLinuxSysStateDepA_pmem :: Word8
_msgLinuxSysStateDepA_pcpu :: Word8
_msgLinuxSysStateDepA_mem_total :: Word16
..}
put :: MsgLinuxSysStateDepA -> Put
put MsgLinuxSysStateDepA {Word8
Word16
_msgLinuxSysStateDepA_pid_count :: Word16
_msgLinuxSysStateDepA_procs_stopping :: Word16
_msgLinuxSysStateDepA_procs_starting :: Word16
_msgLinuxSysStateDepA_pmem :: Word8
_msgLinuxSysStateDepA_pcpu :: Word8
_msgLinuxSysStateDepA_mem_total :: Word16
_msgLinuxSysStateDepA_pid_count :: MsgLinuxSysStateDepA -> Word16
_msgLinuxSysStateDepA_procs_stopping :: MsgLinuxSysStateDepA -> Word16
_msgLinuxSysStateDepA_procs_starting :: MsgLinuxSysStateDepA -> Word16
_msgLinuxSysStateDepA_pmem :: MsgLinuxSysStateDepA -> Word8
_msgLinuxSysStateDepA_pcpu :: MsgLinuxSysStateDepA -> Word8
_msgLinuxSysStateDepA_mem_total :: MsgLinuxSysStateDepA -> Word16
..} = do
Word16 -> Put
putWord16le Word16
_msgLinuxSysStateDepA_mem_total
Word8 -> Put
putWord8 Word8
_msgLinuxSysStateDepA_pcpu
Word8 -> Put
putWord8 Word8
_msgLinuxSysStateDepA_pmem
Word16 -> Put
putWord16le Word16
_msgLinuxSysStateDepA_procs_starting
Word16 -> Put
putWord16le Word16
_msgLinuxSysStateDepA_procs_stopping
Word16 -> Put
putWord16le Word16
_msgLinuxSysStateDepA_pid_count
$(makeSBP 'msgLinuxSysStateDepA ''MsgLinuxSysStateDepA)
$(makeJSON "_msgLinuxSysStateDepA_" ''MsgLinuxSysStateDepA)
$(makeLenses ''MsgLinuxSysStateDepA)
msgLinuxProcessSocketCounts :: Word16
msgLinuxProcessSocketCounts :: Word16
msgLinuxProcessSocketCounts = Word16
0x7F03
data MsgLinuxProcessSocketCounts = MsgLinuxProcessSocketCounts
{ MsgLinuxProcessSocketCounts -> Word8
_msgLinuxProcessSocketCounts_index :: !Word8
, MsgLinuxProcessSocketCounts -> Word16
_msgLinuxProcessSocketCounts_pid :: !Word16
, MsgLinuxProcessSocketCounts -> Word16
_msgLinuxProcessSocketCounts_socket_count :: !Word16
, MsgLinuxProcessSocketCounts -> Word16
_msgLinuxProcessSocketCounts_socket_types :: !Word16
, MsgLinuxProcessSocketCounts -> Word16
_msgLinuxProcessSocketCounts_socket_states :: !Word16
, MsgLinuxProcessSocketCounts -> Text
_msgLinuxProcessSocketCounts_cmdline :: !Text
} deriving ( Int -> MsgLinuxProcessSocketCounts -> ShowS
[MsgLinuxProcessSocketCounts] -> ShowS
MsgLinuxProcessSocketCounts -> String
(Int -> MsgLinuxProcessSocketCounts -> ShowS)
-> (MsgLinuxProcessSocketCounts -> String)
-> ([MsgLinuxProcessSocketCounts] -> ShowS)
-> Show MsgLinuxProcessSocketCounts
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgLinuxProcessSocketCounts] -> ShowS
$cshowList :: [MsgLinuxProcessSocketCounts] -> ShowS
show :: MsgLinuxProcessSocketCounts -> String
$cshow :: MsgLinuxProcessSocketCounts -> String
showsPrec :: Int -> MsgLinuxProcessSocketCounts -> ShowS
$cshowsPrec :: Int -> MsgLinuxProcessSocketCounts -> ShowS
Show, ReadPrec [MsgLinuxProcessSocketCounts]
ReadPrec MsgLinuxProcessSocketCounts
Int -> ReadS MsgLinuxProcessSocketCounts
ReadS [MsgLinuxProcessSocketCounts]
(Int -> ReadS MsgLinuxProcessSocketCounts)
-> ReadS [MsgLinuxProcessSocketCounts]
-> ReadPrec MsgLinuxProcessSocketCounts
-> ReadPrec [MsgLinuxProcessSocketCounts]
-> Read MsgLinuxProcessSocketCounts
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgLinuxProcessSocketCounts]
$creadListPrec :: ReadPrec [MsgLinuxProcessSocketCounts]
readPrec :: ReadPrec MsgLinuxProcessSocketCounts
$creadPrec :: ReadPrec MsgLinuxProcessSocketCounts
readList :: ReadS [MsgLinuxProcessSocketCounts]
$creadList :: ReadS [MsgLinuxProcessSocketCounts]
readsPrec :: Int -> ReadS MsgLinuxProcessSocketCounts
$creadsPrec :: Int -> ReadS MsgLinuxProcessSocketCounts
Read, MsgLinuxProcessSocketCounts -> MsgLinuxProcessSocketCounts -> Bool
(MsgLinuxProcessSocketCounts
-> MsgLinuxProcessSocketCounts -> Bool)
-> (MsgLinuxProcessSocketCounts
-> MsgLinuxProcessSocketCounts -> Bool)
-> Eq MsgLinuxProcessSocketCounts
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgLinuxProcessSocketCounts -> MsgLinuxProcessSocketCounts -> Bool
$c/= :: MsgLinuxProcessSocketCounts -> MsgLinuxProcessSocketCounts -> Bool
== :: MsgLinuxProcessSocketCounts -> MsgLinuxProcessSocketCounts -> Bool
$c== :: MsgLinuxProcessSocketCounts -> MsgLinuxProcessSocketCounts -> Bool
Eq )
instance Binary MsgLinuxProcessSocketCounts where
get :: Get MsgLinuxProcessSocketCounts
get = do
Word8
_msgLinuxProcessSocketCounts_index <- Get Word8
getWord8
Word16
_msgLinuxProcessSocketCounts_pid <- Get Word16
getWord16le
Word16
_msgLinuxProcessSocketCounts_socket_count <- Get Word16
getWord16le
Word16
_msgLinuxProcessSocketCounts_socket_types <- Get Word16
getWord16le
Word16
_msgLinuxProcessSocketCounts_socket_states <- Get Word16
getWord16le
Text
_msgLinuxProcessSocketCounts_cmdline <- 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
MsgLinuxProcessSocketCounts -> Get MsgLinuxProcessSocketCounts
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgLinuxProcessSocketCounts :: Word8
-> Word16
-> Word16
-> Word16
-> Word16
-> Text
-> MsgLinuxProcessSocketCounts
MsgLinuxProcessSocketCounts {Word8
Word16
Text
_msgLinuxProcessSocketCounts_cmdline :: Text
_msgLinuxProcessSocketCounts_socket_states :: Word16
_msgLinuxProcessSocketCounts_socket_types :: Word16
_msgLinuxProcessSocketCounts_socket_count :: Word16
_msgLinuxProcessSocketCounts_pid :: Word16
_msgLinuxProcessSocketCounts_index :: Word8
_msgLinuxProcessSocketCounts_cmdline :: Text
_msgLinuxProcessSocketCounts_socket_states :: Word16
_msgLinuxProcessSocketCounts_socket_types :: Word16
_msgLinuxProcessSocketCounts_socket_count :: Word16
_msgLinuxProcessSocketCounts_pid :: Word16
_msgLinuxProcessSocketCounts_index :: Word8
..}
put :: MsgLinuxProcessSocketCounts -> Put
put MsgLinuxProcessSocketCounts {Word8
Word16
Text
_msgLinuxProcessSocketCounts_cmdline :: Text
_msgLinuxProcessSocketCounts_socket_states :: Word16
_msgLinuxProcessSocketCounts_socket_types :: Word16
_msgLinuxProcessSocketCounts_socket_count :: Word16
_msgLinuxProcessSocketCounts_pid :: Word16
_msgLinuxProcessSocketCounts_index :: Word8
_msgLinuxProcessSocketCounts_cmdline :: MsgLinuxProcessSocketCounts -> Text
_msgLinuxProcessSocketCounts_socket_states :: MsgLinuxProcessSocketCounts -> Word16
_msgLinuxProcessSocketCounts_socket_types :: MsgLinuxProcessSocketCounts -> Word16
_msgLinuxProcessSocketCounts_socket_count :: MsgLinuxProcessSocketCounts -> Word16
_msgLinuxProcessSocketCounts_pid :: MsgLinuxProcessSocketCounts -> Word16
_msgLinuxProcessSocketCounts_index :: MsgLinuxProcessSocketCounts -> Word8
..} = do
Word8 -> Put
putWord8 Word8
_msgLinuxProcessSocketCounts_index
Word16 -> Put
putWord16le Word16
_msgLinuxProcessSocketCounts_pid
Word16 -> Put
putWord16le Word16
_msgLinuxProcessSocketCounts_socket_count
Word16 -> Put
putWord16le Word16
_msgLinuxProcessSocketCounts_socket_types
Word16 -> Put
putWord16le Word16
_msgLinuxProcessSocketCounts_socket_states
ByteString -> Put
putByteString (ByteString -> Put) -> ByteString -> Put
forall a b. (a -> b) -> a -> b
$ Text -> ByteString
encodeUtf8 Text
_msgLinuxProcessSocketCounts_cmdline
$(makeSBP 'msgLinuxProcessSocketCounts ''MsgLinuxProcessSocketCounts)
$(makeJSON "_msgLinuxProcessSocketCounts_" ''MsgLinuxProcessSocketCounts)
$(makeLenses ''MsgLinuxProcessSocketCounts)
msgLinuxProcessSocketQueues :: Word16
msgLinuxProcessSocketQueues :: Word16
msgLinuxProcessSocketQueues = Word16
0x7F04
data MsgLinuxProcessSocketQueues = MsgLinuxProcessSocketQueues
{ MsgLinuxProcessSocketQueues -> Word8
_msgLinuxProcessSocketQueues_index :: !Word8
, MsgLinuxProcessSocketQueues -> Word16
_msgLinuxProcessSocketQueues_pid :: !Word16
, MsgLinuxProcessSocketQueues -> Word16
_msgLinuxProcessSocketQueues_recv_queued :: !Word16
, MsgLinuxProcessSocketQueues -> Word16
_msgLinuxProcessSocketQueues_send_queued :: !Word16
, MsgLinuxProcessSocketQueues -> Word16
_msgLinuxProcessSocketQueues_socket_types :: !Word16
, MsgLinuxProcessSocketQueues -> Word16
_msgLinuxProcessSocketQueues_socket_states :: !Word16
, MsgLinuxProcessSocketQueues -> Text
_msgLinuxProcessSocketQueues_address_of_largest :: !Text
, MsgLinuxProcessSocketQueues -> Text
_msgLinuxProcessSocketQueues_cmdline :: !Text
} deriving ( Int -> MsgLinuxProcessSocketQueues -> ShowS
[MsgLinuxProcessSocketQueues] -> ShowS
MsgLinuxProcessSocketQueues -> String
(Int -> MsgLinuxProcessSocketQueues -> ShowS)
-> (MsgLinuxProcessSocketQueues -> String)
-> ([MsgLinuxProcessSocketQueues] -> ShowS)
-> Show MsgLinuxProcessSocketQueues
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgLinuxProcessSocketQueues] -> ShowS
$cshowList :: [MsgLinuxProcessSocketQueues] -> ShowS
show :: MsgLinuxProcessSocketQueues -> String
$cshow :: MsgLinuxProcessSocketQueues -> String
showsPrec :: Int -> MsgLinuxProcessSocketQueues -> ShowS
$cshowsPrec :: Int -> MsgLinuxProcessSocketQueues -> ShowS
Show, ReadPrec [MsgLinuxProcessSocketQueues]
ReadPrec MsgLinuxProcessSocketQueues
Int -> ReadS MsgLinuxProcessSocketQueues
ReadS [MsgLinuxProcessSocketQueues]
(Int -> ReadS MsgLinuxProcessSocketQueues)
-> ReadS [MsgLinuxProcessSocketQueues]
-> ReadPrec MsgLinuxProcessSocketQueues
-> ReadPrec [MsgLinuxProcessSocketQueues]
-> Read MsgLinuxProcessSocketQueues
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgLinuxProcessSocketQueues]
$creadListPrec :: ReadPrec [MsgLinuxProcessSocketQueues]
readPrec :: ReadPrec MsgLinuxProcessSocketQueues
$creadPrec :: ReadPrec MsgLinuxProcessSocketQueues
readList :: ReadS [MsgLinuxProcessSocketQueues]
$creadList :: ReadS [MsgLinuxProcessSocketQueues]
readsPrec :: Int -> ReadS MsgLinuxProcessSocketQueues
$creadsPrec :: Int -> ReadS MsgLinuxProcessSocketQueues
Read, MsgLinuxProcessSocketQueues -> MsgLinuxProcessSocketQueues -> Bool
(MsgLinuxProcessSocketQueues
-> MsgLinuxProcessSocketQueues -> Bool)
-> (MsgLinuxProcessSocketQueues
-> MsgLinuxProcessSocketQueues -> Bool)
-> Eq MsgLinuxProcessSocketQueues
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgLinuxProcessSocketQueues -> MsgLinuxProcessSocketQueues -> Bool
$c/= :: MsgLinuxProcessSocketQueues -> MsgLinuxProcessSocketQueues -> Bool
== :: MsgLinuxProcessSocketQueues -> MsgLinuxProcessSocketQueues -> Bool
$c== :: MsgLinuxProcessSocketQueues -> MsgLinuxProcessSocketQueues -> Bool
Eq )
instance Binary MsgLinuxProcessSocketQueues where
get :: Get MsgLinuxProcessSocketQueues
get = do
Word8
_msgLinuxProcessSocketQueues_index <- Get Word8
getWord8
Word16
_msgLinuxProcessSocketQueues_pid <- Get Word16
getWord16le
Word16
_msgLinuxProcessSocketQueues_recv_queued <- Get Word16
getWord16le
Word16
_msgLinuxProcessSocketQueues_send_queued <- Get Word16
getWord16le
Word16
_msgLinuxProcessSocketQueues_socket_types <- Get Word16
getWord16le
Word16
_msgLinuxProcessSocketQueues_socket_states <- Get Word16
getWord16le
Text
_msgLinuxProcessSocketQueues_address_of_largest <- ByteString -> Text
decodeUtf8 (ByteString -> Text) -> Get ByteString -> Get Text
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Int -> Get ByteString
getByteString Int
64
Text
_msgLinuxProcessSocketQueues_cmdline <- 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
MsgLinuxProcessSocketQueues -> Get MsgLinuxProcessSocketQueues
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgLinuxProcessSocketQueues :: Word8
-> Word16
-> Word16
-> Word16
-> Word16
-> Word16
-> Text
-> Text
-> MsgLinuxProcessSocketQueues
MsgLinuxProcessSocketQueues {Word8
Word16
Text
_msgLinuxProcessSocketQueues_cmdline :: Text
_msgLinuxProcessSocketQueues_address_of_largest :: Text
_msgLinuxProcessSocketQueues_socket_states :: Word16
_msgLinuxProcessSocketQueues_socket_types :: Word16
_msgLinuxProcessSocketQueues_send_queued :: Word16
_msgLinuxProcessSocketQueues_recv_queued :: Word16
_msgLinuxProcessSocketQueues_pid :: Word16
_msgLinuxProcessSocketQueues_index :: Word8
_msgLinuxProcessSocketQueues_cmdline :: Text
_msgLinuxProcessSocketQueues_address_of_largest :: Text
_msgLinuxProcessSocketQueues_socket_states :: Word16
_msgLinuxProcessSocketQueues_socket_types :: Word16
_msgLinuxProcessSocketQueues_send_queued :: Word16
_msgLinuxProcessSocketQueues_recv_queued :: Word16
_msgLinuxProcessSocketQueues_pid :: Word16
_msgLinuxProcessSocketQueues_index :: Word8
..}
put :: MsgLinuxProcessSocketQueues -> Put
put MsgLinuxProcessSocketQueues {Word8
Word16
Text
_msgLinuxProcessSocketQueues_cmdline :: Text
_msgLinuxProcessSocketQueues_address_of_largest :: Text
_msgLinuxProcessSocketQueues_socket_states :: Word16
_msgLinuxProcessSocketQueues_socket_types :: Word16
_msgLinuxProcessSocketQueues_send_queued :: Word16
_msgLinuxProcessSocketQueues_recv_queued :: Word16
_msgLinuxProcessSocketQueues_pid :: Word16
_msgLinuxProcessSocketQueues_index :: Word8
_msgLinuxProcessSocketQueues_cmdline :: MsgLinuxProcessSocketQueues -> Text
_msgLinuxProcessSocketQueues_address_of_largest :: MsgLinuxProcessSocketQueues -> Text
_msgLinuxProcessSocketQueues_socket_states :: MsgLinuxProcessSocketQueues -> Word16
_msgLinuxProcessSocketQueues_socket_types :: MsgLinuxProcessSocketQueues -> Word16
_msgLinuxProcessSocketQueues_send_queued :: MsgLinuxProcessSocketQueues -> Word16
_msgLinuxProcessSocketQueues_recv_queued :: MsgLinuxProcessSocketQueues -> Word16
_msgLinuxProcessSocketQueues_pid :: MsgLinuxProcessSocketQueues -> Word16
_msgLinuxProcessSocketQueues_index :: MsgLinuxProcessSocketQueues -> Word8
..} = do
Word8 -> Put
putWord8 Word8
_msgLinuxProcessSocketQueues_index
Word16 -> Put
putWord16le Word16
_msgLinuxProcessSocketQueues_pid
Word16 -> Put
putWord16le Word16
_msgLinuxProcessSocketQueues_recv_queued
Word16 -> Put
putWord16le Word16
_msgLinuxProcessSocketQueues_send_queued
Word16 -> Put
putWord16le Word16
_msgLinuxProcessSocketQueues_socket_types
Word16 -> Put
putWord16le Word16
_msgLinuxProcessSocketQueues_socket_states
ByteString -> Put
putByteString (ByteString -> Put) -> ByteString -> Put
forall a b. (a -> b) -> a -> b
$ Text -> ByteString
encodeUtf8 Text
_msgLinuxProcessSocketQueues_address_of_largest
ByteString -> Put
putByteString (ByteString -> Put) -> ByteString -> Put
forall a b. (a -> b) -> a -> b
$ Text -> ByteString
encodeUtf8 Text
_msgLinuxProcessSocketQueues_cmdline
$(makeSBP 'msgLinuxProcessSocketQueues ''MsgLinuxProcessSocketQueues)
$(makeJSON "_msgLinuxProcessSocketQueues_" ''MsgLinuxProcessSocketQueues)
$(makeLenses ''MsgLinuxProcessSocketQueues)
msgLinuxSocketUsage :: Word16
msgLinuxSocketUsage :: Word16
msgLinuxSocketUsage = Word16
0x7F05
data MsgLinuxSocketUsage = MsgLinuxSocketUsage
{ MsgLinuxSocketUsage -> Word32
_msgLinuxSocketUsage_avg_queue_depth :: !Word32
, MsgLinuxSocketUsage -> Word32
_msgLinuxSocketUsage_max_queue_depth :: !Word32
, MsgLinuxSocketUsage -> [Word16]
_msgLinuxSocketUsage_socket_state_counts :: ![Word16]
, MsgLinuxSocketUsage -> [Word16]
_msgLinuxSocketUsage_socket_type_counts :: ![Word16]
} deriving ( Int -> MsgLinuxSocketUsage -> ShowS
[MsgLinuxSocketUsage] -> ShowS
MsgLinuxSocketUsage -> String
(Int -> MsgLinuxSocketUsage -> ShowS)
-> (MsgLinuxSocketUsage -> String)
-> ([MsgLinuxSocketUsage] -> ShowS)
-> Show MsgLinuxSocketUsage
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgLinuxSocketUsage] -> ShowS
$cshowList :: [MsgLinuxSocketUsage] -> ShowS
show :: MsgLinuxSocketUsage -> String
$cshow :: MsgLinuxSocketUsage -> String
showsPrec :: Int -> MsgLinuxSocketUsage -> ShowS
$cshowsPrec :: Int -> MsgLinuxSocketUsage -> ShowS
Show, ReadPrec [MsgLinuxSocketUsage]
ReadPrec MsgLinuxSocketUsage
Int -> ReadS MsgLinuxSocketUsage
ReadS [MsgLinuxSocketUsage]
(Int -> ReadS MsgLinuxSocketUsage)
-> ReadS [MsgLinuxSocketUsage]
-> ReadPrec MsgLinuxSocketUsage
-> ReadPrec [MsgLinuxSocketUsage]
-> Read MsgLinuxSocketUsage
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgLinuxSocketUsage]
$creadListPrec :: ReadPrec [MsgLinuxSocketUsage]
readPrec :: ReadPrec MsgLinuxSocketUsage
$creadPrec :: ReadPrec MsgLinuxSocketUsage
readList :: ReadS [MsgLinuxSocketUsage]
$creadList :: ReadS [MsgLinuxSocketUsage]
readsPrec :: Int -> ReadS MsgLinuxSocketUsage
$creadsPrec :: Int -> ReadS MsgLinuxSocketUsage
Read, MsgLinuxSocketUsage -> MsgLinuxSocketUsage -> Bool
(MsgLinuxSocketUsage -> MsgLinuxSocketUsage -> Bool)
-> (MsgLinuxSocketUsage -> MsgLinuxSocketUsage -> Bool)
-> Eq MsgLinuxSocketUsage
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgLinuxSocketUsage -> MsgLinuxSocketUsage -> Bool
$c/= :: MsgLinuxSocketUsage -> MsgLinuxSocketUsage -> Bool
== :: MsgLinuxSocketUsage -> MsgLinuxSocketUsage -> Bool
$c== :: MsgLinuxSocketUsage -> MsgLinuxSocketUsage -> Bool
Eq )
instance Binary MsgLinuxSocketUsage where
get :: Get MsgLinuxSocketUsage
get = do
Word32
_msgLinuxSocketUsage_avg_queue_depth <- Get Word32
getWord32le
Word32
_msgLinuxSocketUsage_max_queue_depth <- Get Word32
getWord32le
[Word16]
_msgLinuxSocketUsage_socket_state_counts <- Int -> Get Word16 -> Get [Word16]
forall (m :: * -> *) a. Applicative m => Int -> m a -> m [a]
replicateM Int
16 Get Word16
getWord16le
[Word16]
_msgLinuxSocketUsage_socket_type_counts <- Int -> Get Word16 -> Get [Word16]
forall (m :: * -> *) a. Applicative m => Int -> m a -> m [a]
replicateM Int
16 Get Word16
getWord16le
MsgLinuxSocketUsage -> Get MsgLinuxSocketUsage
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgLinuxSocketUsage :: Word32 -> Word32 -> [Word16] -> [Word16] -> MsgLinuxSocketUsage
MsgLinuxSocketUsage {[Word16]
Word32
_msgLinuxSocketUsage_socket_type_counts :: [Word16]
_msgLinuxSocketUsage_socket_state_counts :: [Word16]
_msgLinuxSocketUsage_max_queue_depth :: Word32
_msgLinuxSocketUsage_avg_queue_depth :: Word32
_msgLinuxSocketUsage_socket_type_counts :: [Word16]
_msgLinuxSocketUsage_socket_state_counts :: [Word16]
_msgLinuxSocketUsage_max_queue_depth :: Word32
_msgLinuxSocketUsage_avg_queue_depth :: Word32
..}
put :: MsgLinuxSocketUsage -> Put
put MsgLinuxSocketUsage {[Word16]
Word32
_msgLinuxSocketUsage_socket_type_counts :: [Word16]
_msgLinuxSocketUsage_socket_state_counts :: [Word16]
_msgLinuxSocketUsage_max_queue_depth :: Word32
_msgLinuxSocketUsage_avg_queue_depth :: Word32
_msgLinuxSocketUsage_socket_type_counts :: MsgLinuxSocketUsage -> [Word16]
_msgLinuxSocketUsage_socket_state_counts :: MsgLinuxSocketUsage -> [Word16]
_msgLinuxSocketUsage_max_queue_depth :: MsgLinuxSocketUsage -> Word32
_msgLinuxSocketUsage_avg_queue_depth :: MsgLinuxSocketUsage -> Word32
..} = do
Word32 -> Put
putWord32le Word32
_msgLinuxSocketUsage_avg_queue_depth
Word32 -> Put
putWord32le Word32
_msgLinuxSocketUsage_max_queue_depth
(Word16 -> Put) -> [Word16] -> Put
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ Word16 -> Put
putWord16le [Word16]
_msgLinuxSocketUsage_socket_state_counts
(Word16 -> Put) -> [Word16] -> Put
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ Word16 -> Put
putWord16le [Word16]
_msgLinuxSocketUsage_socket_type_counts
$(makeSBP 'msgLinuxSocketUsage ''MsgLinuxSocketUsage)
$(makeJSON "_msgLinuxSocketUsage_" ''MsgLinuxSocketUsage)
$(makeLenses ''MsgLinuxSocketUsage)
msgLinuxProcessFdCount :: Word16
msgLinuxProcessFdCount :: Word16
msgLinuxProcessFdCount = Word16
0x7F06
data MsgLinuxProcessFdCount = MsgLinuxProcessFdCount
{ MsgLinuxProcessFdCount -> Word8
_msgLinuxProcessFdCount_index :: !Word8
, MsgLinuxProcessFdCount -> Word16
_msgLinuxProcessFdCount_pid :: !Word16
, MsgLinuxProcessFdCount -> Word16
_msgLinuxProcessFdCount_fd_count :: !Word16
, MsgLinuxProcessFdCount -> Text
_msgLinuxProcessFdCount_cmdline :: !Text
} deriving ( Int -> MsgLinuxProcessFdCount -> ShowS
[MsgLinuxProcessFdCount] -> ShowS
MsgLinuxProcessFdCount -> String
(Int -> MsgLinuxProcessFdCount -> ShowS)
-> (MsgLinuxProcessFdCount -> String)
-> ([MsgLinuxProcessFdCount] -> ShowS)
-> Show MsgLinuxProcessFdCount
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgLinuxProcessFdCount] -> ShowS
$cshowList :: [MsgLinuxProcessFdCount] -> ShowS
show :: MsgLinuxProcessFdCount -> String
$cshow :: MsgLinuxProcessFdCount -> String
showsPrec :: Int -> MsgLinuxProcessFdCount -> ShowS
$cshowsPrec :: Int -> MsgLinuxProcessFdCount -> ShowS
Show, ReadPrec [MsgLinuxProcessFdCount]
ReadPrec MsgLinuxProcessFdCount
Int -> ReadS MsgLinuxProcessFdCount
ReadS [MsgLinuxProcessFdCount]
(Int -> ReadS MsgLinuxProcessFdCount)
-> ReadS [MsgLinuxProcessFdCount]
-> ReadPrec MsgLinuxProcessFdCount
-> ReadPrec [MsgLinuxProcessFdCount]
-> Read MsgLinuxProcessFdCount
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgLinuxProcessFdCount]
$creadListPrec :: ReadPrec [MsgLinuxProcessFdCount]
readPrec :: ReadPrec MsgLinuxProcessFdCount
$creadPrec :: ReadPrec MsgLinuxProcessFdCount
readList :: ReadS [MsgLinuxProcessFdCount]
$creadList :: ReadS [MsgLinuxProcessFdCount]
readsPrec :: Int -> ReadS MsgLinuxProcessFdCount
$creadsPrec :: Int -> ReadS MsgLinuxProcessFdCount
Read, MsgLinuxProcessFdCount -> MsgLinuxProcessFdCount -> Bool
(MsgLinuxProcessFdCount -> MsgLinuxProcessFdCount -> Bool)
-> (MsgLinuxProcessFdCount -> MsgLinuxProcessFdCount -> Bool)
-> Eq MsgLinuxProcessFdCount
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgLinuxProcessFdCount -> MsgLinuxProcessFdCount -> Bool
$c/= :: MsgLinuxProcessFdCount -> MsgLinuxProcessFdCount -> Bool
== :: MsgLinuxProcessFdCount -> MsgLinuxProcessFdCount -> Bool
$c== :: MsgLinuxProcessFdCount -> MsgLinuxProcessFdCount -> Bool
Eq )
instance Binary MsgLinuxProcessFdCount where
get :: Get MsgLinuxProcessFdCount
get = do
Word8
_msgLinuxProcessFdCount_index <- Get Word8
getWord8
Word16
_msgLinuxProcessFdCount_pid <- Get Word16
getWord16le
Word16
_msgLinuxProcessFdCount_fd_count <- Get Word16
getWord16le
Text
_msgLinuxProcessFdCount_cmdline <- 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
MsgLinuxProcessFdCount -> Get MsgLinuxProcessFdCount
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgLinuxProcessFdCount :: Word8 -> Word16 -> Word16 -> Text -> MsgLinuxProcessFdCount
MsgLinuxProcessFdCount {Word8
Word16
Text
_msgLinuxProcessFdCount_cmdline :: Text
_msgLinuxProcessFdCount_fd_count :: Word16
_msgLinuxProcessFdCount_pid :: Word16
_msgLinuxProcessFdCount_index :: Word8
_msgLinuxProcessFdCount_cmdline :: Text
_msgLinuxProcessFdCount_fd_count :: Word16
_msgLinuxProcessFdCount_pid :: Word16
_msgLinuxProcessFdCount_index :: Word8
..}
put :: MsgLinuxProcessFdCount -> Put
put MsgLinuxProcessFdCount {Word8
Word16
Text
_msgLinuxProcessFdCount_cmdline :: Text
_msgLinuxProcessFdCount_fd_count :: Word16
_msgLinuxProcessFdCount_pid :: Word16
_msgLinuxProcessFdCount_index :: Word8
_msgLinuxProcessFdCount_cmdline :: MsgLinuxProcessFdCount -> Text
_msgLinuxProcessFdCount_fd_count :: MsgLinuxProcessFdCount -> Word16
_msgLinuxProcessFdCount_pid :: MsgLinuxProcessFdCount -> Word16
_msgLinuxProcessFdCount_index :: MsgLinuxProcessFdCount -> Word8
..} = do
Word8 -> Put
putWord8 Word8
_msgLinuxProcessFdCount_index
Word16 -> Put
putWord16le Word16
_msgLinuxProcessFdCount_pid
Word16 -> Put
putWord16le Word16
_msgLinuxProcessFdCount_fd_count
ByteString -> Put
putByteString (ByteString -> Put) -> ByteString -> Put
forall a b. (a -> b) -> a -> b
$ Text -> ByteString
encodeUtf8 Text
_msgLinuxProcessFdCount_cmdline
$(makeSBP 'msgLinuxProcessFdCount ''MsgLinuxProcessFdCount)
$(makeJSON "_msgLinuxProcessFdCount_" ''MsgLinuxProcessFdCount)
$(makeLenses ''MsgLinuxProcessFdCount)
msgLinuxProcessFdSummary :: Word16
msgLinuxProcessFdSummary :: Word16
msgLinuxProcessFdSummary = Word16
0x7F07
data MsgLinuxProcessFdSummary = MsgLinuxProcessFdSummary
{ MsgLinuxProcessFdSummary -> Word32
_msgLinuxProcessFdSummary_sys_fd_count :: !Word32
, MsgLinuxProcessFdSummary -> Text
_msgLinuxProcessFdSummary_most_opened :: !Text
} deriving ( Int -> MsgLinuxProcessFdSummary -> ShowS
[MsgLinuxProcessFdSummary] -> ShowS
MsgLinuxProcessFdSummary -> String
(Int -> MsgLinuxProcessFdSummary -> ShowS)
-> (MsgLinuxProcessFdSummary -> String)
-> ([MsgLinuxProcessFdSummary] -> ShowS)
-> Show MsgLinuxProcessFdSummary
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgLinuxProcessFdSummary] -> ShowS
$cshowList :: [MsgLinuxProcessFdSummary] -> ShowS
show :: MsgLinuxProcessFdSummary -> String
$cshow :: MsgLinuxProcessFdSummary -> String
showsPrec :: Int -> MsgLinuxProcessFdSummary -> ShowS
$cshowsPrec :: Int -> MsgLinuxProcessFdSummary -> ShowS
Show, ReadPrec [MsgLinuxProcessFdSummary]
ReadPrec MsgLinuxProcessFdSummary
Int -> ReadS MsgLinuxProcessFdSummary
ReadS [MsgLinuxProcessFdSummary]
(Int -> ReadS MsgLinuxProcessFdSummary)
-> ReadS [MsgLinuxProcessFdSummary]
-> ReadPrec MsgLinuxProcessFdSummary
-> ReadPrec [MsgLinuxProcessFdSummary]
-> Read MsgLinuxProcessFdSummary
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgLinuxProcessFdSummary]
$creadListPrec :: ReadPrec [MsgLinuxProcessFdSummary]
readPrec :: ReadPrec MsgLinuxProcessFdSummary
$creadPrec :: ReadPrec MsgLinuxProcessFdSummary
readList :: ReadS [MsgLinuxProcessFdSummary]
$creadList :: ReadS [MsgLinuxProcessFdSummary]
readsPrec :: Int -> ReadS MsgLinuxProcessFdSummary
$creadsPrec :: Int -> ReadS MsgLinuxProcessFdSummary
Read, MsgLinuxProcessFdSummary -> MsgLinuxProcessFdSummary -> Bool
(MsgLinuxProcessFdSummary -> MsgLinuxProcessFdSummary -> Bool)
-> (MsgLinuxProcessFdSummary -> MsgLinuxProcessFdSummary -> Bool)
-> Eq MsgLinuxProcessFdSummary
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgLinuxProcessFdSummary -> MsgLinuxProcessFdSummary -> Bool
$c/= :: MsgLinuxProcessFdSummary -> MsgLinuxProcessFdSummary -> Bool
== :: MsgLinuxProcessFdSummary -> MsgLinuxProcessFdSummary -> Bool
$c== :: MsgLinuxProcessFdSummary -> MsgLinuxProcessFdSummary -> Bool
Eq )
instance Binary MsgLinuxProcessFdSummary where
get :: Get MsgLinuxProcessFdSummary
get = do
Word32
_msgLinuxProcessFdSummary_sys_fd_count <- Get Word32
getWord32le
Text
_msgLinuxProcessFdSummary_most_opened <- 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
MsgLinuxProcessFdSummary -> Get MsgLinuxProcessFdSummary
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgLinuxProcessFdSummary :: Word32 -> Text -> MsgLinuxProcessFdSummary
MsgLinuxProcessFdSummary {Word32
Text
_msgLinuxProcessFdSummary_most_opened :: Text
_msgLinuxProcessFdSummary_sys_fd_count :: Word32
_msgLinuxProcessFdSummary_most_opened :: Text
_msgLinuxProcessFdSummary_sys_fd_count :: Word32
..}
put :: MsgLinuxProcessFdSummary -> Put
put MsgLinuxProcessFdSummary {Word32
Text
_msgLinuxProcessFdSummary_most_opened :: Text
_msgLinuxProcessFdSummary_sys_fd_count :: Word32
_msgLinuxProcessFdSummary_most_opened :: MsgLinuxProcessFdSummary -> Text
_msgLinuxProcessFdSummary_sys_fd_count :: MsgLinuxProcessFdSummary -> Word32
..} = do
Word32 -> Put
putWord32le Word32
_msgLinuxProcessFdSummary_sys_fd_count
ByteString -> Put
putByteString (ByteString -> Put) -> ByteString -> Put
forall a b. (a -> b) -> a -> b
$ Text -> ByteString
encodeUtf8 Text
_msgLinuxProcessFdSummary_most_opened
$(makeSBP 'msgLinuxProcessFdSummary ''MsgLinuxProcessFdSummary)
$(makeJSON "_msgLinuxProcessFdSummary_" ''MsgLinuxProcessFdSummary)
$(makeLenses ''MsgLinuxProcessFdSummary)
msgLinuxCpuState :: Word16
msgLinuxCpuState :: Word16
msgLinuxCpuState = Word16
0x7F08
data MsgLinuxCpuState = MsgLinuxCpuState
{ MsgLinuxCpuState -> Word8
_msgLinuxCpuState_index :: !Word8
, MsgLinuxCpuState -> Word16
_msgLinuxCpuState_pid :: !Word16
, MsgLinuxCpuState -> Word8
_msgLinuxCpuState_pcpu :: !Word8
, MsgLinuxCpuState -> Word32
_msgLinuxCpuState_time :: !Word32
, MsgLinuxCpuState -> Word8
_msgLinuxCpuState_flags :: !Word8
, MsgLinuxCpuState -> Text
_msgLinuxCpuState_tname :: !Text
, MsgLinuxCpuState -> Text
_msgLinuxCpuState_cmdline :: !Text
} deriving ( Int -> MsgLinuxCpuState -> ShowS
[MsgLinuxCpuState] -> ShowS
MsgLinuxCpuState -> String
(Int -> MsgLinuxCpuState -> ShowS)
-> (MsgLinuxCpuState -> String)
-> ([MsgLinuxCpuState] -> ShowS)
-> Show MsgLinuxCpuState
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgLinuxCpuState] -> ShowS
$cshowList :: [MsgLinuxCpuState] -> ShowS
show :: MsgLinuxCpuState -> String
$cshow :: MsgLinuxCpuState -> String
showsPrec :: Int -> MsgLinuxCpuState -> ShowS
$cshowsPrec :: Int -> MsgLinuxCpuState -> ShowS
Show, ReadPrec [MsgLinuxCpuState]
ReadPrec MsgLinuxCpuState
Int -> ReadS MsgLinuxCpuState
ReadS [MsgLinuxCpuState]
(Int -> ReadS MsgLinuxCpuState)
-> ReadS [MsgLinuxCpuState]
-> ReadPrec MsgLinuxCpuState
-> ReadPrec [MsgLinuxCpuState]
-> Read MsgLinuxCpuState
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgLinuxCpuState]
$creadListPrec :: ReadPrec [MsgLinuxCpuState]
readPrec :: ReadPrec MsgLinuxCpuState
$creadPrec :: ReadPrec MsgLinuxCpuState
readList :: ReadS [MsgLinuxCpuState]
$creadList :: ReadS [MsgLinuxCpuState]
readsPrec :: Int -> ReadS MsgLinuxCpuState
$creadsPrec :: Int -> ReadS MsgLinuxCpuState
Read, MsgLinuxCpuState -> MsgLinuxCpuState -> Bool
(MsgLinuxCpuState -> MsgLinuxCpuState -> Bool)
-> (MsgLinuxCpuState -> MsgLinuxCpuState -> Bool)
-> Eq MsgLinuxCpuState
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgLinuxCpuState -> MsgLinuxCpuState -> Bool
$c/= :: MsgLinuxCpuState -> MsgLinuxCpuState -> Bool
== :: MsgLinuxCpuState -> MsgLinuxCpuState -> Bool
$c== :: MsgLinuxCpuState -> MsgLinuxCpuState -> Bool
Eq )
instance Binary MsgLinuxCpuState where
get :: Get MsgLinuxCpuState
get = do
Word8
_msgLinuxCpuState_index <- Get Word8
getWord8
Word16
_msgLinuxCpuState_pid <- Get Word16
getWord16le
Word8
_msgLinuxCpuState_pcpu <- Get Word8
getWord8
Word32
_msgLinuxCpuState_time <- Get Word32
getWord32le
Word8
_msgLinuxCpuState_flags <- Get Word8
getWord8
Text
_msgLinuxCpuState_tname <- ByteString -> Text
decodeUtf8 (ByteString -> Text) -> Get ByteString -> Get Text
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Int -> Get ByteString
getByteString Int
15
Text
_msgLinuxCpuState_cmdline <- 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
MsgLinuxCpuState -> Get MsgLinuxCpuState
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgLinuxCpuState :: Word8
-> Word16
-> Word8
-> Word32
-> Word8
-> Text
-> Text
-> MsgLinuxCpuState
MsgLinuxCpuState {Word8
Word16
Word32
Text
_msgLinuxCpuState_cmdline :: Text
_msgLinuxCpuState_tname :: Text
_msgLinuxCpuState_flags :: Word8
_msgLinuxCpuState_time :: Word32
_msgLinuxCpuState_pcpu :: Word8
_msgLinuxCpuState_pid :: Word16
_msgLinuxCpuState_index :: Word8
_msgLinuxCpuState_cmdline :: Text
_msgLinuxCpuState_tname :: Text
_msgLinuxCpuState_flags :: Word8
_msgLinuxCpuState_time :: Word32
_msgLinuxCpuState_pcpu :: Word8
_msgLinuxCpuState_pid :: Word16
_msgLinuxCpuState_index :: Word8
..}
put :: MsgLinuxCpuState -> Put
put MsgLinuxCpuState {Word8
Word16
Word32
Text
_msgLinuxCpuState_cmdline :: Text
_msgLinuxCpuState_tname :: Text
_msgLinuxCpuState_flags :: Word8
_msgLinuxCpuState_time :: Word32
_msgLinuxCpuState_pcpu :: Word8
_msgLinuxCpuState_pid :: Word16
_msgLinuxCpuState_index :: Word8
_msgLinuxCpuState_cmdline :: MsgLinuxCpuState -> Text
_msgLinuxCpuState_tname :: MsgLinuxCpuState -> Text
_msgLinuxCpuState_flags :: MsgLinuxCpuState -> Word8
_msgLinuxCpuState_time :: MsgLinuxCpuState -> Word32
_msgLinuxCpuState_pcpu :: MsgLinuxCpuState -> Word8
_msgLinuxCpuState_pid :: MsgLinuxCpuState -> Word16
_msgLinuxCpuState_index :: MsgLinuxCpuState -> Word8
..} = do
Word8 -> Put
putWord8 Word8
_msgLinuxCpuState_index
Word16 -> Put
putWord16le Word16
_msgLinuxCpuState_pid
Word8 -> Put
putWord8 Word8
_msgLinuxCpuState_pcpu
Word32 -> Put
putWord32le Word32
_msgLinuxCpuState_time
Word8 -> Put
putWord8 Word8
_msgLinuxCpuState_flags
ByteString -> Put
putByteString (ByteString -> Put) -> ByteString -> Put
forall a b. (a -> b) -> a -> b
$ Text -> ByteString
encodeUtf8 Text
_msgLinuxCpuState_tname
ByteString -> Put
putByteString (ByteString -> Put) -> ByteString -> Put
forall a b. (a -> b) -> a -> b
$ Text -> ByteString
encodeUtf8 Text
_msgLinuxCpuState_cmdline
$(makeSBP 'msgLinuxCpuState ''MsgLinuxCpuState)
$(makeJSON "_msgLinuxCpuState_" ''MsgLinuxCpuState)
$(makeLenses ''MsgLinuxCpuState)
msgLinuxMemState :: Word16
msgLinuxMemState :: Word16
msgLinuxMemState = Word16
0x7F09
data MsgLinuxMemState = MsgLinuxMemState
{ MsgLinuxMemState -> Word8
_msgLinuxMemState_index :: !Word8
, MsgLinuxMemState -> Word16
_msgLinuxMemState_pid :: !Word16
, MsgLinuxMemState -> Word8
_msgLinuxMemState_pmem :: !Word8
, MsgLinuxMemState -> Word32
_msgLinuxMemState_time :: !Word32
, MsgLinuxMemState -> Word8
_msgLinuxMemState_flags :: !Word8
, MsgLinuxMemState -> Text
_msgLinuxMemState_tname :: !Text
, MsgLinuxMemState -> Text
_msgLinuxMemState_cmdline :: !Text
} deriving ( Int -> MsgLinuxMemState -> ShowS
[MsgLinuxMemState] -> ShowS
MsgLinuxMemState -> String
(Int -> MsgLinuxMemState -> ShowS)
-> (MsgLinuxMemState -> String)
-> ([MsgLinuxMemState] -> ShowS)
-> Show MsgLinuxMemState
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgLinuxMemState] -> ShowS
$cshowList :: [MsgLinuxMemState] -> ShowS
show :: MsgLinuxMemState -> String
$cshow :: MsgLinuxMemState -> String
showsPrec :: Int -> MsgLinuxMemState -> ShowS
$cshowsPrec :: Int -> MsgLinuxMemState -> ShowS
Show, ReadPrec [MsgLinuxMemState]
ReadPrec MsgLinuxMemState
Int -> ReadS MsgLinuxMemState
ReadS [MsgLinuxMemState]
(Int -> ReadS MsgLinuxMemState)
-> ReadS [MsgLinuxMemState]
-> ReadPrec MsgLinuxMemState
-> ReadPrec [MsgLinuxMemState]
-> Read MsgLinuxMemState
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgLinuxMemState]
$creadListPrec :: ReadPrec [MsgLinuxMemState]
readPrec :: ReadPrec MsgLinuxMemState
$creadPrec :: ReadPrec MsgLinuxMemState
readList :: ReadS [MsgLinuxMemState]
$creadList :: ReadS [MsgLinuxMemState]
readsPrec :: Int -> ReadS MsgLinuxMemState
$creadsPrec :: Int -> ReadS MsgLinuxMemState
Read, MsgLinuxMemState -> MsgLinuxMemState -> Bool
(MsgLinuxMemState -> MsgLinuxMemState -> Bool)
-> (MsgLinuxMemState -> MsgLinuxMemState -> Bool)
-> Eq MsgLinuxMemState
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgLinuxMemState -> MsgLinuxMemState -> Bool
$c/= :: MsgLinuxMemState -> MsgLinuxMemState -> Bool
== :: MsgLinuxMemState -> MsgLinuxMemState -> Bool
$c== :: MsgLinuxMemState -> MsgLinuxMemState -> Bool
Eq )
instance Binary MsgLinuxMemState where
get :: Get MsgLinuxMemState
get = do
Word8
_msgLinuxMemState_index <- Get Word8
getWord8
Word16
_msgLinuxMemState_pid <- Get Word16
getWord16le
Word8
_msgLinuxMemState_pmem <- Get Word8
getWord8
Word32
_msgLinuxMemState_time <- Get Word32
getWord32le
Word8
_msgLinuxMemState_flags <- Get Word8
getWord8
Text
_msgLinuxMemState_tname <- ByteString -> Text
decodeUtf8 (ByteString -> Text) -> Get ByteString -> Get Text
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Int -> Get ByteString
getByteString Int
15
Text
_msgLinuxMemState_cmdline <- 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
MsgLinuxMemState -> Get MsgLinuxMemState
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgLinuxMemState :: Word8
-> Word16
-> Word8
-> Word32
-> Word8
-> Text
-> Text
-> MsgLinuxMemState
MsgLinuxMemState {Word8
Word16
Word32
Text
_msgLinuxMemState_cmdline :: Text
_msgLinuxMemState_tname :: Text
_msgLinuxMemState_flags :: Word8
_msgLinuxMemState_time :: Word32
_msgLinuxMemState_pmem :: Word8
_msgLinuxMemState_pid :: Word16
_msgLinuxMemState_index :: Word8
_msgLinuxMemState_cmdline :: Text
_msgLinuxMemState_tname :: Text
_msgLinuxMemState_flags :: Word8
_msgLinuxMemState_time :: Word32
_msgLinuxMemState_pmem :: Word8
_msgLinuxMemState_pid :: Word16
_msgLinuxMemState_index :: Word8
..}
put :: MsgLinuxMemState -> Put
put MsgLinuxMemState {Word8
Word16
Word32
Text
_msgLinuxMemState_cmdline :: Text
_msgLinuxMemState_tname :: Text
_msgLinuxMemState_flags :: Word8
_msgLinuxMemState_time :: Word32
_msgLinuxMemState_pmem :: Word8
_msgLinuxMemState_pid :: Word16
_msgLinuxMemState_index :: Word8
_msgLinuxMemState_cmdline :: MsgLinuxMemState -> Text
_msgLinuxMemState_tname :: MsgLinuxMemState -> Text
_msgLinuxMemState_flags :: MsgLinuxMemState -> Word8
_msgLinuxMemState_time :: MsgLinuxMemState -> Word32
_msgLinuxMemState_pmem :: MsgLinuxMemState -> Word8
_msgLinuxMemState_pid :: MsgLinuxMemState -> Word16
_msgLinuxMemState_index :: MsgLinuxMemState -> Word8
..} = do
Word8 -> Put
putWord8 Word8
_msgLinuxMemState_index
Word16 -> Put
putWord16le Word16
_msgLinuxMemState_pid
Word8 -> Put
putWord8 Word8
_msgLinuxMemState_pmem
Word32 -> Put
putWord32le Word32
_msgLinuxMemState_time
Word8 -> Put
putWord8 Word8
_msgLinuxMemState_flags
ByteString -> Put
putByteString (ByteString -> Put) -> ByteString -> Put
forall a b. (a -> b) -> a -> b
$ Text -> ByteString
encodeUtf8 Text
_msgLinuxMemState_tname
ByteString -> Put
putByteString (ByteString -> Put) -> ByteString -> Put
forall a b. (a -> b) -> a -> b
$ Text -> ByteString
encodeUtf8 Text
_msgLinuxMemState_cmdline
$(makeSBP 'msgLinuxMemState ''MsgLinuxMemState)
$(makeJSON "_msgLinuxMemState_" ''MsgLinuxMemState)
$(makeLenses ''MsgLinuxMemState)
msgLinuxSysState :: Word16
msgLinuxSysState :: Word16
msgLinuxSysState = Word16
0x7F0A
data MsgLinuxSysState = MsgLinuxSysState
{ MsgLinuxSysState -> Word16
_msgLinuxSysState_mem_total :: !Word16
, MsgLinuxSysState -> Word8
_msgLinuxSysState_pcpu :: !Word8
, MsgLinuxSysState -> Word8
_msgLinuxSysState_pmem :: !Word8
, MsgLinuxSysState -> Word16
_msgLinuxSysState_procs_starting :: !Word16
, MsgLinuxSysState -> Word16
_msgLinuxSysState_procs_stopping :: !Word16
, MsgLinuxSysState -> Word16
_msgLinuxSysState_pid_count :: !Word16
, MsgLinuxSysState -> Word32
_msgLinuxSysState_time :: !Word32
, MsgLinuxSysState -> Word8
_msgLinuxSysState_flags :: !Word8
} deriving ( Int -> MsgLinuxSysState -> ShowS
[MsgLinuxSysState] -> ShowS
MsgLinuxSysState -> String
(Int -> MsgLinuxSysState -> ShowS)
-> (MsgLinuxSysState -> String)
-> ([MsgLinuxSysState] -> ShowS)
-> Show MsgLinuxSysState
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MsgLinuxSysState] -> ShowS
$cshowList :: [MsgLinuxSysState] -> ShowS
show :: MsgLinuxSysState -> String
$cshow :: MsgLinuxSysState -> String
showsPrec :: Int -> MsgLinuxSysState -> ShowS
$cshowsPrec :: Int -> MsgLinuxSysState -> ShowS
Show, ReadPrec [MsgLinuxSysState]
ReadPrec MsgLinuxSysState
Int -> ReadS MsgLinuxSysState
ReadS [MsgLinuxSysState]
(Int -> ReadS MsgLinuxSysState)
-> ReadS [MsgLinuxSysState]
-> ReadPrec MsgLinuxSysState
-> ReadPrec [MsgLinuxSysState]
-> Read MsgLinuxSysState
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MsgLinuxSysState]
$creadListPrec :: ReadPrec [MsgLinuxSysState]
readPrec :: ReadPrec MsgLinuxSysState
$creadPrec :: ReadPrec MsgLinuxSysState
readList :: ReadS [MsgLinuxSysState]
$creadList :: ReadS [MsgLinuxSysState]
readsPrec :: Int -> ReadS MsgLinuxSysState
$creadsPrec :: Int -> ReadS MsgLinuxSysState
Read, MsgLinuxSysState -> MsgLinuxSysState -> Bool
(MsgLinuxSysState -> MsgLinuxSysState -> Bool)
-> (MsgLinuxSysState -> MsgLinuxSysState -> Bool)
-> Eq MsgLinuxSysState
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MsgLinuxSysState -> MsgLinuxSysState -> Bool
$c/= :: MsgLinuxSysState -> MsgLinuxSysState -> Bool
== :: MsgLinuxSysState -> MsgLinuxSysState -> Bool
$c== :: MsgLinuxSysState -> MsgLinuxSysState -> Bool
Eq )
instance Binary MsgLinuxSysState where
get :: Get MsgLinuxSysState
get = do
Word16
_msgLinuxSysState_mem_total <- Get Word16
getWord16le
Word8
_msgLinuxSysState_pcpu <- Get Word8
getWord8
Word8
_msgLinuxSysState_pmem <- Get Word8
getWord8
Word16
_msgLinuxSysState_procs_starting <- Get Word16
getWord16le
Word16
_msgLinuxSysState_procs_stopping <- Get Word16
getWord16le
Word16
_msgLinuxSysState_pid_count <- Get Word16
getWord16le
Word32
_msgLinuxSysState_time <- Get Word32
getWord32le
Word8
_msgLinuxSysState_flags <- Get Word8
getWord8
MsgLinuxSysState -> Get MsgLinuxSysState
forall (f :: * -> *) a. Applicative f => a -> f a
pure MsgLinuxSysState :: Word16
-> Word8
-> Word8
-> Word16
-> Word16
-> Word16
-> Word32
-> Word8
-> MsgLinuxSysState
MsgLinuxSysState {Word8
Word16
Word32
_msgLinuxSysState_flags :: Word8
_msgLinuxSysState_time :: Word32
_msgLinuxSysState_pid_count :: Word16
_msgLinuxSysState_procs_stopping :: Word16
_msgLinuxSysState_procs_starting :: Word16
_msgLinuxSysState_pmem :: Word8
_msgLinuxSysState_pcpu :: Word8
_msgLinuxSysState_mem_total :: Word16
_msgLinuxSysState_flags :: Word8
_msgLinuxSysState_time :: Word32
_msgLinuxSysState_pid_count :: Word16
_msgLinuxSysState_procs_stopping :: Word16
_msgLinuxSysState_procs_starting :: Word16
_msgLinuxSysState_pmem :: Word8
_msgLinuxSysState_pcpu :: Word8
_msgLinuxSysState_mem_total :: Word16
..}
put :: MsgLinuxSysState -> Put
put MsgLinuxSysState {Word8
Word16
Word32
_msgLinuxSysState_flags :: Word8
_msgLinuxSysState_time :: Word32
_msgLinuxSysState_pid_count :: Word16
_msgLinuxSysState_procs_stopping :: Word16
_msgLinuxSysState_procs_starting :: Word16
_msgLinuxSysState_pmem :: Word8
_msgLinuxSysState_pcpu :: Word8
_msgLinuxSysState_mem_total :: Word16
_msgLinuxSysState_flags :: MsgLinuxSysState -> Word8
_msgLinuxSysState_time :: MsgLinuxSysState -> Word32
_msgLinuxSysState_pid_count :: MsgLinuxSysState -> Word16
_msgLinuxSysState_procs_stopping :: MsgLinuxSysState -> Word16
_msgLinuxSysState_procs_starting :: MsgLinuxSysState -> Word16
_msgLinuxSysState_pmem :: MsgLinuxSysState -> Word8
_msgLinuxSysState_pcpu :: MsgLinuxSysState -> Word8
_msgLinuxSysState_mem_total :: MsgLinuxSysState -> Word16
..} = do
Word16 -> Put
putWord16le Word16
_msgLinuxSysState_mem_total
Word8 -> Put
putWord8 Word8
_msgLinuxSysState_pcpu
Word8 -> Put
putWord8 Word8
_msgLinuxSysState_pmem
Word16 -> Put
putWord16le Word16
_msgLinuxSysState_procs_starting
Word16 -> Put
putWord16le Word16
_msgLinuxSysState_procs_stopping
Word16 -> Put
putWord16le Word16
_msgLinuxSysState_pid_count
Word32 -> Put
putWord32le Word32
_msgLinuxSysState_time
Word8 -> Put
putWord8 Word8
_msgLinuxSysState_flags
$(makeSBP 'msgLinuxSysState ''MsgLinuxSysState)
$(makeJSON "_msgLinuxSysState_" ''MsgLinuxSysState)
$(makeLenses ''MsgLinuxSysState)