{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.OSTree.Objects.Deployment
(
Deployment(..) ,
IsDeployment ,
toDeployment ,
noDeployment ,
#if defined(ENABLE_OVERLOADING)
ResolveDeploymentMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DeploymentCloneMethodInfo ,
#endif
deploymentClone ,
#if defined(ENABLE_OVERLOADING)
DeploymentEqualMethodInfo ,
#endif
deploymentEqual ,
#if defined(ENABLE_OVERLOADING)
DeploymentGetBootconfigMethodInfo ,
#endif
deploymentGetBootconfig ,
#if defined(ENABLE_OVERLOADING)
DeploymentGetBootcsumMethodInfo ,
#endif
deploymentGetBootcsum ,
#if defined(ENABLE_OVERLOADING)
DeploymentGetBootserialMethodInfo ,
#endif
deploymentGetBootserial ,
#if defined(ENABLE_OVERLOADING)
DeploymentGetCsumMethodInfo ,
#endif
deploymentGetCsum ,
#if defined(ENABLE_OVERLOADING)
DeploymentGetDeployserialMethodInfo ,
#endif
deploymentGetDeployserial ,
#if defined(ENABLE_OVERLOADING)
DeploymentGetIndexMethodInfo ,
#endif
deploymentGetIndex ,
#if defined(ENABLE_OVERLOADING)
DeploymentGetOriginMethodInfo ,
#endif
deploymentGetOrigin ,
#if defined(ENABLE_OVERLOADING)
DeploymentGetOriginRelpathMethodInfo ,
#endif
deploymentGetOriginRelpath ,
#if defined(ENABLE_OVERLOADING)
DeploymentGetOsnameMethodInfo ,
#endif
deploymentGetOsname ,
#if defined(ENABLE_OVERLOADING)
DeploymentGetUnlockedMethodInfo ,
#endif
deploymentGetUnlocked ,
deploymentHash ,
#if defined(ENABLE_OVERLOADING)
DeploymentIsPinnedMethodInfo ,
#endif
deploymentIsPinned ,
#if defined(ENABLE_OVERLOADING)
DeploymentIsStagedMethodInfo ,
#endif
deploymentIsStaged ,
deploymentNew ,
deploymentOriginRemoveTransientState ,
#if defined(ENABLE_OVERLOADING)
DeploymentSetBootconfigMethodInfo ,
#endif
deploymentSetBootconfig ,
#if defined(ENABLE_OVERLOADING)
DeploymentSetBootserialMethodInfo ,
#endif
deploymentSetBootserial ,
#if defined(ENABLE_OVERLOADING)
DeploymentSetIndexMethodInfo ,
#endif
deploymentSetIndex ,
#if defined(ENABLE_OVERLOADING)
DeploymentSetOriginMethodInfo ,
#endif
deploymentSetOrigin ,
deploymentUnlockedStateToString ,
) 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.GI.Base.Signals as B.Signals
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
import qualified GI.GLib.Structs.KeyFile as GLib.KeyFile
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.OSTree.Enums as OSTree.Enums
import {-# SOURCE #-} qualified GI.OSTree.Objects.BootconfigParser as OSTree.BootconfigParser
newtype Deployment = Deployment (ManagedPtr Deployment)
deriving (Deployment -> Deployment -> Bool
(Deployment -> Deployment -> Bool)
-> (Deployment -> Deployment -> Bool) -> Eq Deployment
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Deployment -> Deployment -> Bool
$c/= :: Deployment -> Deployment -> Bool
== :: Deployment -> Deployment -> Bool
$c== :: Deployment -> Deployment -> Bool
Eq)
foreign import ccall "ostree_deployment_get_type"
c_ostree_deployment_get_type :: IO GType
instance GObject Deployment where
gobjectType :: IO GType
gobjectType = IO GType
c_ostree_deployment_get_type
instance B.GValue.IsGValue Deployment where
toGValue :: Deployment -> IO GValue
toGValue o :: Deployment
o = do
GType
gtype <- IO GType
c_ostree_deployment_get_type
Deployment -> (Ptr Deployment -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Deployment
o (GType
-> (GValue -> Ptr Deployment -> IO ())
-> Ptr Deployment
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr Deployment -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO Deployment
fromGValue gv :: GValue
gv = do
Ptr Deployment
ptr <- GValue -> IO (Ptr Deployment)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr Deployment)
(ManagedPtr Deployment -> Deployment)
-> Ptr Deployment -> IO Deployment
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Deployment -> Deployment
Deployment Ptr Deployment
ptr
class (GObject o, O.IsDescendantOf Deployment o) => IsDeployment o
instance (GObject o, O.IsDescendantOf Deployment o) => IsDeployment o
instance O.HasParentTypes Deployment
type instance O.ParentTypes Deployment = '[GObject.Object.Object]
toDeployment :: (MonadIO m, IsDeployment o) => o -> m Deployment
toDeployment :: o -> m Deployment
toDeployment = IO Deployment -> m Deployment
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Deployment -> m Deployment)
-> (o -> IO Deployment) -> o -> m Deployment
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Deployment -> Deployment) -> o -> IO Deployment
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr Deployment -> Deployment
Deployment
noDeployment :: Maybe Deployment
noDeployment :: Maybe Deployment
noDeployment = Maybe Deployment
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDeploymentMethod (t :: Symbol) (o :: *) :: * where
ResolveDeploymentMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDeploymentMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDeploymentMethod "clone" o = DeploymentCloneMethodInfo
ResolveDeploymentMethod "equal" o = DeploymentEqualMethodInfo
ResolveDeploymentMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDeploymentMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDeploymentMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDeploymentMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDeploymentMethod "isPinned" o = DeploymentIsPinnedMethodInfo
ResolveDeploymentMethod "isStaged" o = DeploymentIsStagedMethodInfo
ResolveDeploymentMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDeploymentMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDeploymentMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDeploymentMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDeploymentMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDeploymentMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDeploymentMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDeploymentMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDeploymentMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDeploymentMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDeploymentMethod "getBootconfig" o = DeploymentGetBootconfigMethodInfo
ResolveDeploymentMethod "getBootcsum" o = DeploymentGetBootcsumMethodInfo
ResolveDeploymentMethod "getBootserial" o = DeploymentGetBootserialMethodInfo
ResolveDeploymentMethod "getCsum" o = DeploymentGetCsumMethodInfo
ResolveDeploymentMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDeploymentMethod "getDeployserial" o = DeploymentGetDeployserialMethodInfo
ResolveDeploymentMethod "getIndex" o = DeploymentGetIndexMethodInfo
ResolveDeploymentMethod "getOrigin" o = DeploymentGetOriginMethodInfo
ResolveDeploymentMethod "getOriginRelpath" o = DeploymentGetOriginRelpathMethodInfo
ResolveDeploymentMethod "getOsname" o = DeploymentGetOsnameMethodInfo
ResolveDeploymentMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDeploymentMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDeploymentMethod "getUnlocked" o = DeploymentGetUnlockedMethodInfo
ResolveDeploymentMethod "setBootconfig" o = DeploymentSetBootconfigMethodInfo
ResolveDeploymentMethod "setBootserial" o = DeploymentSetBootserialMethodInfo
ResolveDeploymentMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDeploymentMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDeploymentMethod "setIndex" o = DeploymentSetIndexMethodInfo
ResolveDeploymentMethod "setOrigin" o = DeploymentSetOriginMethodInfo
ResolveDeploymentMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDeploymentMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDeploymentMethod t Deployment, O.MethodInfo info Deployment p) => OL.IsLabel t (Deployment -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Deployment
type instance O.AttributeList Deployment = DeploymentAttributeList
type DeploymentAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Deployment = DeploymentSignalList
type DeploymentSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "ostree_deployment_new" ostree_deployment_new ::
Int32 ->
CString ->
CString ->
Int32 ->
CString ->
Int32 ->
IO (Ptr Deployment)
deploymentNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
Int32
-> T.Text
-> T.Text
-> Int32
-> T.Text
-> Int32
-> m Deployment
deploymentNew :: Int32 -> Text -> Text -> Int32 -> Text -> Int32 -> m Deployment
deploymentNew index :: Int32
index osname :: Text
osname csum :: Text
csum deployserial :: Int32
deployserial bootcsum :: Text
bootcsum bootserial :: Int32
bootserial = IO Deployment -> m Deployment
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Deployment -> m Deployment) -> IO Deployment -> m Deployment
forall a b. (a -> b) -> a -> b
$ do
CString
osname' <- Text -> IO CString
textToCString Text
osname
CString
csum' <- Text -> IO CString
textToCString Text
csum
CString
bootcsum' <- Text -> IO CString
textToCString Text
bootcsum
Ptr Deployment
result <- Int32
-> CString
-> CString
-> Int32
-> CString
-> Int32
-> IO (Ptr Deployment)
ostree_deployment_new Int32
index CString
osname' CString
csum' Int32
deployserial CString
bootcsum' Int32
bootserial
Text -> Ptr Deployment -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "deploymentNew" Ptr Deployment
result
Deployment
result' <- ((ManagedPtr Deployment -> Deployment)
-> Ptr Deployment -> IO Deployment
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Deployment -> Deployment
Deployment) Ptr Deployment
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
osname'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
csum'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
bootcsum'
Deployment -> IO Deployment
forall (m :: * -> *) a. Monad m => a -> m a
return Deployment
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "ostree_deployment_clone" ostree_deployment_clone ::
Ptr Deployment ->
IO (Ptr Deployment)
deploymentClone ::
(B.CallStack.HasCallStack, MonadIO m, IsDeployment a) =>
a
-> m Deployment
deploymentClone :: a -> m Deployment
deploymentClone self :: a
self = IO Deployment -> m Deployment
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Deployment -> m Deployment) -> IO Deployment -> m Deployment
forall a b. (a -> b) -> a -> b
$ do
Ptr Deployment
self' <- a -> IO (Ptr Deployment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Deployment
result <- Ptr Deployment -> IO (Ptr Deployment)
ostree_deployment_clone Ptr Deployment
self'
Text -> Ptr Deployment -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "deploymentClone" Ptr Deployment
result
Deployment
result' <- ((ManagedPtr Deployment -> Deployment)
-> Ptr Deployment -> IO Deployment
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Deployment -> Deployment
Deployment) Ptr Deployment
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Deployment -> IO Deployment
forall (m :: * -> *) a. Monad m => a -> m a
return Deployment
result'
#if defined(ENABLE_OVERLOADING)
data DeploymentCloneMethodInfo
instance (signature ~ (m Deployment), MonadIO m, IsDeployment a) => O.MethodInfo DeploymentCloneMethodInfo a signature where
overloadedMethod = deploymentClone
#endif
foreign import ccall "ostree_deployment_equal" ostree_deployment_equal ::
Ptr Deployment ->
Ptr Deployment ->
IO CInt
deploymentEqual ::
(B.CallStack.HasCallStack, MonadIO m, IsDeployment a, IsDeployment b) =>
a
-> b
-> m Bool
deploymentEqual :: a -> b -> m Bool
deploymentEqual ap :: a
ap bp :: b
bp = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Deployment
ap' <- a -> IO (Ptr Deployment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
ap
Ptr Deployment
bp' <- b -> IO (Ptr Deployment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
bp
CInt
result <- Ptr Deployment -> Ptr Deployment -> IO CInt
ostree_deployment_equal Ptr Deployment
ap' Ptr Deployment
bp'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
ap
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
bp
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DeploymentEqualMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsDeployment a, IsDeployment b) => O.MethodInfo DeploymentEqualMethodInfo a signature where
overloadedMethod = deploymentEqual
#endif
foreign import ccall "ostree_deployment_get_bootconfig" ostree_deployment_get_bootconfig ::
Ptr Deployment ->
IO (Ptr OSTree.BootconfigParser.BootconfigParser)
deploymentGetBootconfig ::
(B.CallStack.HasCallStack, MonadIO m, IsDeployment a) =>
a
-> m OSTree.BootconfigParser.BootconfigParser
deploymentGetBootconfig :: a -> m BootconfigParser
deploymentGetBootconfig self :: a
self = IO BootconfigParser -> m BootconfigParser
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO BootconfigParser -> m BootconfigParser)
-> IO BootconfigParser -> m BootconfigParser
forall a b. (a -> b) -> a -> b
$ do
Ptr Deployment
self' <- a -> IO (Ptr Deployment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr BootconfigParser
result <- Ptr Deployment -> IO (Ptr BootconfigParser)
ostree_deployment_get_bootconfig Ptr Deployment
self'
Text -> Ptr BootconfigParser -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "deploymentGetBootconfig" Ptr BootconfigParser
result
BootconfigParser
result' <- ((ManagedPtr BootconfigParser -> BootconfigParser)
-> Ptr BootconfigParser -> IO BootconfigParser
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr BootconfigParser -> BootconfigParser
OSTree.BootconfigParser.BootconfigParser) Ptr BootconfigParser
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
BootconfigParser -> IO BootconfigParser
forall (m :: * -> *) a. Monad m => a -> m a
return BootconfigParser
result'
#if defined(ENABLE_OVERLOADING)
data DeploymentGetBootconfigMethodInfo
instance (signature ~ (m OSTree.BootconfigParser.BootconfigParser), MonadIO m, IsDeployment a) => O.MethodInfo DeploymentGetBootconfigMethodInfo a signature where
overloadedMethod = deploymentGetBootconfig
#endif
foreign import ccall "ostree_deployment_get_bootcsum" ostree_deployment_get_bootcsum ::
Ptr Deployment ->
IO CString
deploymentGetBootcsum ::
(B.CallStack.HasCallStack, MonadIO m, IsDeployment a) =>
a
-> m T.Text
deploymentGetBootcsum :: a -> m Text
deploymentGetBootcsum self :: a
self = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Deployment
self' <- a -> IO (Ptr Deployment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr Deployment -> IO CString
ostree_deployment_get_bootcsum Ptr Deployment
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "deploymentGetBootcsum" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DeploymentGetBootcsumMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDeployment a) => O.MethodInfo DeploymentGetBootcsumMethodInfo a signature where
overloadedMethod = deploymentGetBootcsum
#endif
foreign import ccall "ostree_deployment_get_bootserial" ostree_deployment_get_bootserial ::
Ptr Deployment ->
IO Int32
deploymentGetBootserial ::
(B.CallStack.HasCallStack, MonadIO m, IsDeployment a) =>
a
-> m Int32
deploymentGetBootserial :: a -> m Int32
deploymentGetBootserial self :: a
self = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Deployment
self' <- a -> IO (Ptr Deployment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Int32
result <- Ptr Deployment -> IO Int32
ostree_deployment_get_bootserial Ptr Deployment
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data DeploymentGetBootserialMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsDeployment a) => O.MethodInfo DeploymentGetBootserialMethodInfo a signature where
overloadedMethod = deploymentGetBootserial
#endif
foreign import ccall "ostree_deployment_get_csum" ostree_deployment_get_csum ::
Ptr Deployment ->
IO CString
deploymentGetCsum ::
(B.CallStack.HasCallStack, MonadIO m, IsDeployment a) =>
a
-> m T.Text
deploymentGetCsum :: a -> m Text
deploymentGetCsum self :: a
self = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Deployment
self' <- a -> IO (Ptr Deployment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr Deployment -> IO CString
ostree_deployment_get_csum Ptr Deployment
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "deploymentGetCsum" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DeploymentGetCsumMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDeployment a) => O.MethodInfo DeploymentGetCsumMethodInfo a signature where
overloadedMethod = deploymentGetCsum
#endif
foreign import ccall "ostree_deployment_get_deployserial" ostree_deployment_get_deployserial ::
Ptr Deployment ->
IO Int32
deploymentGetDeployserial ::
(B.CallStack.HasCallStack, MonadIO m, IsDeployment a) =>
a
-> m Int32
deploymentGetDeployserial :: a -> m Int32
deploymentGetDeployserial self :: a
self = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Deployment
self' <- a -> IO (Ptr Deployment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Int32
result <- Ptr Deployment -> IO Int32
ostree_deployment_get_deployserial Ptr Deployment
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data DeploymentGetDeployserialMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsDeployment a) => O.MethodInfo DeploymentGetDeployserialMethodInfo a signature where
overloadedMethod = deploymentGetDeployserial
#endif
foreign import ccall "ostree_deployment_get_index" ostree_deployment_get_index ::
Ptr Deployment ->
IO Int32
deploymentGetIndex ::
(B.CallStack.HasCallStack, MonadIO m, IsDeployment a) =>
a
-> m Int32
deploymentGetIndex :: a -> m Int32
deploymentGetIndex self :: a
self = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Deployment
self' <- a -> IO (Ptr Deployment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Int32
result <- Ptr Deployment -> IO Int32
ostree_deployment_get_index Ptr Deployment
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data DeploymentGetIndexMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsDeployment a) => O.MethodInfo DeploymentGetIndexMethodInfo a signature where
overloadedMethod = deploymentGetIndex
#endif
foreign import ccall "ostree_deployment_get_origin" ostree_deployment_get_origin ::
Ptr Deployment ->
IO (Ptr GLib.KeyFile.KeyFile)
deploymentGetOrigin ::
(B.CallStack.HasCallStack, MonadIO m, IsDeployment a) =>
a
-> m GLib.KeyFile.KeyFile
deploymentGetOrigin :: a -> m KeyFile
deploymentGetOrigin self :: a
self = IO KeyFile -> m KeyFile
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO KeyFile -> m KeyFile) -> IO KeyFile -> m KeyFile
forall a b. (a -> b) -> a -> b
$ do
Ptr Deployment
self' <- a -> IO (Ptr Deployment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr KeyFile
result <- Ptr Deployment -> IO (Ptr KeyFile)
ostree_deployment_get_origin Ptr Deployment
self'
Text -> Ptr KeyFile -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "deploymentGetOrigin" Ptr KeyFile
result
KeyFile
result' <- ((ManagedPtr KeyFile -> KeyFile) -> Ptr KeyFile -> IO KeyFile
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr KeyFile -> KeyFile
GLib.KeyFile.KeyFile) Ptr KeyFile
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
KeyFile -> IO KeyFile
forall (m :: * -> *) a. Monad m => a -> m a
return KeyFile
result'
#if defined(ENABLE_OVERLOADING)
data DeploymentGetOriginMethodInfo
instance (signature ~ (m GLib.KeyFile.KeyFile), MonadIO m, IsDeployment a) => O.MethodInfo DeploymentGetOriginMethodInfo a signature where
overloadedMethod = deploymentGetOrigin
#endif
foreign import ccall "ostree_deployment_get_origin_relpath" ostree_deployment_get_origin_relpath ::
Ptr Deployment ->
IO CString
deploymentGetOriginRelpath ::
(B.CallStack.HasCallStack, MonadIO m, IsDeployment a) =>
a
-> m T.Text
deploymentGetOriginRelpath :: a -> m Text
deploymentGetOriginRelpath self :: a
self = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Deployment
self' <- a -> IO (Ptr Deployment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr Deployment -> IO CString
ostree_deployment_get_origin_relpath Ptr Deployment
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "deploymentGetOriginRelpath" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DeploymentGetOriginRelpathMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDeployment a) => O.MethodInfo DeploymentGetOriginRelpathMethodInfo a signature where
overloadedMethod = deploymentGetOriginRelpath
#endif
foreign import ccall "ostree_deployment_get_osname" ostree_deployment_get_osname ::
Ptr Deployment ->
IO CString
deploymentGetOsname ::
(B.CallStack.HasCallStack, MonadIO m, IsDeployment a) =>
a
-> m T.Text
deploymentGetOsname :: a -> m Text
deploymentGetOsname self :: a
self = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Deployment
self' <- a -> IO (Ptr Deployment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr Deployment -> IO CString
ostree_deployment_get_osname Ptr Deployment
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "deploymentGetOsname" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DeploymentGetOsnameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDeployment a) => O.MethodInfo DeploymentGetOsnameMethodInfo a signature where
overloadedMethod = deploymentGetOsname
#endif
foreign import ccall "ostree_deployment_get_unlocked" ostree_deployment_get_unlocked ::
Ptr Deployment ->
IO CUInt
deploymentGetUnlocked ::
(B.CallStack.HasCallStack, MonadIO m, IsDeployment a) =>
a
-> m OSTree.Enums.DeploymentUnlockedState
deploymentGetUnlocked :: a -> m DeploymentUnlockedState
deploymentGetUnlocked self :: a
self = IO DeploymentUnlockedState -> m DeploymentUnlockedState
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DeploymentUnlockedState -> m DeploymentUnlockedState)
-> IO DeploymentUnlockedState -> m DeploymentUnlockedState
forall a b. (a -> b) -> a -> b
$ do
Ptr Deployment
self' <- a -> IO (Ptr Deployment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CUInt
result <- Ptr Deployment -> IO CUInt
ostree_deployment_get_unlocked Ptr Deployment
self'
let result' :: DeploymentUnlockedState
result' = (Int -> DeploymentUnlockedState
forall a. Enum a => Int -> a
toEnum (Int -> DeploymentUnlockedState)
-> (CUInt -> Int) -> CUInt -> DeploymentUnlockedState
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DeploymentUnlockedState -> IO DeploymentUnlockedState
forall (m :: * -> *) a. Monad m => a -> m a
return DeploymentUnlockedState
result'
#if defined(ENABLE_OVERLOADING)
data DeploymentGetUnlockedMethodInfo
instance (signature ~ (m OSTree.Enums.DeploymentUnlockedState), MonadIO m, IsDeployment a) => O.MethodInfo DeploymentGetUnlockedMethodInfo a signature where
overloadedMethod = deploymentGetUnlocked
#endif
foreign import ccall "ostree_deployment_is_pinned" ostree_deployment_is_pinned ::
Ptr Deployment ->
IO CInt
deploymentIsPinned ::
(B.CallStack.HasCallStack, MonadIO m, IsDeployment a) =>
a
-> m Bool
deploymentIsPinned :: a -> m Bool
deploymentIsPinned self :: a
self = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Deployment
self' <- a -> IO (Ptr Deployment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Deployment -> IO CInt
ostree_deployment_is_pinned Ptr Deployment
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DeploymentIsPinnedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDeployment a) => O.MethodInfo DeploymentIsPinnedMethodInfo a signature where
overloadedMethod = deploymentIsPinned
#endif
foreign import ccall "ostree_deployment_is_staged" ostree_deployment_is_staged ::
Ptr Deployment ->
IO CInt
deploymentIsStaged ::
(B.CallStack.HasCallStack, MonadIO m, IsDeployment a) =>
a
-> m Bool
deploymentIsStaged :: a -> m Bool
deploymentIsStaged self :: a
self = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Deployment
self' <- a -> IO (Ptr Deployment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr Deployment -> IO CInt
ostree_deployment_is_staged Ptr Deployment
self'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= 0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data DeploymentIsStagedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDeployment a) => O.MethodInfo DeploymentIsStagedMethodInfo a signature where
overloadedMethod = deploymentIsStaged
#endif
foreign import ccall "ostree_deployment_set_bootconfig" ostree_deployment_set_bootconfig ::
Ptr Deployment ->
Ptr OSTree.BootconfigParser.BootconfigParser ->
IO ()
deploymentSetBootconfig ::
(B.CallStack.HasCallStack, MonadIO m, IsDeployment a, OSTree.BootconfigParser.IsBootconfigParser b) =>
a
-> b
-> m ()
deploymentSetBootconfig :: a -> b -> m ()
deploymentSetBootconfig self :: a
self bootconfig :: b
bootconfig = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Deployment
self' <- a -> IO (Ptr Deployment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr BootconfigParser
bootconfig' <- b -> IO (Ptr BootconfigParser)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
bootconfig
Ptr Deployment -> Ptr BootconfigParser -> IO ()
ostree_deployment_set_bootconfig Ptr Deployment
self' Ptr BootconfigParser
bootconfig'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
bootconfig
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DeploymentSetBootconfigMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsDeployment a, OSTree.BootconfigParser.IsBootconfigParser b) => O.MethodInfo DeploymentSetBootconfigMethodInfo a signature where
overloadedMethod = deploymentSetBootconfig
#endif
foreign import ccall "ostree_deployment_set_bootserial" ostree_deployment_set_bootserial ::
Ptr Deployment ->
Int32 ->
IO ()
deploymentSetBootserial ::
(B.CallStack.HasCallStack, MonadIO m, IsDeployment a) =>
a
-> Int32
-> m ()
deploymentSetBootserial :: a -> Int32 -> m ()
deploymentSetBootserial self :: a
self index :: Int32
index = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Deployment
self' <- a -> IO (Ptr Deployment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Deployment -> Int32 -> IO ()
ostree_deployment_set_bootserial Ptr Deployment
self' Int32
index
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DeploymentSetBootserialMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsDeployment a) => O.MethodInfo DeploymentSetBootserialMethodInfo a signature where
overloadedMethod = deploymentSetBootserial
#endif
foreign import ccall "ostree_deployment_set_index" ostree_deployment_set_index ::
Ptr Deployment ->
Int32 ->
IO ()
deploymentSetIndex ::
(B.CallStack.HasCallStack, MonadIO m, IsDeployment a) =>
a
-> Int32
-> m ()
deploymentSetIndex :: a -> Int32 -> m ()
deploymentSetIndex self :: a
self index :: Int32
index = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Deployment
self' <- a -> IO (Ptr Deployment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Deployment -> Int32 -> IO ()
ostree_deployment_set_index Ptr Deployment
self' Int32
index
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DeploymentSetIndexMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsDeployment a) => O.MethodInfo DeploymentSetIndexMethodInfo a signature where
overloadedMethod = deploymentSetIndex
#endif
foreign import ccall "ostree_deployment_set_origin" ostree_deployment_set_origin ::
Ptr Deployment ->
Ptr GLib.KeyFile.KeyFile ->
IO ()
deploymentSetOrigin ::
(B.CallStack.HasCallStack, MonadIO m, IsDeployment a) =>
a
-> GLib.KeyFile.KeyFile
-> m ()
deploymentSetOrigin :: a -> KeyFile -> m ()
deploymentSetOrigin self :: a
self origin :: KeyFile
origin = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Deployment
self' <- a -> IO (Ptr Deployment)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr KeyFile
origin' <- KeyFile -> IO (Ptr KeyFile)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr KeyFile
origin
Ptr Deployment -> Ptr KeyFile -> IO ()
ostree_deployment_set_origin Ptr Deployment
self' Ptr KeyFile
origin'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
KeyFile -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr KeyFile
origin
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data DeploymentSetOriginMethodInfo
instance (signature ~ (GLib.KeyFile.KeyFile -> m ()), MonadIO m, IsDeployment a) => O.MethodInfo DeploymentSetOriginMethodInfo a signature where
overloadedMethod = deploymentSetOrigin
#endif
foreign import ccall "ostree_deployment_hash" ostree_deployment_hash ::
Ptr () ->
IO Word32
deploymentHash ::
(B.CallStack.HasCallStack, MonadIO m) =>
Ptr ()
-> m Word32
deploymentHash :: Ptr () -> m Word32
deploymentHash v :: Ptr ()
v = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Word32
result <- Ptr () -> IO Word32
ostree_deployment_hash Ptr ()
v
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "ostree_deployment_origin_remove_transient_state" ostree_deployment_origin_remove_transient_state ::
Ptr GLib.KeyFile.KeyFile ->
IO ()
deploymentOriginRemoveTransientState ::
(B.CallStack.HasCallStack, MonadIO m) =>
GLib.KeyFile.KeyFile
-> m ()
deploymentOriginRemoveTransientState :: KeyFile -> m ()
deploymentOriginRemoveTransientState origin :: KeyFile
origin = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr KeyFile
origin' <- KeyFile -> IO (Ptr KeyFile)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr KeyFile
origin
Ptr KeyFile -> IO ()
ostree_deployment_origin_remove_transient_state Ptr KeyFile
origin'
KeyFile -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr KeyFile
origin
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "ostree_deployment_unlocked_state_to_string" ostree_deployment_unlocked_state_to_string ::
CUInt ->
IO CString
deploymentUnlockedStateToString ::
(B.CallStack.HasCallStack, MonadIO m) =>
OSTree.Enums.DeploymentUnlockedState
-> m T.Text
deploymentUnlockedStateToString :: DeploymentUnlockedState -> m Text
deploymentUnlockedStateToString state :: DeploymentUnlockedState
state = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
let state' :: CUInt
state' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (DeploymentUnlockedState -> Int)
-> DeploymentUnlockedState
-> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. DeploymentUnlockedState -> Int
forall a. Enum a => a -> Int
fromEnum) DeploymentUnlockedState
state
CString
result <- CUInt -> IO CString
ostree_deployment_unlocked_state_to_string CUInt
state'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "deploymentUnlockedStateToString" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
#endif