module GI.OSTree.Flags
(
SysrootUpgraderPullFlags(..) ,
SysrootUpgraderFlags(..) ,
SysrootSimpleWriteDeploymentFlags(..) ,
SePolicyRestoreconFlags(..) ,
RepoPullFlags(..) ,
RepoListObjectsFlags(..) ,
RepoCommitTraverseFlags(..) ,
RepoCommitState(..) ,
RepoCommitModifierFlags(..) ,
DiffFlags(..) ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
data SysrootUpgraderPullFlags =
SysrootUpgraderPullFlagsNone
| SysrootUpgraderPullFlagsAllowOlder
| SysrootUpgraderPullFlagsSynthetic
| AnotherSysrootUpgraderPullFlags Int
deriving (Show, Eq)
instance P.Enum SysrootUpgraderPullFlags where
fromEnum SysrootUpgraderPullFlagsNone = 0
fromEnum SysrootUpgraderPullFlagsAllowOlder = 1
fromEnum SysrootUpgraderPullFlagsSynthetic = 2
fromEnum (AnotherSysrootUpgraderPullFlags k) = k
toEnum 0 = SysrootUpgraderPullFlagsNone
toEnum 1 = SysrootUpgraderPullFlagsAllowOlder
toEnum 2 = SysrootUpgraderPullFlagsSynthetic
toEnum k = AnotherSysrootUpgraderPullFlags k
instance P.Ord SysrootUpgraderPullFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance IsGFlag SysrootUpgraderPullFlags
data SysrootUpgraderFlags =
SysrootUpgraderFlagsIgnoreUnconfigured
| AnotherSysrootUpgraderFlags Int
deriving (Show, Eq)
instance P.Enum SysrootUpgraderFlags where
fromEnum SysrootUpgraderFlagsIgnoreUnconfigured = 2
fromEnum (AnotherSysrootUpgraderFlags k) = k
toEnum 2 = SysrootUpgraderFlagsIgnoreUnconfigured
toEnum k = AnotherSysrootUpgraderFlags k
instance P.Ord SysrootUpgraderFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
foreign import ccall "ostree_sysroot_upgrader_flags_get_type" c_ostree_sysroot_upgrader_flags_get_type ::
IO GType
instance BoxedFlags SysrootUpgraderFlags where
boxedFlagsType _ = c_ostree_sysroot_upgrader_flags_get_type
instance IsGFlag SysrootUpgraderFlags
data SysrootSimpleWriteDeploymentFlags =
SysrootSimpleWriteDeploymentFlagsNone
| SysrootSimpleWriteDeploymentFlagsRetain
| SysrootSimpleWriteDeploymentFlagsNotDefault
| SysrootSimpleWriteDeploymentFlagsNoClean
| AnotherSysrootSimpleWriteDeploymentFlags Int
deriving (Show, Eq)
instance P.Enum SysrootSimpleWriteDeploymentFlags where
fromEnum SysrootSimpleWriteDeploymentFlagsNone = 0
fromEnum SysrootSimpleWriteDeploymentFlagsRetain = 1
fromEnum SysrootSimpleWriteDeploymentFlagsNotDefault = 2
fromEnum SysrootSimpleWriteDeploymentFlagsNoClean = 4
fromEnum (AnotherSysrootSimpleWriteDeploymentFlags k) = k
toEnum 0 = SysrootSimpleWriteDeploymentFlagsNone
toEnum 1 = SysrootSimpleWriteDeploymentFlagsRetain
toEnum 2 = SysrootSimpleWriteDeploymentFlagsNotDefault
toEnum 4 = SysrootSimpleWriteDeploymentFlagsNoClean
toEnum k = AnotherSysrootSimpleWriteDeploymentFlags k
instance P.Ord SysrootSimpleWriteDeploymentFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance IsGFlag SysrootSimpleWriteDeploymentFlags
data SePolicyRestoreconFlags =
SePolicyRestoreconFlagsNone
| SePolicyRestoreconFlagsAllowNolabel
| SePolicyRestoreconFlagsKeepExisting
| AnotherSePolicyRestoreconFlags Int
deriving (Show, Eq)
instance P.Enum SePolicyRestoreconFlags where
fromEnum SePolicyRestoreconFlagsNone = 0
fromEnum SePolicyRestoreconFlagsAllowNolabel = 1
fromEnum SePolicyRestoreconFlagsKeepExisting = 2
fromEnum (AnotherSePolicyRestoreconFlags k) = k
toEnum 0 = SePolicyRestoreconFlagsNone
toEnum 1 = SePolicyRestoreconFlagsAllowNolabel
toEnum 2 = SePolicyRestoreconFlagsKeepExisting
toEnum k = AnotherSePolicyRestoreconFlags k
instance P.Ord SePolicyRestoreconFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance IsGFlag SePolicyRestoreconFlags
data RepoPullFlags =
RepoPullFlagsNone
| RepoPullFlagsMirror
| RepoPullFlagsCommitOnly
| RepoPullFlagsUntrusted
| AnotherRepoPullFlags Int
deriving (Show, Eq)
instance P.Enum RepoPullFlags where
fromEnum RepoPullFlagsNone = 0
fromEnum RepoPullFlagsMirror = 1
fromEnum RepoPullFlagsCommitOnly = 2
fromEnum RepoPullFlagsUntrusted = 4
fromEnum (AnotherRepoPullFlags k) = k
toEnum 0 = RepoPullFlagsNone
toEnum 1 = RepoPullFlagsMirror
toEnum 2 = RepoPullFlagsCommitOnly
toEnum 4 = RepoPullFlagsUntrusted
toEnum k = AnotherRepoPullFlags k
instance P.Ord RepoPullFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance IsGFlag RepoPullFlags
data RepoListObjectsFlags =
RepoListObjectsFlagsLoose
| RepoListObjectsFlagsPacked
| RepoListObjectsFlagsAll
| RepoListObjectsFlagsNoParents
| AnotherRepoListObjectsFlags Int
deriving (Show, Eq)
instance P.Enum RepoListObjectsFlags where
fromEnum RepoListObjectsFlagsLoose = 1
fromEnum RepoListObjectsFlagsPacked = 2
fromEnum RepoListObjectsFlagsAll = 4
fromEnum RepoListObjectsFlagsNoParents = 8
fromEnum (AnotherRepoListObjectsFlags k) = k
toEnum 1 = RepoListObjectsFlagsLoose
toEnum 2 = RepoListObjectsFlagsPacked
toEnum 4 = RepoListObjectsFlagsAll
toEnum 8 = RepoListObjectsFlagsNoParents
toEnum k = AnotherRepoListObjectsFlags k
instance P.Ord RepoListObjectsFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance IsGFlag RepoListObjectsFlags
data RepoCommitTraverseFlags =
RepoCommitTraverseFlagsRepoCommitTraverseFlagNone
| AnotherRepoCommitTraverseFlags Int
deriving (Show, Eq)
instance P.Enum RepoCommitTraverseFlags where
fromEnum RepoCommitTraverseFlagsRepoCommitTraverseFlagNone = 1
fromEnum (AnotherRepoCommitTraverseFlags k) = k
toEnum 1 = RepoCommitTraverseFlagsRepoCommitTraverseFlagNone
toEnum k = AnotherRepoCommitTraverseFlags k
instance P.Ord RepoCommitTraverseFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance IsGFlag RepoCommitTraverseFlags
data RepoCommitState =
RepoCommitStateRepoCommitStatePartial
| AnotherRepoCommitState Int
deriving (Show, Eq)
instance P.Enum RepoCommitState where
fromEnum RepoCommitStateRepoCommitStatePartial = 1
fromEnum (AnotherRepoCommitState k) = k
toEnum 1 = RepoCommitStateRepoCommitStatePartial
toEnum k = AnotherRepoCommitState k
instance P.Ord RepoCommitState where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance IsGFlag RepoCommitState
data RepoCommitModifierFlags =
RepoCommitModifierFlagsNone
| RepoCommitModifierFlagsSkipXattrs
| RepoCommitModifierFlagsGenerateSizes
| AnotherRepoCommitModifierFlags Int
deriving (Show, Eq)
instance P.Enum RepoCommitModifierFlags where
fromEnum RepoCommitModifierFlagsNone = 0
fromEnum RepoCommitModifierFlagsSkipXattrs = 1
fromEnum RepoCommitModifierFlagsGenerateSizes = 2
fromEnum (AnotherRepoCommitModifierFlags k) = k
toEnum 0 = RepoCommitModifierFlagsNone
toEnum 1 = RepoCommitModifierFlagsSkipXattrs
toEnum 2 = RepoCommitModifierFlagsGenerateSizes
toEnum k = AnotherRepoCommitModifierFlags k
instance P.Ord RepoCommitModifierFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance IsGFlag RepoCommitModifierFlags
data DiffFlags =
DiffFlagsNone
| DiffFlagsIgnoreXattrs
| AnotherDiffFlags Int
deriving (Show, Eq)
instance P.Enum DiffFlags where
fromEnum DiffFlagsNone = 0
fromEnum DiffFlagsIgnoreXattrs = 1
fromEnum (AnotherDiffFlags k) = k
toEnum 0 = DiffFlagsNone
toEnum 1 = DiffFlagsIgnoreXattrs
toEnum k = AnotherDiffFlags k
instance P.Ord DiffFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance IsGFlag DiffFlags