#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.OSTree.Structs.RepoCheckoutAtOptions
(
RepoCheckoutAtOptions(..) ,
newZeroRepoCheckoutAtOptions ,
noRepoCheckoutAtOptions ,
#if ENABLE_OVERLOADING
RepoCheckoutAtOptionsSetDevinoMethodInfo,
#endif
repoCheckoutAtOptionsSetDevino ,
getRepoCheckoutAtOptionsBareuseronlyDirs,
#if ENABLE_OVERLOADING
repoCheckoutAtOptions_bareuseronlyDirs ,
#endif
setRepoCheckoutAtOptionsBareuseronlyDirs,
clearRepoCheckoutAtOptionsDevinoToCsumCache,
getRepoCheckoutAtOptionsDevinoToCsumCache,
#if ENABLE_OVERLOADING
repoCheckoutAtOptions_devinoToCsumCache ,
#endif
setRepoCheckoutAtOptionsDevinoToCsumCache,
getRepoCheckoutAtOptionsEnableFsync ,
#if ENABLE_OVERLOADING
repoCheckoutAtOptions_enableFsync ,
#endif
setRepoCheckoutAtOptionsEnableFsync ,
getRepoCheckoutAtOptionsEnableUncompressedCache,
#if ENABLE_OVERLOADING
repoCheckoutAtOptions_enableUncompressedCache,
#endif
setRepoCheckoutAtOptionsEnableUncompressedCache,
clearRepoCheckoutAtOptionsFilter ,
getRepoCheckoutAtOptionsFilter ,
#if ENABLE_OVERLOADING
repoCheckoutAtOptions_filter ,
#endif
setRepoCheckoutAtOptionsFilter ,
clearRepoCheckoutAtOptionsFilterUserData,
getRepoCheckoutAtOptionsFilterUserData ,
#if ENABLE_OVERLOADING
repoCheckoutAtOptions_filterUserData ,
#endif
setRepoCheckoutAtOptionsFilterUserData ,
getRepoCheckoutAtOptionsForceCopy ,
#if ENABLE_OVERLOADING
repoCheckoutAtOptions_forceCopy ,
#endif
setRepoCheckoutAtOptionsForceCopy ,
getRepoCheckoutAtOptionsForceCopyZerosized,
#if ENABLE_OVERLOADING
repoCheckoutAtOptions_forceCopyZerosized,
#endif
setRepoCheckoutAtOptionsForceCopyZerosized,
getRepoCheckoutAtOptionsMode ,
#if ENABLE_OVERLOADING
repoCheckoutAtOptions_mode ,
#endif
setRepoCheckoutAtOptionsMode ,
getRepoCheckoutAtOptionsNoCopyFallback ,
#if ENABLE_OVERLOADING
repoCheckoutAtOptions_noCopyFallback ,
#endif
setRepoCheckoutAtOptionsNoCopyFallback ,
getRepoCheckoutAtOptionsOverwriteMode ,
#if ENABLE_OVERLOADING
repoCheckoutAtOptions_overwriteMode ,
#endif
setRepoCheckoutAtOptionsOverwriteMode ,
getRepoCheckoutAtOptionsProcessWhiteouts,
#if ENABLE_OVERLOADING
repoCheckoutAtOptions_processWhiteouts ,
#endif
setRepoCheckoutAtOptionsProcessWhiteouts,
clearRepoCheckoutAtOptionsSepolicy ,
getRepoCheckoutAtOptionsSepolicy ,
#if ENABLE_OVERLOADING
repoCheckoutAtOptions_sepolicy ,
#endif
setRepoCheckoutAtOptionsSepolicy ,
clearRepoCheckoutAtOptionsSepolicyPrefix,
getRepoCheckoutAtOptionsSepolicyPrefix ,
#if ENABLE_OVERLOADING
repoCheckoutAtOptions_sepolicyPrefix ,
#endif
setRepoCheckoutAtOptionsSepolicyPrefix ,
clearRepoCheckoutAtOptionsSubpath ,
getRepoCheckoutAtOptionsSubpath ,
#if ENABLE_OVERLOADING
repoCheckoutAtOptions_subpath ,
#endif
setRepoCheckoutAtOptionsSubpath ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.OSTree.Callbacks as OSTree.Callbacks
import {-# SOURCE #-} qualified GI.OSTree.Enums as OSTree.Enums
import {-# SOURCE #-} qualified GI.OSTree.Objects.SePolicy as OSTree.SePolicy
import {-# SOURCE #-} qualified GI.OSTree.Structs.RepoDevInoCache as OSTree.RepoDevInoCache
newtype RepoCheckoutAtOptions = RepoCheckoutAtOptions (ManagedPtr RepoCheckoutAtOptions)
instance WrappedPtr RepoCheckoutAtOptions where
wrappedPtrCalloc = callocBytes 152
wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 152 >=> wrapPtr RepoCheckoutAtOptions)
wrappedPtrFree = Just ptr_to_g_free
newZeroRepoCheckoutAtOptions :: MonadIO m => m RepoCheckoutAtOptions
newZeroRepoCheckoutAtOptions = liftIO $ wrappedPtrCalloc >>= wrapPtr RepoCheckoutAtOptions
instance tag ~ 'AttrSet => Constructible RepoCheckoutAtOptions tag where
new _ attrs = do
o <- newZeroRepoCheckoutAtOptions
GI.Attributes.set o attrs
return o
noRepoCheckoutAtOptions :: Maybe RepoCheckoutAtOptions
noRepoCheckoutAtOptions = Nothing
getRepoCheckoutAtOptionsMode :: MonadIO m => RepoCheckoutAtOptions -> m OSTree.Enums.RepoCheckoutMode
getRepoCheckoutAtOptionsMode s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CUInt
let val' = (toEnum . fromIntegral) val
return val'
setRepoCheckoutAtOptionsMode :: MonadIO m => RepoCheckoutAtOptions -> OSTree.Enums.RepoCheckoutMode -> m ()
setRepoCheckoutAtOptionsMode s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = (fromIntegral . fromEnum) val
poke (ptr `plusPtr` 0) (val' :: CUInt)
#if ENABLE_OVERLOADING
data RepoCheckoutAtOptionsModeFieldInfo
instance AttrInfo RepoCheckoutAtOptionsModeFieldInfo where
type AttrAllowedOps RepoCheckoutAtOptionsModeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RepoCheckoutAtOptionsModeFieldInfo = (~) OSTree.Enums.RepoCheckoutMode
type AttrBaseTypeConstraint RepoCheckoutAtOptionsModeFieldInfo = (~) RepoCheckoutAtOptions
type AttrGetType RepoCheckoutAtOptionsModeFieldInfo = OSTree.Enums.RepoCheckoutMode
type AttrLabel RepoCheckoutAtOptionsModeFieldInfo = "mode"
type AttrOrigin RepoCheckoutAtOptionsModeFieldInfo = RepoCheckoutAtOptions
attrGet _ = getRepoCheckoutAtOptionsMode
attrSet _ = setRepoCheckoutAtOptionsMode
attrConstruct = undefined
attrClear _ = undefined
repoCheckoutAtOptions_mode :: AttrLabelProxy "mode"
repoCheckoutAtOptions_mode = AttrLabelProxy
#endif
getRepoCheckoutAtOptionsOverwriteMode :: MonadIO m => RepoCheckoutAtOptions -> m OSTree.Enums.RepoCheckoutOverwriteMode
getRepoCheckoutAtOptionsOverwriteMode s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 4) :: IO CUInt
let val' = (toEnum . fromIntegral) val
return val'
setRepoCheckoutAtOptionsOverwriteMode :: MonadIO m => RepoCheckoutAtOptions -> OSTree.Enums.RepoCheckoutOverwriteMode -> m ()
setRepoCheckoutAtOptionsOverwriteMode s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = (fromIntegral . fromEnum) val
poke (ptr `plusPtr` 4) (val' :: CUInt)
#if ENABLE_OVERLOADING
data RepoCheckoutAtOptionsOverwriteModeFieldInfo
instance AttrInfo RepoCheckoutAtOptionsOverwriteModeFieldInfo where
type AttrAllowedOps RepoCheckoutAtOptionsOverwriteModeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RepoCheckoutAtOptionsOverwriteModeFieldInfo = (~) OSTree.Enums.RepoCheckoutOverwriteMode
type AttrBaseTypeConstraint RepoCheckoutAtOptionsOverwriteModeFieldInfo = (~) RepoCheckoutAtOptions
type AttrGetType RepoCheckoutAtOptionsOverwriteModeFieldInfo = OSTree.Enums.RepoCheckoutOverwriteMode
type AttrLabel RepoCheckoutAtOptionsOverwriteModeFieldInfo = "overwrite_mode"
type AttrOrigin RepoCheckoutAtOptionsOverwriteModeFieldInfo = RepoCheckoutAtOptions
attrGet _ = getRepoCheckoutAtOptionsOverwriteMode
attrSet _ = setRepoCheckoutAtOptionsOverwriteMode
attrConstruct = undefined
attrClear _ = undefined
repoCheckoutAtOptions_overwriteMode :: AttrLabelProxy "overwriteMode"
repoCheckoutAtOptions_overwriteMode = AttrLabelProxy
#endif
getRepoCheckoutAtOptionsEnableUncompressedCache :: MonadIO m => RepoCheckoutAtOptions -> m Bool
getRepoCheckoutAtOptionsEnableUncompressedCache s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO CInt
let val' = (/= 0) val
return val'
setRepoCheckoutAtOptionsEnableUncompressedCache :: MonadIO m => RepoCheckoutAtOptions -> Bool -> m ()
setRepoCheckoutAtOptionsEnableUncompressedCache s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = (fromIntegral . fromEnum) val
poke (ptr `plusPtr` 8) (val' :: CInt)
#if ENABLE_OVERLOADING
data RepoCheckoutAtOptionsEnableUncompressedCacheFieldInfo
instance AttrInfo RepoCheckoutAtOptionsEnableUncompressedCacheFieldInfo where
type AttrAllowedOps RepoCheckoutAtOptionsEnableUncompressedCacheFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RepoCheckoutAtOptionsEnableUncompressedCacheFieldInfo = (~) Bool
type AttrBaseTypeConstraint RepoCheckoutAtOptionsEnableUncompressedCacheFieldInfo = (~) RepoCheckoutAtOptions
type AttrGetType RepoCheckoutAtOptionsEnableUncompressedCacheFieldInfo = Bool
type AttrLabel RepoCheckoutAtOptionsEnableUncompressedCacheFieldInfo = "enable_uncompressed_cache"
type AttrOrigin RepoCheckoutAtOptionsEnableUncompressedCacheFieldInfo = RepoCheckoutAtOptions
attrGet _ = getRepoCheckoutAtOptionsEnableUncompressedCache
attrSet _ = setRepoCheckoutAtOptionsEnableUncompressedCache
attrConstruct = undefined
attrClear _ = undefined
repoCheckoutAtOptions_enableUncompressedCache :: AttrLabelProxy "enableUncompressedCache"
repoCheckoutAtOptions_enableUncompressedCache = AttrLabelProxy
#endif
getRepoCheckoutAtOptionsEnableFsync :: MonadIO m => RepoCheckoutAtOptions -> m Bool
getRepoCheckoutAtOptionsEnableFsync s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 12) :: IO CInt
let val' = (/= 0) val
return val'
setRepoCheckoutAtOptionsEnableFsync :: MonadIO m => RepoCheckoutAtOptions -> Bool -> m ()
setRepoCheckoutAtOptionsEnableFsync s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = (fromIntegral . fromEnum) val
poke (ptr `plusPtr` 12) (val' :: CInt)
#if ENABLE_OVERLOADING
data RepoCheckoutAtOptionsEnableFsyncFieldInfo
instance AttrInfo RepoCheckoutAtOptionsEnableFsyncFieldInfo where
type AttrAllowedOps RepoCheckoutAtOptionsEnableFsyncFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RepoCheckoutAtOptionsEnableFsyncFieldInfo = (~) Bool
type AttrBaseTypeConstraint RepoCheckoutAtOptionsEnableFsyncFieldInfo = (~) RepoCheckoutAtOptions
type AttrGetType RepoCheckoutAtOptionsEnableFsyncFieldInfo = Bool
type AttrLabel RepoCheckoutAtOptionsEnableFsyncFieldInfo = "enable_fsync"
type AttrOrigin RepoCheckoutAtOptionsEnableFsyncFieldInfo = RepoCheckoutAtOptions
attrGet _ = getRepoCheckoutAtOptionsEnableFsync
attrSet _ = setRepoCheckoutAtOptionsEnableFsync
attrConstruct = undefined
attrClear _ = undefined
repoCheckoutAtOptions_enableFsync :: AttrLabelProxy "enableFsync"
repoCheckoutAtOptions_enableFsync = AttrLabelProxy
#endif
getRepoCheckoutAtOptionsProcessWhiteouts :: MonadIO m => RepoCheckoutAtOptions -> m Bool
getRepoCheckoutAtOptionsProcessWhiteouts s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO CInt
let val' = (/= 0) val
return val'
setRepoCheckoutAtOptionsProcessWhiteouts :: MonadIO m => RepoCheckoutAtOptions -> Bool -> m ()
setRepoCheckoutAtOptionsProcessWhiteouts s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = (fromIntegral . fromEnum) val
poke (ptr `plusPtr` 16) (val' :: CInt)
#if ENABLE_OVERLOADING
data RepoCheckoutAtOptionsProcessWhiteoutsFieldInfo
instance AttrInfo RepoCheckoutAtOptionsProcessWhiteoutsFieldInfo where
type AttrAllowedOps RepoCheckoutAtOptionsProcessWhiteoutsFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RepoCheckoutAtOptionsProcessWhiteoutsFieldInfo = (~) Bool
type AttrBaseTypeConstraint RepoCheckoutAtOptionsProcessWhiteoutsFieldInfo = (~) RepoCheckoutAtOptions
type AttrGetType RepoCheckoutAtOptionsProcessWhiteoutsFieldInfo = Bool
type AttrLabel RepoCheckoutAtOptionsProcessWhiteoutsFieldInfo = "process_whiteouts"
type AttrOrigin RepoCheckoutAtOptionsProcessWhiteoutsFieldInfo = RepoCheckoutAtOptions
attrGet _ = getRepoCheckoutAtOptionsProcessWhiteouts
attrSet _ = setRepoCheckoutAtOptionsProcessWhiteouts
attrConstruct = undefined
attrClear _ = undefined
repoCheckoutAtOptions_processWhiteouts :: AttrLabelProxy "processWhiteouts"
repoCheckoutAtOptions_processWhiteouts = AttrLabelProxy
#endif
getRepoCheckoutAtOptionsNoCopyFallback :: MonadIO m => RepoCheckoutAtOptions -> m Bool
getRepoCheckoutAtOptionsNoCopyFallback s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 20) :: IO CInt
let val' = (/= 0) val
return val'
setRepoCheckoutAtOptionsNoCopyFallback :: MonadIO m => RepoCheckoutAtOptions -> Bool -> m ()
setRepoCheckoutAtOptionsNoCopyFallback s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = (fromIntegral . fromEnum) val
poke (ptr `plusPtr` 20) (val' :: CInt)
#if ENABLE_OVERLOADING
data RepoCheckoutAtOptionsNoCopyFallbackFieldInfo
instance AttrInfo RepoCheckoutAtOptionsNoCopyFallbackFieldInfo where
type AttrAllowedOps RepoCheckoutAtOptionsNoCopyFallbackFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RepoCheckoutAtOptionsNoCopyFallbackFieldInfo = (~) Bool
type AttrBaseTypeConstraint RepoCheckoutAtOptionsNoCopyFallbackFieldInfo = (~) RepoCheckoutAtOptions
type AttrGetType RepoCheckoutAtOptionsNoCopyFallbackFieldInfo = Bool
type AttrLabel RepoCheckoutAtOptionsNoCopyFallbackFieldInfo = "no_copy_fallback"
type AttrOrigin RepoCheckoutAtOptionsNoCopyFallbackFieldInfo = RepoCheckoutAtOptions
attrGet _ = getRepoCheckoutAtOptionsNoCopyFallback
attrSet _ = setRepoCheckoutAtOptionsNoCopyFallback
attrConstruct = undefined
attrClear _ = undefined
repoCheckoutAtOptions_noCopyFallback :: AttrLabelProxy "noCopyFallback"
repoCheckoutAtOptions_noCopyFallback = AttrLabelProxy
#endif
getRepoCheckoutAtOptionsForceCopy :: MonadIO m => RepoCheckoutAtOptions -> m Bool
getRepoCheckoutAtOptionsForceCopy s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO CInt
let val' = (/= 0) val
return val'
setRepoCheckoutAtOptionsForceCopy :: MonadIO m => RepoCheckoutAtOptions -> Bool -> m ()
setRepoCheckoutAtOptionsForceCopy s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = (fromIntegral . fromEnum) val
poke (ptr `plusPtr` 24) (val' :: CInt)
#if ENABLE_OVERLOADING
data RepoCheckoutAtOptionsForceCopyFieldInfo
instance AttrInfo RepoCheckoutAtOptionsForceCopyFieldInfo where
type AttrAllowedOps RepoCheckoutAtOptionsForceCopyFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RepoCheckoutAtOptionsForceCopyFieldInfo = (~) Bool
type AttrBaseTypeConstraint RepoCheckoutAtOptionsForceCopyFieldInfo = (~) RepoCheckoutAtOptions
type AttrGetType RepoCheckoutAtOptionsForceCopyFieldInfo = Bool
type AttrLabel RepoCheckoutAtOptionsForceCopyFieldInfo = "force_copy"
type AttrOrigin RepoCheckoutAtOptionsForceCopyFieldInfo = RepoCheckoutAtOptions
attrGet _ = getRepoCheckoutAtOptionsForceCopy
attrSet _ = setRepoCheckoutAtOptionsForceCopy
attrConstruct = undefined
attrClear _ = undefined
repoCheckoutAtOptions_forceCopy :: AttrLabelProxy "forceCopy"
repoCheckoutAtOptions_forceCopy = AttrLabelProxy
#endif
getRepoCheckoutAtOptionsBareuseronlyDirs :: MonadIO m => RepoCheckoutAtOptions -> m Bool
getRepoCheckoutAtOptionsBareuseronlyDirs s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 28) :: IO CInt
let val' = (/= 0) val
return val'
setRepoCheckoutAtOptionsBareuseronlyDirs :: MonadIO m => RepoCheckoutAtOptions -> Bool -> m ()
setRepoCheckoutAtOptionsBareuseronlyDirs s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = (fromIntegral . fromEnum) val
poke (ptr `plusPtr` 28) (val' :: CInt)
#if ENABLE_OVERLOADING
data RepoCheckoutAtOptionsBareuseronlyDirsFieldInfo
instance AttrInfo RepoCheckoutAtOptionsBareuseronlyDirsFieldInfo where
type AttrAllowedOps RepoCheckoutAtOptionsBareuseronlyDirsFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RepoCheckoutAtOptionsBareuseronlyDirsFieldInfo = (~) Bool
type AttrBaseTypeConstraint RepoCheckoutAtOptionsBareuseronlyDirsFieldInfo = (~) RepoCheckoutAtOptions
type AttrGetType RepoCheckoutAtOptionsBareuseronlyDirsFieldInfo = Bool
type AttrLabel RepoCheckoutAtOptionsBareuseronlyDirsFieldInfo = "bareuseronly_dirs"
type AttrOrigin RepoCheckoutAtOptionsBareuseronlyDirsFieldInfo = RepoCheckoutAtOptions
attrGet _ = getRepoCheckoutAtOptionsBareuseronlyDirs
attrSet _ = setRepoCheckoutAtOptionsBareuseronlyDirs
attrConstruct = undefined
attrClear _ = undefined
repoCheckoutAtOptions_bareuseronlyDirs :: AttrLabelProxy "bareuseronlyDirs"
repoCheckoutAtOptions_bareuseronlyDirs = AttrLabelProxy
#endif
getRepoCheckoutAtOptionsForceCopyZerosized :: MonadIO m => RepoCheckoutAtOptions -> m Bool
getRepoCheckoutAtOptionsForceCopyZerosized s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO CInt
let val' = (/= 0) val
return val'
setRepoCheckoutAtOptionsForceCopyZerosized :: MonadIO m => RepoCheckoutAtOptions -> Bool -> m ()
setRepoCheckoutAtOptionsForceCopyZerosized s val = liftIO $ withManagedPtr s $ \ptr -> do
let val' = (fromIntegral . fromEnum) val
poke (ptr `plusPtr` 32) (val' :: CInt)
#if ENABLE_OVERLOADING
data RepoCheckoutAtOptionsForceCopyZerosizedFieldInfo
instance AttrInfo RepoCheckoutAtOptionsForceCopyZerosizedFieldInfo where
type AttrAllowedOps RepoCheckoutAtOptionsForceCopyZerosizedFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RepoCheckoutAtOptionsForceCopyZerosizedFieldInfo = (~) Bool
type AttrBaseTypeConstraint RepoCheckoutAtOptionsForceCopyZerosizedFieldInfo = (~) RepoCheckoutAtOptions
type AttrGetType RepoCheckoutAtOptionsForceCopyZerosizedFieldInfo = Bool
type AttrLabel RepoCheckoutAtOptionsForceCopyZerosizedFieldInfo = "force_copy_zerosized"
type AttrOrigin RepoCheckoutAtOptionsForceCopyZerosizedFieldInfo = RepoCheckoutAtOptions
attrGet _ = getRepoCheckoutAtOptionsForceCopyZerosized
attrSet _ = setRepoCheckoutAtOptionsForceCopyZerosized
attrConstruct = undefined
attrClear _ = undefined
repoCheckoutAtOptions_forceCopyZerosized :: AttrLabelProxy "forceCopyZerosized"
repoCheckoutAtOptions_forceCopyZerosized = AttrLabelProxy
#endif
getRepoCheckoutAtOptionsSubpath :: MonadIO m => RepoCheckoutAtOptions -> m (Maybe T.Text)
getRepoCheckoutAtOptionsSubpath s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 56) :: IO CString
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- cstringToText val'
return val''
return result
setRepoCheckoutAtOptionsSubpath :: MonadIO m => RepoCheckoutAtOptions -> CString -> m ()
setRepoCheckoutAtOptionsSubpath s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 56) (val :: CString)
clearRepoCheckoutAtOptionsSubpath :: MonadIO m => RepoCheckoutAtOptions -> m ()
clearRepoCheckoutAtOptionsSubpath s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 56) (FP.nullPtr :: CString)
#if ENABLE_OVERLOADING
data RepoCheckoutAtOptionsSubpathFieldInfo
instance AttrInfo RepoCheckoutAtOptionsSubpathFieldInfo where
type AttrAllowedOps RepoCheckoutAtOptionsSubpathFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RepoCheckoutAtOptionsSubpathFieldInfo = (~) CString
type AttrBaseTypeConstraint RepoCheckoutAtOptionsSubpathFieldInfo = (~) RepoCheckoutAtOptions
type AttrGetType RepoCheckoutAtOptionsSubpathFieldInfo = Maybe T.Text
type AttrLabel RepoCheckoutAtOptionsSubpathFieldInfo = "subpath"
type AttrOrigin RepoCheckoutAtOptionsSubpathFieldInfo = RepoCheckoutAtOptions
attrGet _ = getRepoCheckoutAtOptionsSubpath
attrSet _ = setRepoCheckoutAtOptionsSubpath
attrConstruct = undefined
attrClear _ = clearRepoCheckoutAtOptionsSubpath
repoCheckoutAtOptions_subpath :: AttrLabelProxy "subpath"
repoCheckoutAtOptions_subpath = AttrLabelProxy
#endif
getRepoCheckoutAtOptionsDevinoToCsumCache :: MonadIO m => RepoCheckoutAtOptions -> m (Maybe OSTree.RepoDevInoCache.RepoDevInoCache)
getRepoCheckoutAtOptionsDevinoToCsumCache s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 64) :: IO (Ptr OSTree.RepoDevInoCache.RepoDevInoCache)
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- (newBoxed OSTree.RepoDevInoCache.RepoDevInoCache) val'
return val''
return result
setRepoCheckoutAtOptionsDevinoToCsumCache :: MonadIO m => RepoCheckoutAtOptions -> Ptr OSTree.RepoDevInoCache.RepoDevInoCache -> m ()
setRepoCheckoutAtOptionsDevinoToCsumCache s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 64) (val :: Ptr OSTree.RepoDevInoCache.RepoDevInoCache)
clearRepoCheckoutAtOptionsDevinoToCsumCache :: MonadIO m => RepoCheckoutAtOptions -> m ()
clearRepoCheckoutAtOptionsDevinoToCsumCache s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 64) (FP.nullPtr :: Ptr OSTree.RepoDevInoCache.RepoDevInoCache)
#if ENABLE_OVERLOADING
data RepoCheckoutAtOptionsDevinoToCsumCacheFieldInfo
instance AttrInfo RepoCheckoutAtOptionsDevinoToCsumCacheFieldInfo where
type AttrAllowedOps RepoCheckoutAtOptionsDevinoToCsumCacheFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RepoCheckoutAtOptionsDevinoToCsumCacheFieldInfo = (~) (Ptr OSTree.RepoDevInoCache.RepoDevInoCache)
type AttrBaseTypeConstraint RepoCheckoutAtOptionsDevinoToCsumCacheFieldInfo = (~) RepoCheckoutAtOptions
type AttrGetType RepoCheckoutAtOptionsDevinoToCsumCacheFieldInfo = Maybe OSTree.RepoDevInoCache.RepoDevInoCache
type AttrLabel RepoCheckoutAtOptionsDevinoToCsumCacheFieldInfo = "devino_to_csum_cache"
type AttrOrigin RepoCheckoutAtOptionsDevinoToCsumCacheFieldInfo = RepoCheckoutAtOptions
attrGet _ = getRepoCheckoutAtOptionsDevinoToCsumCache
attrSet _ = setRepoCheckoutAtOptionsDevinoToCsumCache
attrConstruct = undefined
attrClear _ = clearRepoCheckoutAtOptionsDevinoToCsumCache
repoCheckoutAtOptions_devinoToCsumCache :: AttrLabelProxy "devinoToCsumCache"
repoCheckoutAtOptions_devinoToCsumCache = AttrLabelProxy
#endif
getRepoCheckoutAtOptionsFilter :: MonadIO m => RepoCheckoutAtOptions -> m (Maybe OSTree.Callbacks.RepoCheckoutFilter_WithClosures)
getRepoCheckoutAtOptionsFilter s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 120) :: IO (FunPtr OSTree.Callbacks.C_RepoCheckoutFilter)
result <- SP.convertFunPtrIfNonNull val $ \val' -> do
let val'' = OSTree.Callbacks.dynamic_RepoCheckoutFilter val'
return val''
return result
setRepoCheckoutAtOptionsFilter :: MonadIO m => RepoCheckoutAtOptions -> FunPtr OSTree.Callbacks.C_RepoCheckoutFilter -> m ()
setRepoCheckoutAtOptionsFilter s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 120) (val :: FunPtr OSTree.Callbacks.C_RepoCheckoutFilter)
clearRepoCheckoutAtOptionsFilter :: MonadIO m => RepoCheckoutAtOptions -> m ()
clearRepoCheckoutAtOptionsFilter s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 120) (FP.nullFunPtr :: FunPtr OSTree.Callbacks.C_RepoCheckoutFilter)
#if ENABLE_OVERLOADING
data RepoCheckoutAtOptionsFilterFieldInfo
instance AttrInfo RepoCheckoutAtOptionsFilterFieldInfo where
type AttrAllowedOps RepoCheckoutAtOptionsFilterFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RepoCheckoutAtOptionsFilterFieldInfo = (~) (FunPtr OSTree.Callbacks.C_RepoCheckoutFilter)
type AttrBaseTypeConstraint RepoCheckoutAtOptionsFilterFieldInfo = (~) RepoCheckoutAtOptions
type AttrGetType RepoCheckoutAtOptionsFilterFieldInfo = Maybe OSTree.Callbacks.RepoCheckoutFilter_WithClosures
type AttrLabel RepoCheckoutAtOptionsFilterFieldInfo = "filter"
type AttrOrigin RepoCheckoutAtOptionsFilterFieldInfo = RepoCheckoutAtOptions
attrGet _ = getRepoCheckoutAtOptionsFilter
attrSet _ = setRepoCheckoutAtOptionsFilter
attrConstruct = undefined
attrClear _ = clearRepoCheckoutAtOptionsFilter
repoCheckoutAtOptions_filter :: AttrLabelProxy "filter"
repoCheckoutAtOptions_filter = AttrLabelProxy
#endif
getRepoCheckoutAtOptionsFilterUserData :: MonadIO m => RepoCheckoutAtOptions -> m (Ptr ())
getRepoCheckoutAtOptionsFilterUserData s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 128) :: IO (Ptr ())
return val
setRepoCheckoutAtOptionsFilterUserData :: MonadIO m => RepoCheckoutAtOptions -> Ptr () -> m ()
setRepoCheckoutAtOptionsFilterUserData s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 128) (val :: Ptr ())
clearRepoCheckoutAtOptionsFilterUserData :: MonadIO m => RepoCheckoutAtOptions -> m ()
clearRepoCheckoutAtOptionsFilterUserData s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 128) (FP.nullPtr :: Ptr ())
#if ENABLE_OVERLOADING
data RepoCheckoutAtOptionsFilterUserDataFieldInfo
instance AttrInfo RepoCheckoutAtOptionsFilterUserDataFieldInfo where
type AttrAllowedOps RepoCheckoutAtOptionsFilterUserDataFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RepoCheckoutAtOptionsFilterUserDataFieldInfo = (~) (Ptr ())
type AttrBaseTypeConstraint RepoCheckoutAtOptionsFilterUserDataFieldInfo = (~) RepoCheckoutAtOptions
type AttrGetType RepoCheckoutAtOptionsFilterUserDataFieldInfo = Ptr ()
type AttrLabel RepoCheckoutAtOptionsFilterUserDataFieldInfo = "filter_user_data"
type AttrOrigin RepoCheckoutAtOptionsFilterUserDataFieldInfo = RepoCheckoutAtOptions
attrGet _ = getRepoCheckoutAtOptionsFilterUserData
attrSet _ = setRepoCheckoutAtOptionsFilterUserData
attrConstruct = undefined
attrClear _ = clearRepoCheckoutAtOptionsFilterUserData
repoCheckoutAtOptions_filterUserData :: AttrLabelProxy "filterUserData"
repoCheckoutAtOptions_filterUserData = AttrLabelProxy
#endif
getRepoCheckoutAtOptionsSepolicy :: MonadIO m => RepoCheckoutAtOptions -> m (Maybe OSTree.SePolicy.SePolicy)
getRepoCheckoutAtOptionsSepolicy s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 136) :: IO (Ptr OSTree.SePolicy.SePolicy)
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- (newObject OSTree.SePolicy.SePolicy) val'
return val''
return result
setRepoCheckoutAtOptionsSepolicy :: MonadIO m => RepoCheckoutAtOptions -> Ptr OSTree.SePolicy.SePolicy -> m ()
setRepoCheckoutAtOptionsSepolicy s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 136) (val :: Ptr OSTree.SePolicy.SePolicy)
clearRepoCheckoutAtOptionsSepolicy :: MonadIO m => RepoCheckoutAtOptions -> m ()
clearRepoCheckoutAtOptionsSepolicy s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 136) (FP.nullPtr :: Ptr OSTree.SePolicy.SePolicy)
#if ENABLE_OVERLOADING
data RepoCheckoutAtOptionsSepolicyFieldInfo
instance AttrInfo RepoCheckoutAtOptionsSepolicyFieldInfo where
type AttrAllowedOps RepoCheckoutAtOptionsSepolicyFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RepoCheckoutAtOptionsSepolicyFieldInfo = (~) (Ptr OSTree.SePolicy.SePolicy)
type AttrBaseTypeConstraint RepoCheckoutAtOptionsSepolicyFieldInfo = (~) RepoCheckoutAtOptions
type AttrGetType RepoCheckoutAtOptionsSepolicyFieldInfo = Maybe OSTree.SePolicy.SePolicy
type AttrLabel RepoCheckoutAtOptionsSepolicyFieldInfo = "sepolicy"
type AttrOrigin RepoCheckoutAtOptionsSepolicyFieldInfo = RepoCheckoutAtOptions
attrGet _ = getRepoCheckoutAtOptionsSepolicy
attrSet _ = setRepoCheckoutAtOptionsSepolicy
attrConstruct = undefined
attrClear _ = clearRepoCheckoutAtOptionsSepolicy
repoCheckoutAtOptions_sepolicy :: AttrLabelProxy "sepolicy"
repoCheckoutAtOptions_sepolicy = AttrLabelProxy
#endif
getRepoCheckoutAtOptionsSepolicyPrefix :: MonadIO m => RepoCheckoutAtOptions -> m (Maybe T.Text)
getRepoCheckoutAtOptionsSepolicyPrefix s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 144) :: IO CString
result <- SP.convertIfNonNull val $ \val' -> do
val'' <- cstringToText val'
return val''
return result
setRepoCheckoutAtOptionsSepolicyPrefix :: MonadIO m => RepoCheckoutAtOptions -> CString -> m ()
setRepoCheckoutAtOptionsSepolicyPrefix s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 144) (val :: CString)
clearRepoCheckoutAtOptionsSepolicyPrefix :: MonadIO m => RepoCheckoutAtOptions -> m ()
clearRepoCheckoutAtOptionsSepolicyPrefix s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 144) (FP.nullPtr :: CString)
#if ENABLE_OVERLOADING
data RepoCheckoutAtOptionsSepolicyPrefixFieldInfo
instance AttrInfo RepoCheckoutAtOptionsSepolicyPrefixFieldInfo where
type AttrAllowedOps RepoCheckoutAtOptionsSepolicyPrefixFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RepoCheckoutAtOptionsSepolicyPrefixFieldInfo = (~) CString
type AttrBaseTypeConstraint RepoCheckoutAtOptionsSepolicyPrefixFieldInfo = (~) RepoCheckoutAtOptions
type AttrGetType RepoCheckoutAtOptionsSepolicyPrefixFieldInfo = Maybe T.Text
type AttrLabel RepoCheckoutAtOptionsSepolicyPrefixFieldInfo = "sepolicy_prefix"
type AttrOrigin RepoCheckoutAtOptionsSepolicyPrefixFieldInfo = RepoCheckoutAtOptions
attrGet _ = getRepoCheckoutAtOptionsSepolicyPrefix
attrSet _ = setRepoCheckoutAtOptionsSepolicyPrefix
attrConstruct = undefined
attrClear _ = clearRepoCheckoutAtOptionsSepolicyPrefix
repoCheckoutAtOptions_sepolicyPrefix :: AttrLabelProxy "sepolicyPrefix"
repoCheckoutAtOptions_sepolicyPrefix = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList RepoCheckoutAtOptions
type instance O.AttributeList RepoCheckoutAtOptions = RepoCheckoutAtOptionsAttributeList
type RepoCheckoutAtOptionsAttributeList = ('[ '("mode", RepoCheckoutAtOptionsModeFieldInfo), '("overwriteMode", RepoCheckoutAtOptionsOverwriteModeFieldInfo), '("enableUncompressedCache", RepoCheckoutAtOptionsEnableUncompressedCacheFieldInfo), '("enableFsync", RepoCheckoutAtOptionsEnableFsyncFieldInfo), '("processWhiteouts", RepoCheckoutAtOptionsProcessWhiteoutsFieldInfo), '("noCopyFallback", RepoCheckoutAtOptionsNoCopyFallbackFieldInfo), '("forceCopy", RepoCheckoutAtOptionsForceCopyFieldInfo), '("bareuseronlyDirs", RepoCheckoutAtOptionsBareuseronlyDirsFieldInfo), '("forceCopyZerosized", RepoCheckoutAtOptionsForceCopyZerosizedFieldInfo), '("subpath", RepoCheckoutAtOptionsSubpathFieldInfo), '("devinoToCsumCache", RepoCheckoutAtOptionsDevinoToCsumCacheFieldInfo), '("filter", RepoCheckoutAtOptionsFilterFieldInfo), '("filterUserData", RepoCheckoutAtOptionsFilterUserDataFieldInfo), '("sepolicy", RepoCheckoutAtOptionsSepolicyFieldInfo), '("sepolicyPrefix", RepoCheckoutAtOptionsSepolicyPrefixFieldInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "ostree_repo_checkout_at_options_set_devino" ostree_repo_checkout_at_options_set_devino ::
Ptr RepoCheckoutAtOptions ->
Ptr OSTree.RepoDevInoCache.RepoDevInoCache ->
IO ()
repoCheckoutAtOptionsSetDevino ::
(B.CallStack.HasCallStack, MonadIO m) =>
RepoCheckoutAtOptions
-> Maybe (OSTree.RepoDevInoCache.RepoDevInoCache)
-> m ()
repoCheckoutAtOptionsSetDevino opts cache = liftIO $ do
opts' <- unsafeManagedPtrGetPtr opts
maybeCache <- case cache of
Nothing -> return nullPtr
Just jCache -> do
jCache' <- unsafeManagedPtrGetPtr jCache
return jCache'
ostree_repo_checkout_at_options_set_devino opts' maybeCache
touchManagedPtr opts
whenJust cache touchManagedPtr
return ()
#if ENABLE_OVERLOADING
data RepoCheckoutAtOptionsSetDevinoMethodInfo
instance (signature ~ (Maybe (OSTree.RepoDevInoCache.RepoDevInoCache) -> m ()), MonadIO m) => O.MethodInfo RepoCheckoutAtOptionsSetDevinoMethodInfo RepoCheckoutAtOptions signature where
overloadedMethod _ = repoCheckoutAtOptionsSetDevino
#endif
#if ENABLE_OVERLOADING
type family ResolveRepoCheckoutAtOptionsMethod (t :: Symbol) (o :: *) :: * where
ResolveRepoCheckoutAtOptionsMethod "setDevino" o = RepoCheckoutAtOptionsSetDevinoMethodInfo
ResolveRepoCheckoutAtOptionsMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveRepoCheckoutAtOptionsMethod t RepoCheckoutAtOptions, O.MethodInfo info RepoCheckoutAtOptions p) => OL.IsLabel t (RepoCheckoutAtOptions -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif