{-# LANGUAGE TypeApplications #-}


-- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte
-- License    : LGPL-2.1
-- Maintainer : Iñaki García Etxebarria
-- 
-- /No description available in the introspection data./

#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif

module GI.OSTree.Structs.CmdPrivateVTable
    ( 

-- * Exported types
    CmdPrivateVTable(..)                    ,
    newZeroCmdPrivateVTable                 ,


 -- * Methods

#if defined(ENABLE_OVERLOADING)
    ResolveCmdPrivateVTableMethod           ,
#endif



 -- * Properties


-- ** ostreeFinalizeStaged #attr:ostreeFinalizeStaged#
-- | /No description available in the introspection data./

    clearCmdPrivateVTableOstreeFinalizeStaged,
#if defined(ENABLE_OVERLOADING)
    cmdPrivateVTable_ostreeFinalizeStaged   ,
#endif
    getCmdPrivateVTableOstreeFinalizeStaged ,
    setCmdPrivateVTableOstreeFinalizeStaged ,


-- ** ostreeGenerateGrub2Config #attr:ostreeGenerateGrub2Config#
-- | /No description available in the introspection data./

    clearCmdPrivateVTableOstreeGenerateGrub2Config,
#if defined(ENABLE_OVERLOADING)
    cmdPrivateVTable_ostreeGenerateGrub2Config,
#endif
    getCmdPrivateVTableOstreeGenerateGrub2Config,
    setCmdPrivateVTableOstreeGenerateGrub2Config,


-- ** ostreeRepoVerifyBindings #attr:ostreeRepoVerifyBindings#
-- | /No description available in the introspection data./

    clearCmdPrivateVTableOstreeRepoVerifyBindings,
#if defined(ENABLE_OVERLOADING)
    cmdPrivateVTable_ostreeRepoVerifyBindings,
#endif
    getCmdPrivateVTableOstreeRepoVerifyBindings,
    setCmdPrivateVTableOstreeRepoVerifyBindings,


-- ** ostreeStaticDeltaDelete #attr:ostreeStaticDeltaDelete#
-- | /No description available in the introspection data./

    clearCmdPrivateVTableOstreeStaticDeltaDelete,
#if defined(ENABLE_OVERLOADING)
    cmdPrivateVTable_ostreeStaticDeltaDelete,
#endif
    getCmdPrivateVTableOstreeStaticDeltaDelete,
    setCmdPrivateVTableOstreeStaticDeltaDelete,


-- ** ostreeStaticDeltaDump #attr:ostreeStaticDeltaDump#
-- | /No description available in the introspection data./

    clearCmdPrivateVTableOstreeStaticDeltaDump,
#if defined(ENABLE_OVERLOADING)
    cmdPrivateVTable_ostreeStaticDeltaDump  ,
#endif
    getCmdPrivateVTableOstreeStaticDeltaDump,
    setCmdPrivateVTableOstreeStaticDeltaDump,


-- ** ostreeStaticDeltaQueryExists #attr:ostreeStaticDeltaQueryExists#
-- | /No description available in the introspection data./

    clearCmdPrivateVTableOstreeStaticDeltaQueryExists,
#if defined(ENABLE_OVERLOADING)
    cmdPrivateVTable_ostreeStaticDeltaQueryExists,
#endif
    getCmdPrivateVTableOstreeStaticDeltaQueryExists,
    setCmdPrivateVTableOstreeStaticDeltaQueryExists,


-- ** ostreeSystemGenerator #attr:ostreeSystemGenerator#
-- | /No description available in the introspection data./

    clearCmdPrivateVTableOstreeSystemGenerator,
#if defined(ENABLE_OVERLOADING)
    cmdPrivateVTable_ostreeSystemGenerator  ,
#endif
    getCmdPrivateVTableOstreeSystemGenerator,
    setCmdPrivateVTableOstreeSystemGenerator,




    ) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
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 Control.Monad.IO.Class as MIO
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 GHC.Records as R

import qualified GI.OSTree.Callbacks as OSTree.Callbacks

-- | Memory-managed wrapper type.
newtype CmdPrivateVTable = CmdPrivateVTable (SP.ManagedPtr CmdPrivateVTable)
    deriving (CmdPrivateVTable -> CmdPrivateVTable -> Bool
(CmdPrivateVTable -> CmdPrivateVTable -> Bool)
-> (CmdPrivateVTable -> CmdPrivateVTable -> Bool)
-> Eq CmdPrivateVTable
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CmdPrivateVTable -> CmdPrivateVTable -> Bool
$c/= :: CmdPrivateVTable -> CmdPrivateVTable -> Bool
== :: CmdPrivateVTable -> CmdPrivateVTable -> Bool
$c== :: CmdPrivateVTable -> CmdPrivateVTable -> Bool
Eq)

instance SP.ManagedPtrNewtype CmdPrivateVTable where
    toManagedPtr :: CmdPrivateVTable -> ManagedPtr CmdPrivateVTable
toManagedPtr (CmdPrivateVTable ManagedPtr CmdPrivateVTable
p) = ManagedPtr CmdPrivateVTable
p

instance BoxedPtr CmdPrivateVTable where
    boxedPtrCopy :: CmdPrivateVTable -> IO CmdPrivateVTable
boxedPtrCopy = \CmdPrivateVTable
p -> CmdPrivateVTable
-> (Ptr CmdPrivateVTable -> IO CmdPrivateVTable)
-> IO CmdPrivateVTable
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr CmdPrivateVTable
p (Int -> Ptr CmdPrivateVTable -> IO (Ptr CmdPrivateVTable)
forall a. (HasCallStack, CallocPtr a) => Int -> Ptr a -> IO (Ptr a)
copyBytes Int
56 (Ptr CmdPrivateVTable -> IO (Ptr CmdPrivateVTable))
-> (Ptr CmdPrivateVTable -> IO CmdPrivateVTable)
-> Ptr CmdPrivateVTable
-> IO CmdPrivateVTable
forall (m :: * -> *) a b c.
Monad m =>
(a -> m b) -> (b -> m c) -> a -> m c
>=> (ManagedPtr CmdPrivateVTable -> CmdPrivateVTable)
-> Ptr CmdPrivateVTable -> IO CmdPrivateVTable
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.wrapPtr ManagedPtr CmdPrivateVTable -> CmdPrivateVTable
CmdPrivateVTable)
    boxedPtrFree :: CmdPrivateVTable -> IO ()
boxedPtrFree = \CmdPrivateVTable
x -> CmdPrivateVTable -> (Ptr CmdPrivateVTable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
SP.withManagedPtr CmdPrivateVTable
x Ptr CmdPrivateVTable -> IO ()
forall a. Ptr a -> IO ()
SP.freeMem
instance CallocPtr CmdPrivateVTable where
    boxedPtrCalloc :: IO (Ptr CmdPrivateVTable)
boxedPtrCalloc = Int -> IO (Ptr CmdPrivateVTable)
forall a. Int -> IO (Ptr a)
callocBytes Int
56


-- | Construct a `CmdPrivateVTable` struct initialized to zero.
newZeroCmdPrivateVTable :: MonadIO m => m CmdPrivateVTable
newZeroCmdPrivateVTable :: forall (m :: * -> *). MonadIO m => m CmdPrivateVTable
newZeroCmdPrivateVTable = IO CmdPrivateVTable -> m CmdPrivateVTable
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CmdPrivateVTable -> m CmdPrivateVTable)
-> IO CmdPrivateVTable -> m CmdPrivateVTable
forall a b. (a -> b) -> a -> b
$ IO (Ptr CmdPrivateVTable)
forall a. CallocPtr a => IO (Ptr a)
boxedPtrCalloc IO (Ptr CmdPrivateVTable)
-> (Ptr CmdPrivateVTable -> IO CmdPrivateVTable)
-> IO CmdPrivateVTable
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (ManagedPtr CmdPrivateVTable -> CmdPrivateVTable)
-> Ptr CmdPrivateVTable -> IO CmdPrivateVTable
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr CmdPrivateVTable -> CmdPrivateVTable
CmdPrivateVTable

instance tag ~ 'AttrSet => Constructible CmdPrivateVTable tag where
    new :: forall (m :: * -> *).
MonadIO m =>
(ManagedPtr CmdPrivateVTable -> CmdPrivateVTable)
-> [AttrOp CmdPrivateVTable tag] -> m CmdPrivateVTable
new ManagedPtr CmdPrivateVTable -> CmdPrivateVTable
_ [AttrOp CmdPrivateVTable tag]
attrs = do
        CmdPrivateVTable
o <- m CmdPrivateVTable
forall (m :: * -> *). MonadIO m => m CmdPrivateVTable
newZeroCmdPrivateVTable
        CmdPrivateVTable -> [AttrOp CmdPrivateVTable 'AttrSet] -> m ()
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set CmdPrivateVTable
o [AttrOp CmdPrivateVTable tag]
[AttrOp CmdPrivateVTable 'AttrSet]
attrs
        CmdPrivateVTable -> m CmdPrivateVTable
forall (m :: * -> *) a. Monad m => a -> m a
return CmdPrivateVTable
o


-- | Get the value of the “@ostree_system_generator@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' cmdPrivateVTable #ostreeSystemGenerator
-- @
getCmdPrivateVTableOstreeSystemGenerator :: MonadIO m => CmdPrivateVTable -> m (Maybe OSTree.Callbacks.CmdPrivateVTableOstreeSystemGeneratorFieldCallback)
getCmdPrivateVTableOstreeSystemGenerator :: forall (m :: * -> *).
MonadIO m =>
CmdPrivateVTable
-> m (Maybe CmdPrivateVTableOstreeSystemGeneratorFieldCallback)
getCmdPrivateVTableOstreeSystemGenerator CmdPrivateVTable
s = IO (Maybe CmdPrivateVTableOstreeSystemGeneratorFieldCallback)
-> m (Maybe CmdPrivateVTableOstreeSystemGeneratorFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe CmdPrivateVTableOstreeSystemGeneratorFieldCallback)
 -> m (Maybe CmdPrivateVTableOstreeSystemGeneratorFieldCallback))
-> IO (Maybe CmdPrivateVTableOstreeSystemGeneratorFieldCallback)
-> m (Maybe CmdPrivateVTableOstreeSystemGeneratorFieldCallback)
forall a b. (a -> b) -> a -> b
$ CmdPrivateVTable
-> (Ptr CmdPrivateVTable
    -> IO (Maybe CmdPrivateVTableOstreeSystemGeneratorFieldCallback))
-> IO (Maybe CmdPrivateVTableOstreeSystemGeneratorFieldCallback)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CmdPrivateVTable
s ((Ptr CmdPrivateVTable
  -> IO (Maybe CmdPrivateVTableOstreeSystemGeneratorFieldCallback))
 -> IO (Maybe CmdPrivateVTableOstreeSystemGeneratorFieldCallback))
-> (Ptr CmdPrivateVTable
    -> IO (Maybe CmdPrivateVTableOstreeSystemGeneratorFieldCallback))
-> IO (Maybe CmdPrivateVTableOstreeSystemGeneratorFieldCallback)
forall a b. (a -> b) -> a -> b
$ \Ptr CmdPrivateVTable
ptr -> do
    FunPtr C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback
val <- Ptr (FunPtr C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback)
-> IO (FunPtr C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback)
forall a. Storable a => Ptr a -> IO a
peek (Ptr CmdPrivateVTable
ptr Ptr CmdPrivateVTable
-> Int
-> Ptr
     (FunPtr C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) :: IO (FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback)
    Maybe CmdPrivateVTableOstreeSystemGeneratorFieldCallback
result <- FunPtr C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback
-> (FunPtr C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback
    -> IO CmdPrivateVTableOstreeSystemGeneratorFieldCallback)
-> IO (Maybe CmdPrivateVTableOstreeSystemGeneratorFieldCallback)
forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback
val ((FunPtr C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback
  -> IO CmdPrivateVTableOstreeSystemGeneratorFieldCallback)
 -> IO (Maybe CmdPrivateVTableOstreeSystemGeneratorFieldCallback))
-> (FunPtr C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback
    -> IO CmdPrivateVTableOstreeSystemGeneratorFieldCallback)
-> IO (Maybe CmdPrivateVTableOstreeSystemGeneratorFieldCallback)
forall a b. (a -> b) -> a -> b
$ \FunPtr C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback
val' -> do
        let val'' :: CmdPrivateVTableOstreeSystemGeneratorFieldCallback
val'' = FunPtr C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback
-> CmdPrivateVTableOstreeSystemGeneratorFieldCallback
forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback
-> Text -> Text -> Text -> Text -> m ()
OSTree.Callbacks.dynamic_CmdPrivateVTableOstreeSystemGeneratorFieldCallback FunPtr C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback
val'
        CmdPrivateVTableOstreeSystemGeneratorFieldCallback
-> IO CmdPrivateVTableOstreeSystemGeneratorFieldCallback
forall (m :: * -> *) a. Monad m => a -> m a
return CmdPrivateVTableOstreeSystemGeneratorFieldCallback
val''
    Maybe CmdPrivateVTableOstreeSystemGeneratorFieldCallback
-> IO (Maybe CmdPrivateVTableOstreeSystemGeneratorFieldCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe CmdPrivateVTableOstreeSystemGeneratorFieldCallback
result

-- | Set the value of the “@ostree_system_generator@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' cmdPrivateVTable [ #ostreeSystemGenerator 'Data.GI.Base.Attributes.:=' value ]
-- @
setCmdPrivateVTableOstreeSystemGenerator :: MonadIO m => CmdPrivateVTable -> FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback -> m ()
setCmdPrivateVTableOstreeSystemGenerator :: forall (m :: * -> *).
MonadIO m =>
CmdPrivateVTable
-> FunPtr C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback
-> m ()
setCmdPrivateVTableOstreeSystemGenerator CmdPrivateVTable
s FunPtr C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ CmdPrivateVTable -> (Ptr CmdPrivateVTable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CmdPrivateVTable
s ((Ptr CmdPrivateVTable -> IO ()) -> IO ())
-> (Ptr CmdPrivateVTable -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CmdPrivateVTable
ptr -> do
    Ptr (FunPtr C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback)
-> FunPtr C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback
-> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr CmdPrivateVTable
ptr Ptr CmdPrivateVTable
-> Int
-> Ptr
     (FunPtr C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (FunPtr C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback
val :: FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback)

-- | Set the value of the “@ostree_system_generator@” field to `Nothing`.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.clear' #ostreeSystemGenerator
-- @
clearCmdPrivateVTableOstreeSystemGenerator :: MonadIO m => CmdPrivateVTable -> m ()
clearCmdPrivateVTableOstreeSystemGenerator :: forall (m :: * -> *). MonadIO m => CmdPrivateVTable -> m ()
clearCmdPrivateVTableOstreeSystemGenerator CmdPrivateVTable
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ CmdPrivateVTable -> (Ptr CmdPrivateVTable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CmdPrivateVTable
s ((Ptr CmdPrivateVTable -> IO ()) -> IO ())
-> (Ptr CmdPrivateVTable -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CmdPrivateVTable
ptr -> do
    Ptr (FunPtr C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback)
-> FunPtr C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback
-> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr CmdPrivateVTable
ptr Ptr CmdPrivateVTable
-> Int
-> Ptr
     (FunPtr C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (FunPtr C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback
forall a. FunPtr a
FP.nullFunPtr :: FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback)

#if defined(ENABLE_OVERLOADING)
data CmdPrivateVTableOstreeSystemGeneratorFieldInfo
instance AttrInfo CmdPrivateVTableOstreeSystemGeneratorFieldInfo where
    type AttrBaseTypeConstraint CmdPrivateVTableOstreeSystemGeneratorFieldInfo = (~) CmdPrivateVTable
    type AttrAllowedOps CmdPrivateVTableOstreeSystemGeneratorFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
    type AttrSetTypeConstraint CmdPrivateVTableOstreeSystemGeneratorFieldInfo = (~) (FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback)
    type AttrTransferTypeConstraint CmdPrivateVTableOstreeSystemGeneratorFieldInfo = (~)(FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback)
    type AttrTransferType CmdPrivateVTableOstreeSystemGeneratorFieldInfo = (FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeSystemGeneratorFieldCallback)
    type AttrGetType CmdPrivateVTableOstreeSystemGeneratorFieldInfo = Maybe OSTree.Callbacks.CmdPrivateVTableOstreeSystemGeneratorFieldCallback
    type AttrLabel CmdPrivateVTableOstreeSystemGeneratorFieldInfo = "ostree_system_generator"
    type AttrOrigin CmdPrivateVTableOstreeSystemGeneratorFieldInfo = CmdPrivateVTable
    attrGet = getCmdPrivateVTableOstreeSystemGenerator
    attrSet = setCmdPrivateVTableOstreeSystemGenerator
    attrConstruct = undefined
    attrClear = clearCmdPrivateVTableOstreeSystemGenerator
    attrTransfer _ v = do
        return v

cmdPrivateVTable_ostreeSystemGenerator :: AttrLabelProxy "ostreeSystemGenerator"
cmdPrivateVTable_ostreeSystemGenerator = AttrLabelProxy

#endif


-- | Get the value of the “@ostree_generate_grub2_config@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' cmdPrivateVTable #ostreeGenerateGrub2Config
-- @
getCmdPrivateVTableOstreeGenerateGrub2Config :: MonadIO m => CmdPrivateVTable -> m (Maybe OSTree.Callbacks.CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback)
getCmdPrivateVTableOstreeGenerateGrub2Config :: forall (m :: * -> *).
MonadIO m =>
CmdPrivateVTable
-> m (Maybe CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback)
getCmdPrivateVTableOstreeGenerateGrub2Config CmdPrivateVTable
s = IO (Maybe CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback)
-> m (Maybe CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback)
 -> m (Maybe
         CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback))
-> IO
     (Maybe CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback)
-> m (Maybe CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback)
forall a b. (a -> b) -> a -> b
$ CmdPrivateVTable
-> (Ptr CmdPrivateVTable
    -> IO
         (Maybe CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback))
-> IO
     (Maybe CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CmdPrivateVTable
s ((Ptr CmdPrivateVTable
  -> IO
       (Maybe CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback))
 -> IO
      (Maybe CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback))
-> (Ptr CmdPrivateVTable
    -> IO
         (Maybe CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback))
-> IO
     (Maybe CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback)
forall a b. (a -> b) -> a -> b
$ \Ptr CmdPrivateVTable
ptr -> do
    FunPtr C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback
val <- Ptr
  (FunPtr C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback)
-> IO
     (FunPtr C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback)
forall a. Storable a => Ptr a -> IO a
peek (Ptr CmdPrivateVTable
ptr Ptr CmdPrivateVTable
-> Int
-> Ptr
     (FunPtr C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) :: IO (FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback)
    Maybe CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback
result <- FunPtr C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback
-> (FunPtr C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback
    -> IO CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback)
-> IO
     (Maybe CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback)
forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback
val ((FunPtr C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback
  -> IO CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback)
 -> IO
      (Maybe CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback))
-> (FunPtr C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback
    -> IO CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback)
-> IO
     (Maybe CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback)
forall a b. (a -> b) -> a -> b
$ \FunPtr C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback
val' -> do
        let val'' :: CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback
val'' = FunPtr C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback
-> CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback
forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsSysroot a, IsCancellable b) =>
FunPtr C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback
-> a -> Int32 -> Int32 -> b -> m ()
OSTree.Callbacks.dynamic_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback FunPtr C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback
val'
        CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback
-> IO CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback
forall (m :: * -> *) a. Monad m => a -> m a
return CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback
val''
    Maybe CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback
-> IO
     (Maybe CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback
result

-- | Set the value of the “@ostree_generate_grub2_config@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' cmdPrivateVTable [ #ostreeGenerateGrub2Config 'Data.GI.Base.Attributes.:=' value ]
-- @
setCmdPrivateVTableOstreeGenerateGrub2Config :: MonadIO m => CmdPrivateVTable -> FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback -> m ()
setCmdPrivateVTableOstreeGenerateGrub2Config :: forall (m :: * -> *).
MonadIO m =>
CmdPrivateVTable
-> FunPtr C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback
-> m ()
setCmdPrivateVTableOstreeGenerateGrub2Config CmdPrivateVTable
s FunPtr C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ CmdPrivateVTable -> (Ptr CmdPrivateVTable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CmdPrivateVTable
s ((Ptr CmdPrivateVTable -> IO ()) -> IO ())
-> (Ptr CmdPrivateVTable -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CmdPrivateVTable
ptr -> do
    Ptr
  (FunPtr C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback)
-> FunPtr C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback
-> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr CmdPrivateVTable
ptr Ptr CmdPrivateVTable
-> Int
-> Ptr
     (FunPtr C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) (FunPtr C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback
val :: FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback)

-- | Set the value of the “@ostree_generate_grub2_config@” field to `Nothing`.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.clear' #ostreeGenerateGrub2Config
-- @
clearCmdPrivateVTableOstreeGenerateGrub2Config :: MonadIO m => CmdPrivateVTable -> m ()
clearCmdPrivateVTableOstreeGenerateGrub2Config :: forall (m :: * -> *). MonadIO m => CmdPrivateVTable -> m ()
clearCmdPrivateVTableOstreeGenerateGrub2Config CmdPrivateVTable
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ CmdPrivateVTable -> (Ptr CmdPrivateVTable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CmdPrivateVTable
s ((Ptr CmdPrivateVTable -> IO ()) -> IO ())
-> (Ptr CmdPrivateVTable -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CmdPrivateVTable
ptr -> do
    Ptr
  (FunPtr C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback)
-> FunPtr C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback
-> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr CmdPrivateVTable
ptr Ptr CmdPrivateVTable
-> Int
-> Ptr
     (FunPtr C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) (FunPtr C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback
forall a. FunPtr a
FP.nullFunPtr :: FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback)

#if defined(ENABLE_OVERLOADING)
data CmdPrivateVTableOstreeGenerateGrub2ConfigFieldInfo
instance AttrInfo CmdPrivateVTableOstreeGenerateGrub2ConfigFieldInfo where
    type AttrBaseTypeConstraint CmdPrivateVTableOstreeGenerateGrub2ConfigFieldInfo = (~) CmdPrivateVTable
    type AttrAllowedOps CmdPrivateVTableOstreeGenerateGrub2ConfigFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
    type AttrSetTypeConstraint CmdPrivateVTableOstreeGenerateGrub2ConfigFieldInfo = (~) (FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback)
    type AttrTransferTypeConstraint CmdPrivateVTableOstreeGenerateGrub2ConfigFieldInfo = (~)(FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback)
    type AttrTransferType CmdPrivateVTableOstreeGenerateGrub2ConfigFieldInfo = (FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback)
    type AttrGetType CmdPrivateVTableOstreeGenerateGrub2ConfigFieldInfo = Maybe OSTree.Callbacks.CmdPrivateVTableOstreeGenerateGrub2ConfigFieldCallback
    type AttrLabel CmdPrivateVTableOstreeGenerateGrub2ConfigFieldInfo = "ostree_generate_grub2_config"
    type AttrOrigin CmdPrivateVTableOstreeGenerateGrub2ConfigFieldInfo = CmdPrivateVTable
    attrGet = getCmdPrivateVTableOstreeGenerateGrub2Config
    attrSet = setCmdPrivateVTableOstreeGenerateGrub2Config
    attrConstruct = undefined
    attrClear = clearCmdPrivateVTableOstreeGenerateGrub2Config
    attrTransfer _ v = do
        return v

cmdPrivateVTable_ostreeGenerateGrub2Config :: AttrLabelProxy "ostreeGenerateGrub2Config"
cmdPrivateVTable_ostreeGenerateGrub2Config = AttrLabelProxy

#endif


-- | Get the value of the “@ostree_static_delta_dump@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' cmdPrivateVTable #ostreeStaticDeltaDump
-- @
getCmdPrivateVTableOstreeStaticDeltaDump :: MonadIO m => CmdPrivateVTable -> m (Maybe OSTree.Callbacks.CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
getCmdPrivateVTableOstreeStaticDeltaDump :: forall (m :: * -> *).
MonadIO m =>
CmdPrivateVTable
-> m (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
getCmdPrivateVTableOstreeStaticDeltaDump CmdPrivateVTable
s = IO (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
-> m (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
 -> m (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback))
-> IO (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
-> m (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
forall a b. (a -> b) -> a -> b
$ CmdPrivateVTable
-> (Ptr CmdPrivateVTable
    -> IO (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback))
-> IO (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CmdPrivateVTable
s ((Ptr CmdPrivateVTable
  -> IO (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback))
 -> IO (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback))
-> (Ptr CmdPrivateVTable
    -> IO (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback))
-> IO (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
forall a b. (a -> b) -> a -> b
$ \Ptr CmdPrivateVTable
ptr -> do
    FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
val <- Ptr (FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
-> IO (FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
forall a. Storable a => Ptr a -> IO a
peek (Ptr CmdPrivateVTable
ptr Ptr CmdPrivateVTable
-> Int
-> Ptr
     (FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) :: IO (FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
    Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
result <- FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
-> (FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
    -> IO CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
-> IO (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
val ((FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
  -> IO CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
 -> IO (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback))
-> (FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
    -> IO CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
-> IO (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
forall a b. (a -> b) -> a -> b
$ \FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
val' -> do
        let val'' :: CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
val'' = FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
-> CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsRepo a, IsCancellable b) =>
FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
-> a -> Text -> b -> m ()
OSTree.Callbacks.dynamic_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
val'
        CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
-> IO CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
forall (m :: * -> *) a. Monad m => a -> m a
return CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
val''
    Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
-> IO (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
result

-- | Set the value of the “@ostree_static_delta_dump@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' cmdPrivateVTable [ #ostreeStaticDeltaDump 'Data.GI.Base.Attributes.:=' value ]
-- @
setCmdPrivateVTableOstreeStaticDeltaDump :: MonadIO m => CmdPrivateVTable -> FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback -> m ()
setCmdPrivateVTableOstreeStaticDeltaDump :: forall (m :: * -> *).
MonadIO m =>
CmdPrivateVTable
-> FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
-> m ()
setCmdPrivateVTableOstreeStaticDeltaDump CmdPrivateVTable
s FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ CmdPrivateVTable -> (Ptr CmdPrivateVTable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CmdPrivateVTable
s ((Ptr CmdPrivateVTable -> IO ()) -> IO ())
-> (Ptr CmdPrivateVTable -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CmdPrivateVTable
ptr -> do
    Ptr (FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
-> FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
-> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr CmdPrivateVTable
ptr Ptr CmdPrivateVTable
-> Int
-> Ptr
     (FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) (FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
val :: FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)

-- | Set the value of the “@ostree_static_delta_dump@” field to `Nothing`.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.clear' #ostreeStaticDeltaDump
-- @
clearCmdPrivateVTableOstreeStaticDeltaDump :: MonadIO m => CmdPrivateVTable -> m ()
clearCmdPrivateVTableOstreeStaticDeltaDump :: forall (m :: * -> *). MonadIO m => CmdPrivateVTable -> m ()
clearCmdPrivateVTableOstreeStaticDeltaDump CmdPrivateVTable
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ CmdPrivateVTable -> (Ptr CmdPrivateVTable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CmdPrivateVTable
s ((Ptr CmdPrivateVTable -> IO ()) -> IO ())
-> (Ptr CmdPrivateVTable -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CmdPrivateVTable
ptr -> do
    Ptr (FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
-> FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
-> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr CmdPrivateVTable
ptr Ptr CmdPrivateVTable
-> Int
-> Ptr
     (FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) (FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
forall a. FunPtr a
FP.nullFunPtr :: FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)

#if defined(ENABLE_OVERLOADING)
data CmdPrivateVTableOstreeStaticDeltaDumpFieldInfo
instance AttrInfo CmdPrivateVTableOstreeStaticDeltaDumpFieldInfo where
    type AttrBaseTypeConstraint CmdPrivateVTableOstreeStaticDeltaDumpFieldInfo = (~) CmdPrivateVTable
    type AttrAllowedOps CmdPrivateVTableOstreeStaticDeltaDumpFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
    type AttrSetTypeConstraint CmdPrivateVTableOstreeStaticDeltaDumpFieldInfo = (~) (FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
    type AttrTransferTypeConstraint CmdPrivateVTableOstreeStaticDeltaDumpFieldInfo = (~)(FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
    type AttrTransferType CmdPrivateVTableOstreeStaticDeltaDumpFieldInfo = (FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
    type AttrGetType CmdPrivateVTableOstreeStaticDeltaDumpFieldInfo = Maybe OSTree.Callbacks.CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
    type AttrLabel CmdPrivateVTableOstreeStaticDeltaDumpFieldInfo = "ostree_static_delta_dump"
    type AttrOrigin CmdPrivateVTableOstreeStaticDeltaDumpFieldInfo = CmdPrivateVTable
    attrGet = getCmdPrivateVTableOstreeStaticDeltaDump
    attrSet = setCmdPrivateVTableOstreeStaticDeltaDump
    attrConstruct = undefined
    attrClear = clearCmdPrivateVTableOstreeStaticDeltaDump
    attrTransfer _ v = do
        return v

cmdPrivateVTable_ostreeStaticDeltaDump :: AttrLabelProxy "ostreeStaticDeltaDump"
cmdPrivateVTable_ostreeStaticDeltaDump = AttrLabelProxy

#endif


-- | Get the value of the “@ostree_static_delta_query_exists@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' cmdPrivateVTable #ostreeStaticDeltaQueryExists
-- @
getCmdPrivateVTableOstreeStaticDeltaQueryExists :: MonadIO m => CmdPrivateVTable -> m (Maybe OSTree.Callbacks.CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback)
getCmdPrivateVTableOstreeStaticDeltaQueryExists :: forall (m :: * -> *).
MonadIO m =>
CmdPrivateVTable
-> m (Maybe
        CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback)
getCmdPrivateVTableOstreeStaticDeltaQueryExists CmdPrivateVTable
s = IO
  (Maybe CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback)
-> m (Maybe
        CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO
   (Maybe CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback)
 -> m (Maybe
         CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback))
-> IO
     (Maybe CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback)
-> m (Maybe
        CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback)
forall a b. (a -> b) -> a -> b
$ CmdPrivateVTable
-> (Ptr CmdPrivateVTable
    -> IO
         (Maybe CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback))
-> IO
     (Maybe CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CmdPrivateVTable
s ((Ptr CmdPrivateVTable
  -> IO
       (Maybe CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback))
 -> IO
      (Maybe CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback))
-> (Ptr CmdPrivateVTable
    -> IO
         (Maybe CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback))
-> IO
     (Maybe CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback)
forall a b. (a -> b) -> a -> b
$ \Ptr CmdPrivateVTable
ptr -> do
    FunPtr C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback
val <- Ptr
  (FunPtr
     C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback)
-> IO
     (FunPtr
        C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback)
forall a. Storable a => Ptr a -> IO a
peek (Ptr CmdPrivateVTable
ptr Ptr CmdPrivateVTable
-> Int
-> Ptr
     (FunPtr
        C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) :: IO (FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback)
    Maybe CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback
result <- FunPtr C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback
-> (FunPtr
      C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback
    -> IO CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback)
-> IO
     (Maybe CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback)
forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback
val ((FunPtr
    C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback
  -> IO CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback)
 -> IO
      (Maybe CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback))
-> (FunPtr
      C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback
    -> IO CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback)
-> IO
     (Maybe CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback)
forall a b. (a -> b) -> a -> b
$ \FunPtr C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback
val' -> do
        let val'' :: CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback
val'' = FunPtr C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback
-> CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback
forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsRepo a, IsCancellable b) =>
FunPtr C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback
-> a -> Text -> Bool -> b -> m ()
OSTree.Callbacks.dynamic_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback FunPtr C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback
val'
        CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback
-> IO CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback
forall (m :: * -> *) a. Monad m => a -> m a
return CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback
val''
    Maybe CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback
-> IO
     (Maybe CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback
result

-- | Set the value of the “@ostree_static_delta_query_exists@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' cmdPrivateVTable [ #ostreeStaticDeltaQueryExists 'Data.GI.Base.Attributes.:=' value ]
-- @
setCmdPrivateVTableOstreeStaticDeltaQueryExists :: MonadIO m => CmdPrivateVTable -> FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback -> m ()
setCmdPrivateVTableOstreeStaticDeltaQueryExists :: forall (m :: * -> *).
MonadIO m =>
CmdPrivateVTable
-> FunPtr
     C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback
-> m ()
setCmdPrivateVTableOstreeStaticDeltaQueryExists CmdPrivateVTable
s FunPtr C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ CmdPrivateVTable -> (Ptr CmdPrivateVTable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CmdPrivateVTable
s ((Ptr CmdPrivateVTable -> IO ()) -> IO ())
-> (Ptr CmdPrivateVTable -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CmdPrivateVTable
ptr -> do
    Ptr
  (FunPtr
     C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback)
-> FunPtr
     C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback
-> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr CmdPrivateVTable
ptr Ptr CmdPrivateVTable
-> Int
-> Ptr
     (FunPtr
        C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) (FunPtr C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback
val :: FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback)

-- | Set the value of the “@ostree_static_delta_query_exists@” field to `Nothing`.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.clear' #ostreeStaticDeltaQueryExists
-- @
clearCmdPrivateVTableOstreeStaticDeltaQueryExists :: MonadIO m => CmdPrivateVTable -> m ()
clearCmdPrivateVTableOstreeStaticDeltaQueryExists :: forall (m :: * -> *). MonadIO m => CmdPrivateVTable -> m ()
clearCmdPrivateVTableOstreeStaticDeltaQueryExists CmdPrivateVTable
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ CmdPrivateVTable -> (Ptr CmdPrivateVTable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CmdPrivateVTable
s ((Ptr CmdPrivateVTable -> IO ()) -> IO ())
-> (Ptr CmdPrivateVTable -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CmdPrivateVTable
ptr -> do
    Ptr
  (FunPtr
     C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback)
-> FunPtr
     C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback
-> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr CmdPrivateVTable
ptr Ptr CmdPrivateVTable
-> Int
-> Ptr
     (FunPtr
        C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) (FunPtr C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback
forall a. FunPtr a
FP.nullFunPtr :: FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback)

#if defined(ENABLE_OVERLOADING)
data CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldInfo
instance AttrInfo CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldInfo where
    type AttrBaseTypeConstraint CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldInfo = (~) CmdPrivateVTable
    type AttrAllowedOps CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
    type AttrSetTypeConstraint CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldInfo = (~) (FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback)
    type AttrTransferTypeConstraint CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldInfo = (~)(FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback)
    type AttrTransferType CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldInfo = (FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback)
    type AttrGetType CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldInfo = Maybe OSTree.Callbacks.CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldCallback
    type AttrLabel CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldInfo = "ostree_static_delta_query_exists"
    type AttrOrigin CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldInfo = CmdPrivateVTable
    attrGet = getCmdPrivateVTableOstreeStaticDeltaQueryExists
    attrSet = setCmdPrivateVTableOstreeStaticDeltaQueryExists
    attrConstruct = undefined
    attrClear = clearCmdPrivateVTableOstreeStaticDeltaQueryExists
    attrTransfer _ v = do
        return v

cmdPrivateVTable_ostreeStaticDeltaQueryExists :: AttrLabelProxy "ostreeStaticDeltaQueryExists"
cmdPrivateVTable_ostreeStaticDeltaQueryExists = AttrLabelProxy

#endif


-- | Get the value of the “@ostree_static_delta_delete@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' cmdPrivateVTable #ostreeStaticDeltaDelete
-- @
getCmdPrivateVTableOstreeStaticDeltaDelete :: MonadIO m => CmdPrivateVTable -> m (Maybe OSTree.Callbacks.CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback)
getCmdPrivateVTableOstreeStaticDeltaDelete :: forall (m :: * -> *).
MonadIO m =>
CmdPrivateVTable
-> m (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
getCmdPrivateVTableOstreeStaticDeltaDelete CmdPrivateVTable
s = IO (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
-> m (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
 -> m (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback))
-> IO (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
-> m (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
forall a b. (a -> b) -> a -> b
$ CmdPrivateVTable
-> (Ptr CmdPrivateVTable
    -> IO (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback))
-> IO (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CmdPrivateVTable
s ((Ptr CmdPrivateVTable
  -> IO (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback))
 -> IO (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback))
-> (Ptr CmdPrivateVTable
    -> IO (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback))
-> IO (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
forall a b. (a -> b) -> a -> b
$ \Ptr CmdPrivateVTable
ptr -> do
    FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
val <- Ptr (FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
-> IO (FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
forall a. Storable a => Ptr a -> IO a
peek (Ptr CmdPrivateVTable
ptr Ptr CmdPrivateVTable
-> Int
-> Ptr
     (FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32) :: IO (FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback)
    Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
result <- FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
-> (FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
    -> IO CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
-> IO (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
val ((FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
  -> IO CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
 -> IO (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback))
-> (FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
    -> IO CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
-> IO (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
forall a b. (a -> b) -> a -> b
$ \FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
val' -> do
        let val'' :: CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
val'' = FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
-> CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsRepo a, IsCancellable b) =>
FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
-> a -> Text -> b -> m ()
OSTree.Callbacks.dynamic_CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
val'
        CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
-> IO CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
forall (m :: * -> *) a. Monad m => a -> m a
return CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
val''
    Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
-> IO (Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
result

-- | Set the value of the “@ostree_static_delta_delete@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' cmdPrivateVTable [ #ostreeStaticDeltaDelete 'Data.GI.Base.Attributes.:=' value ]
-- @
setCmdPrivateVTableOstreeStaticDeltaDelete :: MonadIO m => CmdPrivateVTable -> FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback -> m ()
setCmdPrivateVTableOstreeStaticDeltaDelete :: forall (m :: * -> *).
MonadIO m =>
CmdPrivateVTable
-> FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
-> m ()
setCmdPrivateVTableOstreeStaticDeltaDelete CmdPrivateVTable
s FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ CmdPrivateVTable -> (Ptr CmdPrivateVTable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CmdPrivateVTable
s ((Ptr CmdPrivateVTable -> IO ()) -> IO ())
-> (Ptr CmdPrivateVTable -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CmdPrivateVTable
ptr -> do
    Ptr (FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
-> FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
-> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr CmdPrivateVTable
ptr Ptr CmdPrivateVTable
-> Int
-> Ptr
     (FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32) (FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
val :: FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback)

-- | Set the value of the “@ostree_static_delta_delete@” field to `Nothing`.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.clear' #ostreeStaticDeltaDelete
-- @
clearCmdPrivateVTableOstreeStaticDeltaDelete :: MonadIO m => CmdPrivateVTable -> m ()
clearCmdPrivateVTableOstreeStaticDeltaDelete :: forall (m :: * -> *). MonadIO m => CmdPrivateVTable -> m ()
clearCmdPrivateVTableOstreeStaticDeltaDelete CmdPrivateVTable
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ CmdPrivateVTable -> (Ptr CmdPrivateVTable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CmdPrivateVTable
s ((Ptr CmdPrivateVTable -> IO ()) -> IO ())
-> (Ptr CmdPrivateVTable -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CmdPrivateVTable
ptr -> do
    Ptr (FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
-> FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
-> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr CmdPrivateVTable
ptr Ptr CmdPrivateVTable
-> Int
-> Ptr
     (FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
32) (FunPtr C_CmdPrivateVTableOstreeStaticDeltaDumpFieldCallback
forall a. FunPtr a
FP.nullFunPtr :: FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback)

#if defined(ENABLE_OVERLOADING)
data CmdPrivateVTableOstreeStaticDeltaDeleteFieldInfo
instance AttrInfo CmdPrivateVTableOstreeStaticDeltaDeleteFieldInfo where
    type AttrBaseTypeConstraint CmdPrivateVTableOstreeStaticDeltaDeleteFieldInfo = (~) CmdPrivateVTable
    type AttrAllowedOps CmdPrivateVTableOstreeStaticDeltaDeleteFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
    type AttrSetTypeConstraint CmdPrivateVTableOstreeStaticDeltaDeleteFieldInfo = (~) (FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback)
    type AttrTransferTypeConstraint CmdPrivateVTableOstreeStaticDeltaDeleteFieldInfo = (~)(FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback)
    type AttrTransferType CmdPrivateVTableOstreeStaticDeltaDeleteFieldInfo = (FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback)
    type AttrGetType CmdPrivateVTableOstreeStaticDeltaDeleteFieldInfo = Maybe OSTree.Callbacks.CmdPrivateVTableOstreeStaticDeltaDeleteFieldCallback
    type AttrLabel CmdPrivateVTableOstreeStaticDeltaDeleteFieldInfo = "ostree_static_delta_delete"
    type AttrOrigin CmdPrivateVTableOstreeStaticDeltaDeleteFieldInfo = CmdPrivateVTable
    attrGet = getCmdPrivateVTableOstreeStaticDeltaDelete
    attrSet = setCmdPrivateVTableOstreeStaticDeltaDelete
    attrConstruct = undefined
    attrClear = clearCmdPrivateVTableOstreeStaticDeltaDelete
    attrTransfer _ v = do
        return v

cmdPrivateVTable_ostreeStaticDeltaDelete :: AttrLabelProxy "ostreeStaticDeltaDelete"
cmdPrivateVTable_ostreeStaticDeltaDelete = AttrLabelProxy

#endif


-- | Get the value of the “@ostree_repo_verify_bindings@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' cmdPrivateVTable #ostreeRepoVerifyBindings
-- @
getCmdPrivateVTableOstreeRepoVerifyBindings :: MonadIO m => CmdPrivateVTable -> m (Maybe OSTree.Callbacks.CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback)
getCmdPrivateVTableOstreeRepoVerifyBindings :: forall (m :: * -> *).
MonadIO m =>
CmdPrivateVTable
-> m (Maybe CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback)
getCmdPrivateVTableOstreeRepoVerifyBindings CmdPrivateVTable
s = IO (Maybe CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback)
-> m (Maybe CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback)
 -> m (Maybe CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback))
-> IO (Maybe CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback)
-> m (Maybe CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback)
forall a b. (a -> b) -> a -> b
$ CmdPrivateVTable
-> (Ptr CmdPrivateVTable
    -> IO
         (Maybe CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback))
-> IO (Maybe CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CmdPrivateVTable
s ((Ptr CmdPrivateVTable
  -> IO
       (Maybe CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback))
 -> IO
      (Maybe CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback))
-> (Ptr CmdPrivateVTable
    -> IO
         (Maybe CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback))
-> IO (Maybe CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback)
forall a b. (a -> b) -> a -> b
$ \Ptr CmdPrivateVTable
ptr -> do
    FunPtr C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback
val <- Ptr
  (FunPtr C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback)
-> IO
     (FunPtr C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback)
forall a. Storable a => Ptr a -> IO a
peek (Ptr CmdPrivateVTable
ptr Ptr CmdPrivateVTable
-> Int
-> Ptr
     (FunPtr C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40) :: IO (FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback)
    Maybe CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback
result <- FunPtr C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback
-> (FunPtr C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback
    -> IO CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback)
-> IO (Maybe CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback)
forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback
val ((FunPtr C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback
  -> IO CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback)
 -> IO
      (Maybe CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback))
-> (FunPtr C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback
    -> IO CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback)
-> IO (Maybe CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback)
forall a b. (a -> b) -> a -> b
$ \FunPtr C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback
val' -> do
        let val'' :: CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback
val'' = FunPtr C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback
-> CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback
forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
FunPtr C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback
-> Text -> Text -> GVariant -> m ()
OSTree.Callbacks.dynamic_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback FunPtr C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback
val'
        CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback
-> IO CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback
forall (m :: * -> *) a. Monad m => a -> m a
return CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback
val''
    Maybe CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback
-> IO (Maybe CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback
result

-- | Set the value of the “@ostree_repo_verify_bindings@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' cmdPrivateVTable [ #ostreeRepoVerifyBindings 'Data.GI.Base.Attributes.:=' value ]
-- @
setCmdPrivateVTableOstreeRepoVerifyBindings :: MonadIO m => CmdPrivateVTable -> FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback -> m ()
setCmdPrivateVTableOstreeRepoVerifyBindings :: forall (m :: * -> *).
MonadIO m =>
CmdPrivateVTable
-> FunPtr C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback
-> m ()
setCmdPrivateVTableOstreeRepoVerifyBindings CmdPrivateVTable
s FunPtr C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ CmdPrivateVTable -> (Ptr CmdPrivateVTable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CmdPrivateVTable
s ((Ptr CmdPrivateVTable -> IO ()) -> IO ())
-> (Ptr CmdPrivateVTable -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CmdPrivateVTable
ptr -> do
    Ptr
  (FunPtr C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback)
-> FunPtr C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback
-> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr CmdPrivateVTable
ptr Ptr CmdPrivateVTable
-> Int
-> Ptr
     (FunPtr C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40) (FunPtr C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback
val :: FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback)

-- | Set the value of the “@ostree_repo_verify_bindings@” field to `Nothing`.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.clear' #ostreeRepoVerifyBindings
-- @
clearCmdPrivateVTableOstreeRepoVerifyBindings :: MonadIO m => CmdPrivateVTable -> m ()
clearCmdPrivateVTableOstreeRepoVerifyBindings :: forall (m :: * -> *). MonadIO m => CmdPrivateVTable -> m ()
clearCmdPrivateVTableOstreeRepoVerifyBindings CmdPrivateVTable
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ CmdPrivateVTable -> (Ptr CmdPrivateVTable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CmdPrivateVTable
s ((Ptr CmdPrivateVTable -> IO ()) -> IO ())
-> (Ptr CmdPrivateVTable -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CmdPrivateVTable
ptr -> do
    Ptr
  (FunPtr C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback)
-> FunPtr C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback
-> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr CmdPrivateVTable
ptr Ptr CmdPrivateVTable
-> Int
-> Ptr
     (FunPtr C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
40) (FunPtr C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback
forall a. FunPtr a
FP.nullFunPtr :: FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback)

#if defined(ENABLE_OVERLOADING)
data CmdPrivateVTableOstreeRepoVerifyBindingsFieldInfo
instance AttrInfo CmdPrivateVTableOstreeRepoVerifyBindingsFieldInfo where
    type AttrBaseTypeConstraint CmdPrivateVTableOstreeRepoVerifyBindingsFieldInfo = (~) CmdPrivateVTable
    type AttrAllowedOps CmdPrivateVTableOstreeRepoVerifyBindingsFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
    type AttrSetTypeConstraint CmdPrivateVTableOstreeRepoVerifyBindingsFieldInfo = (~) (FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback)
    type AttrTransferTypeConstraint CmdPrivateVTableOstreeRepoVerifyBindingsFieldInfo = (~)(FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback)
    type AttrTransferType CmdPrivateVTableOstreeRepoVerifyBindingsFieldInfo = (FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback)
    type AttrGetType CmdPrivateVTableOstreeRepoVerifyBindingsFieldInfo = Maybe OSTree.Callbacks.CmdPrivateVTableOstreeRepoVerifyBindingsFieldCallback
    type AttrLabel CmdPrivateVTableOstreeRepoVerifyBindingsFieldInfo = "ostree_repo_verify_bindings"
    type AttrOrigin CmdPrivateVTableOstreeRepoVerifyBindingsFieldInfo = CmdPrivateVTable
    attrGet = getCmdPrivateVTableOstreeRepoVerifyBindings
    attrSet = setCmdPrivateVTableOstreeRepoVerifyBindings
    attrConstruct = undefined
    attrClear = clearCmdPrivateVTableOstreeRepoVerifyBindings
    attrTransfer _ v = do
        return v

cmdPrivateVTable_ostreeRepoVerifyBindings :: AttrLabelProxy "ostreeRepoVerifyBindings"
cmdPrivateVTable_ostreeRepoVerifyBindings = AttrLabelProxy

#endif


-- | Get the value of the “@ostree_finalize_staged@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.get' cmdPrivateVTable #ostreeFinalizeStaged
-- @
getCmdPrivateVTableOstreeFinalizeStaged :: MonadIO m => CmdPrivateVTable -> m (Maybe OSTree.Callbacks.CmdPrivateVTableOstreeFinalizeStagedFieldCallback)
getCmdPrivateVTableOstreeFinalizeStaged :: forall (m :: * -> *).
MonadIO m =>
CmdPrivateVTable
-> m (Maybe CmdPrivateVTableOstreeFinalizeStagedFieldCallback)
getCmdPrivateVTableOstreeFinalizeStaged CmdPrivateVTable
s = IO (Maybe CmdPrivateVTableOstreeFinalizeStagedFieldCallback)
-> m (Maybe CmdPrivateVTableOstreeFinalizeStagedFieldCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe CmdPrivateVTableOstreeFinalizeStagedFieldCallback)
 -> m (Maybe CmdPrivateVTableOstreeFinalizeStagedFieldCallback))
-> IO (Maybe CmdPrivateVTableOstreeFinalizeStagedFieldCallback)
-> m (Maybe CmdPrivateVTableOstreeFinalizeStagedFieldCallback)
forall a b. (a -> b) -> a -> b
$ CmdPrivateVTable
-> (Ptr CmdPrivateVTable
    -> IO (Maybe CmdPrivateVTableOstreeFinalizeStagedFieldCallback))
-> IO (Maybe CmdPrivateVTableOstreeFinalizeStagedFieldCallback)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CmdPrivateVTable
s ((Ptr CmdPrivateVTable
  -> IO (Maybe CmdPrivateVTableOstreeFinalizeStagedFieldCallback))
 -> IO (Maybe CmdPrivateVTableOstreeFinalizeStagedFieldCallback))
-> (Ptr CmdPrivateVTable
    -> IO (Maybe CmdPrivateVTableOstreeFinalizeStagedFieldCallback))
-> IO (Maybe CmdPrivateVTableOstreeFinalizeStagedFieldCallback)
forall a b. (a -> b) -> a -> b
$ \Ptr CmdPrivateVTable
ptr -> do
    FunPtr C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback
val <- Ptr (FunPtr C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback)
-> IO (FunPtr C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback)
forall a. Storable a => Ptr a -> IO a
peek (Ptr CmdPrivateVTable
ptr Ptr CmdPrivateVTable
-> Int
-> Ptr (FunPtr C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48) :: IO (FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback)
    Maybe CmdPrivateVTableOstreeFinalizeStagedFieldCallback
result <- FunPtr C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback
-> (FunPtr C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback
    -> IO CmdPrivateVTableOstreeFinalizeStagedFieldCallback)
-> IO (Maybe CmdPrivateVTableOstreeFinalizeStagedFieldCallback)
forall a b. FunPtr a -> (FunPtr a -> IO b) -> IO (Maybe b)
SP.convertFunPtrIfNonNull FunPtr C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback
val ((FunPtr C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback
  -> IO CmdPrivateVTableOstreeFinalizeStagedFieldCallback)
 -> IO (Maybe CmdPrivateVTableOstreeFinalizeStagedFieldCallback))
-> (FunPtr C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback
    -> IO CmdPrivateVTableOstreeFinalizeStagedFieldCallback)
-> IO (Maybe CmdPrivateVTableOstreeFinalizeStagedFieldCallback)
forall a b. (a -> b) -> a -> b
$ \FunPtr C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback
val' -> do
        let val'' :: CmdPrivateVTableOstreeFinalizeStagedFieldCallback
val'' = FunPtr C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback
-> CmdPrivateVTableOstreeFinalizeStagedFieldCallback
forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsSysroot a, IsCancellable b) =>
FunPtr C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback
-> a -> b -> m ()
OSTree.Callbacks.dynamic_CmdPrivateVTableOstreeFinalizeStagedFieldCallback FunPtr C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback
val'
        CmdPrivateVTableOstreeFinalizeStagedFieldCallback
-> IO CmdPrivateVTableOstreeFinalizeStagedFieldCallback
forall (m :: * -> *) a. Monad m => a -> m a
return CmdPrivateVTableOstreeFinalizeStagedFieldCallback
val''
    Maybe CmdPrivateVTableOstreeFinalizeStagedFieldCallback
-> IO (Maybe CmdPrivateVTableOstreeFinalizeStagedFieldCallback)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe CmdPrivateVTableOstreeFinalizeStagedFieldCallback
result

-- | Set the value of the “@ostree_finalize_staged@” field.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.set' cmdPrivateVTable [ #ostreeFinalizeStaged 'Data.GI.Base.Attributes.:=' value ]
-- @
setCmdPrivateVTableOstreeFinalizeStaged :: MonadIO m => CmdPrivateVTable -> FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback -> m ()
setCmdPrivateVTableOstreeFinalizeStaged :: forall (m :: * -> *).
MonadIO m =>
CmdPrivateVTable
-> FunPtr C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback
-> m ()
setCmdPrivateVTableOstreeFinalizeStaged CmdPrivateVTable
s FunPtr C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ CmdPrivateVTable -> (Ptr CmdPrivateVTable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CmdPrivateVTable
s ((Ptr CmdPrivateVTable -> IO ()) -> IO ())
-> (Ptr CmdPrivateVTable -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CmdPrivateVTable
ptr -> do
    Ptr (FunPtr C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback)
-> FunPtr C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback
-> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr CmdPrivateVTable
ptr Ptr CmdPrivateVTable
-> Int
-> Ptr (FunPtr C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48) (FunPtr C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback
val :: FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback)

-- | Set the value of the “@ostree_finalize_staged@” field to `Nothing`.
-- When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to
-- 
-- @
-- 'Data.GI.Base.Attributes.clear' #ostreeFinalizeStaged
-- @
clearCmdPrivateVTableOstreeFinalizeStaged :: MonadIO m => CmdPrivateVTable -> m ()
clearCmdPrivateVTableOstreeFinalizeStaged :: forall (m :: * -> *). MonadIO m => CmdPrivateVTable -> m ()
clearCmdPrivateVTableOstreeFinalizeStaged CmdPrivateVTable
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ CmdPrivateVTable -> (Ptr CmdPrivateVTable -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr CmdPrivateVTable
s ((Ptr CmdPrivateVTable -> IO ()) -> IO ())
-> (Ptr CmdPrivateVTable -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr CmdPrivateVTable
ptr -> do
    Ptr (FunPtr C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback)
-> FunPtr C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback
-> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr CmdPrivateVTable
ptr Ptr CmdPrivateVTable
-> Int
-> Ptr (FunPtr C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
48) (FunPtr C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback
forall a. FunPtr a
FP.nullFunPtr :: FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback)

#if defined(ENABLE_OVERLOADING)
data CmdPrivateVTableOstreeFinalizeStagedFieldInfo
instance AttrInfo CmdPrivateVTableOstreeFinalizeStagedFieldInfo where
    type AttrBaseTypeConstraint CmdPrivateVTableOstreeFinalizeStagedFieldInfo = (~) CmdPrivateVTable
    type AttrAllowedOps CmdPrivateVTableOstreeFinalizeStagedFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
    type AttrSetTypeConstraint CmdPrivateVTableOstreeFinalizeStagedFieldInfo = (~) (FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback)
    type AttrTransferTypeConstraint CmdPrivateVTableOstreeFinalizeStagedFieldInfo = (~)(FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback)
    type AttrTransferType CmdPrivateVTableOstreeFinalizeStagedFieldInfo = (FunPtr OSTree.Callbacks.C_CmdPrivateVTableOstreeFinalizeStagedFieldCallback)
    type AttrGetType CmdPrivateVTableOstreeFinalizeStagedFieldInfo = Maybe OSTree.Callbacks.CmdPrivateVTableOstreeFinalizeStagedFieldCallback
    type AttrLabel CmdPrivateVTableOstreeFinalizeStagedFieldInfo = "ostree_finalize_staged"
    type AttrOrigin CmdPrivateVTableOstreeFinalizeStagedFieldInfo = CmdPrivateVTable
    attrGet = getCmdPrivateVTableOstreeFinalizeStaged
    attrSet = setCmdPrivateVTableOstreeFinalizeStaged
    attrConstruct = undefined
    attrClear = clearCmdPrivateVTableOstreeFinalizeStaged
    attrTransfer _ v = do
        return v

cmdPrivateVTable_ostreeFinalizeStaged :: AttrLabelProxy "ostreeFinalizeStaged"
cmdPrivateVTable_ostreeFinalizeStaged = AttrLabelProxy

#endif



#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList CmdPrivateVTable
type instance O.AttributeList CmdPrivateVTable = CmdPrivateVTableAttributeList
type CmdPrivateVTableAttributeList = ('[ '("ostreeSystemGenerator", CmdPrivateVTableOstreeSystemGeneratorFieldInfo), '("ostreeGenerateGrub2Config", CmdPrivateVTableOstreeGenerateGrub2ConfigFieldInfo), '("ostreeStaticDeltaDump", CmdPrivateVTableOstreeStaticDeltaDumpFieldInfo), '("ostreeStaticDeltaQueryExists", CmdPrivateVTableOstreeStaticDeltaQueryExistsFieldInfo), '("ostreeStaticDeltaDelete", CmdPrivateVTableOstreeStaticDeltaDeleteFieldInfo), '("ostreeRepoVerifyBindings", CmdPrivateVTableOstreeRepoVerifyBindingsFieldInfo), '("ostreeFinalizeStaged", CmdPrivateVTableOstreeFinalizeStagedFieldInfo)] :: [(Symbol, *)])
#endif

#if defined(ENABLE_OVERLOADING)
type family ResolveCmdPrivateVTableMethod (t :: Symbol) (o :: *) :: * where
    ResolveCmdPrivateVTableMethod l o = O.MethodResolutionFailed l o

instance (info ~ ResolveCmdPrivateVTableMethod t CmdPrivateVTable, O.OverloadedMethod info CmdPrivateVTable p) => OL.IsLabel t (CmdPrivateVTable -> p) where
#if MIN_VERSION_base(4,10,0)
    fromLabel = O.overloadedMethod @info
#else
    fromLabel _ = O.overloadedMethod @info
#endif

#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveCmdPrivateVTableMethod t CmdPrivateVTable, O.OverloadedMethod info CmdPrivateVTable p, R.HasField t CmdPrivateVTable p) => R.HasField t CmdPrivateVTable p where
    getField = O.overloadedMethod @info

#endif

instance (info ~ ResolveCmdPrivateVTableMethod t CmdPrivateVTable, O.OverloadedMethodInfo info CmdPrivateVTable) => OL.IsLabel t (O.MethodProxy info CmdPrivateVTable) where
#if MIN_VERSION_base(4,10,0)
    fromLabel = O.MethodProxy
#else
    fromLabel _ = O.MethodProxy
#endif

#endif