{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.OSTree.Structs.RepoCheckoutAtOptions
(
RepoCheckoutAtOptions(..) ,
newZeroRepoCheckoutAtOptions ,
noRepoCheckoutAtOptions ,
#if defined(ENABLE_OVERLOADING)
ResolveRepoCheckoutAtOptionsMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
RepoCheckoutAtOptionsSetDevinoMethodInfo,
#endif
repoCheckoutAtOptionsSetDevino ,
getRepoCheckoutAtOptionsBareuseronlyDirs,
#if defined(ENABLE_OVERLOADING)
repoCheckoutAtOptions_bareuseronlyDirs ,
#endif
setRepoCheckoutAtOptionsBareuseronlyDirs,
clearRepoCheckoutAtOptionsDevinoToCsumCache,
getRepoCheckoutAtOptionsDevinoToCsumCache,
#if defined(ENABLE_OVERLOADING)
repoCheckoutAtOptions_devinoToCsumCache ,
#endif
setRepoCheckoutAtOptionsDevinoToCsumCache,
getRepoCheckoutAtOptionsEnableFsync ,
#if defined(ENABLE_OVERLOADING)
repoCheckoutAtOptions_enableFsync ,
#endif
setRepoCheckoutAtOptionsEnableFsync ,
getRepoCheckoutAtOptionsEnableUncompressedCache,
#if defined(ENABLE_OVERLOADING)
repoCheckoutAtOptions_enableUncompressedCache,
#endif
setRepoCheckoutAtOptionsEnableUncompressedCache,
clearRepoCheckoutAtOptionsFilter ,
getRepoCheckoutAtOptionsFilter ,
#if defined(ENABLE_OVERLOADING)
repoCheckoutAtOptions_filter ,
#endif
setRepoCheckoutAtOptionsFilter ,
clearRepoCheckoutAtOptionsFilterUserData,
getRepoCheckoutAtOptionsFilterUserData ,
#if defined(ENABLE_OVERLOADING)
repoCheckoutAtOptions_filterUserData ,
#endif
setRepoCheckoutAtOptionsFilterUserData ,
getRepoCheckoutAtOptionsForceCopy ,
#if defined(ENABLE_OVERLOADING)
repoCheckoutAtOptions_forceCopy ,
#endif
setRepoCheckoutAtOptionsForceCopy ,
getRepoCheckoutAtOptionsForceCopyZerosized,
#if defined(ENABLE_OVERLOADING)
repoCheckoutAtOptions_forceCopyZerosized,
#endif
setRepoCheckoutAtOptionsForceCopyZerosized,
getRepoCheckoutAtOptionsMode ,
#if defined(ENABLE_OVERLOADING)
repoCheckoutAtOptions_mode ,
#endif
setRepoCheckoutAtOptionsMode ,
getRepoCheckoutAtOptionsNoCopyFallback ,
#if defined(ENABLE_OVERLOADING)
repoCheckoutAtOptions_noCopyFallback ,
#endif
setRepoCheckoutAtOptionsNoCopyFallback ,
getRepoCheckoutAtOptionsOverwriteMode ,
#if defined(ENABLE_OVERLOADING)
repoCheckoutAtOptions_overwriteMode ,
#endif
setRepoCheckoutAtOptionsOverwriteMode ,
getRepoCheckoutAtOptionsProcessWhiteouts,
#if defined(ENABLE_OVERLOADING)
repoCheckoutAtOptions_processWhiteouts ,
#endif
setRepoCheckoutAtOptionsProcessWhiteouts,
clearRepoCheckoutAtOptionsSepolicy ,
getRepoCheckoutAtOptionsSepolicy ,
#if defined(ENABLE_OVERLOADING)
repoCheckoutAtOptions_sepolicy ,
#endif
setRepoCheckoutAtOptionsSepolicy ,
clearRepoCheckoutAtOptionsSepolicyPrefix,
getRepoCheckoutAtOptionsSepolicyPrefix ,
#if defined(ENABLE_OVERLOADING)
repoCheckoutAtOptions_sepolicyPrefix ,
#endif
setRepoCheckoutAtOptionsSepolicyPrefix ,
clearRepoCheckoutAtOptionsSubpath ,
getRepoCheckoutAtOptionsSubpath ,
#if defined(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.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.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)
deriving (Eq)
instance WrappedPtr RepoCheckoutAtOptions where
wrappedPtrCalloc = callocBytes 112
wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 112 >=> 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 defined(ENABLE_OVERLOADING)
data RepoCheckoutAtOptionsModeFieldInfo
instance AttrInfo RepoCheckoutAtOptionsModeFieldInfo where
type AttrBaseTypeConstraint RepoCheckoutAtOptionsModeFieldInfo = (~) RepoCheckoutAtOptions
type AttrAllowedOps RepoCheckoutAtOptionsModeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RepoCheckoutAtOptionsModeFieldInfo = (~) OSTree.Enums.RepoCheckoutMode
type AttrTransferTypeConstraint RepoCheckoutAtOptionsModeFieldInfo = (~)OSTree.Enums.RepoCheckoutMode
type AttrTransferType RepoCheckoutAtOptionsModeFieldInfo = OSTree.Enums.RepoCheckoutMode
type AttrGetType RepoCheckoutAtOptionsModeFieldInfo = OSTree.Enums.RepoCheckoutMode
type AttrLabel RepoCheckoutAtOptionsModeFieldInfo = "mode"
type AttrOrigin RepoCheckoutAtOptionsModeFieldInfo = RepoCheckoutAtOptions
attrGet = getRepoCheckoutAtOptionsMode
attrSet = setRepoCheckoutAtOptionsMode
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
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 defined(ENABLE_OVERLOADING)
data RepoCheckoutAtOptionsOverwriteModeFieldInfo
instance AttrInfo RepoCheckoutAtOptionsOverwriteModeFieldInfo where
type AttrBaseTypeConstraint RepoCheckoutAtOptionsOverwriteModeFieldInfo = (~) RepoCheckoutAtOptions
type AttrAllowedOps RepoCheckoutAtOptionsOverwriteModeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RepoCheckoutAtOptionsOverwriteModeFieldInfo = (~) OSTree.Enums.RepoCheckoutOverwriteMode
type AttrTransferTypeConstraint RepoCheckoutAtOptionsOverwriteModeFieldInfo = (~)OSTree.Enums.RepoCheckoutOverwriteMode
type AttrTransferType RepoCheckoutAtOptionsOverwriteModeFieldInfo = OSTree.Enums.RepoCheckoutOverwriteMode
type AttrGetType RepoCheckoutAtOptionsOverwriteModeFieldInfo = OSTree.Enums.RepoCheckoutOverwriteMode
type AttrLabel RepoCheckoutAtOptionsOverwriteModeFieldInfo = "overwrite_mode"
type AttrOrigin RepoCheckoutAtOptionsOverwriteModeFieldInfo = RepoCheckoutAtOptions
attrGet = getRepoCheckoutAtOptionsOverwriteMode
attrSet = setRepoCheckoutAtOptionsOverwriteMode
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
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 defined(ENABLE_OVERLOADING)
data RepoCheckoutAtOptionsEnableUncompressedCacheFieldInfo
instance AttrInfo RepoCheckoutAtOptionsEnableUncompressedCacheFieldInfo where
type AttrBaseTypeConstraint RepoCheckoutAtOptionsEnableUncompressedCacheFieldInfo = (~) RepoCheckoutAtOptions
type AttrAllowedOps RepoCheckoutAtOptionsEnableUncompressedCacheFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RepoCheckoutAtOptionsEnableUncompressedCacheFieldInfo = (~) Bool
type AttrTransferTypeConstraint RepoCheckoutAtOptionsEnableUncompressedCacheFieldInfo = (~)Bool
type AttrTransferType RepoCheckoutAtOptionsEnableUncompressedCacheFieldInfo = Bool
type AttrGetType RepoCheckoutAtOptionsEnableUncompressedCacheFieldInfo = Bool
type AttrLabel RepoCheckoutAtOptionsEnableUncompressedCacheFieldInfo = "enable_uncompressed_cache"
type AttrOrigin RepoCheckoutAtOptionsEnableUncompressedCacheFieldInfo = RepoCheckoutAtOptions
attrGet = getRepoCheckoutAtOptionsEnableUncompressedCache
attrSet = setRepoCheckoutAtOptionsEnableUncompressedCache
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
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 defined(ENABLE_OVERLOADING)
data RepoCheckoutAtOptionsEnableFsyncFieldInfo
instance AttrInfo RepoCheckoutAtOptionsEnableFsyncFieldInfo where
type AttrBaseTypeConstraint RepoCheckoutAtOptionsEnableFsyncFieldInfo = (~) RepoCheckoutAtOptions
type AttrAllowedOps RepoCheckoutAtOptionsEnableFsyncFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RepoCheckoutAtOptionsEnableFsyncFieldInfo = (~) Bool
type AttrTransferTypeConstraint RepoCheckoutAtOptionsEnableFsyncFieldInfo = (~)Bool
type AttrTransferType RepoCheckoutAtOptionsEnableFsyncFieldInfo = Bool
type AttrGetType RepoCheckoutAtOptionsEnableFsyncFieldInfo = Bool
type AttrLabel RepoCheckoutAtOptionsEnableFsyncFieldInfo = "enable_fsync"
type AttrOrigin RepoCheckoutAtOptionsEnableFsyncFieldInfo = RepoCheckoutAtOptions
attrGet = getRepoCheckoutAtOptionsEnableFsync
attrSet = setRepoCheckoutAtOptionsEnableFsync
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
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 defined(ENABLE_OVERLOADING)
data RepoCheckoutAtOptionsProcessWhiteoutsFieldInfo
instance AttrInfo RepoCheckoutAtOptionsProcessWhiteoutsFieldInfo where
type AttrBaseTypeConstraint RepoCheckoutAtOptionsProcessWhiteoutsFieldInfo = (~) RepoCheckoutAtOptions
type AttrAllowedOps RepoCheckoutAtOptionsProcessWhiteoutsFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RepoCheckoutAtOptionsProcessWhiteoutsFieldInfo = (~) Bool
type AttrTransferTypeConstraint RepoCheckoutAtOptionsProcessWhiteoutsFieldInfo = (~)Bool
type AttrTransferType RepoCheckoutAtOptionsProcessWhiteoutsFieldInfo = Bool
type AttrGetType RepoCheckoutAtOptionsProcessWhiteoutsFieldInfo = Bool
type AttrLabel RepoCheckoutAtOptionsProcessWhiteoutsFieldInfo = "process_whiteouts"
type AttrOrigin RepoCheckoutAtOptionsProcessWhiteoutsFieldInfo = RepoCheckoutAtOptions
attrGet = getRepoCheckoutAtOptionsProcessWhiteouts
attrSet = setRepoCheckoutAtOptionsProcessWhiteouts
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
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 defined(ENABLE_OVERLOADING)
data RepoCheckoutAtOptionsNoCopyFallbackFieldInfo
instance AttrInfo RepoCheckoutAtOptionsNoCopyFallbackFieldInfo where
type AttrBaseTypeConstraint RepoCheckoutAtOptionsNoCopyFallbackFieldInfo = (~) RepoCheckoutAtOptions
type AttrAllowedOps RepoCheckoutAtOptionsNoCopyFallbackFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RepoCheckoutAtOptionsNoCopyFallbackFieldInfo = (~) Bool
type AttrTransferTypeConstraint RepoCheckoutAtOptionsNoCopyFallbackFieldInfo = (~)Bool
type AttrTransferType RepoCheckoutAtOptionsNoCopyFallbackFieldInfo = Bool
type AttrGetType RepoCheckoutAtOptionsNoCopyFallbackFieldInfo = Bool
type AttrLabel RepoCheckoutAtOptionsNoCopyFallbackFieldInfo = "no_copy_fallback"
type AttrOrigin RepoCheckoutAtOptionsNoCopyFallbackFieldInfo = RepoCheckoutAtOptions
attrGet = getRepoCheckoutAtOptionsNoCopyFallback
attrSet = setRepoCheckoutAtOptionsNoCopyFallback
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
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 defined(ENABLE_OVERLOADING)
data RepoCheckoutAtOptionsForceCopyFieldInfo
instance AttrInfo RepoCheckoutAtOptionsForceCopyFieldInfo where
type AttrBaseTypeConstraint RepoCheckoutAtOptionsForceCopyFieldInfo = (~) RepoCheckoutAtOptions
type AttrAllowedOps RepoCheckoutAtOptionsForceCopyFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RepoCheckoutAtOptionsForceCopyFieldInfo = (~) Bool
type AttrTransferTypeConstraint RepoCheckoutAtOptionsForceCopyFieldInfo = (~)Bool
type AttrTransferType RepoCheckoutAtOptionsForceCopyFieldInfo = Bool
type AttrGetType RepoCheckoutAtOptionsForceCopyFieldInfo = Bool
type AttrLabel RepoCheckoutAtOptionsForceCopyFieldInfo = "force_copy"
type AttrOrigin RepoCheckoutAtOptionsForceCopyFieldInfo = RepoCheckoutAtOptions
attrGet = getRepoCheckoutAtOptionsForceCopy
attrSet = setRepoCheckoutAtOptionsForceCopy
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
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 defined(ENABLE_OVERLOADING)
data RepoCheckoutAtOptionsBareuseronlyDirsFieldInfo
instance AttrInfo RepoCheckoutAtOptionsBareuseronlyDirsFieldInfo where
type AttrBaseTypeConstraint RepoCheckoutAtOptionsBareuseronlyDirsFieldInfo = (~) RepoCheckoutAtOptions
type AttrAllowedOps RepoCheckoutAtOptionsBareuseronlyDirsFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RepoCheckoutAtOptionsBareuseronlyDirsFieldInfo = (~) Bool
type AttrTransferTypeConstraint RepoCheckoutAtOptionsBareuseronlyDirsFieldInfo = (~)Bool
type AttrTransferType RepoCheckoutAtOptionsBareuseronlyDirsFieldInfo = Bool
type AttrGetType RepoCheckoutAtOptionsBareuseronlyDirsFieldInfo = Bool
type AttrLabel RepoCheckoutAtOptionsBareuseronlyDirsFieldInfo = "bareuseronly_dirs"
type AttrOrigin RepoCheckoutAtOptionsBareuseronlyDirsFieldInfo = RepoCheckoutAtOptions
attrGet = getRepoCheckoutAtOptionsBareuseronlyDirs
attrSet = setRepoCheckoutAtOptionsBareuseronlyDirs
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
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 defined(ENABLE_OVERLOADING)
data RepoCheckoutAtOptionsForceCopyZerosizedFieldInfo
instance AttrInfo RepoCheckoutAtOptionsForceCopyZerosizedFieldInfo where
type AttrBaseTypeConstraint RepoCheckoutAtOptionsForceCopyZerosizedFieldInfo = (~) RepoCheckoutAtOptions
type AttrAllowedOps RepoCheckoutAtOptionsForceCopyZerosizedFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RepoCheckoutAtOptionsForceCopyZerosizedFieldInfo = (~) Bool
type AttrTransferTypeConstraint RepoCheckoutAtOptionsForceCopyZerosizedFieldInfo = (~)Bool
type AttrTransferType RepoCheckoutAtOptionsForceCopyZerosizedFieldInfo = Bool
type AttrGetType RepoCheckoutAtOptionsForceCopyZerosizedFieldInfo = Bool
type AttrLabel RepoCheckoutAtOptionsForceCopyZerosizedFieldInfo = "force_copy_zerosized"
type AttrOrigin RepoCheckoutAtOptionsForceCopyZerosizedFieldInfo = RepoCheckoutAtOptions
attrGet = getRepoCheckoutAtOptionsForceCopyZerosized
attrSet = setRepoCheckoutAtOptionsForceCopyZerosized
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
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` 52) :: 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` 52) (val :: CString)
clearRepoCheckoutAtOptionsSubpath :: MonadIO m => RepoCheckoutAtOptions -> m ()
clearRepoCheckoutAtOptionsSubpath s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 52) (FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data RepoCheckoutAtOptionsSubpathFieldInfo
instance AttrInfo RepoCheckoutAtOptionsSubpathFieldInfo where
type AttrBaseTypeConstraint RepoCheckoutAtOptionsSubpathFieldInfo = (~) RepoCheckoutAtOptions
type AttrAllowedOps RepoCheckoutAtOptionsSubpathFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RepoCheckoutAtOptionsSubpathFieldInfo = (~) CString
type AttrTransferTypeConstraint RepoCheckoutAtOptionsSubpathFieldInfo = (~)CString
type AttrTransferType RepoCheckoutAtOptionsSubpathFieldInfo = CString
type AttrGetType RepoCheckoutAtOptionsSubpathFieldInfo = Maybe T.Text
type AttrLabel RepoCheckoutAtOptionsSubpathFieldInfo = "subpath"
type AttrOrigin RepoCheckoutAtOptionsSubpathFieldInfo = RepoCheckoutAtOptions
attrGet = getRepoCheckoutAtOptionsSubpath
attrSet = setRepoCheckoutAtOptionsSubpath
attrConstruct = undefined
attrClear = clearRepoCheckoutAtOptionsSubpath
attrTransfer _ v = do
return v
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` 56) :: 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` 56) (val :: Ptr OSTree.RepoDevInoCache.RepoDevInoCache)
clearRepoCheckoutAtOptionsDevinoToCsumCache :: MonadIO m => RepoCheckoutAtOptions -> m ()
clearRepoCheckoutAtOptionsDevinoToCsumCache s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 56) (FP.nullPtr :: Ptr OSTree.RepoDevInoCache.RepoDevInoCache)
#if defined(ENABLE_OVERLOADING)
data RepoCheckoutAtOptionsDevinoToCsumCacheFieldInfo
instance AttrInfo RepoCheckoutAtOptionsDevinoToCsumCacheFieldInfo where
type AttrBaseTypeConstraint RepoCheckoutAtOptionsDevinoToCsumCacheFieldInfo = (~) RepoCheckoutAtOptions
type AttrAllowedOps RepoCheckoutAtOptionsDevinoToCsumCacheFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RepoCheckoutAtOptionsDevinoToCsumCacheFieldInfo = (~) (Ptr OSTree.RepoDevInoCache.RepoDevInoCache)
type AttrTransferTypeConstraint RepoCheckoutAtOptionsDevinoToCsumCacheFieldInfo = (~)(Ptr OSTree.RepoDevInoCache.RepoDevInoCache)
type AttrTransferType RepoCheckoutAtOptionsDevinoToCsumCacheFieldInfo = (Ptr OSTree.RepoDevInoCache.RepoDevInoCache)
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
attrTransfer _ v = do
return v
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` 96) :: 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` 96) (val :: FunPtr OSTree.Callbacks.C_RepoCheckoutFilter)
clearRepoCheckoutAtOptionsFilter :: MonadIO m => RepoCheckoutAtOptions -> m ()
clearRepoCheckoutAtOptionsFilter s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 96) (FP.nullFunPtr :: FunPtr OSTree.Callbacks.C_RepoCheckoutFilter)
#if defined(ENABLE_OVERLOADING)
data RepoCheckoutAtOptionsFilterFieldInfo
instance AttrInfo RepoCheckoutAtOptionsFilterFieldInfo where
type AttrBaseTypeConstraint RepoCheckoutAtOptionsFilterFieldInfo = (~) RepoCheckoutAtOptions
type AttrAllowedOps RepoCheckoutAtOptionsFilterFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RepoCheckoutAtOptionsFilterFieldInfo = (~) (FunPtr OSTree.Callbacks.C_RepoCheckoutFilter)
type AttrTransferTypeConstraint RepoCheckoutAtOptionsFilterFieldInfo = (~)OSTree.Callbacks.RepoCheckoutFilter_WithClosures
type AttrTransferType RepoCheckoutAtOptionsFilterFieldInfo = (FunPtr OSTree.Callbacks.C_RepoCheckoutFilter)
type AttrGetType RepoCheckoutAtOptionsFilterFieldInfo = Maybe OSTree.Callbacks.RepoCheckoutFilter_WithClosures
type AttrLabel RepoCheckoutAtOptionsFilterFieldInfo = "filter"
type AttrOrigin RepoCheckoutAtOptionsFilterFieldInfo = RepoCheckoutAtOptions
attrGet = getRepoCheckoutAtOptionsFilter
attrSet = setRepoCheckoutAtOptionsFilter
attrConstruct = undefined
attrClear = clearRepoCheckoutAtOptionsFilter
attrTransfer _ v = do
OSTree.Callbacks.mk_RepoCheckoutFilter (OSTree.Callbacks.wrap_RepoCheckoutFilter Nothing v)
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` 100) :: IO (Ptr ())
return val
setRepoCheckoutAtOptionsFilterUserData :: MonadIO m => RepoCheckoutAtOptions -> Ptr () -> m ()
setRepoCheckoutAtOptionsFilterUserData s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 100) (val :: Ptr ())
clearRepoCheckoutAtOptionsFilterUserData :: MonadIO m => RepoCheckoutAtOptions -> m ()
clearRepoCheckoutAtOptionsFilterUserData s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 100) (FP.nullPtr :: Ptr ())
#if defined(ENABLE_OVERLOADING)
data RepoCheckoutAtOptionsFilterUserDataFieldInfo
instance AttrInfo RepoCheckoutAtOptionsFilterUserDataFieldInfo where
type AttrBaseTypeConstraint RepoCheckoutAtOptionsFilterUserDataFieldInfo = (~) RepoCheckoutAtOptions
type AttrAllowedOps RepoCheckoutAtOptionsFilterUserDataFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RepoCheckoutAtOptionsFilterUserDataFieldInfo = (~) (Ptr ())
type AttrTransferTypeConstraint RepoCheckoutAtOptionsFilterUserDataFieldInfo = (~)(Ptr ())
type AttrTransferType RepoCheckoutAtOptionsFilterUserDataFieldInfo = (Ptr ())
type AttrGetType RepoCheckoutAtOptionsFilterUserDataFieldInfo = Ptr ()
type AttrLabel RepoCheckoutAtOptionsFilterUserDataFieldInfo = "filter_user_data"
type AttrOrigin RepoCheckoutAtOptionsFilterUserDataFieldInfo = RepoCheckoutAtOptions
attrGet = getRepoCheckoutAtOptionsFilterUserData
attrSet = setRepoCheckoutAtOptionsFilterUserData
attrConstruct = undefined
attrClear = clearRepoCheckoutAtOptionsFilterUserData
attrTransfer _ v = do
return v
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` 104) :: 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` 104) (val :: Ptr OSTree.SePolicy.SePolicy)
clearRepoCheckoutAtOptionsSepolicy :: MonadIO m => RepoCheckoutAtOptions -> m ()
clearRepoCheckoutAtOptionsSepolicy s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 104) (FP.nullPtr :: Ptr OSTree.SePolicy.SePolicy)
#if defined(ENABLE_OVERLOADING)
data RepoCheckoutAtOptionsSepolicyFieldInfo
instance AttrInfo RepoCheckoutAtOptionsSepolicyFieldInfo where
type AttrBaseTypeConstraint RepoCheckoutAtOptionsSepolicyFieldInfo = (~) RepoCheckoutAtOptions
type AttrAllowedOps RepoCheckoutAtOptionsSepolicyFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RepoCheckoutAtOptionsSepolicyFieldInfo = (~) (Ptr OSTree.SePolicy.SePolicy)
type AttrTransferTypeConstraint RepoCheckoutAtOptionsSepolicyFieldInfo = (~)(Ptr OSTree.SePolicy.SePolicy)
type AttrTransferType RepoCheckoutAtOptionsSepolicyFieldInfo = (Ptr OSTree.SePolicy.SePolicy)
type AttrGetType RepoCheckoutAtOptionsSepolicyFieldInfo = Maybe OSTree.SePolicy.SePolicy
type AttrLabel RepoCheckoutAtOptionsSepolicyFieldInfo = "sepolicy"
type AttrOrigin RepoCheckoutAtOptionsSepolicyFieldInfo = RepoCheckoutAtOptions
attrGet = getRepoCheckoutAtOptionsSepolicy
attrSet = setRepoCheckoutAtOptionsSepolicy
attrConstruct = undefined
attrClear = clearRepoCheckoutAtOptionsSepolicy
attrTransfer _ v = do
return v
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` 108) :: 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` 108) (val :: CString)
clearRepoCheckoutAtOptionsSepolicyPrefix :: MonadIO m => RepoCheckoutAtOptions -> m ()
clearRepoCheckoutAtOptionsSepolicyPrefix s = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 108) (FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data RepoCheckoutAtOptionsSepolicyPrefixFieldInfo
instance AttrInfo RepoCheckoutAtOptionsSepolicyPrefixFieldInfo where
type AttrBaseTypeConstraint RepoCheckoutAtOptionsSepolicyPrefixFieldInfo = (~) RepoCheckoutAtOptions
type AttrAllowedOps RepoCheckoutAtOptionsSepolicyPrefixFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint RepoCheckoutAtOptionsSepolicyPrefixFieldInfo = (~) CString
type AttrTransferTypeConstraint RepoCheckoutAtOptionsSepolicyPrefixFieldInfo = (~)CString
type AttrTransferType RepoCheckoutAtOptionsSepolicyPrefixFieldInfo = CString
type AttrGetType RepoCheckoutAtOptionsSepolicyPrefixFieldInfo = Maybe T.Text
type AttrLabel RepoCheckoutAtOptionsSepolicyPrefixFieldInfo = "sepolicy_prefix"
type AttrOrigin RepoCheckoutAtOptionsSepolicyPrefixFieldInfo = RepoCheckoutAtOptions
attrGet = getRepoCheckoutAtOptionsSepolicyPrefix
attrSet = setRepoCheckoutAtOptionsSepolicyPrefix
attrConstruct = undefined
attrClear = clearRepoCheckoutAtOptionsSepolicyPrefix
attrTransfer _ v = do
return v
repoCheckoutAtOptions_sepolicyPrefix :: AttrLabelProxy "sepolicyPrefix"
repoCheckoutAtOptions_sepolicyPrefix = AttrLabelProxy
#endif
#if defined(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 defined(ENABLE_OVERLOADING)
data RepoCheckoutAtOptionsSetDevinoMethodInfo
instance (signature ~ (Maybe (OSTree.RepoDevInoCache.RepoDevInoCache) -> m ()), MonadIO m) => O.MethodInfo RepoCheckoutAtOptionsSetDevinoMethodInfo RepoCheckoutAtOptions signature where
overloadedMethod = repoCheckoutAtOptionsSetDevino
#endif
#if defined(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 @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif