{- This file was auto-generated from criu/rpc.proto by the proto-lens-protoc program. -} {-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms #-} {-# OPTIONS_GHC -fno-warn-unused-imports#-} 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")