#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Ggit.Objects.CheckoutOptions
(
CheckoutOptions(..) ,
IsCheckoutOptions ,
toCheckoutOptions ,
noCheckoutOptions ,
#if ENABLE_OVERLOADING
CheckoutOptionsGetAncestorLabelMethodInfo,
#endif
checkoutOptionsGetAncestorLabel ,
#if ENABLE_OVERLOADING
CheckoutOptionsGetBaselineMethodInfo ,
#endif
checkoutOptionsGetBaseline ,
#if ENABLE_OVERLOADING
CheckoutOptionsGetDirModeMethodInfo ,
#endif
checkoutOptionsGetDirMode ,
#if ENABLE_OVERLOADING
CheckoutOptionsGetDisableFiltersMethodInfo,
#endif
checkoutOptionsGetDisableFilters ,
#if ENABLE_OVERLOADING
CheckoutOptionsGetFileModeMethodInfo ,
#endif
checkoutOptionsGetFileMode ,
#if ENABLE_OVERLOADING
CheckoutOptionsGetFileOpenFlagsMethodInfo,
#endif
checkoutOptionsGetFileOpenFlags ,
#if ENABLE_OVERLOADING
CheckoutOptionsGetNotifyFlagsMethodInfo ,
#endif
checkoutOptionsGetNotifyFlags ,
#if ENABLE_OVERLOADING
CheckoutOptionsGetOurLabelMethodInfo ,
#endif
checkoutOptionsGetOurLabel ,
#if ENABLE_OVERLOADING
CheckoutOptionsGetPathsMethodInfo ,
#endif
checkoutOptionsGetPaths ,
#if ENABLE_OVERLOADING
CheckoutOptionsGetStrategyMethodInfo ,
#endif
checkoutOptionsGetStrategy ,
#if ENABLE_OVERLOADING
CheckoutOptionsGetTargetDirectoryMethodInfo,
#endif
checkoutOptionsGetTargetDirectory ,
#if ENABLE_OVERLOADING
CheckoutOptionsGetTheirLabelMethodInfo ,
#endif
checkoutOptionsGetTheirLabel ,
checkoutOptionsNew ,
#if ENABLE_OVERLOADING
CheckoutOptionsSetAncestorLabelMethodInfo,
#endif
checkoutOptionsSetAncestorLabel ,
#if ENABLE_OVERLOADING
CheckoutOptionsSetBaselineMethodInfo ,
#endif
checkoutOptionsSetBaseline ,
#if ENABLE_OVERLOADING
CheckoutOptionsSetDirModeMethodInfo ,
#endif
checkoutOptionsSetDirMode ,
#if ENABLE_OVERLOADING
CheckoutOptionsSetDisableFiltersMethodInfo,
#endif
checkoutOptionsSetDisableFilters ,
#if ENABLE_OVERLOADING
CheckoutOptionsSetFileModeMethodInfo ,
#endif
checkoutOptionsSetFileMode ,
#if ENABLE_OVERLOADING
CheckoutOptionsSetFileOpenFlagsMethodInfo,
#endif
checkoutOptionsSetFileOpenFlags ,
#if ENABLE_OVERLOADING
CheckoutOptionsSetNotifyFlagsMethodInfo ,
#endif
checkoutOptionsSetNotifyFlags ,
#if ENABLE_OVERLOADING
CheckoutOptionsSetOurLabelMethodInfo ,
#endif
checkoutOptionsSetOurLabel ,
#if ENABLE_OVERLOADING
CheckoutOptionsSetPathsMethodInfo ,
#endif
checkoutOptionsSetPaths ,
#if ENABLE_OVERLOADING
CheckoutOptionsSetStrategyMethodInfo ,
#endif
checkoutOptionsSetStrategy ,
#if ENABLE_OVERLOADING
CheckoutOptionsSetTargetDirectoryMethodInfo,
#endif
checkoutOptionsSetTargetDirectory ,
#if ENABLE_OVERLOADING
CheckoutOptionsSetTheirLabelMethodInfo ,
#endif
checkoutOptionsSetTheirLabel ,
#if ENABLE_OVERLOADING
CheckoutOptionsAncestorLabelPropertyInfo,
#endif
#if ENABLE_OVERLOADING
checkoutOptionsAncestorLabel ,
#endif
clearCheckoutOptionsAncestorLabel ,
constructCheckoutOptionsAncestorLabel ,
getCheckoutOptionsAncestorLabel ,
setCheckoutOptionsAncestorLabel ,
#if ENABLE_OVERLOADING
CheckoutOptionsBaselinePropertyInfo ,
#endif
#if ENABLE_OVERLOADING
checkoutOptionsBaseline ,
#endif
clearCheckoutOptionsBaseline ,
constructCheckoutOptionsBaseline ,
getCheckoutOptionsBaseline ,
setCheckoutOptionsBaseline ,
#if ENABLE_OVERLOADING
CheckoutOptionsDirModePropertyInfo ,
#endif
#if ENABLE_OVERLOADING
checkoutOptionsDirMode ,
#endif
constructCheckoutOptionsDirMode ,
getCheckoutOptionsDirMode ,
setCheckoutOptionsDirMode ,
#if ENABLE_OVERLOADING
CheckoutOptionsDisableFiltersPropertyInfo,
#endif
#if ENABLE_OVERLOADING
checkoutOptionsDisableFilters ,
#endif
constructCheckoutOptionsDisableFilters ,
getCheckoutOptionsDisableFilters ,
setCheckoutOptionsDisableFilters ,
#if ENABLE_OVERLOADING
CheckoutOptionsFileModePropertyInfo ,
#endif
#if ENABLE_OVERLOADING
checkoutOptionsFileMode ,
#endif
constructCheckoutOptionsFileMode ,
getCheckoutOptionsFileMode ,
setCheckoutOptionsFileMode ,
#if ENABLE_OVERLOADING
CheckoutOptionsFileOpenFlagsPropertyInfo,
#endif
#if ENABLE_OVERLOADING
checkoutOptionsFileOpenFlags ,
#endif
constructCheckoutOptionsFileOpenFlags ,
getCheckoutOptionsFileOpenFlags ,
setCheckoutOptionsFileOpenFlags ,
#if ENABLE_OVERLOADING
CheckoutOptionsNotifyFlagsPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
checkoutOptionsNotifyFlags ,
#endif
constructCheckoutOptionsNotifyFlags ,
getCheckoutOptionsNotifyFlags ,
setCheckoutOptionsNotifyFlags ,
#if ENABLE_OVERLOADING
CheckoutOptionsOurLabelPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
checkoutOptionsOurLabel ,
#endif
clearCheckoutOptionsOurLabel ,
constructCheckoutOptionsOurLabel ,
getCheckoutOptionsOurLabel ,
setCheckoutOptionsOurLabel ,
#if ENABLE_OVERLOADING
CheckoutOptionsStrategyPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
checkoutOptionsStrategy ,
#endif
constructCheckoutOptionsStrategy ,
getCheckoutOptionsStrategy ,
setCheckoutOptionsStrategy ,
#if ENABLE_OVERLOADING
CheckoutOptionsTargetDirectoryPropertyInfo,
#endif
#if ENABLE_OVERLOADING
checkoutOptionsTargetDirectory ,
#endif
clearCheckoutOptionsTargetDirectory ,
constructCheckoutOptionsTargetDirectory ,
getCheckoutOptionsTargetDirectory ,
setCheckoutOptionsTargetDirectory ,
#if ENABLE_OVERLOADING
CheckoutOptionsTheirLabelPropertyInfo ,
#endif
#if 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.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)
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
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 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 "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 (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy 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 ENABLE_OVERLOADING
data CheckoutOptionsAncestorLabelPropertyInfo
instance AttrInfo CheckoutOptionsAncestorLabelPropertyInfo where
type AttrAllowedOps CheckoutOptionsAncestorLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint CheckoutOptionsAncestorLabelPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint CheckoutOptionsAncestorLabelPropertyInfo = IsCheckoutOptions
type AttrGetType CheckoutOptionsAncestorLabelPropertyInfo = (Maybe T.Text)
type AttrLabel CheckoutOptionsAncestorLabelPropertyInfo = "ancestor-label"
type AttrOrigin CheckoutOptionsAncestorLabelPropertyInfo = CheckoutOptions
attrGet _ = getCheckoutOptionsAncestorLabel
attrSet _ = setCheckoutOptionsAncestorLabel
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 ENABLE_OVERLOADING
data CheckoutOptionsBaselinePropertyInfo
instance AttrInfo CheckoutOptionsBaselinePropertyInfo where
type AttrAllowedOps CheckoutOptionsBaselinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint CheckoutOptionsBaselinePropertyInfo = Ggit.Tree.IsTree
type AttrBaseTypeConstraint CheckoutOptionsBaselinePropertyInfo = IsCheckoutOptions
type AttrGetType CheckoutOptionsBaselinePropertyInfo = (Maybe Ggit.Tree.Tree)
type AttrLabel CheckoutOptionsBaselinePropertyInfo = "baseline"
type AttrOrigin CheckoutOptionsBaselinePropertyInfo = CheckoutOptions
attrGet _ = getCheckoutOptionsBaseline
attrSet _ = setCheckoutOptionsBaseline
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 ENABLE_OVERLOADING
data CheckoutOptionsDirModePropertyInfo
instance AttrInfo CheckoutOptionsDirModePropertyInfo where
type AttrAllowedOps CheckoutOptionsDirModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CheckoutOptionsDirModePropertyInfo = (~) Word32
type AttrBaseTypeConstraint CheckoutOptionsDirModePropertyInfo = IsCheckoutOptions
type AttrGetType CheckoutOptionsDirModePropertyInfo = Word32
type AttrLabel CheckoutOptionsDirModePropertyInfo = "dir-mode"
type AttrOrigin CheckoutOptionsDirModePropertyInfo = CheckoutOptions
attrGet _ = getCheckoutOptionsDirMode
attrSet _ = setCheckoutOptionsDirMode
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 ENABLE_OVERLOADING
data CheckoutOptionsDisableFiltersPropertyInfo
instance AttrInfo CheckoutOptionsDisableFiltersPropertyInfo where
type AttrAllowedOps CheckoutOptionsDisableFiltersPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CheckoutOptionsDisableFiltersPropertyInfo = (~) Bool
type AttrBaseTypeConstraint CheckoutOptionsDisableFiltersPropertyInfo = IsCheckoutOptions
type AttrGetType CheckoutOptionsDisableFiltersPropertyInfo = Bool
type AttrLabel CheckoutOptionsDisableFiltersPropertyInfo = "disable-filters"
type AttrOrigin CheckoutOptionsDisableFiltersPropertyInfo = CheckoutOptions
attrGet _ = getCheckoutOptionsDisableFilters
attrSet _ = setCheckoutOptionsDisableFilters
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 ENABLE_OVERLOADING
data CheckoutOptionsFileModePropertyInfo
instance AttrInfo CheckoutOptionsFileModePropertyInfo where
type AttrAllowedOps CheckoutOptionsFileModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CheckoutOptionsFileModePropertyInfo = (~) Word32
type AttrBaseTypeConstraint CheckoutOptionsFileModePropertyInfo = IsCheckoutOptions
type AttrGetType CheckoutOptionsFileModePropertyInfo = Word32
type AttrLabel CheckoutOptionsFileModePropertyInfo = "file-mode"
type AttrOrigin CheckoutOptionsFileModePropertyInfo = CheckoutOptions
attrGet _ = getCheckoutOptionsFileMode
attrSet _ = setCheckoutOptionsFileMode
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 ENABLE_OVERLOADING
data CheckoutOptionsFileOpenFlagsPropertyInfo
instance AttrInfo CheckoutOptionsFileOpenFlagsPropertyInfo where
type AttrAllowedOps CheckoutOptionsFileOpenFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CheckoutOptionsFileOpenFlagsPropertyInfo = (~) Int32
type AttrBaseTypeConstraint CheckoutOptionsFileOpenFlagsPropertyInfo = IsCheckoutOptions
type AttrGetType CheckoutOptionsFileOpenFlagsPropertyInfo = Int32
type AttrLabel CheckoutOptionsFileOpenFlagsPropertyInfo = "file-open-flags"
type AttrOrigin CheckoutOptionsFileOpenFlagsPropertyInfo = CheckoutOptions
attrGet _ = getCheckoutOptionsFileOpenFlags
attrSet _ = setCheckoutOptionsFileOpenFlags
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 ENABLE_OVERLOADING
data CheckoutOptionsNotifyFlagsPropertyInfo
instance AttrInfo CheckoutOptionsNotifyFlagsPropertyInfo where
type AttrAllowedOps CheckoutOptionsNotifyFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CheckoutOptionsNotifyFlagsPropertyInfo = (~) [Ggit.Flags.CheckoutNotifyFlags]
type AttrBaseTypeConstraint CheckoutOptionsNotifyFlagsPropertyInfo = IsCheckoutOptions
type AttrGetType CheckoutOptionsNotifyFlagsPropertyInfo = [Ggit.Flags.CheckoutNotifyFlags]
type AttrLabel CheckoutOptionsNotifyFlagsPropertyInfo = "notify-flags"
type AttrOrigin CheckoutOptionsNotifyFlagsPropertyInfo = CheckoutOptions
attrGet _ = getCheckoutOptionsNotifyFlags
attrSet _ = setCheckoutOptionsNotifyFlags
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 ENABLE_OVERLOADING
data CheckoutOptionsOurLabelPropertyInfo
instance AttrInfo CheckoutOptionsOurLabelPropertyInfo where
type AttrAllowedOps CheckoutOptionsOurLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint CheckoutOptionsOurLabelPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint CheckoutOptionsOurLabelPropertyInfo = IsCheckoutOptions
type AttrGetType CheckoutOptionsOurLabelPropertyInfo = (Maybe T.Text)
type AttrLabel CheckoutOptionsOurLabelPropertyInfo = "our-label"
type AttrOrigin CheckoutOptionsOurLabelPropertyInfo = CheckoutOptions
attrGet _ = getCheckoutOptionsOurLabel
attrSet _ = setCheckoutOptionsOurLabel
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 ENABLE_OVERLOADING
data CheckoutOptionsStrategyPropertyInfo
instance AttrInfo CheckoutOptionsStrategyPropertyInfo where
type AttrAllowedOps CheckoutOptionsStrategyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint CheckoutOptionsStrategyPropertyInfo = (~) [Ggit.Flags.CheckoutStrategy]
type AttrBaseTypeConstraint CheckoutOptionsStrategyPropertyInfo = IsCheckoutOptions
type AttrGetType CheckoutOptionsStrategyPropertyInfo = [Ggit.Flags.CheckoutStrategy]
type AttrLabel CheckoutOptionsStrategyPropertyInfo = "strategy"
type AttrOrigin CheckoutOptionsStrategyPropertyInfo = CheckoutOptions
attrGet _ = getCheckoutOptionsStrategy
attrSet _ = setCheckoutOptionsStrategy
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 ENABLE_OVERLOADING
data CheckoutOptionsTargetDirectoryPropertyInfo
instance AttrInfo CheckoutOptionsTargetDirectoryPropertyInfo where
type AttrAllowedOps CheckoutOptionsTargetDirectoryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint CheckoutOptionsTargetDirectoryPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint CheckoutOptionsTargetDirectoryPropertyInfo = IsCheckoutOptions
type AttrGetType CheckoutOptionsTargetDirectoryPropertyInfo = (Maybe T.Text)
type AttrLabel CheckoutOptionsTargetDirectoryPropertyInfo = "target-directory"
type AttrOrigin CheckoutOptionsTargetDirectoryPropertyInfo = CheckoutOptions
attrGet _ = getCheckoutOptionsTargetDirectory
attrSet _ = setCheckoutOptionsTargetDirectory
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 ENABLE_OVERLOADING
data CheckoutOptionsTheirLabelPropertyInfo
instance AttrInfo CheckoutOptionsTheirLabelPropertyInfo where
type AttrAllowedOps CheckoutOptionsTheirLabelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint CheckoutOptionsTheirLabelPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint CheckoutOptionsTheirLabelPropertyInfo = IsCheckoutOptions
type AttrGetType CheckoutOptionsTheirLabelPropertyInfo = (Maybe T.Text)
type AttrLabel CheckoutOptionsTheirLabelPropertyInfo = "their-label"
type AttrOrigin CheckoutOptionsTheirLabelPropertyInfo = CheckoutOptions
attrGet _ = getCheckoutOptionsTheirLabel
attrSet _ = setCheckoutOptionsTheirLabel
attrConstruct _ = constructCheckoutOptionsTheirLabel
attrClear _ = clearCheckoutOptionsTheirLabel
#endif
#if 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 ENABLE_OVERLOADING
data CheckoutOptionsSetTheirLabelMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsCheckoutOptions a) => O.MethodInfo CheckoutOptionsSetTheirLabelMethodInfo a signature where
overloadedMethod _ = checkoutOptionsSetTheirLabel
#endif