{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Ggit.Objects.CheckoutOptions
(
CheckoutOptions(..) ,
IsCheckoutOptions ,
toCheckoutOptions ,
noCheckoutOptions ,
#if defined(ENABLE_OVERLOADING)
ResolveCheckoutOptionsMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsGetAncestorLabelMethodInfo,
#endif
checkoutOptionsGetAncestorLabel ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsGetBaselineMethodInfo ,
#endif
checkoutOptionsGetBaseline ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsGetDirModeMethodInfo ,
#endif
checkoutOptionsGetDirMode ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsGetDisableFiltersMethodInfo,
#endif
checkoutOptionsGetDisableFilters ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsGetFileModeMethodInfo ,
#endif
checkoutOptionsGetFileMode ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsGetFileOpenFlagsMethodInfo,
#endif
checkoutOptionsGetFileOpenFlags ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsGetNotifyFlagsMethodInfo ,
#endif
checkoutOptionsGetNotifyFlags ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsGetOurLabelMethodInfo ,
#endif
checkoutOptionsGetOurLabel ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsGetPathsMethodInfo ,
#endif
checkoutOptionsGetPaths ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsGetStrategyMethodInfo ,
#endif
checkoutOptionsGetStrategy ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsGetTargetDirectoryMethodInfo,
#endif
checkoutOptionsGetTargetDirectory ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsGetTheirLabelMethodInfo ,
#endif
checkoutOptionsGetTheirLabel ,
checkoutOptionsNew ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsSetAncestorLabelMethodInfo,
#endif
checkoutOptionsSetAncestorLabel ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsSetBaselineMethodInfo ,
#endif
checkoutOptionsSetBaseline ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsSetDirModeMethodInfo ,
#endif
checkoutOptionsSetDirMode ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsSetDisableFiltersMethodInfo,
#endif
checkoutOptionsSetDisableFilters ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsSetFileModeMethodInfo ,
#endif
checkoutOptionsSetFileMode ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsSetFileOpenFlagsMethodInfo,
#endif
checkoutOptionsSetFileOpenFlags ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsSetNotifyFlagsMethodInfo ,
#endif
checkoutOptionsSetNotifyFlags ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsSetOurLabelMethodInfo ,
#endif
checkoutOptionsSetOurLabel ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsSetPathsMethodInfo ,
#endif
checkoutOptionsSetPaths ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsSetStrategyMethodInfo ,
#endif
checkoutOptionsSetStrategy ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsSetTargetDirectoryMethodInfo,
#endif
checkoutOptionsSetTargetDirectory ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsSetTheirLabelMethodInfo ,
#endif
checkoutOptionsSetTheirLabel ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsAncestorLabelPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
checkoutOptionsAncestorLabel ,
#endif
clearCheckoutOptionsAncestorLabel ,
constructCheckoutOptionsAncestorLabel ,
getCheckoutOptionsAncestorLabel ,
setCheckoutOptionsAncestorLabel ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsBaselinePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
checkoutOptionsBaseline ,
#endif
clearCheckoutOptionsBaseline ,
constructCheckoutOptionsBaseline ,
getCheckoutOptionsBaseline ,
setCheckoutOptionsBaseline ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsDirModePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
checkoutOptionsDirMode ,
#endif
constructCheckoutOptionsDirMode ,
getCheckoutOptionsDirMode ,
setCheckoutOptionsDirMode ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsDisableFiltersPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
checkoutOptionsDisableFilters ,
#endif
constructCheckoutOptionsDisableFilters ,
getCheckoutOptionsDisableFilters ,
setCheckoutOptionsDisableFilters ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsFileModePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
checkoutOptionsFileMode ,
#endif
constructCheckoutOptionsFileMode ,
getCheckoutOptionsFileMode ,
setCheckoutOptionsFileMode ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsFileOpenFlagsPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
checkoutOptionsFileOpenFlags ,
#endif
constructCheckoutOptionsFileOpenFlags ,
getCheckoutOptionsFileOpenFlags ,
setCheckoutOptionsFileOpenFlags ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsNotifyFlagsPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
checkoutOptionsNotifyFlags ,
#endif
constructCheckoutOptionsNotifyFlags ,
getCheckoutOptionsNotifyFlags ,
setCheckoutOptionsNotifyFlags ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsOurLabelPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
checkoutOptionsOurLabel ,
#endif
clearCheckoutOptionsOurLabel ,
constructCheckoutOptionsOurLabel ,
getCheckoutOptionsOurLabel ,
setCheckoutOptionsOurLabel ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsStrategyPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
checkoutOptionsStrategy ,
#endif
constructCheckoutOptionsStrategy ,
getCheckoutOptionsStrategy ,
setCheckoutOptionsStrategy ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsTargetDirectoryPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
checkoutOptionsTargetDirectory ,
#endif
clearCheckoutOptionsTargetDirectory ,
constructCheckoutOptionsTargetDirectory ,
getCheckoutOptionsTargetDirectory ,
setCheckoutOptionsTargetDirectory ,
#if defined(ENABLE_OVERLOADING)
CheckoutOptionsTheirLabelPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
checkoutOptionsTheirLabel ,
#endif
clearCheckoutOptionsTheirLabel ,
constructCheckoutOptionsTheirLabel ,
getCheckoutOptionsTheirLabel ,
setCheckoutOptionsTheirLabel ,
) 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.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Ggit.Flags as Ggit.Flags
import {-# SOURCE #-} qualified GI.Ggit.Objects.Tree as Ggit.Tree
newtype CheckoutOptions = CheckoutOptions (ManagedPtr CheckoutOptions)
deriving (Eq)
foreign import ccall "ggit_checkout_options_get_type"
c_ggit_checkout_options_get_type :: IO GType
instance GObject CheckoutOptions where
gobjectType = c_ggit_checkout_options_get_type
instance B.GValue.IsGValue CheckoutOptions where
toGValue o = do
gtype <- c_ggit_checkout_options_get_type
B.ManagedPtr.withManagedPtr o (B.GValue.buildGValue gtype B.GValue.set_object)
fromGValue gv = do
ptr <- B.GValue.get_object gv :: IO (Ptr CheckoutOptions)
B.ManagedPtr.newObject CheckoutOptions ptr
class (GObject o, O.IsDescendantOf CheckoutOptions o) => IsCheckoutOptions o
instance (GObject o, O.IsDescendantOf CheckoutOptions o) => IsCheckoutOptions o
instance O.HasParentTypes CheckoutOptions
type instance O.ParentTypes CheckoutOptions = '[GObject.Object.Object]
toCheckoutOptions :: (MonadIO m, IsCheckoutOptions o) => o -> m CheckoutOptions
toCheckoutOptions = liftIO . unsafeCastTo CheckoutOptions
noCheckoutOptions :: Maybe CheckoutOptions
noCheckoutOptions = Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveCheckoutOptionsMethod (t :: Symbol) (o :: *) :: * where
ResolveCheckoutOptionsMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveCheckoutOptionsMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveCheckoutOptionsMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveCheckoutOptionsMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveCheckoutOptionsMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveCheckoutOptionsMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveCheckoutOptionsMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveCheckoutOptionsMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveCheckoutOptionsMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveCheckoutOptionsMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveCheckoutOptionsMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveCheckoutOptionsMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveCheckoutOptionsMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveCheckoutOptionsMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveCheckoutOptionsMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveCheckoutOptionsMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveCheckoutOptionsMethod "getAncestorLabel" o = CheckoutOptionsGetAncestorLabelMethodInfo
ResolveCheckoutOptionsMethod "getBaseline" o = CheckoutOptionsGetBaselineMethodInfo
ResolveCheckoutOptionsMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveCheckoutOptionsMethod "getDirMode" o = CheckoutOptionsGetDirModeMethodInfo
ResolveCheckoutOptionsMethod "getDisableFilters" o = CheckoutOptionsGetDisableFiltersMethodInfo
ResolveCheckoutOptionsMethod "getFileMode" o = CheckoutOptionsGetFileModeMethodInfo
ResolveCheckoutOptionsMethod "getFileOpenFlags" o = CheckoutOptionsGetFileOpenFlagsMethodInfo
ResolveCheckoutOptionsMethod "getNotifyFlags" o = CheckoutOptionsGetNotifyFlagsMethodInfo
ResolveCheckoutOptionsMethod "getOurLabel" o = CheckoutOptionsGetOurLabelMethodInfo
ResolveCheckoutOptionsMethod "getPaths" o = CheckoutOptionsGetPathsMethodInfo
ResolveCheckoutOptionsMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveCheckoutOptionsMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveCheckoutOptionsMethod "getStrategy" o = CheckoutOptionsGetStrategyMethodInfo
ResolveCheckoutOptionsMethod "getTargetDirectory" o = CheckoutOptionsGetTargetDirectoryMethodInfo
ResolveCheckoutOptionsMethod "getTheirLabel" o = CheckoutOptionsGetTheirLabelMethodInfo
ResolveCheckoutOptionsMethod "setAncestorLabel" o = CheckoutOptionsSetAncestorLabelMethodInfo
ResolveCheckoutOptionsMethod "setBaseline" o = CheckoutOptionsSetBaselineMethodInfo
ResolveCheckoutOptionsMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveCheckoutOptionsMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveCheckoutOptionsMethod "setDirMode" o = CheckoutOptionsSetDirModeMethodInfo
ResolveCheckoutOptionsMethod "setDisableFilters" o = CheckoutOptionsSetDisableFiltersMethodInfo
ResolveCheckoutOptionsMethod "setFileMode" o = CheckoutOptionsSetFileModeMethodInfo
ResolveCheckoutOptionsMethod "setFileOpenFlags" o = CheckoutOptionsSetFileOpenFlagsMethodInfo
ResolveCheckoutOptionsMethod "setNotifyFlags" o = CheckoutOptionsSetNotifyFlagsMethodInfo
ResolveCheckoutOptionsMethod "setOurLabel" o = CheckoutOptionsSetOurLabelMethodInfo
ResolveCheckoutOptionsMethod "setPaths" o = CheckoutOptionsSetPathsMethodInfo
ResolveCheckoutOptionsMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveCheckoutOptionsMethod "setStrategy" o = CheckoutOptionsSetStrategyMethodInfo
ResolveCheckoutOptionsMethod "setTargetDirectory" o = CheckoutOptionsSetTargetDirectoryMethodInfo
ResolveCheckoutOptionsMethod "setTheirLabel" o = CheckoutOptionsSetTheirLabelMethodInfo
ResolveCheckoutOptionsMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveCheckoutOptionsMethod t CheckoutOptions, O.MethodInfo info CheckoutOptions p) => OL.IsLabel t (CheckoutOptions -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
getCheckoutOptionsAncestorLabel :: (MonadIO m, IsCheckoutOptions o) => o -> m (Maybe T.Text)
getCheckoutOptionsAncestorLabel obj = liftIO $ B.Properties.getObjectPropertyString obj "ancestor-label"
setCheckoutOptionsAncestorLabel :: (MonadIO m, IsCheckoutOptions o) => o -> T.Text -> m ()
setCheckoutOptionsAncestorLabel obj val = liftIO $ B.Properties.setObjectPropertyString obj "ancestor-label" (Just val)
constructCheckoutOptionsAncestorLabel :: (IsCheckoutOptions o) => T.Text -> IO (GValueConstruct o)
constructCheckoutOptionsAncestorLabel val = B.Properties.constructObjectPropertyString "ancestor-label" (Just val)
clearCheckoutOptionsAncestorLabel :: (MonadIO m, IsCheckoutOptions o) => o -> m ()
clearCheckoutOptionsAncestorLabel obj = liftIO $ B.Properties.setObjectPropertyString obj "ancestor-label" (Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsAncestorLabelPropertyInfo
instance AttrInfo CheckoutOptionsAncestorLabelPropertyInfo where
type AttrAllowedOps CheckoutOptionsAncestorLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CheckoutOptionsAncestorLabelPropertyInfo = IsCheckoutOptions
type AttrSetTypeConstraint CheckoutOptionsAncestorLabelPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint CheckoutOptionsAncestorLabelPropertyInfo = (~) T.Text
type AttrTransferType CheckoutOptionsAncestorLabelPropertyInfo = T.Text
type AttrGetType CheckoutOptionsAncestorLabelPropertyInfo = (Maybe T.Text)
type AttrLabel CheckoutOptionsAncestorLabelPropertyInfo = "ancestor-label"
type AttrOrigin CheckoutOptionsAncestorLabelPropertyInfo = CheckoutOptions
attrGet = getCheckoutOptionsAncestorLabel
attrSet = setCheckoutOptionsAncestorLabel
attrTransfer _ v = do
return v
attrConstruct = constructCheckoutOptionsAncestorLabel
attrClear = clearCheckoutOptionsAncestorLabel
#endif
getCheckoutOptionsBaseline :: (MonadIO m, IsCheckoutOptions o) => o -> m (Maybe Ggit.Tree.Tree)
getCheckoutOptionsBaseline obj = liftIO $ B.Properties.getObjectPropertyObject obj "baseline" Ggit.Tree.Tree
setCheckoutOptionsBaseline :: (MonadIO m, IsCheckoutOptions o, Ggit.Tree.IsTree a) => o -> a -> m ()
setCheckoutOptionsBaseline obj val = liftIO $ B.Properties.setObjectPropertyObject obj "baseline" (Just val)
constructCheckoutOptionsBaseline :: (IsCheckoutOptions o, Ggit.Tree.IsTree a) => a -> IO (GValueConstruct o)
constructCheckoutOptionsBaseline val = B.Properties.constructObjectPropertyObject "baseline" (Just val)
clearCheckoutOptionsBaseline :: (MonadIO m, IsCheckoutOptions o) => o -> m ()
clearCheckoutOptionsBaseline obj = liftIO $ B.Properties.setObjectPropertyObject obj "baseline" (Nothing :: Maybe Ggit.Tree.Tree)
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsBaselinePropertyInfo
instance AttrInfo CheckoutOptionsBaselinePropertyInfo where
type AttrAllowedOps CheckoutOptionsBaselinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CheckoutOptionsBaselinePropertyInfo = IsCheckoutOptions
type AttrSetTypeConstraint CheckoutOptionsBaselinePropertyInfo = Ggit.Tree.IsTree
type AttrTransferTypeConstraint CheckoutOptionsBaselinePropertyInfo = Ggit.Tree.IsTree
type AttrTransferType CheckoutOptionsBaselinePropertyInfo = Ggit.Tree.Tree
type AttrGetType CheckoutOptionsBaselinePropertyInfo = (Maybe Ggit.Tree.Tree)
type AttrLabel CheckoutOptionsBaselinePropertyInfo = "baseline"
type AttrOrigin CheckoutOptionsBaselinePropertyInfo = CheckoutOptions
attrGet = getCheckoutOptionsBaseline
attrSet = setCheckoutOptionsBaseline
attrTransfer _ v = do
unsafeCastTo Ggit.Tree.Tree v
attrConstruct = constructCheckoutOptionsBaseline
attrClear = clearCheckoutOptionsBaseline
#endif
getCheckoutOptionsDirMode :: (MonadIO m, IsCheckoutOptions o) => o -> m Word32
getCheckoutOptionsDirMode obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "dir-mode"
setCheckoutOptionsDirMode :: (MonadIO m, IsCheckoutOptions o) => o -> Word32 -> m ()
setCheckoutOptionsDirMode obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "dir-mode" val
constructCheckoutOptionsDirMode :: (IsCheckoutOptions o) => Word32 -> IO (GValueConstruct o)
constructCheckoutOptionsDirMode val = B.Properties.constructObjectPropertyUInt32 "dir-mode" val
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsDirModePropertyInfo
instance AttrInfo CheckoutOptionsDirModePropertyInfo where
type AttrAllowedOps CheckoutOptionsDirModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CheckoutOptionsDirModePropertyInfo = IsCheckoutOptions
type AttrSetTypeConstraint CheckoutOptionsDirModePropertyInfo = (~) Word32
type AttrTransferTypeConstraint CheckoutOptionsDirModePropertyInfo = (~) Word32
type AttrTransferType CheckoutOptionsDirModePropertyInfo = Word32
type AttrGetType CheckoutOptionsDirModePropertyInfo = Word32
type AttrLabel CheckoutOptionsDirModePropertyInfo = "dir-mode"
type AttrOrigin CheckoutOptionsDirModePropertyInfo = CheckoutOptions
attrGet = getCheckoutOptionsDirMode
attrSet = setCheckoutOptionsDirMode
attrTransfer _ v = do
return v
attrConstruct = constructCheckoutOptionsDirMode
attrClear = undefined
#endif
getCheckoutOptionsDisableFilters :: (MonadIO m, IsCheckoutOptions o) => o -> m Bool
getCheckoutOptionsDisableFilters obj = liftIO $ B.Properties.getObjectPropertyBool obj "disable-filters"
setCheckoutOptionsDisableFilters :: (MonadIO m, IsCheckoutOptions o) => o -> Bool -> m ()
setCheckoutOptionsDisableFilters obj val = liftIO $ B.Properties.setObjectPropertyBool obj "disable-filters" val
constructCheckoutOptionsDisableFilters :: (IsCheckoutOptions o) => Bool -> IO (GValueConstruct o)
constructCheckoutOptionsDisableFilters val = B.Properties.constructObjectPropertyBool "disable-filters" val
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsDisableFiltersPropertyInfo
instance AttrInfo CheckoutOptionsDisableFiltersPropertyInfo where
type AttrAllowedOps CheckoutOptionsDisableFiltersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CheckoutOptionsDisableFiltersPropertyInfo = IsCheckoutOptions
type AttrSetTypeConstraint CheckoutOptionsDisableFiltersPropertyInfo = (~) Bool
type AttrTransferTypeConstraint CheckoutOptionsDisableFiltersPropertyInfo = (~) Bool
type AttrTransferType CheckoutOptionsDisableFiltersPropertyInfo = Bool
type AttrGetType CheckoutOptionsDisableFiltersPropertyInfo = Bool
type AttrLabel CheckoutOptionsDisableFiltersPropertyInfo = "disable-filters"
type AttrOrigin CheckoutOptionsDisableFiltersPropertyInfo = CheckoutOptions
attrGet = getCheckoutOptionsDisableFilters
attrSet = setCheckoutOptionsDisableFilters
attrTransfer _ v = do
return v
attrConstruct = constructCheckoutOptionsDisableFilters
attrClear = undefined
#endif
getCheckoutOptionsFileMode :: (MonadIO m, IsCheckoutOptions o) => o -> m Word32
getCheckoutOptionsFileMode obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "file-mode"
setCheckoutOptionsFileMode :: (MonadIO m, IsCheckoutOptions o) => o -> Word32 -> m ()
setCheckoutOptionsFileMode obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "file-mode" val
constructCheckoutOptionsFileMode :: (IsCheckoutOptions o) => Word32 -> IO (GValueConstruct o)
constructCheckoutOptionsFileMode val = B.Properties.constructObjectPropertyUInt32 "file-mode" val
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsFileModePropertyInfo
instance AttrInfo CheckoutOptionsFileModePropertyInfo where
type AttrAllowedOps CheckoutOptionsFileModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CheckoutOptionsFileModePropertyInfo = IsCheckoutOptions
type AttrSetTypeConstraint CheckoutOptionsFileModePropertyInfo = (~) Word32
type AttrTransferTypeConstraint CheckoutOptionsFileModePropertyInfo = (~) Word32
type AttrTransferType CheckoutOptionsFileModePropertyInfo = Word32
type AttrGetType CheckoutOptionsFileModePropertyInfo = Word32
type AttrLabel CheckoutOptionsFileModePropertyInfo = "file-mode"
type AttrOrigin CheckoutOptionsFileModePropertyInfo = CheckoutOptions
attrGet = getCheckoutOptionsFileMode
attrSet = setCheckoutOptionsFileMode
attrTransfer _ v = do
return v
attrConstruct = constructCheckoutOptionsFileMode
attrClear = undefined
#endif
getCheckoutOptionsFileOpenFlags :: (MonadIO m, IsCheckoutOptions o) => o -> m Int32
getCheckoutOptionsFileOpenFlags obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "file-open-flags"
setCheckoutOptionsFileOpenFlags :: (MonadIO m, IsCheckoutOptions o) => o -> Int32 -> m ()
setCheckoutOptionsFileOpenFlags obj val = liftIO $ B.Properties.setObjectPropertyInt32 obj "file-open-flags" val
constructCheckoutOptionsFileOpenFlags :: (IsCheckoutOptions o) => Int32 -> IO (GValueConstruct o)
constructCheckoutOptionsFileOpenFlags val = B.Properties.constructObjectPropertyInt32 "file-open-flags" val
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsFileOpenFlagsPropertyInfo
instance AttrInfo CheckoutOptionsFileOpenFlagsPropertyInfo where
type AttrAllowedOps CheckoutOptionsFileOpenFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CheckoutOptionsFileOpenFlagsPropertyInfo = IsCheckoutOptions
type AttrSetTypeConstraint CheckoutOptionsFileOpenFlagsPropertyInfo = (~) Int32
type AttrTransferTypeConstraint CheckoutOptionsFileOpenFlagsPropertyInfo = (~) Int32
type AttrTransferType CheckoutOptionsFileOpenFlagsPropertyInfo = Int32
type AttrGetType CheckoutOptionsFileOpenFlagsPropertyInfo = Int32
type AttrLabel CheckoutOptionsFileOpenFlagsPropertyInfo = "file-open-flags"
type AttrOrigin CheckoutOptionsFileOpenFlagsPropertyInfo = CheckoutOptions
attrGet = getCheckoutOptionsFileOpenFlags
attrSet = setCheckoutOptionsFileOpenFlags
attrTransfer _ v = do
return v
attrConstruct = constructCheckoutOptionsFileOpenFlags
attrClear = undefined
#endif
getCheckoutOptionsNotifyFlags :: (MonadIO m, IsCheckoutOptions o) => o -> m [Ggit.Flags.CheckoutNotifyFlags]
getCheckoutOptionsNotifyFlags obj = liftIO $ B.Properties.getObjectPropertyFlags obj "notify-flags"
setCheckoutOptionsNotifyFlags :: (MonadIO m, IsCheckoutOptions o) => o -> [Ggit.Flags.CheckoutNotifyFlags] -> m ()
setCheckoutOptionsNotifyFlags obj val = liftIO $ B.Properties.setObjectPropertyFlags obj "notify-flags" val
constructCheckoutOptionsNotifyFlags :: (IsCheckoutOptions o) => [Ggit.Flags.CheckoutNotifyFlags] -> IO (GValueConstruct o)
constructCheckoutOptionsNotifyFlags val = B.Properties.constructObjectPropertyFlags "notify-flags" val
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsNotifyFlagsPropertyInfo
instance AttrInfo CheckoutOptionsNotifyFlagsPropertyInfo where
type AttrAllowedOps CheckoutOptionsNotifyFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CheckoutOptionsNotifyFlagsPropertyInfo = IsCheckoutOptions
type AttrSetTypeConstraint CheckoutOptionsNotifyFlagsPropertyInfo = (~) [Ggit.Flags.CheckoutNotifyFlags]
type AttrTransferTypeConstraint CheckoutOptionsNotifyFlagsPropertyInfo = (~) [Ggit.Flags.CheckoutNotifyFlags]
type AttrTransferType CheckoutOptionsNotifyFlagsPropertyInfo = [Ggit.Flags.CheckoutNotifyFlags]
type AttrGetType CheckoutOptionsNotifyFlagsPropertyInfo = [Ggit.Flags.CheckoutNotifyFlags]
type AttrLabel CheckoutOptionsNotifyFlagsPropertyInfo = "notify-flags"
type AttrOrigin CheckoutOptionsNotifyFlagsPropertyInfo = CheckoutOptions
attrGet = getCheckoutOptionsNotifyFlags
attrSet = setCheckoutOptionsNotifyFlags
attrTransfer _ v = do
return v
attrConstruct = constructCheckoutOptionsNotifyFlags
attrClear = undefined
#endif
getCheckoutOptionsOurLabel :: (MonadIO m, IsCheckoutOptions o) => o -> m (Maybe T.Text)
getCheckoutOptionsOurLabel obj = liftIO $ B.Properties.getObjectPropertyString obj "our-label"
setCheckoutOptionsOurLabel :: (MonadIO m, IsCheckoutOptions o) => o -> T.Text -> m ()
setCheckoutOptionsOurLabel obj val = liftIO $ B.Properties.setObjectPropertyString obj "our-label" (Just val)
constructCheckoutOptionsOurLabel :: (IsCheckoutOptions o) => T.Text -> IO (GValueConstruct o)
constructCheckoutOptionsOurLabel val = B.Properties.constructObjectPropertyString "our-label" (Just val)
clearCheckoutOptionsOurLabel :: (MonadIO m, IsCheckoutOptions o) => o -> m ()
clearCheckoutOptionsOurLabel obj = liftIO $ B.Properties.setObjectPropertyString obj "our-label" (Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsOurLabelPropertyInfo
instance AttrInfo CheckoutOptionsOurLabelPropertyInfo where
type AttrAllowedOps CheckoutOptionsOurLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CheckoutOptionsOurLabelPropertyInfo = IsCheckoutOptions
type AttrSetTypeConstraint CheckoutOptionsOurLabelPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint CheckoutOptionsOurLabelPropertyInfo = (~) T.Text
type AttrTransferType CheckoutOptionsOurLabelPropertyInfo = T.Text
type AttrGetType CheckoutOptionsOurLabelPropertyInfo = (Maybe T.Text)
type AttrLabel CheckoutOptionsOurLabelPropertyInfo = "our-label"
type AttrOrigin CheckoutOptionsOurLabelPropertyInfo = CheckoutOptions
attrGet = getCheckoutOptionsOurLabel
attrSet = setCheckoutOptionsOurLabel
attrTransfer _ v = do
return v
attrConstruct = constructCheckoutOptionsOurLabel
attrClear = clearCheckoutOptionsOurLabel
#endif
getCheckoutOptionsStrategy :: (MonadIO m, IsCheckoutOptions o) => o -> m [Ggit.Flags.CheckoutStrategy]
getCheckoutOptionsStrategy obj = liftIO $ B.Properties.getObjectPropertyFlags obj "strategy"
setCheckoutOptionsStrategy :: (MonadIO m, IsCheckoutOptions o) => o -> [Ggit.Flags.CheckoutStrategy] -> m ()
setCheckoutOptionsStrategy obj val = liftIO $ B.Properties.setObjectPropertyFlags obj "strategy" val
constructCheckoutOptionsStrategy :: (IsCheckoutOptions o) => [Ggit.Flags.CheckoutStrategy] -> IO (GValueConstruct o)
constructCheckoutOptionsStrategy val = B.Properties.constructObjectPropertyFlags "strategy" val
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsStrategyPropertyInfo
instance AttrInfo CheckoutOptionsStrategyPropertyInfo where
type AttrAllowedOps CheckoutOptionsStrategyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CheckoutOptionsStrategyPropertyInfo = IsCheckoutOptions
type AttrSetTypeConstraint CheckoutOptionsStrategyPropertyInfo = (~) [Ggit.Flags.CheckoutStrategy]
type AttrTransferTypeConstraint CheckoutOptionsStrategyPropertyInfo = (~) [Ggit.Flags.CheckoutStrategy]
type AttrTransferType CheckoutOptionsStrategyPropertyInfo = [Ggit.Flags.CheckoutStrategy]
type AttrGetType CheckoutOptionsStrategyPropertyInfo = [Ggit.Flags.CheckoutStrategy]
type AttrLabel CheckoutOptionsStrategyPropertyInfo = "strategy"
type AttrOrigin CheckoutOptionsStrategyPropertyInfo = CheckoutOptions
attrGet = getCheckoutOptionsStrategy
attrSet = setCheckoutOptionsStrategy
attrTransfer _ v = do
return v
attrConstruct = constructCheckoutOptionsStrategy
attrClear = undefined
#endif
getCheckoutOptionsTargetDirectory :: (MonadIO m, IsCheckoutOptions o) => o -> m (Maybe T.Text)
getCheckoutOptionsTargetDirectory obj = liftIO $ B.Properties.getObjectPropertyString obj "target-directory"
setCheckoutOptionsTargetDirectory :: (MonadIO m, IsCheckoutOptions o) => o -> T.Text -> m ()
setCheckoutOptionsTargetDirectory obj val = liftIO $ B.Properties.setObjectPropertyString obj "target-directory" (Just val)
constructCheckoutOptionsTargetDirectory :: (IsCheckoutOptions o) => T.Text -> IO (GValueConstruct o)
constructCheckoutOptionsTargetDirectory val = B.Properties.constructObjectPropertyString "target-directory" (Just val)
clearCheckoutOptionsTargetDirectory :: (MonadIO m, IsCheckoutOptions o) => o -> m ()
clearCheckoutOptionsTargetDirectory obj = liftIO $ B.Properties.setObjectPropertyString obj "target-directory" (Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsTargetDirectoryPropertyInfo
instance AttrInfo CheckoutOptionsTargetDirectoryPropertyInfo where
type AttrAllowedOps CheckoutOptionsTargetDirectoryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CheckoutOptionsTargetDirectoryPropertyInfo = IsCheckoutOptions
type AttrSetTypeConstraint CheckoutOptionsTargetDirectoryPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint CheckoutOptionsTargetDirectoryPropertyInfo = (~) T.Text
type AttrTransferType CheckoutOptionsTargetDirectoryPropertyInfo = T.Text
type AttrGetType CheckoutOptionsTargetDirectoryPropertyInfo = (Maybe T.Text)
type AttrLabel CheckoutOptionsTargetDirectoryPropertyInfo = "target-directory"
type AttrOrigin CheckoutOptionsTargetDirectoryPropertyInfo = CheckoutOptions
attrGet = getCheckoutOptionsTargetDirectory
attrSet = setCheckoutOptionsTargetDirectory
attrTransfer _ v = do
return v
attrConstruct = constructCheckoutOptionsTargetDirectory
attrClear = clearCheckoutOptionsTargetDirectory
#endif
getCheckoutOptionsTheirLabel :: (MonadIO m, IsCheckoutOptions o) => o -> m (Maybe T.Text)
getCheckoutOptionsTheirLabel obj = liftIO $ B.Properties.getObjectPropertyString obj "their-label"
setCheckoutOptionsTheirLabel :: (MonadIO m, IsCheckoutOptions o) => o -> T.Text -> m ()
setCheckoutOptionsTheirLabel obj val = liftIO $ B.Properties.setObjectPropertyString obj "their-label" (Just val)
constructCheckoutOptionsTheirLabel :: (IsCheckoutOptions o) => T.Text -> IO (GValueConstruct o)
constructCheckoutOptionsTheirLabel val = B.Properties.constructObjectPropertyString "their-label" (Just val)
clearCheckoutOptionsTheirLabel :: (MonadIO m, IsCheckoutOptions o) => o -> m ()
clearCheckoutOptionsTheirLabel obj = liftIO $ B.Properties.setObjectPropertyString obj "their-label" (Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsTheirLabelPropertyInfo
instance AttrInfo CheckoutOptionsTheirLabelPropertyInfo where
type AttrAllowedOps CheckoutOptionsTheirLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CheckoutOptionsTheirLabelPropertyInfo = IsCheckoutOptions
type AttrSetTypeConstraint CheckoutOptionsTheirLabelPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint CheckoutOptionsTheirLabelPropertyInfo = (~) T.Text
type AttrTransferType CheckoutOptionsTheirLabelPropertyInfo = T.Text
type AttrGetType CheckoutOptionsTheirLabelPropertyInfo = (Maybe T.Text)
type AttrLabel CheckoutOptionsTheirLabelPropertyInfo = "their-label"
type AttrOrigin CheckoutOptionsTheirLabelPropertyInfo = CheckoutOptions
attrGet = getCheckoutOptionsTheirLabel
attrSet = setCheckoutOptionsTheirLabel
attrTransfer _ v = do
return v
attrConstruct = constructCheckoutOptionsTheirLabel
attrClear = clearCheckoutOptionsTheirLabel
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList CheckoutOptions
type instance O.AttributeList CheckoutOptions = CheckoutOptionsAttributeList
type CheckoutOptionsAttributeList = ('[ '("ancestorLabel", CheckoutOptionsAncestorLabelPropertyInfo), '("baseline", CheckoutOptionsBaselinePropertyInfo), '("dirMode", CheckoutOptionsDirModePropertyInfo), '("disableFilters", CheckoutOptionsDisableFiltersPropertyInfo), '("fileMode", CheckoutOptionsFileModePropertyInfo), '("fileOpenFlags", CheckoutOptionsFileOpenFlagsPropertyInfo), '("notifyFlags", CheckoutOptionsNotifyFlagsPropertyInfo), '("ourLabel", CheckoutOptionsOurLabelPropertyInfo), '("strategy", CheckoutOptionsStrategyPropertyInfo), '("targetDirectory", CheckoutOptionsTargetDirectoryPropertyInfo), '("theirLabel", CheckoutOptionsTheirLabelPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
checkoutOptionsAncestorLabel :: AttrLabelProxy "ancestorLabel"
checkoutOptionsAncestorLabel = AttrLabelProxy
checkoutOptionsBaseline :: AttrLabelProxy "baseline"
checkoutOptionsBaseline = AttrLabelProxy
checkoutOptionsDirMode :: AttrLabelProxy "dirMode"
checkoutOptionsDirMode = AttrLabelProxy
checkoutOptionsDisableFilters :: AttrLabelProxy "disableFilters"
checkoutOptionsDisableFilters = AttrLabelProxy
checkoutOptionsFileMode :: AttrLabelProxy "fileMode"
checkoutOptionsFileMode = AttrLabelProxy
checkoutOptionsFileOpenFlags :: AttrLabelProxy "fileOpenFlags"
checkoutOptionsFileOpenFlags = AttrLabelProxy
checkoutOptionsNotifyFlags :: AttrLabelProxy "notifyFlags"
checkoutOptionsNotifyFlags = AttrLabelProxy
checkoutOptionsOurLabel :: AttrLabelProxy "ourLabel"
checkoutOptionsOurLabel = AttrLabelProxy
checkoutOptionsStrategy :: AttrLabelProxy "strategy"
checkoutOptionsStrategy = AttrLabelProxy
checkoutOptionsTargetDirectory :: AttrLabelProxy "targetDirectory"
checkoutOptionsTargetDirectory = AttrLabelProxy
checkoutOptionsTheirLabel :: AttrLabelProxy "theirLabel"
checkoutOptionsTheirLabel = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList CheckoutOptions = CheckoutOptionsSignalList
type CheckoutOptionsSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "ggit_checkout_options_new" ggit_checkout_options_new ::
IO (Ptr CheckoutOptions)
checkoutOptionsNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m (Maybe CheckoutOptions)
checkoutOptionsNew = liftIO $ do
result <- ggit_checkout_options_new
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (wrapObject CheckoutOptions) result'
return result''
return maybeResult
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "ggit_checkout_options_get_ancestor_label" ggit_checkout_options_get_ancestor_label ::
Ptr CheckoutOptions ->
IO CString
checkoutOptionsGetAncestorLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckoutOptions a) =>
a
-> m (Maybe T.Text)
checkoutOptionsGetAncestorLabel options = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
result <- ggit_checkout_options_get_ancestor_label options'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
return result''
touchManagedPtr options
return maybeResult
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsGetAncestorLabelMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsCheckoutOptions a) => O.MethodInfo CheckoutOptionsGetAncestorLabelMethodInfo a signature where
overloadedMethod = checkoutOptionsGetAncestorLabel
#endif
foreign import ccall "ggit_checkout_options_get_baseline" ggit_checkout_options_get_baseline ::
Ptr CheckoutOptions ->
IO (Ptr Ggit.Tree.Tree)
checkoutOptionsGetBaseline ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckoutOptions a) =>
a
-> m (Maybe Ggit.Tree.Tree)
checkoutOptionsGetBaseline options = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
result <- ggit_checkout_options_get_baseline options'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject Ggit.Tree.Tree) result'
return result''
touchManagedPtr options
return maybeResult
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsGetBaselineMethodInfo
instance (signature ~ (m (Maybe Ggit.Tree.Tree)), MonadIO m, IsCheckoutOptions a) => O.MethodInfo CheckoutOptionsGetBaselineMethodInfo a signature where
overloadedMethod = checkoutOptionsGetBaseline
#endif
foreign import ccall "ggit_checkout_options_get_dir_mode" ggit_checkout_options_get_dir_mode ::
Ptr CheckoutOptions ->
IO Word32
checkoutOptionsGetDirMode ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckoutOptions a) =>
a
-> m Word32
checkoutOptionsGetDirMode options = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
result <- ggit_checkout_options_get_dir_mode options'
touchManagedPtr options
return result
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsGetDirModeMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsCheckoutOptions a) => O.MethodInfo CheckoutOptionsGetDirModeMethodInfo a signature where
overloadedMethod = checkoutOptionsGetDirMode
#endif
foreign import ccall "ggit_checkout_options_get_disable_filters" ggit_checkout_options_get_disable_filters ::
Ptr CheckoutOptions ->
IO CInt
checkoutOptionsGetDisableFilters ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckoutOptions a) =>
a
-> m Bool
checkoutOptionsGetDisableFilters options = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
result <- ggit_checkout_options_get_disable_filters options'
let result' = (/= 0) result
touchManagedPtr options
return result'
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsGetDisableFiltersMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsCheckoutOptions a) => O.MethodInfo CheckoutOptionsGetDisableFiltersMethodInfo a signature where
overloadedMethod = checkoutOptionsGetDisableFilters
#endif
foreign import ccall "ggit_checkout_options_get_file_mode" ggit_checkout_options_get_file_mode ::
Ptr CheckoutOptions ->
IO Word32
checkoutOptionsGetFileMode ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckoutOptions a) =>
a
-> m Word32
checkoutOptionsGetFileMode options = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
result <- ggit_checkout_options_get_file_mode options'
touchManagedPtr options
return result
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsGetFileModeMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsCheckoutOptions a) => O.MethodInfo CheckoutOptionsGetFileModeMethodInfo a signature where
overloadedMethod = checkoutOptionsGetFileMode
#endif
foreign import ccall "ggit_checkout_options_get_file_open_flags" ggit_checkout_options_get_file_open_flags ::
Ptr CheckoutOptions ->
IO Int32
checkoutOptionsGetFileOpenFlags ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckoutOptions a) =>
a
-> m Int32
checkoutOptionsGetFileOpenFlags options = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
result <- ggit_checkout_options_get_file_open_flags options'
touchManagedPtr options
return result
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsGetFileOpenFlagsMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsCheckoutOptions a) => O.MethodInfo CheckoutOptionsGetFileOpenFlagsMethodInfo a signature where
overloadedMethod = checkoutOptionsGetFileOpenFlags
#endif
foreign import ccall "ggit_checkout_options_get_notify_flags" ggit_checkout_options_get_notify_flags ::
Ptr CheckoutOptions ->
IO CUInt
checkoutOptionsGetNotifyFlags ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckoutOptions a) =>
a
-> m [Ggit.Flags.CheckoutNotifyFlags]
checkoutOptionsGetNotifyFlags options = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
result <- ggit_checkout_options_get_notify_flags options'
let result' = wordToGFlags result
touchManagedPtr options
return result'
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsGetNotifyFlagsMethodInfo
instance (signature ~ (m [Ggit.Flags.CheckoutNotifyFlags]), MonadIO m, IsCheckoutOptions a) => O.MethodInfo CheckoutOptionsGetNotifyFlagsMethodInfo a signature where
overloadedMethod = checkoutOptionsGetNotifyFlags
#endif
foreign import ccall "ggit_checkout_options_get_our_label" ggit_checkout_options_get_our_label ::
Ptr CheckoutOptions ->
IO CString
checkoutOptionsGetOurLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckoutOptions a) =>
a
-> m (Maybe T.Text)
checkoutOptionsGetOurLabel options = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
result <- ggit_checkout_options_get_our_label options'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
return result''
touchManagedPtr options
return maybeResult
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsGetOurLabelMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsCheckoutOptions a) => O.MethodInfo CheckoutOptionsGetOurLabelMethodInfo a signature where
overloadedMethod = checkoutOptionsGetOurLabel
#endif
foreign import ccall "ggit_checkout_options_get_paths" ggit_checkout_options_get_paths ::
Ptr CheckoutOptions ->
IO (Ptr CString)
checkoutOptionsGetPaths ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckoutOptions a) =>
a
-> m (Maybe [T.Text])
checkoutOptionsGetPaths options = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
result <- ggit_checkout_options_get_paths options'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- unpackZeroTerminatedUTF8CArray result'
return result''
touchManagedPtr options
return maybeResult
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsGetPathsMethodInfo
instance (signature ~ (m (Maybe [T.Text])), MonadIO m, IsCheckoutOptions a) => O.MethodInfo CheckoutOptionsGetPathsMethodInfo a signature where
overloadedMethod = checkoutOptionsGetPaths
#endif
foreign import ccall "ggit_checkout_options_get_strategy" ggit_checkout_options_get_strategy ::
Ptr CheckoutOptions ->
IO CUInt
checkoutOptionsGetStrategy ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckoutOptions a) =>
a
-> m [Ggit.Flags.CheckoutStrategy]
checkoutOptionsGetStrategy options = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
result <- ggit_checkout_options_get_strategy options'
let result' = wordToGFlags result
touchManagedPtr options
return result'
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsGetStrategyMethodInfo
instance (signature ~ (m [Ggit.Flags.CheckoutStrategy]), MonadIO m, IsCheckoutOptions a) => O.MethodInfo CheckoutOptionsGetStrategyMethodInfo a signature where
overloadedMethod = checkoutOptionsGetStrategy
#endif
foreign import ccall "ggit_checkout_options_get_target_directory" ggit_checkout_options_get_target_directory ::
Ptr CheckoutOptions ->
IO CString
checkoutOptionsGetTargetDirectory ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckoutOptions a) =>
a
-> m (Maybe T.Text)
checkoutOptionsGetTargetDirectory options = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
result <- ggit_checkout_options_get_target_directory options'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
return result''
touchManagedPtr options
return maybeResult
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsGetTargetDirectoryMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsCheckoutOptions a) => O.MethodInfo CheckoutOptionsGetTargetDirectoryMethodInfo a signature where
overloadedMethod = checkoutOptionsGetTargetDirectory
#endif
foreign import ccall "ggit_checkout_options_get_their_label" ggit_checkout_options_get_their_label ::
Ptr CheckoutOptions ->
IO CString
checkoutOptionsGetTheirLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckoutOptions a) =>
a
-> m (Maybe T.Text)
checkoutOptionsGetTheirLabel options = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
result <- ggit_checkout_options_get_their_label options'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
return result''
touchManagedPtr options
return maybeResult
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsGetTheirLabelMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsCheckoutOptions a) => O.MethodInfo CheckoutOptionsGetTheirLabelMethodInfo a signature where
overloadedMethod = checkoutOptionsGetTheirLabel
#endif
foreign import ccall "ggit_checkout_options_set_ancestor_label" ggit_checkout_options_set_ancestor_label ::
Ptr CheckoutOptions ->
CString ->
IO ()
checkoutOptionsSetAncestorLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckoutOptions a) =>
a
-> Maybe (T.Text)
-> m ()
checkoutOptionsSetAncestorLabel options label = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
maybeLabel <- case label of
Nothing -> return nullPtr
Just jLabel -> do
jLabel' <- textToCString jLabel
return jLabel'
ggit_checkout_options_set_ancestor_label options' maybeLabel
touchManagedPtr options
freeMem maybeLabel
return ()
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsSetAncestorLabelMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsCheckoutOptions a) => O.MethodInfo CheckoutOptionsSetAncestorLabelMethodInfo a signature where
overloadedMethod = checkoutOptionsSetAncestorLabel
#endif
foreign import ccall "ggit_checkout_options_set_baseline" ggit_checkout_options_set_baseline ::
Ptr CheckoutOptions ->
Ptr Ggit.Tree.Tree ->
IO ()
checkoutOptionsSetBaseline ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckoutOptions a, Ggit.Tree.IsTree b) =>
a
-> Maybe (b)
-> m ()
checkoutOptionsSetBaseline options tree = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
maybeTree <- case tree of
Nothing -> return nullPtr
Just jTree -> do
jTree' <- unsafeManagedPtrCastPtr jTree
return jTree'
ggit_checkout_options_set_baseline options' maybeTree
touchManagedPtr options
whenJust tree touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsSetBaselineMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsCheckoutOptions a, Ggit.Tree.IsTree b) => O.MethodInfo CheckoutOptionsSetBaselineMethodInfo a signature where
overloadedMethod = checkoutOptionsSetBaseline
#endif
foreign import ccall "ggit_checkout_options_set_dir_mode" ggit_checkout_options_set_dir_mode ::
Ptr CheckoutOptions ->
Word32 ->
IO ()
checkoutOptionsSetDirMode ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckoutOptions a) =>
a
-> Word32
-> m ()
checkoutOptionsSetDirMode options dirMode = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
ggit_checkout_options_set_dir_mode options' dirMode
touchManagedPtr options
return ()
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsSetDirModeMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsCheckoutOptions a) => O.MethodInfo CheckoutOptionsSetDirModeMethodInfo a signature where
overloadedMethod = checkoutOptionsSetDirMode
#endif
foreign import ccall "ggit_checkout_options_set_disable_filters" ggit_checkout_options_set_disable_filters ::
Ptr CheckoutOptions ->
CInt ->
IO ()
checkoutOptionsSetDisableFilters ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckoutOptions a) =>
a
-> Bool
-> m ()
checkoutOptionsSetDisableFilters options disable = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
let disable' = (fromIntegral . fromEnum) disable
ggit_checkout_options_set_disable_filters options' disable'
touchManagedPtr options
return ()
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsSetDisableFiltersMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsCheckoutOptions a) => O.MethodInfo CheckoutOptionsSetDisableFiltersMethodInfo a signature where
overloadedMethod = checkoutOptionsSetDisableFilters
#endif
foreign import ccall "ggit_checkout_options_set_file_mode" ggit_checkout_options_set_file_mode ::
Ptr CheckoutOptions ->
Word32 ->
IO ()
checkoutOptionsSetFileMode ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckoutOptions a) =>
a
-> Word32
-> m ()
checkoutOptionsSetFileMode options fileMode = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
ggit_checkout_options_set_file_mode options' fileMode
touchManagedPtr options
return ()
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsSetFileModeMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsCheckoutOptions a) => O.MethodInfo CheckoutOptionsSetFileModeMethodInfo a signature where
overloadedMethod = checkoutOptionsSetFileMode
#endif
foreign import ccall "ggit_checkout_options_set_file_open_flags" ggit_checkout_options_set_file_open_flags ::
Ptr CheckoutOptions ->
Int32 ->
IO ()
checkoutOptionsSetFileOpenFlags ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckoutOptions a) =>
a
-> Int32
-> m ()
checkoutOptionsSetFileOpenFlags options flags = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
ggit_checkout_options_set_file_open_flags options' flags
touchManagedPtr options
return ()
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsSetFileOpenFlagsMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsCheckoutOptions a) => O.MethodInfo CheckoutOptionsSetFileOpenFlagsMethodInfo a signature where
overloadedMethod = checkoutOptionsSetFileOpenFlags
#endif
foreign import ccall "ggit_checkout_options_set_notify_flags" ggit_checkout_options_set_notify_flags ::
Ptr CheckoutOptions ->
CUInt ->
IO ()
checkoutOptionsSetNotifyFlags ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckoutOptions a) =>
a
-> [Ggit.Flags.CheckoutNotifyFlags]
-> m ()
checkoutOptionsSetNotifyFlags options flags = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
let flags' = gflagsToWord flags
ggit_checkout_options_set_notify_flags options' flags'
touchManagedPtr options
return ()
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsSetNotifyFlagsMethodInfo
instance (signature ~ ([Ggit.Flags.CheckoutNotifyFlags] -> m ()), MonadIO m, IsCheckoutOptions a) => O.MethodInfo CheckoutOptionsSetNotifyFlagsMethodInfo a signature where
overloadedMethod = checkoutOptionsSetNotifyFlags
#endif
foreign import ccall "ggit_checkout_options_set_our_label" ggit_checkout_options_set_our_label ::
Ptr CheckoutOptions ->
CString ->
IO ()
checkoutOptionsSetOurLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckoutOptions a) =>
a
-> Maybe (T.Text)
-> m ()
checkoutOptionsSetOurLabel options label = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
maybeLabel <- case label of
Nothing -> return nullPtr
Just jLabel -> do
jLabel' <- textToCString jLabel
return jLabel'
ggit_checkout_options_set_our_label options' maybeLabel
touchManagedPtr options
freeMem maybeLabel
return ()
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsSetOurLabelMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsCheckoutOptions a) => O.MethodInfo CheckoutOptionsSetOurLabelMethodInfo a signature where
overloadedMethod = checkoutOptionsSetOurLabel
#endif
foreign import ccall "ggit_checkout_options_set_paths" ggit_checkout_options_set_paths ::
Ptr CheckoutOptions ->
Ptr CString ->
IO ()
checkoutOptionsSetPaths ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckoutOptions a) =>
a
-> Maybe ([T.Text])
-> m ()
checkoutOptionsSetPaths options paths = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
maybePaths <- case paths of
Nothing -> return nullPtr
Just jPaths -> do
jPaths' <- packZeroTerminatedUTF8CArray jPaths
return jPaths'
ggit_checkout_options_set_paths options' maybePaths
touchManagedPtr options
mapZeroTerminatedCArray freeMem maybePaths
freeMem maybePaths
return ()
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsSetPathsMethodInfo
instance (signature ~ (Maybe ([T.Text]) -> m ()), MonadIO m, IsCheckoutOptions a) => O.MethodInfo CheckoutOptionsSetPathsMethodInfo a signature where
overloadedMethod = checkoutOptionsSetPaths
#endif
foreign import ccall "ggit_checkout_options_set_strategy" ggit_checkout_options_set_strategy ::
Ptr CheckoutOptions ->
CUInt ->
IO ()
checkoutOptionsSetStrategy ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckoutOptions a) =>
a
-> [Ggit.Flags.CheckoutStrategy]
-> m ()
checkoutOptionsSetStrategy options strategy = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
let strategy' = gflagsToWord strategy
ggit_checkout_options_set_strategy options' strategy'
touchManagedPtr options
return ()
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsSetStrategyMethodInfo
instance (signature ~ ([Ggit.Flags.CheckoutStrategy] -> m ()), MonadIO m, IsCheckoutOptions a) => O.MethodInfo CheckoutOptionsSetStrategyMethodInfo a signature where
overloadedMethod = checkoutOptionsSetStrategy
#endif
foreign import ccall "ggit_checkout_options_set_target_directory" ggit_checkout_options_set_target_directory ::
Ptr CheckoutOptions ->
CString ->
IO ()
checkoutOptionsSetTargetDirectory ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckoutOptions a) =>
a
-> Maybe (T.Text)
-> m ()
checkoutOptionsSetTargetDirectory options directory = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
maybeDirectory <- case directory of
Nothing -> return nullPtr
Just jDirectory -> do
jDirectory' <- textToCString jDirectory
return jDirectory'
ggit_checkout_options_set_target_directory options' maybeDirectory
touchManagedPtr options
freeMem maybeDirectory
return ()
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsSetTargetDirectoryMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsCheckoutOptions a) => O.MethodInfo CheckoutOptionsSetTargetDirectoryMethodInfo a signature where
overloadedMethod = checkoutOptionsSetTargetDirectory
#endif
foreign import ccall "ggit_checkout_options_set_their_label" ggit_checkout_options_set_their_label ::
Ptr CheckoutOptions ->
CString ->
IO ()
checkoutOptionsSetTheirLabel ::
(B.CallStack.HasCallStack, MonadIO m, IsCheckoutOptions a) =>
a
-> Maybe (T.Text)
-> m ()
checkoutOptionsSetTheirLabel options label = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
maybeLabel <- case label of
Nothing -> return nullPtr
Just jLabel -> do
jLabel' <- textToCString jLabel
return jLabel'
ggit_checkout_options_set_their_label options' maybeLabel
touchManagedPtr options
freeMem maybeLabel
return ()
#if defined(ENABLE_OVERLOADING)
data CheckoutOptionsSetTheirLabelMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsCheckoutOptions a) => O.MethodInfo CheckoutOptionsSetTheirLabelMethodInfo a signature where
overloadedMethod = checkoutOptionsSetTheirLabel
#endif