module Proto.Criu.Rpc where
import qualified Prelude
import qualified Data.Int
import qualified Data.Word
import qualified Data.ProtoLens.Reexport.Data.ProtoLens
as Data.ProtoLens
import qualified
Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum
as Data.ProtoLens.Message.Enum
import qualified Data.ProtoLens.Reexport.Lens.Family2
as Lens.Family2
import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked
as Lens.Family2.Unchecked
import qualified Data.ProtoLens.Reexport.Data.Default.Class
as Data.Default.Class
import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text
import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map
import qualified Data.ProtoLens.Reexport.Data.ByteString
as Data.ByteString
data Criu_cg_mode = IGNORE
| CG_NONE
| PROPS
| SOFT
| FULL
| STRICT
| DEFAULT
deriving (Prelude.Show, Prelude.Eq)
instance Data.Default.Class.Default Criu_cg_mode where
def = IGNORE
instance Data.ProtoLens.FieldDefault Criu_cg_mode where
fieldDefault = IGNORE
instance Data.ProtoLens.MessageEnum Criu_cg_mode where
maybeToEnum 0 = Prelude.Just IGNORE
maybeToEnum 1 = Prelude.Just CG_NONE
maybeToEnum 2 = Prelude.Just PROPS
maybeToEnum 3 = Prelude.Just SOFT
maybeToEnum 4 = Prelude.Just FULL
maybeToEnum 5 = Prelude.Just STRICT
maybeToEnum 6 = Prelude.Just DEFAULT
maybeToEnum _ = Prelude.Nothing
showEnum IGNORE = "IGNORE"
showEnum CG_NONE = "CG_NONE"
showEnum PROPS = "PROPS"
showEnum SOFT = "SOFT"
showEnum FULL = "FULL"
showEnum STRICT = "STRICT"
showEnum DEFAULT = "DEFAULT"
readEnum "IGNORE" = Prelude.Just IGNORE
readEnum "CG_NONE" = Prelude.Just CG_NONE
readEnum "PROPS" = Prelude.Just PROPS
readEnum "SOFT" = Prelude.Just SOFT
readEnum "FULL" = Prelude.Just FULL
readEnum "STRICT" = Prelude.Just STRICT
readEnum "DEFAULT" = Prelude.Just DEFAULT
readEnum _ = Prelude.Nothing
instance Prelude.Enum Criu_cg_mode where
toEnum k__
= Prelude.maybe
(Prelude.error
((Prelude.++) "toEnum: unknown value for enum Criu_cg_mode: "
(Prelude.show k__)))
Prelude.id
(Data.ProtoLens.maybeToEnum k__)
fromEnum IGNORE = 0
fromEnum CG_NONE = 1
fromEnum PROPS = 2
fromEnum SOFT = 3
fromEnum FULL = 4
fromEnum STRICT = 5
fromEnum DEFAULT = 6
succ DEFAULT
= Prelude.error
"Ident \"Criu_cg_mode\".Ident \"succ\": bad argument Ident \"DEFAULT\". This value would be out of bounds."
succ IGNORE = CG_NONE
succ CG_NONE = PROPS
succ PROPS = SOFT
succ SOFT = FULL
succ FULL = STRICT
succ STRICT = DEFAULT
pred IGNORE
= Prelude.error
"Ident \"Criu_cg_mode\".Ident \"pred\": bad argument Ident \"IGNORE\". This value would be out of bounds."
pred CG_NONE = IGNORE
pred PROPS = CG_NONE
pred SOFT = PROPS
pred FULL = SOFT
pred STRICT = FULL
pred DEFAULT = STRICT
enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom
enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo
enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen
enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Prelude.Bounded Criu_cg_mode where
minBound = IGNORE
maxBound = DEFAULT
data Criu_req_type = EMPTY
| DUMP
| RESTORE
| CHECK
| PRE_DUMP
| PAGE_SERVER
| NOTIFY
| CPUINFO_DUMP
| CPUINFO_CHECK
| FEATURE_CHECK
deriving (Prelude.Show, Prelude.Eq)
instance Data.Default.Class.Default Criu_req_type where
def = EMPTY
instance Data.ProtoLens.FieldDefault Criu_req_type where
fieldDefault = EMPTY
instance Data.ProtoLens.MessageEnum Criu_req_type where
maybeToEnum 0 = Prelude.Just EMPTY
maybeToEnum 1 = Prelude.Just DUMP
maybeToEnum 2 = Prelude.Just RESTORE
maybeToEnum 3 = Prelude.Just CHECK
maybeToEnum 4 = Prelude.Just PRE_DUMP
maybeToEnum 5 = Prelude.Just PAGE_SERVER
maybeToEnum 6 = Prelude.Just NOTIFY
maybeToEnum 7 = Prelude.Just CPUINFO_DUMP
maybeToEnum 8 = Prelude.Just CPUINFO_CHECK
maybeToEnum 9 = Prelude.Just FEATURE_CHECK
maybeToEnum _ = Prelude.Nothing
showEnum EMPTY = "EMPTY"
showEnum DUMP = "DUMP"
showEnum RESTORE = "RESTORE"
showEnum CHECK = "CHECK"
showEnum PRE_DUMP = "PRE_DUMP"
showEnum PAGE_SERVER = "PAGE_SERVER"
showEnum NOTIFY = "NOTIFY"
showEnum CPUINFO_DUMP = "CPUINFO_DUMP"
showEnum CPUINFO_CHECK = "CPUINFO_CHECK"
showEnum FEATURE_CHECK = "FEATURE_CHECK"
readEnum "EMPTY" = Prelude.Just EMPTY
readEnum "DUMP" = Prelude.Just DUMP
readEnum "RESTORE" = Prelude.Just RESTORE
readEnum "CHECK" = Prelude.Just CHECK
readEnum "PRE_DUMP" = Prelude.Just PRE_DUMP
readEnum "PAGE_SERVER" = Prelude.Just PAGE_SERVER
readEnum "NOTIFY" = Prelude.Just NOTIFY
readEnum "CPUINFO_DUMP" = Prelude.Just CPUINFO_DUMP
readEnum "CPUINFO_CHECK" = Prelude.Just CPUINFO_CHECK
readEnum "FEATURE_CHECK" = Prelude.Just FEATURE_CHECK
readEnum _ = Prelude.Nothing
instance Prelude.Enum Criu_req_type where
toEnum k__
= Prelude.maybe
(Prelude.error
((Prelude.++) "toEnum: unknown value for enum Criu_req_type: "
(Prelude.show k__)))
Prelude.id
(Data.ProtoLens.maybeToEnum k__)
fromEnum EMPTY = 0
fromEnum DUMP = 1
fromEnum RESTORE = 2
fromEnum CHECK = 3
fromEnum PRE_DUMP = 4
fromEnum PAGE_SERVER = 5
fromEnum NOTIFY = 6
fromEnum CPUINFO_DUMP = 7
fromEnum CPUINFO_CHECK = 8
fromEnum FEATURE_CHECK = 9
succ FEATURE_CHECK
= Prelude.error
"Ident \"Criu_req_type\".Ident \"succ\": bad argument Ident \"FEATURE_CHECK\". This value would be out of bounds."
succ EMPTY = DUMP
succ DUMP = RESTORE
succ RESTORE = CHECK
succ CHECK = PRE_DUMP
succ PRE_DUMP = PAGE_SERVER
succ PAGE_SERVER = NOTIFY
succ NOTIFY = CPUINFO_DUMP
succ CPUINFO_DUMP = CPUINFO_CHECK
succ CPUINFO_CHECK = FEATURE_CHECK
pred EMPTY
= Prelude.error
"Ident \"Criu_req_type\".Ident \"pred\": bad argument Ident \"EMPTY\". This value would be out of bounds."
pred DUMP = EMPTY
pred RESTORE = DUMP
pred CHECK = RESTORE
pred PRE_DUMP = CHECK
pred PAGE_SERVER = PRE_DUMP
pred NOTIFY = PAGE_SERVER
pred CPUINFO_DUMP = NOTIFY
pred CPUINFO_CHECK = CPUINFO_DUMP
pred FEATURE_CHECK = CPUINFO_CHECK
enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom
enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo
enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen
enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Prelude.Bounded Criu_req_type where
minBound = EMPTY
maxBound = FEATURE_CHECK
data Cgroup_root = Cgroup_root{_Cgroup_root'ctrl ::
Prelude.Maybe Data.Text.Text,
_Cgroup_root'path :: Data.Text.Text}
deriving (Prelude.Show, Prelude.Eq)
type instance Data.ProtoLens.Field "ctrl" Cgroup_root =
Data.Text.Text
instance Data.ProtoLens.HasField "ctrl" Cgroup_root Cgroup_root
where
field _
= (Prelude..) maybe'ctrl
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'ctrl" Cgroup_root =
Prelude.Maybe Data.Text.Text
instance Data.ProtoLens.HasField "maybe'ctrl" Cgroup_root
Cgroup_root where
field _
= Lens.Family2.Unchecked.lens _Cgroup_root'ctrl
(\ x__ y__ -> x__{_Cgroup_root'ctrl = y__})
type instance Data.ProtoLens.Field "path" Cgroup_root =
Data.Text.Text
instance Data.ProtoLens.HasField "path" Cgroup_root Cgroup_root
where
field _
= Lens.Family2.Unchecked.lens _Cgroup_root'path
(\ x__ y__ -> x__{_Cgroup_root'path = y__})
instance Data.Default.Class.Default Cgroup_root where
def
= Cgroup_root{_Cgroup_root'ctrl = Prelude.Nothing,
_Cgroup_root'path = Data.ProtoLens.fieldDefault}
instance Data.ProtoLens.Message Cgroup_root where
descriptor
= let ctrl__field_descriptor
= Data.ProtoLens.FieldDescriptor "ctrl"
(Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.OptionalField maybe'ctrl)
path__field_descriptor
= Data.ProtoLens.FieldDescriptor "path"
(Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField Data.ProtoLens.Required path)
in
Data.ProtoLens.MessageDescriptor
(Data.Map.fromList
[(Data.ProtoLens.Tag 1, ctrl__field_descriptor),
(Data.ProtoLens.Tag 2, path__field_descriptor)])
(Data.Map.fromList
[("ctrl", ctrl__field_descriptor),
("path", path__field_descriptor)])
data Criu_dump_resp = Criu_dump_resp{_Criu_dump_resp'restored ::
Prelude.Maybe Prelude.Bool}
deriving (Prelude.Show, Prelude.Eq)
type instance Data.ProtoLens.Field "restored" Criu_dump_resp =
Prelude.Bool
instance Data.ProtoLens.HasField "restored" Criu_dump_resp
Criu_dump_resp where
field _
= (Prelude..) maybe'restored
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'restored" Criu_dump_resp
= Prelude.Maybe Prelude.Bool
instance Data.ProtoLens.HasField "maybe'restored" Criu_dump_resp
Criu_dump_resp where
field _
= Lens.Family2.Unchecked.lens _Criu_dump_resp'restored
(\ x__ y__ -> x__{_Criu_dump_resp'restored = y__})
instance Data.Default.Class.Default Criu_dump_resp where
def = Criu_dump_resp{_Criu_dump_resp'restored = Prelude.Nothing}
instance Data.ProtoLens.Message Criu_dump_resp where
descriptor
= let restored__field_descriptor
= Data.ProtoLens.FieldDescriptor "restored"
(Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.OptionalField maybe'restored)
in
Data.ProtoLens.MessageDescriptor
(Data.Map.fromList
[(Data.ProtoLens.Tag 1, restored__field_descriptor)])
(Data.Map.fromList [("restored", restored__field_descriptor)])
data Criu_features = Criu_features{_Criu_features'memTrack ::
Prelude.Maybe Prelude.Bool}
deriving (Prelude.Show, Prelude.Eq)
type instance Data.ProtoLens.Field "memTrack" Criu_features =
Prelude.Bool
instance Data.ProtoLens.HasField "memTrack" Criu_features
Criu_features where
field _
= (Prelude..) maybe'memTrack
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'memTrack" Criu_features =
Prelude.Maybe Prelude.Bool
instance Data.ProtoLens.HasField "maybe'memTrack" Criu_features
Criu_features where
field _
= Lens.Family2.Unchecked.lens _Criu_features'memTrack
(\ x__ y__ -> x__{_Criu_features'memTrack = y__})
instance Data.Default.Class.Default Criu_features where
def = Criu_features{_Criu_features'memTrack = Prelude.Nothing}
instance Data.ProtoLens.Message Criu_features where
descriptor
= let memTrack__field_descriptor
= Data.ProtoLens.FieldDescriptor "mem_track"
(Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.OptionalField maybe'memTrack)
in
Data.ProtoLens.MessageDescriptor
(Data.Map.fromList
[(Data.ProtoLens.Tag 1, memTrack__field_descriptor)])
(Data.Map.fromList [("mem_track", memTrack__field_descriptor)])
data Criu_notify = Criu_notify{_Criu_notify'script ::
Prelude.Maybe Data.Text.Text,
_Criu_notify'pid :: Prelude.Maybe Data.Int.Int32}
deriving (Prelude.Show, Prelude.Eq)
type instance Data.ProtoLens.Field "script" Criu_notify =
Data.Text.Text
instance Data.ProtoLens.HasField "script" Criu_notify Criu_notify
where
field _
= (Prelude..) maybe'script
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'script" Criu_notify =
Prelude.Maybe Data.Text.Text
instance Data.ProtoLens.HasField "maybe'script" Criu_notify
Criu_notify where
field _
= Lens.Family2.Unchecked.lens _Criu_notify'script
(\ x__ y__ -> x__{_Criu_notify'script = y__})
type instance Data.ProtoLens.Field "pid" Criu_notify =
Data.Int.Int32
instance Data.ProtoLens.HasField "pid" Criu_notify Criu_notify
where
field _
= (Prelude..) maybe'pid
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'pid" Criu_notify =
Prelude.Maybe Data.Int.Int32
instance Data.ProtoLens.HasField "maybe'pid" Criu_notify
Criu_notify where
field _
= Lens.Family2.Unchecked.lens _Criu_notify'pid
(\ x__ y__ -> x__{_Criu_notify'pid = y__})
instance Data.Default.Class.Default Criu_notify where
def
= Criu_notify{_Criu_notify'script = Prelude.Nothing,
_Criu_notify'pid = Prelude.Nothing}
instance Data.ProtoLens.Message Criu_notify where
descriptor
= let script__field_descriptor
= Data.ProtoLens.FieldDescriptor "script"
(Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.OptionalField maybe'script)
pid__field_descriptor
= Data.ProtoLens.FieldDescriptor "pid"
(Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(Data.ProtoLens.OptionalField maybe'pid)
in
Data.ProtoLens.MessageDescriptor
(Data.Map.fromList
[(Data.ProtoLens.Tag 1, script__field_descriptor),
(Data.ProtoLens.Tag 2, pid__field_descriptor)])
(Data.Map.fromList
[("script", script__field_descriptor),
("pid", pid__field_descriptor)])
data Criu_opts = Criu_opts{_Criu_opts'imagesDirFd ::
Data.Int.Int32,
_Criu_opts'pid :: Prelude.Maybe Data.Int.Int32,
_Criu_opts'leaveRunning :: Prelude.Maybe Prelude.Bool,
_Criu_opts'extUnixSk :: Prelude.Maybe Prelude.Bool,
_Criu_opts'tcpEstablished :: Prelude.Maybe Prelude.Bool,
_Criu_opts'evasiveDevices :: Prelude.Maybe Prelude.Bool,
_Criu_opts'shellJob :: Prelude.Maybe Prelude.Bool,
_Criu_opts'fileLocks :: Prelude.Maybe Prelude.Bool,
_Criu_opts'logLevel :: Prelude.Maybe Data.Int.Int32,
_Criu_opts'logFile :: Prelude.Maybe Data.Text.Text,
_Criu_opts'ps :: Prelude.Maybe Criu_page_server_info,
_Criu_opts'notifyScripts :: Prelude.Maybe Prelude.Bool,
_Criu_opts'root :: Prelude.Maybe Data.Text.Text,
_Criu_opts'parentImg :: Prelude.Maybe Data.Text.Text,
_Criu_opts'trackMem :: Prelude.Maybe Prelude.Bool,
_Criu_opts'autoDedup :: Prelude.Maybe Prelude.Bool,
_Criu_opts'workDirFd :: Prelude.Maybe Data.Int.Int32,
_Criu_opts'linkRemap :: Prelude.Maybe Prelude.Bool,
_Criu_opts'veths :: [Criu_veth_pair],
_Criu_opts'cpuCap :: Prelude.Maybe Data.Word.Word32,
_Criu_opts'forceIrmap :: Prelude.Maybe Prelude.Bool,
_Criu_opts'execCmd :: [Data.Text.Text],
_Criu_opts'extMnt :: [Ext_mount_map],
_Criu_opts'manageCgroups :: Prelude.Maybe Prelude.Bool,
_Criu_opts'cgRoot :: [Cgroup_root],
_Criu_opts'rstSibling :: Prelude.Maybe Prelude.Bool,
_Criu_opts'inheritFd :: [Inherit_fd],
_Criu_opts'autoExtMnt :: Prelude.Maybe Prelude.Bool,
_Criu_opts'extSharing :: Prelude.Maybe Prelude.Bool,
_Criu_opts'extMasters :: Prelude.Maybe Prelude.Bool,
_Criu_opts'skipMnt :: [Data.Text.Text],
_Criu_opts'enableFs :: [Data.Text.Text],
_Criu_opts'unixSkIno :: [Unix_sk],
_Criu_opts'manageCgroupsMode :: Prelude.Maybe Criu_cg_mode,
_Criu_opts'ghostLimit :: Prelude.Maybe Data.Word.Word32,
_Criu_opts'irmapScanPaths :: [Data.Text.Text],
_Criu_opts'external :: [Data.Text.Text],
_Criu_opts'emptyNs :: Prelude.Maybe Data.Word.Word32,
_Criu_opts'joinNs :: [Join_namespace],
_Criu_opts'cgroupProps :: Prelude.Maybe Data.Text.Text,
_Criu_opts'cgroupPropsFile :: Prelude.Maybe Data.Text.Text,
_Criu_opts'cgroupDumpController :: [Data.Text.Text],
_Criu_opts'freezeCgroup :: Prelude.Maybe Data.Text.Text,
_Criu_opts'timeout :: Prelude.Maybe Data.Word.Word32,
_Criu_opts'tcpSkipInFlight :: Prelude.Maybe Prelude.Bool,
_Criu_opts'weakSysctls :: Prelude.Maybe Prelude.Bool}
deriving (Prelude.Show, Prelude.Eq)
type instance Data.ProtoLens.Field "imagesDirFd" Criu_opts =
Data.Int.Int32
instance Data.ProtoLens.HasField "imagesDirFd" Criu_opts Criu_opts
where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'imagesDirFd
(\ x__ y__ -> x__{_Criu_opts'imagesDirFd = y__})
type instance Data.ProtoLens.Field "pid" Criu_opts = Data.Int.Int32
instance Data.ProtoLens.HasField "pid" Criu_opts Criu_opts where
field _
= (Prelude..) maybe'pid
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'pid" Criu_opts =
Prelude.Maybe Data.Int.Int32
instance Data.ProtoLens.HasField "maybe'pid" Criu_opts Criu_opts
where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'pid
(\ x__ y__ -> x__{_Criu_opts'pid = y__})
type instance Data.ProtoLens.Field "leaveRunning" Criu_opts =
Prelude.Bool
instance Data.ProtoLens.HasField "leaveRunning" Criu_opts Criu_opts
where
field _
= (Prelude..) maybe'leaveRunning
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'leaveRunning" Criu_opts =
Prelude.Maybe Prelude.Bool
instance Data.ProtoLens.HasField "maybe'leaveRunning" Criu_opts
Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'leaveRunning
(\ x__ y__ -> x__{_Criu_opts'leaveRunning = y__})
type instance Data.ProtoLens.Field "extUnixSk" Criu_opts =
Prelude.Bool
instance Data.ProtoLens.HasField "extUnixSk" Criu_opts Criu_opts
where
field _
= (Prelude..) maybe'extUnixSk
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'extUnixSk" Criu_opts =
Prelude.Maybe Prelude.Bool
instance Data.ProtoLens.HasField "maybe'extUnixSk" Criu_opts
Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'extUnixSk
(\ x__ y__ -> x__{_Criu_opts'extUnixSk = y__})
type instance Data.ProtoLens.Field "tcpEstablished" Criu_opts =
Prelude.Bool
instance Data.ProtoLens.HasField "tcpEstablished" Criu_opts
Criu_opts where
field _
= (Prelude..) maybe'tcpEstablished
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'tcpEstablished" Criu_opts
= Prelude.Maybe Prelude.Bool
instance Data.ProtoLens.HasField "maybe'tcpEstablished" Criu_opts
Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'tcpEstablished
(\ x__ y__ -> x__{_Criu_opts'tcpEstablished = y__})
type instance Data.ProtoLens.Field "evasiveDevices" Criu_opts =
Prelude.Bool
instance Data.ProtoLens.HasField "evasiveDevices" Criu_opts
Criu_opts where
field _
= (Prelude..) maybe'evasiveDevices
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'evasiveDevices" Criu_opts
= Prelude.Maybe Prelude.Bool
instance Data.ProtoLens.HasField "maybe'evasiveDevices" Criu_opts
Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'evasiveDevices
(\ x__ y__ -> x__{_Criu_opts'evasiveDevices = y__})
type instance Data.ProtoLens.Field "shellJob" Criu_opts =
Prelude.Bool
instance Data.ProtoLens.HasField "shellJob" Criu_opts Criu_opts
where
field _
= (Prelude..) maybe'shellJob
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'shellJob" Criu_opts =
Prelude.Maybe Prelude.Bool
instance Data.ProtoLens.HasField "maybe'shellJob" Criu_opts
Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'shellJob
(\ x__ y__ -> x__{_Criu_opts'shellJob = y__})
type instance Data.ProtoLens.Field "fileLocks" Criu_opts =
Prelude.Bool
instance Data.ProtoLens.HasField "fileLocks" Criu_opts Criu_opts
where
field _
= (Prelude..) maybe'fileLocks
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'fileLocks" Criu_opts =
Prelude.Maybe Prelude.Bool
instance Data.ProtoLens.HasField "maybe'fileLocks" Criu_opts
Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'fileLocks
(\ x__ y__ -> x__{_Criu_opts'fileLocks = y__})
type instance Data.ProtoLens.Field "logLevel" Criu_opts =
Data.Int.Int32
instance Data.ProtoLens.HasField "logLevel" Criu_opts Criu_opts
where
field _ = (Prelude..) maybe'logLevel (Data.ProtoLens.maybeLens 2)
type instance Data.ProtoLens.Field "maybe'logLevel" Criu_opts =
Prelude.Maybe Data.Int.Int32
instance Data.ProtoLens.HasField "maybe'logLevel" Criu_opts
Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'logLevel
(\ x__ y__ -> x__{_Criu_opts'logLevel = y__})
type instance Data.ProtoLens.Field "logFile" Criu_opts =
Data.Text.Text
instance Data.ProtoLens.HasField "logFile" Criu_opts Criu_opts
where
field _
= (Prelude..) maybe'logFile
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'logFile" Criu_opts =
Prelude.Maybe Data.Text.Text
instance Data.ProtoLens.HasField "maybe'logFile" Criu_opts
Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'logFile
(\ x__ y__ -> x__{_Criu_opts'logFile = y__})
type instance Data.ProtoLens.Field "ps" Criu_opts =
Criu_page_server_info
instance Data.ProtoLens.HasField "ps" Criu_opts Criu_opts where
field _
= (Prelude..) maybe'ps
(Data.ProtoLens.maybeLens Data.Default.Class.def)
type instance Data.ProtoLens.Field "maybe'ps" Criu_opts =
Prelude.Maybe Criu_page_server_info
instance Data.ProtoLens.HasField "maybe'ps" Criu_opts Criu_opts
where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'ps
(\ x__ y__ -> x__{_Criu_opts'ps = y__})
type instance Data.ProtoLens.Field "notifyScripts" Criu_opts =
Prelude.Bool
instance Data.ProtoLens.HasField "notifyScripts" Criu_opts
Criu_opts where
field _
= (Prelude..) maybe'notifyScripts
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'notifyScripts" Criu_opts
= Prelude.Maybe Prelude.Bool
instance Data.ProtoLens.HasField "maybe'notifyScripts" Criu_opts
Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'notifyScripts
(\ x__ y__ -> x__{_Criu_opts'notifyScripts = y__})
type instance Data.ProtoLens.Field "root" Criu_opts =
Data.Text.Text
instance Data.ProtoLens.HasField "root" Criu_opts Criu_opts where
field _
= (Prelude..) maybe'root
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'root" Criu_opts =
Prelude.Maybe Data.Text.Text
instance Data.ProtoLens.HasField "maybe'root" Criu_opts Criu_opts
where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'root
(\ x__ y__ -> x__{_Criu_opts'root = y__})
type instance Data.ProtoLens.Field "parentImg" Criu_opts =
Data.Text.Text
instance Data.ProtoLens.HasField "parentImg" Criu_opts Criu_opts
where
field _
= (Prelude..) maybe'parentImg
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'parentImg" Criu_opts =
Prelude.Maybe Data.Text.Text
instance Data.ProtoLens.HasField "maybe'parentImg" Criu_opts
Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'parentImg
(\ x__ y__ -> x__{_Criu_opts'parentImg = y__})
type instance Data.ProtoLens.Field "trackMem" Criu_opts =
Prelude.Bool
instance Data.ProtoLens.HasField "trackMem" Criu_opts Criu_opts
where
field _
= (Prelude..) maybe'trackMem
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'trackMem" Criu_opts =
Prelude.Maybe Prelude.Bool
instance Data.ProtoLens.HasField "maybe'trackMem" Criu_opts
Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'trackMem
(\ x__ y__ -> x__{_Criu_opts'trackMem = y__})
type instance Data.ProtoLens.Field "autoDedup" Criu_opts =
Prelude.Bool
instance Data.ProtoLens.HasField "autoDedup" Criu_opts Criu_opts
where
field _
= (Prelude..) maybe'autoDedup
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'autoDedup" Criu_opts =
Prelude.Maybe Prelude.Bool
instance Data.ProtoLens.HasField "maybe'autoDedup" Criu_opts
Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'autoDedup
(\ x__ y__ -> x__{_Criu_opts'autoDedup = y__})
type instance Data.ProtoLens.Field "workDirFd" Criu_opts =
Data.Int.Int32
instance Data.ProtoLens.HasField "workDirFd" Criu_opts Criu_opts
where
field _
= (Prelude..) maybe'workDirFd
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'workDirFd" Criu_opts =
Prelude.Maybe Data.Int.Int32
instance Data.ProtoLens.HasField "maybe'workDirFd" Criu_opts
Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'workDirFd
(\ x__ y__ -> x__{_Criu_opts'workDirFd = y__})
type instance Data.ProtoLens.Field "linkRemap" Criu_opts =
Prelude.Bool
instance Data.ProtoLens.HasField "linkRemap" Criu_opts Criu_opts
where
field _
= (Prelude..) maybe'linkRemap
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'linkRemap" Criu_opts =
Prelude.Maybe Prelude.Bool
instance Data.ProtoLens.HasField "maybe'linkRemap" Criu_opts
Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'linkRemap
(\ x__ y__ -> x__{_Criu_opts'linkRemap = y__})
type instance Data.ProtoLens.Field "veths" Criu_opts =
[Criu_veth_pair]
instance Data.ProtoLens.HasField "veths" Criu_opts Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'veths
(\ x__ y__ -> x__{_Criu_opts'veths = y__})
type instance Data.ProtoLens.Field "cpuCap" Criu_opts =
Data.Word.Word32
instance Data.ProtoLens.HasField "cpuCap" Criu_opts Criu_opts where
field _
= (Prelude..) maybe'cpuCap (Data.ProtoLens.maybeLens 4294967295)
type instance Data.ProtoLens.Field "maybe'cpuCap" Criu_opts =
Prelude.Maybe Data.Word.Word32
instance Data.ProtoLens.HasField "maybe'cpuCap" Criu_opts Criu_opts
where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'cpuCap
(\ x__ y__ -> x__{_Criu_opts'cpuCap = y__})
type instance Data.ProtoLens.Field "forceIrmap" Criu_opts =
Prelude.Bool
instance Data.ProtoLens.HasField "forceIrmap" Criu_opts Criu_opts
where
field _
= (Prelude..) maybe'forceIrmap
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'forceIrmap" Criu_opts =
Prelude.Maybe Prelude.Bool
instance Data.ProtoLens.HasField "maybe'forceIrmap" Criu_opts
Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'forceIrmap
(\ x__ y__ -> x__{_Criu_opts'forceIrmap = y__})
type instance Data.ProtoLens.Field "execCmd" Criu_opts =
[Data.Text.Text]
instance Data.ProtoLens.HasField "execCmd" Criu_opts Criu_opts
where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'execCmd
(\ x__ y__ -> x__{_Criu_opts'execCmd = y__})
type instance Data.ProtoLens.Field "extMnt" Criu_opts =
[Ext_mount_map]
instance Data.ProtoLens.HasField "extMnt" Criu_opts Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'extMnt
(\ x__ y__ -> x__{_Criu_opts'extMnt = y__})
type instance Data.ProtoLens.Field "manageCgroups" Criu_opts =
Prelude.Bool
instance Data.ProtoLens.HasField "manageCgroups" Criu_opts
Criu_opts where
field _
= (Prelude..) maybe'manageCgroups
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'manageCgroups" Criu_opts
= Prelude.Maybe Prelude.Bool
instance Data.ProtoLens.HasField "maybe'manageCgroups" Criu_opts
Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'manageCgroups
(\ x__ y__ -> x__{_Criu_opts'manageCgroups = y__})
type instance Data.ProtoLens.Field "cgRoot" Criu_opts =
[Cgroup_root]
instance Data.ProtoLens.HasField "cgRoot" Criu_opts Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'cgRoot
(\ x__ y__ -> x__{_Criu_opts'cgRoot = y__})
type instance Data.ProtoLens.Field "rstSibling" Criu_opts =
Prelude.Bool
instance Data.ProtoLens.HasField "rstSibling" Criu_opts Criu_opts
where
field _
= (Prelude..) maybe'rstSibling
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'rstSibling" Criu_opts =
Prelude.Maybe Prelude.Bool
instance Data.ProtoLens.HasField "maybe'rstSibling" Criu_opts
Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'rstSibling
(\ x__ y__ -> x__{_Criu_opts'rstSibling = y__})
type instance Data.ProtoLens.Field "inheritFd" Criu_opts =
[Inherit_fd]
instance Data.ProtoLens.HasField "inheritFd" Criu_opts Criu_opts
where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'inheritFd
(\ x__ y__ -> x__{_Criu_opts'inheritFd = y__})
type instance Data.ProtoLens.Field "autoExtMnt" Criu_opts =
Prelude.Bool
instance Data.ProtoLens.HasField "autoExtMnt" Criu_opts Criu_opts
where
field _
= (Prelude..) maybe'autoExtMnt
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'autoExtMnt" Criu_opts =
Prelude.Maybe Prelude.Bool
instance Data.ProtoLens.HasField "maybe'autoExtMnt" Criu_opts
Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'autoExtMnt
(\ x__ y__ -> x__{_Criu_opts'autoExtMnt = y__})
type instance Data.ProtoLens.Field "extSharing" Criu_opts =
Prelude.Bool
instance Data.ProtoLens.HasField "extSharing" Criu_opts Criu_opts
where
field _
= (Prelude..) maybe'extSharing
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'extSharing" Criu_opts =
Prelude.Maybe Prelude.Bool
instance Data.ProtoLens.HasField "maybe'extSharing" Criu_opts
Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'extSharing
(\ x__ y__ -> x__{_Criu_opts'extSharing = y__})
type instance Data.ProtoLens.Field "extMasters" Criu_opts =
Prelude.Bool
instance Data.ProtoLens.HasField "extMasters" Criu_opts Criu_opts
where
field _
= (Prelude..) maybe'extMasters
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'extMasters" Criu_opts =
Prelude.Maybe Prelude.Bool
instance Data.ProtoLens.HasField "maybe'extMasters" Criu_opts
Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'extMasters
(\ x__ y__ -> x__{_Criu_opts'extMasters = y__})
type instance Data.ProtoLens.Field "skipMnt" Criu_opts =
[Data.Text.Text]
instance Data.ProtoLens.HasField "skipMnt" Criu_opts Criu_opts
where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'skipMnt
(\ x__ y__ -> x__{_Criu_opts'skipMnt = y__})
type instance Data.ProtoLens.Field "enableFs" Criu_opts =
[Data.Text.Text]
instance Data.ProtoLens.HasField "enableFs" Criu_opts Criu_opts
where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'enableFs
(\ x__ y__ -> x__{_Criu_opts'enableFs = y__})
type instance Data.ProtoLens.Field "unixSkIno" Criu_opts =
[Unix_sk]
instance Data.ProtoLens.HasField "unixSkIno" Criu_opts Criu_opts
where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'unixSkIno
(\ x__ y__ -> x__{_Criu_opts'unixSkIno = y__})
type instance Data.ProtoLens.Field "manageCgroupsMode" Criu_opts =
Criu_cg_mode
instance Data.ProtoLens.HasField "manageCgroupsMode" Criu_opts
Criu_opts where
field _
= (Prelude..) maybe'manageCgroupsMode
(Data.ProtoLens.maybeLens Data.Default.Class.def)
type instance
Data.ProtoLens.Field "maybe'manageCgroupsMode" Criu_opts =
Prelude.Maybe Criu_cg_mode
instance Data.ProtoLens.HasField "maybe'manageCgroupsMode"
Criu_opts Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'manageCgroupsMode
(\ x__ y__ -> x__{_Criu_opts'manageCgroupsMode = y__})
type instance Data.ProtoLens.Field "ghostLimit" Criu_opts =
Data.Word.Word32
instance Data.ProtoLens.HasField "ghostLimit" Criu_opts Criu_opts
where
field _
= (Prelude..) maybe'ghostLimit (Data.ProtoLens.maybeLens 1048576)
type instance Data.ProtoLens.Field "maybe'ghostLimit" Criu_opts =
Prelude.Maybe Data.Word.Word32
instance Data.ProtoLens.HasField "maybe'ghostLimit" Criu_opts
Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'ghostLimit
(\ x__ y__ -> x__{_Criu_opts'ghostLimit = y__})
type instance Data.ProtoLens.Field "irmapScanPaths" Criu_opts =
[Data.Text.Text]
instance Data.ProtoLens.HasField "irmapScanPaths" Criu_opts
Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'irmapScanPaths
(\ x__ y__ -> x__{_Criu_opts'irmapScanPaths = y__})
type instance Data.ProtoLens.Field "external" Criu_opts =
[Data.Text.Text]
instance Data.ProtoLens.HasField "external" Criu_opts Criu_opts
where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'external
(\ x__ y__ -> x__{_Criu_opts'external = y__})
type instance Data.ProtoLens.Field "emptyNs" Criu_opts =
Data.Word.Word32
instance Data.ProtoLens.HasField "emptyNs" Criu_opts Criu_opts
where
field _
= (Prelude..) maybe'emptyNs
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'emptyNs" Criu_opts =
Prelude.Maybe Data.Word.Word32
instance Data.ProtoLens.HasField "maybe'emptyNs" Criu_opts
Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'emptyNs
(\ x__ y__ -> x__{_Criu_opts'emptyNs = y__})
type instance Data.ProtoLens.Field "joinNs" Criu_opts =
[Join_namespace]
instance Data.ProtoLens.HasField "joinNs" Criu_opts Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'joinNs
(\ x__ y__ -> x__{_Criu_opts'joinNs = y__})
type instance Data.ProtoLens.Field "cgroupProps" Criu_opts =
Data.Text.Text
instance Data.ProtoLens.HasField "cgroupProps" Criu_opts Criu_opts
where
field _
= (Prelude..) maybe'cgroupProps
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'cgroupProps" Criu_opts =
Prelude.Maybe Data.Text.Text
instance Data.ProtoLens.HasField "maybe'cgroupProps" Criu_opts
Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'cgroupProps
(\ x__ y__ -> x__{_Criu_opts'cgroupProps = y__})
type instance Data.ProtoLens.Field "cgroupPropsFile" Criu_opts =
Data.Text.Text
instance Data.ProtoLens.HasField "cgroupPropsFile" Criu_opts
Criu_opts where
field _
= (Prelude..) maybe'cgroupPropsFile
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance
Data.ProtoLens.Field "maybe'cgroupPropsFile" Criu_opts =
Prelude.Maybe Data.Text.Text
instance Data.ProtoLens.HasField "maybe'cgroupPropsFile" Criu_opts
Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'cgroupPropsFile
(\ x__ y__ -> x__{_Criu_opts'cgroupPropsFile = y__})
type instance Data.ProtoLens.Field "cgroupDumpController" Criu_opts
= [Data.Text.Text]
instance Data.ProtoLens.HasField "cgroupDumpController" Criu_opts
Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'cgroupDumpController
(\ x__ y__ -> x__{_Criu_opts'cgroupDumpController = y__})
type instance Data.ProtoLens.Field "freezeCgroup" Criu_opts =
Data.Text.Text
instance Data.ProtoLens.HasField "freezeCgroup" Criu_opts Criu_opts
where
field _
= (Prelude..) maybe'freezeCgroup
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'freezeCgroup" Criu_opts =
Prelude.Maybe Data.Text.Text
instance Data.ProtoLens.HasField "maybe'freezeCgroup" Criu_opts
Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'freezeCgroup
(\ x__ y__ -> x__{_Criu_opts'freezeCgroup = y__})
type instance Data.ProtoLens.Field "timeout" Criu_opts =
Data.Word.Word32
instance Data.ProtoLens.HasField "timeout" Criu_opts Criu_opts
where
field _
= (Prelude..) maybe'timeout
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'timeout" Criu_opts =
Prelude.Maybe Data.Word.Word32
instance Data.ProtoLens.HasField "maybe'timeout" Criu_opts
Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'timeout
(\ x__ y__ -> x__{_Criu_opts'timeout = y__})
type instance Data.ProtoLens.Field "tcpSkipInFlight" Criu_opts =
Prelude.Bool
instance Data.ProtoLens.HasField "tcpSkipInFlight" Criu_opts
Criu_opts where
field _
= (Prelude..) maybe'tcpSkipInFlight
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance
Data.ProtoLens.Field "maybe'tcpSkipInFlight" Criu_opts =
Prelude.Maybe Prelude.Bool
instance Data.ProtoLens.HasField "maybe'tcpSkipInFlight" Criu_opts
Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'tcpSkipInFlight
(\ x__ y__ -> x__{_Criu_opts'tcpSkipInFlight = y__})
type instance Data.ProtoLens.Field "weakSysctls" Criu_opts =
Prelude.Bool
instance Data.ProtoLens.HasField "weakSysctls" Criu_opts Criu_opts
where
field _
= (Prelude..) maybe'weakSysctls
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'weakSysctls" Criu_opts =
Prelude.Maybe Prelude.Bool
instance Data.ProtoLens.HasField "maybe'weakSysctls" Criu_opts
Criu_opts where
field _
= Lens.Family2.Unchecked.lens _Criu_opts'weakSysctls
(\ x__ y__ -> x__{_Criu_opts'weakSysctls = y__})
instance Data.Default.Class.Default Criu_opts where
def
= Criu_opts{_Criu_opts'imagesDirFd = Data.ProtoLens.fieldDefault,
_Criu_opts'pid = Prelude.Nothing,
_Criu_opts'leaveRunning = Prelude.Nothing,
_Criu_opts'extUnixSk = Prelude.Nothing,
_Criu_opts'tcpEstablished = Prelude.Nothing,
_Criu_opts'evasiveDevices = Prelude.Nothing,
_Criu_opts'shellJob = Prelude.Nothing,
_Criu_opts'fileLocks = Prelude.Nothing,
_Criu_opts'logLevel = Prelude.Nothing,
_Criu_opts'logFile = Prelude.Nothing,
_Criu_opts'ps = Prelude.Nothing,
_Criu_opts'notifyScripts = Prelude.Nothing,
_Criu_opts'root = Prelude.Nothing,
_Criu_opts'parentImg = Prelude.Nothing,
_Criu_opts'trackMem = Prelude.Nothing,
_Criu_opts'autoDedup = Prelude.Nothing,
_Criu_opts'workDirFd = Prelude.Nothing,
_Criu_opts'linkRemap = Prelude.Nothing, _Criu_opts'veths = [],
_Criu_opts'cpuCap = Prelude.Nothing,
_Criu_opts'forceIrmap = Prelude.Nothing, _Criu_opts'execCmd = [],
_Criu_opts'extMnt = [], _Criu_opts'manageCgroups = Prelude.Nothing,
_Criu_opts'cgRoot = [], _Criu_opts'rstSibling = Prelude.Nothing,
_Criu_opts'inheritFd = [], _Criu_opts'autoExtMnt = Prelude.Nothing,
_Criu_opts'extSharing = Prelude.Nothing,
_Criu_opts'extMasters = Prelude.Nothing, _Criu_opts'skipMnt = [],
_Criu_opts'enableFs = [], _Criu_opts'unixSkIno = [],
_Criu_opts'manageCgroupsMode = Prelude.Nothing,
_Criu_opts'ghostLimit = Prelude.Nothing,
_Criu_opts'irmapScanPaths = [], _Criu_opts'external = [],
_Criu_opts'emptyNs = Prelude.Nothing, _Criu_opts'joinNs = [],
_Criu_opts'cgroupProps = Prelude.Nothing,
_Criu_opts'cgroupPropsFile = Prelude.Nothing,
_Criu_opts'cgroupDumpController = [],
_Criu_opts'freezeCgroup = Prelude.Nothing,
_Criu_opts'timeout = Prelude.Nothing,
_Criu_opts'tcpSkipInFlight = Prelude.Nothing,
_Criu_opts'weakSysctls = Prelude.Nothing}
instance Data.ProtoLens.Message Criu_opts where
descriptor
= let imagesDirFd__field_descriptor
= Data.ProtoLens.FieldDescriptor "images_dir_fd"
(Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(Data.ProtoLens.PlainField Data.ProtoLens.Required imagesDirFd)
pid__field_descriptor
= Data.ProtoLens.FieldDescriptor "pid"
(Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(Data.ProtoLens.OptionalField maybe'pid)
leaveRunning__field_descriptor
= Data.ProtoLens.FieldDescriptor "leave_running"
(Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.OptionalField maybe'leaveRunning)
extUnixSk__field_descriptor
= Data.ProtoLens.FieldDescriptor "ext_unix_sk"
(Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.OptionalField maybe'extUnixSk)
tcpEstablished__field_descriptor
= Data.ProtoLens.FieldDescriptor "tcp_established"
(Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.OptionalField maybe'tcpEstablished)
evasiveDevices__field_descriptor
= Data.ProtoLens.FieldDescriptor "evasive_devices"
(Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.OptionalField maybe'evasiveDevices)
shellJob__field_descriptor
= Data.ProtoLens.FieldDescriptor "shell_job"
(Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.OptionalField maybe'shellJob)
fileLocks__field_descriptor
= Data.ProtoLens.FieldDescriptor "file_locks"
(Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.OptionalField maybe'fileLocks)
logLevel__field_descriptor
= Data.ProtoLens.FieldDescriptor "log_level"
(Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(Data.ProtoLens.OptionalField maybe'logLevel)
logFile__field_descriptor
= Data.ProtoLens.FieldDescriptor "log_file"
(Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.OptionalField maybe'logFile)
ps__field_descriptor
= Data.ProtoLens.FieldDescriptor "ps"
(Data.ProtoLens.MessageField ::
Data.ProtoLens.FieldTypeDescriptor Criu_page_server_info)
(Data.ProtoLens.OptionalField maybe'ps)
notifyScripts__field_descriptor
= Data.ProtoLens.FieldDescriptor "notify_scripts"
(Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.OptionalField maybe'notifyScripts)
root__field_descriptor
= Data.ProtoLens.FieldDescriptor "root"
(Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.OptionalField maybe'root)
parentImg__field_descriptor
= Data.ProtoLens.FieldDescriptor "parent_img"
(Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.OptionalField maybe'parentImg)
trackMem__field_descriptor
= Data.ProtoLens.FieldDescriptor "track_mem"
(Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.OptionalField maybe'trackMem)
autoDedup__field_descriptor
= Data.ProtoLens.FieldDescriptor "auto_dedup"
(Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.OptionalField maybe'autoDedup)
workDirFd__field_descriptor
= Data.ProtoLens.FieldDescriptor "work_dir_fd"
(Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(Data.ProtoLens.OptionalField maybe'workDirFd)
linkRemap__field_descriptor
= Data.ProtoLens.FieldDescriptor "link_remap"
(Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.OptionalField maybe'linkRemap)
veths__field_descriptor
= Data.ProtoLens.FieldDescriptor "veths"
(Data.ProtoLens.MessageField ::
Data.ProtoLens.FieldTypeDescriptor Criu_veth_pair)
(Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked veths)
cpuCap__field_descriptor
= Data.ProtoLens.FieldDescriptor "cpu_cap"
(Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.OptionalField maybe'cpuCap)
forceIrmap__field_descriptor
= Data.ProtoLens.FieldDescriptor "force_irmap"
(Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.OptionalField maybe'forceIrmap)
execCmd__field_descriptor
= Data.ProtoLens.FieldDescriptor "exec_cmd"
(Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked execCmd)
extMnt__field_descriptor
= Data.ProtoLens.FieldDescriptor "ext_mnt"
(Data.ProtoLens.MessageField ::
Data.ProtoLens.FieldTypeDescriptor Ext_mount_map)
(Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked extMnt)
manageCgroups__field_descriptor
= Data.ProtoLens.FieldDescriptor "manage_cgroups"
(Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.OptionalField maybe'manageCgroups)
cgRoot__field_descriptor
= Data.ProtoLens.FieldDescriptor "cg_root"
(Data.ProtoLens.MessageField ::
Data.ProtoLens.FieldTypeDescriptor Cgroup_root)
(Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked cgRoot)
rstSibling__field_descriptor
= Data.ProtoLens.FieldDescriptor "rst_sibling"
(Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.OptionalField maybe'rstSibling)
inheritFd__field_descriptor
= Data.ProtoLens.FieldDescriptor "inherit_fd"
(Data.ProtoLens.MessageField ::
Data.ProtoLens.FieldTypeDescriptor Inherit_fd)
(Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked inheritFd)
autoExtMnt__field_descriptor
= Data.ProtoLens.FieldDescriptor "auto_ext_mnt"
(Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.OptionalField maybe'autoExtMnt)
extSharing__field_descriptor
= Data.ProtoLens.FieldDescriptor "ext_sharing"
(Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.OptionalField maybe'extSharing)
extMasters__field_descriptor
= Data.ProtoLens.FieldDescriptor "ext_masters"
(Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.OptionalField maybe'extMasters)
skipMnt__field_descriptor
= Data.ProtoLens.FieldDescriptor "skip_mnt"
(Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked skipMnt)
enableFs__field_descriptor
= Data.ProtoLens.FieldDescriptor "enable_fs"
(Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked enableFs)
unixSkIno__field_descriptor
= Data.ProtoLens.FieldDescriptor "unix_sk_ino"
(Data.ProtoLens.MessageField ::
Data.ProtoLens.FieldTypeDescriptor Unix_sk)
(Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked unixSkIno)
manageCgroupsMode__field_descriptor
= Data.ProtoLens.FieldDescriptor "manage_cgroups_mode"
(Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor Criu_cg_mode)
(Data.ProtoLens.OptionalField maybe'manageCgroupsMode)
ghostLimit__field_descriptor
= Data.ProtoLens.FieldDescriptor "ghost_limit"
(Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.OptionalField maybe'ghostLimit)
irmapScanPaths__field_descriptor
= Data.ProtoLens.FieldDescriptor "irmap_scan_paths"
(Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked
irmapScanPaths)
external__field_descriptor
= Data.ProtoLens.FieldDescriptor "external"
(Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked external)
emptyNs__field_descriptor
= Data.ProtoLens.FieldDescriptor "empty_ns"
(Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.OptionalField maybe'emptyNs)
joinNs__field_descriptor
= Data.ProtoLens.FieldDescriptor "join_ns"
(Data.ProtoLens.MessageField ::
Data.ProtoLens.FieldTypeDescriptor Join_namespace)
(Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked joinNs)
cgroupProps__field_descriptor
= Data.ProtoLens.FieldDescriptor "cgroup_props"
(Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.OptionalField maybe'cgroupProps)
cgroupPropsFile__field_descriptor
= Data.ProtoLens.FieldDescriptor "cgroup_props_file"
(Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.OptionalField maybe'cgroupPropsFile)
cgroupDumpController__field_descriptor
= Data.ProtoLens.FieldDescriptor "cgroup_dump_controller"
(Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked
cgroupDumpController)
freezeCgroup__field_descriptor
= Data.ProtoLens.FieldDescriptor "freeze_cgroup"
(Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.OptionalField maybe'freezeCgroup)
timeout__field_descriptor
= Data.ProtoLens.FieldDescriptor "timeout"
(Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.OptionalField maybe'timeout)
tcpSkipInFlight__field_descriptor
= Data.ProtoLens.FieldDescriptor "tcp_skip_in_flight"
(Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.OptionalField maybe'tcpSkipInFlight)
weakSysctls__field_descriptor
= Data.ProtoLens.FieldDescriptor "weak_sysctls"
(Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.OptionalField maybe'weakSysctls)
in
Data.ProtoLens.MessageDescriptor
(Data.Map.fromList
[(Data.ProtoLens.Tag 1, imagesDirFd__field_descriptor),
(Data.ProtoLens.Tag 2, pid__field_descriptor),
(Data.ProtoLens.Tag 3, leaveRunning__field_descriptor),
(Data.ProtoLens.Tag 4, extUnixSk__field_descriptor),
(Data.ProtoLens.Tag 5, tcpEstablished__field_descriptor),
(Data.ProtoLens.Tag 6, evasiveDevices__field_descriptor),
(Data.ProtoLens.Tag 7, shellJob__field_descriptor),
(Data.ProtoLens.Tag 8, fileLocks__field_descriptor),
(Data.ProtoLens.Tag 9, logLevel__field_descriptor),
(Data.ProtoLens.Tag 10, logFile__field_descriptor),
(Data.ProtoLens.Tag 11, ps__field_descriptor),
(Data.ProtoLens.Tag 12, notifyScripts__field_descriptor),
(Data.ProtoLens.Tag 13, root__field_descriptor),
(Data.ProtoLens.Tag 14, parentImg__field_descriptor),
(Data.ProtoLens.Tag 15, trackMem__field_descriptor),
(Data.ProtoLens.Tag 16, autoDedup__field_descriptor),
(Data.ProtoLens.Tag 17, workDirFd__field_descriptor),
(Data.ProtoLens.Tag 18, linkRemap__field_descriptor),
(Data.ProtoLens.Tag 19, veths__field_descriptor),
(Data.ProtoLens.Tag 20, cpuCap__field_descriptor),
(Data.ProtoLens.Tag 21, forceIrmap__field_descriptor),
(Data.ProtoLens.Tag 22, execCmd__field_descriptor),
(Data.ProtoLens.Tag 23, extMnt__field_descriptor),
(Data.ProtoLens.Tag 24, manageCgroups__field_descriptor),
(Data.ProtoLens.Tag 25, cgRoot__field_descriptor),
(Data.ProtoLens.Tag 26, rstSibling__field_descriptor),
(Data.ProtoLens.Tag 27, inheritFd__field_descriptor),
(Data.ProtoLens.Tag 28, autoExtMnt__field_descriptor),
(Data.ProtoLens.Tag 29, extSharing__field_descriptor),
(Data.ProtoLens.Tag 30, extMasters__field_descriptor),
(Data.ProtoLens.Tag 31, skipMnt__field_descriptor),
(Data.ProtoLens.Tag 32, enableFs__field_descriptor),
(Data.ProtoLens.Tag 33, unixSkIno__field_descriptor),
(Data.ProtoLens.Tag 34, manageCgroupsMode__field_descriptor),
(Data.ProtoLens.Tag 35, ghostLimit__field_descriptor),
(Data.ProtoLens.Tag 36, irmapScanPaths__field_descriptor),
(Data.ProtoLens.Tag 37, external__field_descriptor),
(Data.ProtoLens.Tag 38, emptyNs__field_descriptor),
(Data.ProtoLens.Tag 39, joinNs__field_descriptor),
(Data.ProtoLens.Tag 41, cgroupProps__field_descriptor),
(Data.ProtoLens.Tag 42, cgroupPropsFile__field_descriptor),
(Data.ProtoLens.Tag 43, cgroupDumpController__field_descriptor),
(Data.ProtoLens.Tag 44, freezeCgroup__field_descriptor),
(Data.ProtoLens.Tag 45, timeout__field_descriptor),
(Data.ProtoLens.Tag 46, tcpSkipInFlight__field_descriptor),
(Data.ProtoLens.Tag 47, weakSysctls__field_descriptor)])
(Data.Map.fromList
[("images_dir_fd", imagesDirFd__field_descriptor),
("pid", pid__field_descriptor),
("leave_running", leaveRunning__field_descriptor),
("ext_unix_sk", extUnixSk__field_descriptor),
("tcp_established", tcpEstablished__field_descriptor),
("evasive_devices", evasiveDevices__field_descriptor),
("shell_job", shellJob__field_descriptor),
("file_locks", fileLocks__field_descriptor),
("log_level", logLevel__field_descriptor),
("log_file", logFile__field_descriptor),
("ps", ps__field_descriptor),
("notify_scripts", notifyScripts__field_descriptor),
("root", root__field_descriptor),
("parent_img", parentImg__field_descriptor),
("track_mem", trackMem__field_descriptor),
("auto_dedup", autoDedup__field_descriptor),
("work_dir_fd", workDirFd__field_descriptor),
("link_remap", linkRemap__field_descriptor),
("veths", veths__field_descriptor),
("cpu_cap", cpuCap__field_descriptor),
("force_irmap", forceIrmap__field_descriptor),
("exec_cmd", execCmd__field_descriptor),
("ext_mnt", extMnt__field_descriptor),
("manage_cgroups", manageCgroups__field_descriptor),
("cg_root", cgRoot__field_descriptor),
("rst_sibling", rstSibling__field_descriptor),
("inherit_fd", inheritFd__field_descriptor),
("auto_ext_mnt", autoExtMnt__field_descriptor),
("ext_sharing", extSharing__field_descriptor),
("ext_masters", extMasters__field_descriptor),
("skip_mnt", skipMnt__field_descriptor),
("enable_fs", enableFs__field_descriptor),
("unix_sk_ino", unixSkIno__field_descriptor),
("manage_cgroups_mode", manageCgroupsMode__field_descriptor),
("ghost_limit", ghostLimit__field_descriptor),
("irmap_scan_paths", irmapScanPaths__field_descriptor),
("external", external__field_descriptor),
("empty_ns", emptyNs__field_descriptor),
("join_ns", joinNs__field_descriptor),
("cgroup_props", cgroupProps__field_descriptor),
("cgroup_props_file", cgroupPropsFile__field_descriptor),
("cgroup_dump_controller", cgroupDumpController__field_descriptor),
("freeze_cgroup", freezeCgroup__field_descriptor),
("timeout", timeout__field_descriptor),
("tcp_skip_in_flight", tcpSkipInFlight__field_descriptor),
("weak_sysctls", weakSysctls__field_descriptor)])
data Criu_page_server_info = Criu_page_server_info{_Criu_page_server_info'address
:: Prelude.Maybe Data.Text.Text,
_Criu_page_server_info'port ::
Prelude.Maybe Data.Int.Int32,
_Criu_page_server_info'pid ::
Prelude.Maybe Data.Int.Int32,
_Criu_page_server_info'fd ::
Prelude.Maybe Data.Int.Int32}
deriving (Prelude.Show, Prelude.Eq)
type instance Data.ProtoLens.Field "address" Criu_page_server_info
= Data.Text.Text
instance Data.ProtoLens.HasField "address" Criu_page_server_info
Criu_page_server_info where
field _
= (Prelude..) maybe'address
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance
Data.ProtoLens.Field "maybe'address" Criu_page_server_info =
Prelude.Maybe Data.Text.Text
instance Data.ProtoLens.HasField "maybe'address"
Criu_page_server_info Criu_page_server_info where
field _
= Lens.Family2.Unchecked.lens _Criu_page_server_info'address
(\ x__ y__ -> x__{_Criu_page_server_info'address = y__})
type instance Data.ProtoLens.Field "port" Criu_page_server_info =
Data.Int.Int32
instance Data.ProtoLens.HasField "port" Criu_page_server_info
Criu_page_server_info where
field _
= (Prelude..) maybe'port
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance
Data.ProtoLens.Field "maybe'port" Criu_page_server_info =
Prelude.Maybe Data.Int.Int32
instance Data.ProtoLens.HasField "maybe'port" Criu_page_server_info
Criu_page_server_info where
field _
= Lens.Family2.Unchecked.lens _Criu_page_server_info'port
(\ x__ y__ -> x__{_Criu_page_server_info'port = y__})
type instance Data.ProtoLens.Field "pid" Criu_page_server_info =
Data.Int.Int32
instance Data.ProtoLens.HasField "pid" Criu_page_server_info
Criu_page_server_info where
field _
= (Prelude..) maybe'pid
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance
Data.ProtoLens.Field "maybe'pid" Criu_page_server_info =
Prelude.Maybe Data.Int.Int32
instance Data.ProtoLens.HasField "maybe'pid" Criu_page_server_info
Criu_page_server_info where
field _
= Lens.Family2.Unchecked.lens _Criu_page_server_info'pid
(\ x__ y__ -> x__{_Criu_page_server_info'pid = y__})
type instance Data.ProtoLens.Field "fd" Criu_page_server_info =
Data.Int.Int32
instance Data.ProtoLens.HasField "fd" Criu_page_server_info
Criu_page_server_info where
field _
= (Prelude..) maybe'fd
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'fd" Criu_page_server_info
= Prelude.Maybe Data.Int.Int32
instance Data.ProtoLens.HasField "maybe'fd" Criu_page_server_info
Criu_page_server_info where
field _
= Lens.Family2.Unchecked.lens _Criu_page_server_info'fd
(\ x__ y__ -> x__{_Criu_page_server_info'fd = y__})
instance Data.Default.Class.Default Criu_page_server_info where
def
= Criu_page_server_info{_Criu_page_server_info'address =
Prelude.Nothing,
_Criu_page_server_info'port = Prelude.Nothing,
_Criu_page_server_info'pid = Prelude.Nothing,
_Criu_page_server_info'fd = Prelude.Nothing}
instance Data.ProtoLens.Message Criu_page_server_info where
descriptor
= let address__field_descriptor
= Data.ProtoLens.FieldDescriptor "address"
(Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.OptionalField maybe'address)
port__field_descriptor
= Data.ProtoLens.FieldDescriptor "port"
(Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(Data.ProtoLens.OptionalField maybe'port)
pid__field_descriptor
= Data.ProtoLens.FieldDescriptor "pid"
(Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(Data.ProtoLens.OptionalField maybe'pid)
fd__field_descriptor
= Data.ProtoLens.FieldDescriptor "fd"
(Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(Data.ProtoLens.OptionalField maybe'fd)
in
Data.ProtoLens.MessageDescriptor
(Data.Map.fromList
[(Data.ProtoLens.Tag 1, address__field_descriptor),
(Data.ProtoLens.Tag 2, port__field_descriptor),
(Data.ProtoLens.Tag 3, pid__field_descriptor),
(Data.ProtoLens.Tag 4, fd__field_descriptor)])
(Data.Map.fromList
[("address", address__field_descriptor),
("port", port__field_descriptor), ("pid", pid__field_descriptor),
("fd", fd__field_descriptor)])
data Criu_req = Criu_req{_Criu_req'type' :: Criu_req_type,
_Criu_req'opts :: Prelude.Maybe Criu_opts,
_Criu_req'notifySuccess :: Prelude.Maybe Prelude.Bool,
_Criu_req'keepOpen :: Prelude.Maybe Prelude.Bool,
_Criu_req'features :: Prelude.Maybe Criu_features}
deriving (Prelude.Show, Prelude.Eq)
type instance Data.ProtoLens.Field "type'" Criu_req = Criu_req_type
instance Data.ProtoLens.HasField "type'" Criu_req Criu_req where
field _
= Lens.Family2.Unchecked.lens _Criu_req'type'
(\ x__ y__ -> x__{_Criu_req'type' = y__})
type instance Data.ProtoLens.Field "opts" Criu_req = Criu_opts
instance Data.ProtoLens.HasField "opts" Criu_req Criu_req where
field _
= (Prelude..) maybe'opts
(Data.ProtoLens.maybeLens Data.Default.Class.def)
type instance Data.ProtoLens.Field "maybe'opts" Criu_req =
Prelude.Maybe Criu_opts
instance Data.ProtoLens.HasField "maybe'opts" Criu_req Criu_req
where
field _
= Lens.Family2.Unchecked.lens _Criu_req'opts
(\ x__ y__ -> x__{_Criu_req'opts = y__})
type instance Data.ProtoLens.Field "notifySuccess" Criu_req =
Prelude.Bool
instance Data.ProtoLens.HasField "notifySuccess" Criu_req Criu_req
where
field _
= (Prelude..) maybe'notifySuccess
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'notifySuccess" Criu_req =
Prelude.Maybe Prelude.Bool
instance Data.ProtoLens.HasField "maybe'notifySuccess" Criu_req
Criu_req where
field _
= Lens.Family2.Unchecked.lens _Criu_req'notifySuccess
(\ x__ y__ -> x__{_Criu_req'notifySuccess = y__})
type instance Data.ProtoLens.Field "keepOpen" Criu_req =
Prelude.Bool
instance Data.ProtoLens.HasField "keepOpen" Criu_req Criu_req where
field _
= (Prelude..) maybe'keepOpen
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'keepOpen" Criu_req =
Prelude.Maybe Prelude.Bool
instance Data.ProtoLens.HasField "maybe'keepOpen" Criu_req Criu_req
where
field _
= Lens.Family2.Unchecked.lens _Criu_req'keepOpen
(\ x__ y__ -> x__{_Criu_req'keepOpen = y__})
type instance Data.ProtoLens.Field "features" Criu_req =
Criu_features
instance Data.ProtoLens.HasField "features" Criu_req Criu_req where
field _
= (Prelude..) maybe'features
(Data.ProtoLens.maybeLens Data.Default.Class.def)
type instance Data.ProtoLens.Field "maybe'features" Criu_req =
Prelude.Maybe Criu_features
instance Data.ProtoLens.HasField "maybe'features" Criu_req Criu_req
where
field _
= Lens.Family2.Unchecked.lens _Criu_req'features
(\ x__ y__ -> x__{_Criu_req'features = y__})
instance Data.Default.Class.Default Criu_req where
def
= Criu_req{_Criu_req'type' = Data.Default.Class.def,
_Criu_req'opts = Prelude.Nothing,
_Criu_req'notifySuccess = Prelude.Nothing,
_Criu_req'keepOpen = Prelude.Nothing,
_Criu_req'features = Prelude.Nothing}
instance Data.ProtoLens.Message Criu_req where
descriptor
= let type'__field_descriptor
= Data.ProtoLens.FieldDescriptor "type"
(Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor Criu_req_type)
(Data.ProtoLens.PlainField Data.ProtoLens.Required type')
opts__field_descriptor
= Data.ProtoLens.FieldDescriptor "opts"
(Data.ProtoLens.MessageField ::
Data.ProtoLens.FieldTypeDescriptor Criu_opts)
(Data.ProtoLens.OptionalField maybe'opts)
notifySuccess__field_descriptor
= Data.ProtoLens.FieldDescriptor "notify_success"
(Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.OptionalField maybe'notifySuccess)
keepOpen__field_descriptor
= Data.ProtoLens.FieldDescriptor "keep_open"
(Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.OptionalField maybe'keepOpen)
features__field_descriptor
= Data.ProtoLens.FieldDescriptor "features"
(Data.ProtoLens.MessageField ::
Data.ProtoLens.FieldTypeDescriptor Criu_features)
(Data.ProtoLens.OptionalField maybe'features)
in
Data.ProtoLens.MessageDescriptor
(Data.Map.fromList
[(Data.ProtoLens.Tag 1, type'__field_descriptor),
(Data.ProtoLens.Tag 2, opts__field_descriptor),
(Data.ProtoLens.Tag 3, notifySuccess__field_descriptor),
(Data.ProtoLens.Tag 4, keepOpen__field_descriptor),
(Data.ProtoLens.Tag 5, features__field_descriptor)])
(Data.Map.fromList
[("type", type'__field_descriptor),
("opts", opts__field_descriptor),
("notify_success", notifySuccess__field_descriptor),
("keep_open", keepOpen__field_descriptor),
("features", features__field_descriptor)])
data Criu_resp = Criu_resp{_Criu_resp'type' :: Criu_req_type,
_Criu_resp'success :: Prelude.Bool,
_Criu_resp'dump :: Prelude.Maybe Criu_dump_resp,
_Criu_resp'restore :: Prelude.Maybe Criu_restore_resp,
_Criu_resp'notify :: Prelude.Maybe Criu_notify,
_Criu_resp'ps :: Prelude.Maybe Criu_page_server_info,
_Criu_resp'crErrno :: Prelude.Maybe Data.Int.Int32,
_Criu_resp'features :: Prelude.Maybe Criu_features,
_Criu_resp'crErrmsg :: Prelude.Maybe Data.Text.Text}
deriving (Prelude.Show, Prelude.Eq)
type instance Data.ProtoLens.Field "type'" Criu_resp =
Criu_req_type
instance Data.ProtoLens.HasField "type'" Criu_resp Criu_resp where
field _
= Lens.Family2.Unchecked.lens _Criu_resp'type'
(\ x__ y__ -> x__{_Criu_resp'type' = y__})
type instance Data.ProtoLens.Field "success" Criu_resp =
Prelude.Bool
instance Data.ProtoLens.HasField "success" Criu_resp Criu_resp
where
field _
= Lens.Family2.Unchecked.lens _Criu_resp'success
(\ x__ y__ -> x__{_Criu_resp'success = y__})
type instance Data.ProtoLens.Field "dump" Criu_resp =
Criu_dump_resp
instance Data.ProtoLens.HasField "dump" Criu_resp Criu_resp where
field _
= (Prelude..) maybe'dump
(Data.ProtoLens.maybeLens Data.Default.Class.def)
type instance Data.ProtoLens.Field "maybe'dump" Criu_resp =
Prelude.Maybe Criu_dump_resp
instance Data.ProtoLens.HasField "maybe'dump" Criu_resp Criu_resp
where
field _
= Lens.Family2.Unchecked.lens _Criu_resp'dump
(\ x__ y__ -> x__{_Criu_resp'dump = y__})
type instance Data.ProtoLens.Field "restore" Criu_resp =
Criu_restore_resp
instance Data.ProtoLens.HasField "restore" Criu_resp Criu_resp
where
field _
= (Prelude..) maybe'restore
(Data.ProtoLens.maybeLens Data.Default.Class.def)
type instance Data.ProtoLens.Field "maybe'restore" Criu_resp =
Prelude.Maybe Criu_restore_resp
instance Data.ProtoLens.HasField "maybe'restore" Criu_resp
Criu_resp where
field _
= Lens.Family2.Unchecked.lens _Criu_resp'restore
(\ x__ y__ -> x__{_Criu_resp'restore = y__})
type instance Data.ProtoLens.Field "notify" Criu_resp = Criu_notify
instance Data.ProtoLens.HasField "notify" Criu_resp Criu_resp where
field _
= (Prelude..) maybe'notify
(Data.ProtoLens.maybeLens Data.Default.Class.def)
type instance Data.ProtoLens.Field "maybe'notify" Criu_resp =
Prelude.Maybe Criu_notify
instance Data.ProtoLens.HasField "maybe'notify" Criu_resp Criu_resp
where
field _
= Lens.Family2.Unchecked.lens _Criu_resp'notify
(\ x__ y__ -> x__{_Criu_resp'notify = y__})
type instance Data.ProtoLens.Field "ps" Criu_resp =
Criu_page_server_info
instance Data.ProtoLens.HasField "ps" Criu_resp Criu_resp where
field _
= (Prelude..) maybe'ps
(Data.ProtoLens.maybeLens Data.Default.Class.def)
type instance Data.ProtoLens.Field "maybe'ps" Criu_resp =
Prelude.Maybe Criu_page_server_info
instance Data.ProtoLens.HasField "maybe'ps" Criu_resp Criu_resp
where
field _
= Lens.Family2.Unchecked.lens _Criu_resp'ps
(\ x__ y__ -> x__{_Criu_resp'ps = y__})
type instance Data.ProtoLens.Field "crErrno" Criu_resp =
Data.Int.Int32
instance Data.ProtoLens.HasField "crErrno" Criu_resp Criu_resp
where
field _
= (Prelude..) maybe'crErrno
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'crErrno" Criu_resp =
Prelude.Maybe Data.Int.Int32
instance Data.ProtoLens.HasField "maybe'crErrno" Criu_resp
Criu_resp where
field _
= Lens.Family2.Unchecked.lens _Criu_resp'crErrno
(\ x__ y__ -> x__{_Criu_resp'crErrno = y__})
type instance Data.ProtoLens.Field "features" Criu_resp =
Criu_features
instance Data.ProtoLens.HasField "features" Criu_resp Criu_resp
where
field _
= (Prelude..) maybe'features
(Data.ProtoLens.maybeLens Data.Default.Class.def)
type instance Data.ProtoLens.Field "maybe'features" Criu_resp =
Prelude.Maybe Criu_features
instance Data.ProtoLens.HasField "maybe'features" Criu_resp
Criu_resp where
field _
= Lens.Family2.Unchecked.lens _Criu_resp'features
(\ x__ y__ -> x__{_Criu_resp'features = y__})
type instance Data.ProtoLens.Field "crErrmsg" Criu_resp =
Data.Text.Text
instance Data.ProtoLens.HasField "crErrmsg" Criu_resp Criu_resp
where
field _
= (Prelude..) maybe'crErrmsg
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'crErrmsg" Criu_resp =
Prelude.Maybe Data.Text.Text
instance Data.ProtoLens.HasField "maybe'crErrmsg" Criu_resp
Criu_resp where
field _
= Lens.Family2.Unchecked.lens _Criu_resp'crErrmsg
(\ x__ y__ -> x__{_Criu_resp'crErrmsg = y__})
instance Data.Default.Class.Default Criu_resp where
def
= Criu_resp{_Criu_resp'type' = Data.Default.Class.def,
_Criu_resp'success = Data.ProtoLens.fieldDefault,
_Criu_resp'dump = Prelude.Nothing,
_Criu_resp'restore = Prelude.Nothing,
_Criu_resp'notify = Prelude.Nothing,
_Criu_resp'ps = Prelude.Nothing,
_Criu_resp'crErrno = Prelude.Nothing,
_Criu_resp'features = Prelude.Nothing,
_Criu_resp'crErrmsg = Prelude.Nothing}
instance Data.ProtoLens.Message Criu_resp where
descriptor
= let type'__field_descriptor
= Data.ProtoLens.FieldDescriptor "type"
(Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor Criu_req_type)
(Data.ProtoLens.PlainField Data.ProtoLens.Required type')
success__field_descriptor
= Data.ProtoLens.FieldDescriptor "success"
(Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Data.ProtoLens.PlainField Data.ProtoLens.Required success)
dump__field_descriptor
= Data.ProtoLens.FieldDescriptor "dump"
(Data.ProtoLens.MessageField ::
Data.ProtoLens.FieldTypeDescriptor Criu_dump_resp)
(Data.ProtoLens.OptionalField maybe'dump)
restore__field_descriptor
= Data.ProtoLens.FieldDescriptor "restore"
(Data.ProtoLens.MessageField ::
Data.ProtoLens.FieldTypeDescriptor Criu_restore_resp)
(Data.ProtoLens.OptionalField maybe'restore)
notify__field_descriptor
= Data.ProtoLens.FieldDescriptor "notify"
(Data.ProtoLens.MessageField ::
Data.ProtoLens.FieldTypeDescriptor Criu_notify)
(Data.ProtoLens.OptionalField maybe'notify)
ps__field_descriptor
= Data.ProtoLens.FieldDescriptor "ps"
(Data.ProtoLens.MessageField ::
Data.ProtoLens.FieldTypeDescriptor Criu_page_server_info)
(Data.ProtoLens.OptionalField maybe'ps)
crErrno__field_descriptor
= Data.ProtoLens.FieldDescriptor "cr_errno"
(Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(Data.ProtoLens.OptionalField maybe'crErrno)
features__field_descriptor
= Data.ProtoLens.FieldDescriptor "features"
(Data.ProtoLens.MessageField ::
Data.ProtoLens.FieldTypeDescriptor Criu_features)
(Data.ProtoLens.OptionalField maybe'features)
crErrmsg__field_descriptor
= Data.ProtoLens.FieldDescriptor "cr_errmsg"
(Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.OptionalField maybe'crErrmsg)
in
Data.ProtoLens.MessageDescriptor
(Data.Map.fromList
[(Data.ProtoLens.Tag 1, type'__field_descriptor),
(Data.ProtoLens.Tag 2, success__field_descriptor),
(Data.ProtoLens.Tag 3, dump__field_descriptor),
(Data.ProtoLens.Tag 4, restore__field_descriptor),
(Data.ProtoLens.Tag 5, notify__field_descriptor),
(Data.ProtoLens.Tag 6, ps__field_descriptor),
(Data.ProtoLens.Tag 7, crErrno__field_descriptor),
(Data.ProtoLens.Tag 8, features__field_descriptor),
(Data.ProtoLens.Tag 9, crErrmsg__field_descriptor)])
(Data.Map.fromList
[("type", type'__field_descriptor),
("success", success__field_descriptor),
("dump", dump__field_descriptor),
("restore", restore__field_descriptor),
("notify", notify__field_descriptor), ("ps", ps__field_descriptor),
("cr_errno", crErrno__field_descriptor),
("features", features__field_descriptor),
("cr_errmsg", crErrmsg__field_descriptor)])
data Criu_restore_resp = Criu_restore_resp{_Criu_restore_resp'pid
:: Data.Int.Int32}
deriving (Prelude.Show, Prelude.Eq)
type instance Data.ProtoLens.Field "pid" Criu_restore_resp =
Data.Int.Int32
instance Data.ProtoLens.HasField "pid" Criu_restore_resp
Criu_restore_resp where
field _
= Lens.Family2.Unchecked.lens _Criu_restore_resp'pid
(\ x__ y__ -> x__{_Criu_restore_resp'pid = y__})
instance Data.Default.Class.Default Criu_restore_resp where
def
= Criu_restore_resp{_Criu_restore_resp'pid =
Data.ProtoLens.fieldDefault}
instance Data.ProtoLens.Message Criu_restore_resp where
descriptor
= let pid__field_descriptor
= Data.ProtoLens.FieldDescriptor "pid"
(Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(Data.ProtoLens.PlainField Data.ProtoLens.Required pid)
in
Data.ProtoLens.MessageDescriptor
(Data.Map.fromList [(Data.ProtoLens.Tag 1, pid__field_descriptor)])
(Data.Map.fromList [("pid", pid__field_descriptor)])
data Criu_veth_pair = Criu_veth_pair{_Criu_veth_pair'ifIn ::
Data.Text.Text,
_Criu_veth_pair'ifOut :: Data.Text.Text}
deriving (Prelude.Show, Prelude.Eq)
type instance Data.ProtoLens.Field "ifIn" Criu_veth_pair =
Data.Text.Text
instance Data.ProtoLens.HasField "ifIn" Criu_veth_pair
Criu_veth_pair where
field _
= Lens.Family2.Unchecked.lens _Criu_veth_pair'ifIn
(\ x__ y__ -> x__{_Criu_veth_pair'ifIn = y__})
type instance Data.ProtoLens.Field "ifOut" Criu_veth_pair =
Data.Text.Text
instance Data.ProtoLens.HasField "ifOut" Criu_veth_pair
Criu_veth_pair where
field _
= Lens.Family2.Unchecked.lens _Criu_veth_pair'ifOut
(\ x__ y__ -> x__{_Criu_veth_pair'ifOut = y__})
instance Data.Default.Class.Default Criu_veth_pair where
def
= Criu_veth_pair{_Criu_veth_pair'ifIn =
Data.ProtoLens.fieldDefault,
_Criu_veth_pair'ifOut = Data.ProtoLens.fieldDefault}
instance Data.ProtoLens.Message Criu_veth_pair where
descriptor
= let ifIn__field_descriptor
= Data.ProtoLens.FieldDescriptor "if_in"
(Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField Data.ProtoLens.Required ifIn)
ifOut__field_descriptor
= Data.ProtoLens.FieldDescriptor "if_out"
(Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField Data.ProtoLens.Required ifOut)
in
Data.ProtoLens.MessageDescriptor
(Data.Map.fromList
[(Data.ProtoLens.Tag 1, ifIn__field_descriptor),
(Data.ProtoLens.Tag 2, ifOut__field_descriptor)])
(Data.Map.fromList
[("if_in", ifIn__field_descriptor),
("if_out", ifOut__field_descriptor)])
data Ext_mount_map = Ext_mount_map{_Ext_mount_map'key ::
Data.Text.Text,
_Ext_mount_map'val :: Data.Text.Text}
deriving (Prelude.Show, Prelude.Eq)
type instance Data.ProtoLens.Field "key" Ext_mount_map =
Data.Text.Text
instance Data.ProtoLens.HasField "key" Ext_mount_map Ext_mount_map
where
field _
= Lens.Family2.Unchecked.lens _Ext_mount_map'key
(\ x__ y__ -> x__{_Ext_mount_map'key = y__})
type instance Data.ProtoLens.Field "val" Ext_mount_map =
Data.Text.Text
instance Data.ProtoLens.HasField "val" Ext_mount_map Ext_mount_map
where
field _
= Lens.Family2.Unchecked.lens _Ext_mount_map'val
(\ x__ y__ -> x__{_Ext_mount_map'val = y__})
instance Data.Default.Class.Default Ext_mount_map where
def
= Ext_mount_map{_Ext_mount_map'key = Data.ProtoLens.fieldDefault,
_Ext_mount_map'val = Data.ProtoLens.fieldDefault}
instance Data.ProtoLens.Message Ext_mount_map where
descriptor
= let key__field_descriptor
= Data.ProtoLens.FieldDescriptor "key"
(Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField Data.ProtoLens.Required key)
val__field_descriptor
= Data.ProtoLens.FieldDescriptor "val"
(Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField Data.ProtoLens.Required val)
in
Data.ProtoLens.MessageDescriptor
(Data.Map.fromList
[(Data.ProtoLens.Tag 1, key__field_descriptor),
(Data.ProtoLens.Tag 2, val__field_descriptor)])
(Data.Map.fromList
[("key", key__field_descriptor), ("val", val__field_descriptor)])
data Inherit_fd = Inherit_fd{_Inherit_fd'key :: Data.Text.Text,
_Inherit_fd'fd :: Data.Int.Int32}
deriving (Prelude.Show, Prelude.Eq)
type instance Data.ProtoLens.Field "key" Inherit_fd =
Data.Text.Text
instance Data.ProtoLens.HasField "key" Inherit_fd Inherit_fd where
field _
= Lens.Family2.Unchecked.lens _Inherit_fd'key
(\ x__ y__ -> x__{_Inherit_fd'key = y__})
type instance Data.ProtoLens.Field "fd" Inherit_fd = Data.Int.Int32
instance Data.ProtoLens.HasField "fd" Inherit_fd Inherit_fd where
field _
= Lens.Family2.Unchecked.lens _Inherit_fd'fd
(\ x__ y__ -> x__{_Inherit_fd'fd = y__})
instance Data.Default.Class.Default Inherit_fd where
def
= Inherit_fd{_Inherit_fd'key = Data.ProtoLens.fieldDefault,
_Inherit_fd'fd = Data.ProtoLens.fieldDefault}
instance Data.ProtoLens.Message Inherit_fd where
descriptor
= let key__field_descriptor
= Data.ProtoLens.FieldDescriptor "key"
(Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField Data.ProtoLens.Required key)
fd__field_descriptor
= Data.ProtoLens.FieldDescriptor "fd"
(Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(Data.ProtoLens.PlainField Data.ProtoLens.Required fd)
in
Data.ProtoLens.MessageDescriptor
(Data.Map.fromList
[(Data.ProtoLens.Tag 1, key__field_descriptor),
(Data.ProtoLens.Tag 2, fd__field_descriptor)])
(Data.Map.fromList
[("key", key__field_descriptor), ("fd", fd__field_descriptor)])
data Join_namespace = Join_namespace{_Join_namespace'ns ::
Data.Text.Text,
_Join_namespace'nsFile :: Data.Text.Text,
_Join_namespace'extraOpt :: Prelude.Maybe Data.Text.Text}
deriving (Prelude.Show, Prelude.Eq)
type instance Data.ProtoLens.Field "ns" Join_namespace =
Data.Text.Text
instance Data.ProtoLens.HasField "ns" Join_namespace Join_namespace
where
field _
= Lens.Family2.Unchecked.lens _Join_namespace'ns
(\ x__ y__ -> x__{_Join_namespace'ns = y__})
type instance Data.ProtoLens.Field "nsFile" Join_namespace =
Data.Text.Text
instance Data.ProtoLens.HasField "nsFile" Join_namespace
Join_namespace where
field _
= Lens.Family2.Unchecked.lens _Join_namespace'nsFile
(\ x__ y__ -> x__{_Join_namespace'nsFile = y__})
type instance Data.ProtoLens.Field "extraOpt" Join_namespace =
Data.Text.Text
instance Data.ProtoLens.HasField "extraOpt" Join_namespace
Join_namespace where
field _
= (Prelude..) maybe'extraOpt
(Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault)
type instance Data.ProtoLens.Field "maybe'extraOpt" Join_namespace
= Prelude.Maybe Data.Text.Text
instance Data.ProtoLens.HasField "maybe'extraOpt" Join_namespace
Join_namespace where
field _
= Lens.Family2.Unchecked.lens _Join_namespace'extraOpt
(\ x__ y__ -> x__{_Join_namespace'extraOpt = y__})
instance Data.Default.Class.Default Join_namespace where
def
= Join_namespace{_Join_namespace'ns = Data.ProtoLens.fieldDefault,
_Join_namespace'nsFile = Data.ProtoLens.fieldDefault,
_Join_namespace'extraOpt = Prelude.Nothing}
instance Data.ProtoLens.Message Join_namespace where
descriptor
= let ns__field_descriptor
= Data.ProtoLens.FieldDescriptor "ns"
(Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField Data.ProtoLens.Required ns)
nsFile__field_descriptor
= Data.ProtoLens.FieldDescriptor "ns_file"
(Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.PlainField Data.ProtoLens.Required nsFile)
extraOpt__field_descriptor
= Data.ProtoLens.FieldDescriptor "extra_opt"
(Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Data.ProtoLens.OptionalField maybe'extraOpt)
in
Data.ProtoLens.MessageDescriptor
(Data.Map.fromList
[(Data.ProtoLens.Tag 1, ns__field_descriptor),
(Data.ProtoLens.Tag 2, nsFile__field_descriptor),
(Data.ProtoLens.Tag 3, extraOpt__field_descriptor)])
(Data.Map.fromList
[("ns", ns__field_descriptor),
("ns_file", nsFile__field_descriptor),
("extra_opt", extraOpt__field_descriptor)])
data Unix_sk = Unix_sk{_Unix_sk'inode :: Data.Word.Word32}
deriving (Prelude.Show, Prelude.Eq)
type instance Data.ProtoLens.Field "inode" Unix_sk =
Data.Word.Word32
instance Data.ProtoLens.HasField "inode" Unix_sk Unix_sk where
field _
= Lens.Family2.Unchecked.lens _Unix_sk'inode
(\ x__ y__ -> x__{_Unix_sk'inode = y__})
instance Data.Default.Class.Default Unix_sk where
def = Unix_sk{_Unix_sk'inode = Data.ProtoLens.fieldDefault}
instance Data.ProtoLens.Message Unix_sk where
descriptor
= let inode__field_descriptor
= Data.ProtoLens.FieldDescriptor "inode"
(Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Data.ProtoLens.PlainField Data.ProtoLens.Required inode)
in
Data.ProtoLens.MessageDescriptor
(Data.Map.fromList
[(Data.ProtoLens.Tag 1, inode__field_descriptor)])
(Data.Map.fromList [("inode", inode__field_descriptor)])
address ::
forall msg msg' . Data.ProtoLens.HasField "address" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "address" msg)
(Data.ProtoLens.Field "address" msg')
address
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "address")
autoDedup ::
forall msg msg' . Data.ProtoLens.HasField "autoDedup" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "autoDedup" msg)
(Data.ProtoLens.Field "autoDedup" msg')
autoDedup
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "autoDedup")
autoExtMnt ::
forall msg msg' . Data.ProtoLens.HasField "autoExtMnt" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "autoExtMnt" msg)
(Data.ProtoLens.Field "autoExtMnt" msg')
autoExtMnt
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "autoExtMnt")
cgRoot ::
forall msg msg' . Data.ProtoLens.HasField "cgRoot" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "cgRoot" msg)
(Data.ProtoLens.Field "cgRoot" msg')
cgRoot
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "cgRoot")
cgroupDumpController ::
forall msg msg' .
Data.ProtoLens.HasField "cgroupDumpController" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "cgroupDumpController" msg)
(Data.ProtoLens.Field "cgroupDumpController" msg')
cgroupDumpController
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "cgroupDumpController")
cgroupProps ::
forall msg msg' . Data.ProtoLens.HasField "cgroupProps" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "cgroupProps" msg)
(Data.ProtoLens.Field "cgroupProps" msg')
cgroupProps
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "cgroupProps")
cgroupPropsFile ::
forall msg msg' .
Data.ProtoLens.HasField "cgroupPropsFile" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "cgroupPropsFile" msg)
(Data.ProtoLens.Field "cgroupPropsFile" msg')
cgroupPropsFile
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "cgroupPropsFile")
cpuCap ::
forall msg msg' . Data.ProtoLens.HasField "cpuCap" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "cpuCap" msg)
(Data.ProtoLens.Field "cpuCap" msg')
cpuCap
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "cpuCap")
crErrmsg ::
forall msg msg' . Data.ProtoLens.HasField "crErrmsg" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "crErrmsg" msg)
(Data.ProtoLens.Field "crErrmsg" msg')
crErrmsg
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "crErrmsg")
crErrno ::
forall msg msg' . Data.ProtoLens.HasField "crErrno" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "crErrno" msg)
(Data.ProtoLens.Field "crErrno" msg')
crErrno
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "crErrno")
ctrl ::
forall msg msg' . Data.ProtoLens.HasField "ctrl" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "ctrl" msg)
(Data.ProtoLens.Field "ctrl" msg')
ctrl
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "ctrl")
dump ::
forall msg msg' . Data.ProtoLens.HasField "dump" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "dump" msg)
(Data.ProtoLens.Field "dump" msg')
dump
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "dump")
emptyNs ::
forall msg msg' . Data.ProtoLens.HasField "emptyNs" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "emptyNs" msg)
(Data.ProtoLens.Field "emptyNs" msg')
emptyNs
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "emptyNs")
enableFs ::
forall msg msg' . Data.ProtoLens.HasField "enableFs" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "enableFs" msg)
(Data.ProtoLens.Field "enableFs" msg')
enableFs
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "enableFs")
evasiveDevices ::
forall msg msg' .
Data.ProtoLens.HasField "evasiveDevices" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "evasiveDevices" msg)
(Data.ProtoLens.Field "evasiveDevices" msg')
evasiveDevices
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "evasiveDevices")
execCmd ::
forall msg msg' . Data.ProtoLens.HasField "execCmd" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "execCmd" msg)
(Data.ProtoLens.Field "execCmd" msg')
execCmd
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "execCmd")
extMasters ::
forall msg msg' . Data.ProtoLens.HasField "extMasters" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "extMasters" msg)
(Data.ProtoLens.Field "extMasters" msg')
extMasters
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "extMasters")
extMnt ::
forall msg msg' . Data.ProtoLens.HasField "extMnt" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "extMnt" msg)
(Data.ProtoLens.Field "extMnt" msg')
extMnt
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "extMnt")
extSharing ::
forall msg msg' . Data.ProtoLens.HasField "extSharing" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "extSharing" msg)
(Data.ProtoLens.Field "extSharing" msg')
extSharing
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "extSharing")
extUnixSk ::
forall msg msg' . Data.ProtoLens.HasField "extUnixSk" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "extUnixSk" msg)
(Data.ProtoLens.Field "extUnixSk" msg')
extUnixSk
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "extUnixSk")
external ::
forall msg msg' . Data.ProtoLens.HasField "external" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "external" msg)
(Data.ProtoLens.Field "external" msg')
external
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "external")
extraOpt ::
forall msg msg' . Data.ProtoLens.HasField "extraOpt" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "extraOpt" msg)
(Data.ProtoLens.Field "extraOpt" msg')
extraOpt
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "extraOpt")
fd ::
forall msg msg' . Data.ProtoLens.HasField "fd" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "fd" msg)
(Data.ProtoLens.Field "fd" msg')
fd
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "fd")
features ::
forall msg msg' . Data.ProtoLens.HasField "features" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "features" msg)
(Data.ProtoLens.Field "features" msg')
features
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "features")
fileLocks ::
forall msg msg' . Data.ProtoLens.HasField "fileLocks" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "fileLocks" msg)
(Data.ProtoLens.Field "fileLocks" msg')
fileLocks
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "fileLocks")
forceIrmap ::
forall msg msg' . Data.ProtoLens.HasField "forceIrmap" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "forceIrmap" msg)
(Data.ProtoLens.Field "forceIrmap" msg')
forceIrmap
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "forceIrmap")
freezeCgroup ::
forall msg msg' .
Data.ProtoLens.HasField "freezeCgroup" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "freezeCgroup" msg)
(Data.ProtoLens.Field "freezeCgroup" msg')
freezeCgroup
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "freezeCgroup")
ghostLimit ::
forall msg msg' . Data.ProtoLens.HasField "ghostLimit" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "ghostLimit" msg)
(Data.ProtoLens.Field "ghostLimit" msg')
ghostLimit
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "ghostLimit")
ifIn ::
forall msg msg' . Data.ProtoLens.HasField "ifIn" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "ifIn" msg)
(Data.ProtoLens.Field "ifIn" msg')
ifIn
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "ifIn")
ifOut ::
forall msg msg' . Data.ProtoLens.HasField "ifOut" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "ifOut" msg)
(Data.ProtoLens.Field "ifOut" msg')
ifOut
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "ifOut")
imagesDirFd ::
forall msg msg' . Data.ProtoLens.HasField "imagesDirFd" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "imagesDirFd" msg)
(Data.ProtoLens.Field "imagesDirFd" msg')
imagesDirFd
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "imagesDirFd")
inheritFd ::
forall msg msg' . Data.ProtoLens.HasField "inheritFd" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "inheritFd" msg)
(Data.ProtoLens.Field "inheritFd" msg')
inheritFd
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "inheritFd")
inode ::
forall msg msg' . Data.ProtoLens.HasField "inode" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "inode" msg)
(Data.ProtoLens.Field "inode" msg')
inode
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "inode")
irmapScanPaths ::
forall msg msg' .
Data.ProtoLens.HasField "irmapScanPaths" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "irmapScanPaths" msg)
(Data.ProtoLens.Field "irmapScanPaths" msg')
irmapScanPaths
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "irmapScanPaths")
joinNs ::
forall msg msg' . Data.ProtoLens.HasField "joinNs" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "joinNs" msg)
(Data.ProtoLens.Field "joinNs" msg')
joinNs
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "joinNs")
keepOpen ::
forall msg msg' . Data.ProtoLens.HasField "keepOpen" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "keepOpen" msg)
(Data.ProtoLens.Field "keepOpen" msg')
keepOpen
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "keepOpen")
key ::
forall msg msg' . Data.ProtoLens.HasField "key" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "key" msg)
(Data.ProtoLens.Field "key" msg')
key
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "key")
leaveRunning ::
forall msg msg' .
Data.ProtoLens.HasField "leaveRunning" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "leaveRunning" msg)
(Data.ProtoLens.Field "leaveRunning" msg')
leaveRunning
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "leaveRunning")
linkRemap ::
forall msg msg' . Data.ProtoLens.HasField "linkRemap" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "linkRemap" msg)
(Data.ProtoLens.Field "linkRemap" msg')
linkRemap
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "linkRemap")
logFile ::
forall msg msg' . Data.ProtoLens.HasField "logFile" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "logFile" msg)
(Data.ProtoLens.Field "logFile" msg')
logFile
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "logFile")
logLevel ::
forall msg msg' . Data.ProtoLens.HasField "logLevel" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "logLevel" msg)
(Data.ProtoLens.Field "logLevel" msg')
logLevel
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "logLevel")
manageCgroups ::
forall msg msg' .
Data.ProtoLens.HasField "manageCgroups" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "manageCgroups" msg)
(Data.ProtoLens.Field "manageCgroups" msg')
manageCgroups
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "manageCgroups")
manageCgroupsMode ::
forall msg msg' .
Data.ProtoLens.HasField "manageCgroupsMode" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "manageCgroupsMode" msg)
(Data.ProtoLens.Field "manageCgroupsMode" msg')
manageCgroupsMode
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "manageCgroupsMode")
maybe'address ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'address" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'address" msg)
(Data.ProtoLens.Field "maybe'address" msg')
maybe'address
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'address")
maybe'autoDedup ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'autoDedup" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'autoDedup" msg)
(Data.ProtoLens.Field "maybe'autoDedup" msg')
maybe'autoDedup
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'autoDedup")
maybe'autoExtMnt ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'autoExtMnt" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'autoExtMnt" msg)
(Data.ProtoLens.Field "maybe'autoExtMnt" msg')
maybe'autoExtMnt
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'autoExtMnt")
maybe'cgroupProps ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'cgroupProps" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'cgroupProps" msg)
(Data.ProtoLens.Field "maybe'cgroupProps" msg')
maybe'cgroupProps
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'cgroupProps")
maybe'cgroupPropsFile ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'cgroupPropsFile" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'cgroupPropsFile" msg)
(Data.ProtoLens.Field "maybe'cgroupPropsFile" msg')
maybe'cgroupPropsFile
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'cgroupPropsFile")
maybe'cpuCap ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'cpuCap" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'cpuCap" msg)
(Data.ProtoLens.Field "maybe'cpuCap" msg')
maybe'cpuCap
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'cpuCap")
maybe'crErrmsg ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'crErrmsg" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'crErrmsg" msg)
(Data.ProtoLens.Field "maybe'crErrmsg" msg')
maybe'crErrmsg
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'crErrmsg")
maybe'crErrno ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'crErrno" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'crErrno" msg)
(Data.ProtoLens.Field "maybe'crErrno" msg')
maybe'crErrno
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'crErrno")
maybe'ctrl ::
forall msg msg' . Data.ProtoLens.HasField "maybe'ctrl" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "maybe'ctrl" msg)
(Data.ProtoLens.Field "maybe'ctrl" msg')
maybe'ctrl
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'ctrl")
maybe'dump ::
forall msg msg' . Data.ProtoLens.HasField "maybe'dump" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "maybe'dump" msg)
(Data.ProtoLens.Field "maybe'dump" msg')
maybe'dump
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'dump")
maybe'emptyNs ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'emptyNs" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'emptyNs" msg)
(Data.ProtoLens.Field "maybe'emptyNs" msg')
maybe'emptyNs
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'emptyNs")
maybe'evasiveDevices ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'evasiveDevices" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'evasiveDevices" msg)
(Data.ProtoLens.Field "maybe'evasiveDevices" msg')
maybe'evasiveDevices
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'evasiveDevices")
maybe'extMasters ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'extMasters" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'extMasters" msg)
(Data.ProtoLens.Field "maybe'extMasters" msg')
maybe'extMasters
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'extMasters")
maybe'extSharing ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'extSharing" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'extSharing" msg)
(Data.ProtoLens.Field "maybe'extSharing" msg')
maybe'extSharing
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'extSharing")
maybe'extUnixSk ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'extUnixSk" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'extUnixSk" msg)
(Data.ProtoLens.Field "maybe'extUnixSk" msg')
maybe'extUnixSk
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'extUnixSk")
maybe'extraOpt ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'extraOpt" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'extraOpt" msg)
(Data.ProtoLens.Field "maybe'extraOpt" msg')
maybe'extraOpt
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'extraOpt")
maybe'fd ::
forall msg msg' . Data.ProtoLens.HasField "maybe'fd" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "maybe'fd" msg)
(Data.ProtoLens.Field "maybe'fd" msg')
maybe'fd
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'fd")
maybe'features ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'features" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'features" msg)
(Data.ProtoLens.Field "maybe'features" msg')
maybe'features
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'features")
maybe'fileLocks ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'fileLocks" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'fileLocks" msg)
(Data.ProtoLens.Field "maybe'fileLocks" msg')
maybe'fileLocks
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'fileLocks")
maybe'forceIrmap ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'forceIrmap" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'forceIrmap" msg)
(Data.ProtoLens.Field "maybe'forceIrmap" msg')
maybe'forceIrmap
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'forceIrmap")
maybe'freezeCgroup ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'freezeCgroup" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'freezeCgroup" msg)
(Data.ProtoLens.Field "maybe'freezeCgroup" msg')
maybe'freezeCgroup
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'freezeCgroup")
maybe'ghostLimit ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'ghostLimit" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'ghostLimit" msg)
(Data.ProtoLens.Field "maybe'ghostLimit" msg')
maybe'ghostLimit
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'ghostLimit")
maybe'keepOpen ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'keepOpen" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'keepOpen" msg)
(Data.ProtoLens.Field "maybe'keepOpen" msg')
maybe'keepOpen
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'keepOpen")
maybe'leaveRunning ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'leaveRunning" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'leaveRunning" msg)
(Data.ProtoLens.Field "maybe'leaveRunning" msg')
maybe'leaveRunning
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'leaveRunning")
maybe'linkRemap ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'linkRemap" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'linkRemap" msg)
(Data.ProtoLens.Field "maybe'linkRemap" msg')
maybe'linkRemap
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'linkRemap")
maybe'logFile ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'logFile" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'logFile" msg)
(Data.ProtoLens.Field "maybe'logFile" msg')
maybe'logFile
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'logFile")
maybe'logLevel ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'logLevel" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'logLevel" msg)
(Data.ProtoLens.Field "maybe'logLevel" msg')
maybe'logLevel
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'logLevel")
maybe'manageCgroups ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'manageCgroups" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'manageCgroups" msg)
(Data.ProtoLens.Field "maybe'manageCgroups" msg')
maybe'manageCgroups
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'manageCgroups")
maybe'manageCgroupsMode ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'manageCgroupsMode" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'manageCgroupsMode" msg)
(Data.ProtoLens.Field "maybe'manageCgroupsMode" msg')
maybe'manageCgroupsMode
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'manageCgroupsMode")
maybe'memTrack ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'memTrack" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'memTrack" msg)
(Data.ProtoLens.Field "maybe'memTrack" msg')
maybe'memTrack
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'memTrack")
maybe'notify ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'notify" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'notify" msg)
(Data.ProtoLens.Field "maybe'notify" msg')
maybe'notify
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'notify")
maybe'notifyScripts ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'notifyScripts" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'notifyScripts" msg)
(Data.ProtoLens.Field "maybe'notifyScripts" msg')
maybe'notifyScripts
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'notifyScripts")
maybe'notifySuccess ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'notifySuccess" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'notifySuccess" msg)
(Data.ProtoLens.Field "maybe'notifySuccess" msg')
maybe'notifySuccess
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'notifySuccess")
maybe'opts ::
forall msg msg' . Data.ProtoLens.HasField "maybe'opts" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "maybe'opts" msg)
(Data.ProtoLens.Field "maybe'opts" msg')
maybe'opts
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'opts")
maybe'parentImg ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'parentImg" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'parentImg" msg)
(Data.ProtoLens.Field "maybe'parentImg" msg')
maybe'parentImg
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'parentImg")
maybe'pid ::
forall msg msg' . Data.ProtoLens.HasField "maybe'pid" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "maybe'pid" msg)
(Data.ProtoLens.Field "maybe'pid" msg')
maybe'pid
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'pid")
maybe'port ::
forall msg msg' . Data.ProtoLens.HasField "maybe'port" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "maybe'port" msg)
(Data.ProtoLens.Field "maybe'port" msg')
maybe'port
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'port")
maybe'ps ::
forall msg msg' . Data.ProtoLens.HasField "maybe'ps" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "maybe'ps" msg)
(Data.ProtoLens.Field "maybe'ps" msg')
maybe'ps
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'ps")
maybe'restore ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'restore" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'restore" msg)
(Data.ProtoLens.Field "maybe'restore" msg')
maybe'restore
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'restore")
maybe'restored ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'restored" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'restored" msg)
(Data.ProtoLens.Field "maybe'restored" msg')
maybe'restored
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'restored")
maybe'root ::
forall msg msg' . Data.ProtoLens.HasField "maybe'root" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "maybe'root" msg)
(Data.ProtoLens.Field "maybe'root" msg')
maybe'root
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'root")
maybe'rstSibling ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'rstSibling" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'rstSibling" msg)
(Data.ProtoLens.Field "maybe'rstSibling" msg')
maybe'rstSibling
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'rstSibling")
maybe'script ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'script" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'script" msg)
(Data.ProtoLens.Field "maybe'script" msg')
maybe'script
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'script")
maybe'shellJob ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'shellJob" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'shellJob" msg)
(Data.ProtoLens.Field "maybe'shellJob" msg')
maybe'shellJob
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'shellJob")
maybe'tcpEstablished ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'tcpEstablished" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'tcpEstablished" msg)
(Data.ProtoLens.Field "maybe'tcpEstablished" msg')
maybe'tcpEstablished
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'tcpEstablished")
maybe'tcpSkipInFlight ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'tcpSkipInFlight" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'tcpSkipInFlight" msg)
(Data.ProtoLens.Field "maybe'tcpSkipInFlight" msg')
maybe'tcpSkipInFlight
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'tcpSkipInFlight")
maybe'timeout ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'timeout" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'timeout" msg)
(Data.ProtoLens.Field "maybe'timeout" msg')
maybe'timeout
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'timeout")
maybe'trackMem ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'trackMem" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'trackMem" msg)
(Data.ProtoLens.Field "maybe'trackMem" msg')
maybe'trackMem
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'trackMem")
maybe'weakSysctls ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'weakSysctls" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'weakSysctls" msg)
(Data.ProtoLens.Field "maybe'weakSysctls" msg')
maybe'weakSysctls
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'weakSysctls")
maybe'workDirFd ::
forall msg msg' .
Data.ProtoLens.HasField "maybe'workDirFd" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "maybe'workDirFd" msg)
(Data.ProtoLens.Field "maybe'workDirFd" msg')
maybe'workDirFd
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "maybe'workDirFd")
memTrack ::
forall msg msg' . Data.ProtoLens.HasField "memTrack" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "memTrack" msg)
(Data.ProtoLens.Field "memTrack" msg')
memTrack
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "memTrack")
notify ::
forall msg msg' . Data.ProtoLens.HasField "notify" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "notify" msg)
(Data.ProtoLens.Field "notify" msg')
notify
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "notify")
notifyScripts ::
forall msg msg' .
Data.ProtoLens.HasField "notifyScripts" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "notifyScripts" msg)
(Data.ProtoLens.Field "notifyScripts" msg')
notifyScripts
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "notifyScripts")
notifySuccess ::
forall msg msg' .
Data.ProtoLens.HasField "notifySuccess" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "notifySuccess" msg)
(Data.ProtoLens.Field "notifySuccess" msg')
notifySuccess
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "notifySuccess")
ns ::
forall msg msg' . Data.ProtoLens.HasField "ns" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "ns" msg)
(Data.ProtoLens.Field "ns" msg')
ns
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "ns")
nsFile ::
forall msg msg' . Data.ProtoLens.HasField "nsFile" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "nsFile" msg)
(Data.ProtoLens.Field "nsFile" msg')
nsFile
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "nsFile")
opts ::
forall msg msg' . Data.ProtoLens.HasField "opts" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "opts" msg)
(Data.ProtoLens.Field "opts" msg')
opts
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "opts")
parentImg ::
forall msg msg' . Data.ProtoLens.HasField "parentImg" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "parentImg" msg)
(Data.ProtoLens.Field "parentImg" msg')
parentImg
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "parentImg")
path ::
forall msg msg' . Data.ProtoLens.HasField "path" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "path" msg)
(Data.ProtoLens.Field "path" msg')
path
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "path")
pid ::
forall msg msg' . Data.ProtoLens.HasField "pid" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "pid" msg)
(Data.ProtoLens.Field "pid" msg')
pid
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "pid")
port ::
forall msg msg' . Data.ProtoLens.HasField "port" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "port" msg)
(Data.ProtoLens.Field "port" msg')
port
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "port")
ps ::
forall msg msg' . Data.ProtoLens.HasField "ps" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "ps" msg)
(Data.ProtoLens.Field "ps" msg')
ps
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "ps")
restore ::
forall msg msg' . Data.ProtoLens.HasField "restore" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "restore" msg)
(Data.ProtoLens.Field "restore" msg')
restore
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "restore")
restored ::
forall msg msg' . Data.ProtoLens.HasField "restored" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "restored" msg)
(Data.ProtoLens.Field "restored" msg')
restored
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "restored")
root ::
forall msg msg' . Data.ProtoLens.HasField "root" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "root" msg)
(Data.ProtoLens.Field "root" msg')
root
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "root")
rstSibling ::
forall msg msg' . Data.ProtoLens.HasField "rstSibling" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "rstSibling" msg)
(Data.ProtoLens.Field "rstSibling" msg')
rstSibling
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "rstSibling")
script ::
forall msg msg' . Data.ProtoLens.HasField "script" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "script" msg)
(Data.ProtoLens.Field "script" msg')
script
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "script")
shellJob ::
forall msg msg' . Data.ProtoLens.HasField "shellJob" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "shellJob" msg)
(Data.ProtoLens.Field "shellJob" msg')
shellJob
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "shellJob")
skipMnt ::
forall msg msg' . Data.ProtoLens.HasField "skipMnt" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "skipMnt" msg)
(Data.ProtoLens.Field "skipMnt" msg')
skipMnt
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "skipMnt")
success ::
forall msg msg' . Data.ProtoLens.HasField "success" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "success" msg)
(Data.ProtoLens.Field "success" msg')
success
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "success")
tcpEstablished ::
forall msg msg' .
Data.ProtoLens.HasField "tcpEstablished" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "tcpEstablished" msg)
(Data.ProtoLens.Field "tcpEstablished" msg')
tcpEstablished
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "tcpEstablished")
tcpSkipInFlight ::
forall msg msg' .
Data.ProtoLens.HasField "tcpSkipInFlight" msg msg' =>
Lens.Family2.Lens msg msg'
(Data.ProtoLens.Field "tcpSkipInFlight" msg)
(Data.ProtoLens.Field "tcpSkipInFlight" msg')
tcpSkipInFlight
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym ::
Data.ProtoLens.ProxySym "tcpSkipInFlight")
timeout ::
forall msg msg' . Data.ProtoLens.HasField "timeout" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "timeout" msg)
(Data.ProtoLens.Field "timeout" msg')
timeout
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "timeout")
trackMem ::
forall msg msg' . Data.ProtoLens.HasField "trackMem" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "trackMem" msg)
(Data.ProtoLens.Field "trackMem" msg')
trackMem
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "trackMem")
type' ::
forall msg msg' . Data.ProtoLens.HasField "type'" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "type'" msg)
(Data.ProtoLens.Field "type'" msg')
type'
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "type'")
unixSkIno ::
forall msg msg' . Data.ProtoLens.HasField "unixSkIno" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "unixSkIno" msg)
(Data.ProtoLens.Field "unixSkIno" msg')
unixSkIno
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "unixSkIno")
val ::
forall msg msg' . Data.ProtoLens.HasField "val" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "val" msg)
(Data.ProtoLens.Field "val" msg')
val
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "val")
veths ::
forall msg msg' . Data.ProtoLens.HasField "veths" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "veths" msg)
(Data.ProtoLens.Field "veths" msg')
veths
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "veths")
weakSysctls ::
forall msg msg' . Data.ProtoLens.HasField "weakSysctls" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "weakSysctls" msg)
(Data.ProtoLens.Field "weakSysctls" msg')
weakSysctls
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "weakSysctls")
workDirFd ::
forall msg msg' . Data.ProtoLens.HasField "workDirFd" msg msg' =>
Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "workDirFd" msg)
(Data.ProtoLens.Field "workDirFd" msg')
workDirFd
= Data.ProtoLens.field
(Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "workDirFd")