#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.OSTree.Flags
(
ChecksumFlags(..) ,
DiffFlags(..) ,
RepoCommitModifierFlags(..) ,
RepoCommitState(..) ,
RepoCommitTraverseFlags(..) ,
RepoListObjectsFlags(..) ,
RepoListRefsExtFlags(..) ,
RepoPullFlags(..) ,
RepoResolveRevExtFlags(..) ,
SePolicyRestoreconFlags(..) ,
SysrootSimpleWriteDeploymentFlags(..) ,
SysrootUpgraderFlags(..) ,
SysrootUpgraderPullFlags(..) ,
) 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.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
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
import qualified GHC.OverloadedLabels as OL
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
| SysrootSimpleWriteDeploymentFlagsRetainPending
| SysrootSimpleWriteDeploymentFlagsRetainRollback
| AnotherSysrootSimpleWriteDeploymentFlags Int
deriving (Show, Eq)
instance P.Enum SysrootSimpleWriteDeploymentFlags where
fromEnum SysrootSimpleWriteDeploymentFlagsNone = 0
fromEnum SysrootSimpleWriteDeploymentFlagsRetain = 1
fromEnum SysrootSimpleWriteDeploymentFlagsNotDefault = 2
fromEnum SysrootSimpleWriteDeploymentFlagsNoClean = 4
fromEnum SysrootSimpleWriteDeploymentFlagsRetainPending = 8
fromEnum SysrootSimpleWriteDeploymentFlagsRetainRollback = 16
fromEnum (AnotherSysrootSimpleWriteDeploymentFlags k) = k
toEnum 0 = SysrootSimpleWriteDeploymentFlagsNone
toEnum 1 = SysrootSimpleWriteDeploymentFlagsRetain
toEnum 2 = SysrootSimpleWriteDeploymentFlagsNotDefault
toEnum 4 = SysrootSimpleWriteDeploymentFlagsNoClean
toEnum 8 = SysrootSimpleWriteDeploymentFlagsRetainPending
toEnum 16 = SysrootSimpleWriteDeploymentFlagsRetainRollback
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 RepoResolveRevExtFlags =
RepoResolveRevExtFlagsNone
| RepoResolveRevExtFlagsLocalOnly
| AnotherRepoResolveRevExtFlags Int
deriving (Show, Eq)
instance P.Enum RepoResolveRevExtFlags where
fromEnum RepoResolveRevExtFlagsNone = 0
fromEnum RepoResolveRevExtFlagsLocalOnly = 1
fromEnum (AnotherRepoResolveRevExtFlags k) = k
toEnum 0 = RepoResolveRevExtFlagsNone
toEnum 1 = RepoResolveRevExtFlagsLocalOnly
toEnum k = AnotherRepoResolveRevExtFlags k
instance P.Ord RepoResolveRevExtFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance IsGFlag RepoResolveRevExtFlags
data RepoPullFlags =
RepoPullFlagsNone
| RepoPullFlagsMirror
| RepoPullFlagsCommitOnly
| RepoPullFlagsUntrusted
| RepoPullFlagsBareuseronlyFiles
| RepoPullFlagsTrustedHttp
| AnotherRepoPullFlags Int
deriving (Show, Eq)
instance P.Enum RepoPullFlags where
fromEnum RepoPullFlagsNone = 0
fromEnum RepoPullFlagsMirror = 1
fromEnum RepoPullFlagsCommitOnly = 2
fromEnum RepoPullFlagsUntrusted = 4
fromEnum RepoPullFlagsBareuseronlyFiles = 8
fromEnum RepoPullFlagsTrustedHttp = 16
fromEnum (AnotherRepoPullFlags k) = k
toEnum 0 = RepoPullFlagsNone
toEnum 1 = RepoPullFlagsMirror
toEnum 2 = RepoPullFlagsCommitOnly
toEnum 4 = RepoPullFlagsUntrusted
toEnum 8 = RepoPullFlagsBareuseronlyFiles
toEnum 16 = RepoPullFlagsTrustedHttp
toEnum k = AnotherRepoPullFlags k
instance P.Ord RepoPullFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance IsGFlag RepoPullFlags
data RepoListRefsExtFlags =
RepoListRefsExtFlagsNone
| RepoListRefsExtFlagsAliases
| RepoListRefsExtFlagsExcludeRemotes
| RepoListRefsExtFlagsExcludeMirrors
| AnotherRepoListRefsExtFlags Int
deriving (Show, Eq)
instance P.Enum RepoListRefsExtFlags where
fromEnum RepoListRefsExtFlagsNone = 0
fromEnum RepoListRefsExtFlagsAliases = 1
fromEnum RepoListRefsExtFlagsExcludeRemotes = 2
fromEnum RepoListRefsExtFlagsExcludeMirrors = 4
fromEnum (AnotherRepoListRefsExtFlags k) = k
toEnum 0 = RepoListRefsExtFlagsNone
toEnum 1 = RepoListRefsExtFlagsAliases
toEnum 2 = RepoListRefsExtFlagsExcludeRemotes
toEnum 4 = RepoListRefsExtFlagsExcludeMirrors
toEnum k = AnotherRepoListRefsExtFlags k
instance P.Ord RepoListRefsExtFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance IsGFlag RepoListRefsExtFlags
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 =
RepoCommitStateNormal
| RepoCommitStatePartial
| AnotherRepoCommitState Int
deriving (Show, Eq)
instance P.Enum RepoCommitState where
fromEnum RepoCommitStateNormal = 0
fromEnum RepoCommitStatePartial = 1
fromEnum (AnotherRepoCommitState k) = k
toEnum 0 = RepoCommitStateNormal
toEnum 1 = RepoCommitStatePartial
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
| RepoCommitModifierFlagsCanonicalPermissions
| RepoCommitModifierFlagsErrorOnUnlabeled
| RepoCommitModifierFlagsConsume
| RepoCommitModifierFlagsDevinoCanonical
| AnotherRepoCommitModifierFlags Int
deriving (Show, Eq)
instance P.Enum RepoCommitModifierFlags where
fromEnum RepoCommitModifierFlagsNone = 0
fromEnum RepoCommitModifierFlagsSkipXattrs = 1
fromEnum RepoCommitModifierFlagsGenerateSizes = 2
fromEnum RepoCommitModifierFlagsCanonicalPermissions = 4
fromEnum RepoCommitModifierFlagsErrorOnUnlabeled = 8
fromEnum RepoCommitModifierFlagsConsume = 16
fromEnum RepoCommitModifierFlagsDevinoCanonical = 32
fromEnum (AnotherRepoCommitModifierFlags k) = k
toEnum 0 = RepoCommitModifierFlagsNone
toEnum 1 = RepoCommitModifierFlagsSkipXattrs
toEnum 2 = RepoCommitModifierFlagsGenerateSizes
toEnum 4 = RepoCommitModifierFlagsCanonicalPermissions
toEnum 8 = RepoCommitModifierFlagsErrorOnUnlabeled
toEnum 16 = RepoCommitModifierFlagsConsume
toEnum 32 = RepoCommitModifierFlagsDevinoCanonical
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
data ChecksumFlags =
ChecksumFlagsNone
| ChecksumFlagsIgnoreXattrs
| AnotherChecksumFlags Int
deriving (Show, Eq)
instance P.Enum ChecksumFlags where
fromEnum ChecksumFlagsNone = 0
fromEnum ChecksumFlagsIgnoreXattrs = 1
fromEnum (AnotherChecksumFlags k) = k
toEnum 0 = ChecksumFlagsNone
toEnum 1 = ChecksumFlagsIgnoreXattrs
toEnum k = AnotherChecksumFlags k
instance P.Ord ChecksumFlags where
compare a b = P.compare (P.fromEnum a) (P.fromEnum b)
instance IsGFlag ChecksumFlags