{-# 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 ,
#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.BasicTypes as B.Types
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 Control.Monad.IO.Class as MIO
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified 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 (SP.ManagedPtr CheckoutOptions)
deriving (CheckoutOptions -> CheckoutOptions -> Bool
(CheckoutOptions -> CheckoutOptions -> Bool)
-> (CheckoutOptions -> CheckoutOptions -> Bool)
-> Eq CheckoutOptions
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CheckoutOptions -> CheckoutOptions -> Bool
$c/= :: CheckoutOptions -> CheckoutOptions -> Bool
== :: CheckoutOptions -> CheckoutOptions -> Bool
$c== :: CheckoutOptions -> CheckoutOptions -> Bool
Eq)
instance SP.ManagedPtrNewtype CheckoutOptions where
toManagedPtr :: CheckoutOptions -> ManagedPtr CheckoutOptions
toManagedPtr (CheckoutOptions ManagedPtr CheckoutOptions
p) = ManagedPtr CheckoutOptions
p
foreign import ccall "ggit_checkout_options_get_type"
c_ggit_checkout_options_get_type :: IO B.Types.GType
instance B.Types.TypedObject CheckoutOptions where
glibType :: IO GType
glibType = IO GType
c_ggit_checkout_options_get_type
instance B.Types.GObject CheckoutOptions
instance B.GValue.IsGValue CheckoutOptions where
toGValue :: CheckoutOptions -> IO GValue
toGValue CheckoutOptions
o = do
GType
gtype <- IO GType
c_ggit_checkout_options_get_type
CheckoutOptions -> (Ptr CheckoutOptions -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr CheckoutOptions
o (GType
-> (GValue -> Ptr CheckoutOptions -> IO ())
-> Ptr CheckoutOptions
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr CheckoutOptions -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO CheckoutOptions
fromGValue GValue
gv = do
Ptr CheckoutOptions
ptr <- GValue -> IO (Ptr CheckoutOptions)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr CheckoutOptions)
(ManagedPtr CheckoutOptions -> CheckoutOptions)
-> Ptr CheckoutOptions -> IO CheckoutOptions
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr CheckoutOptions -> CheckoutOptions
CheckoutOptions Ptr CheckoutOptions
ptr
class (SP.GObject o, O.IsDescendantOf CheckoutOptions o) => IsCheckoutOptions o
instance (SP.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 :: o -> m CheckoutOptions
toCheckoutOptions = IO CheckoutOptions -> m CheckoutOptions
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CheckoutOptions -> m CheckoutOptions)
-> (o -> IO CheckoutOptions) -> o -> m CheckoutOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr CheckoutOptions -> CheckoutOptions)
-> o -> IO CheckoutOptions
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr CheckoutOptions -> CheckoutOptions
CheckoutOptions
#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 :: o -> m (Maybe Text)
getCheckoutOptionsAncestorLabel o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"ancestor-label"
setCheckoutOptionsAncestorLabel :: (MonadIO m, IsCheckoutOptions o) => o -> T.Text -> m ()
setCheckoutOptionsAncestorLabel :: o -> Text -> m ()
setCheckoutOptionsAncestorLabel o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"ancestor-label" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructCheckoutOptionsAncestorLabel :: (IsCheckoutOptions o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructCheckoutOptionsAncestorLabel :: Text -> m (GValueConstruct o)
constructCheckoutOptionsAncestorLabel Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"ancestor-label" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearCheckoutOptionsAncestorLabel :: (MonadIO m, IsCheckoutOptions o) => o -> m ()
clearCheckoutOptionsAncestorLabel :: o -> m ()
clearCheckoutOptionsAncestorLabel o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"ancestor-label" (Maybe Text
forall a. Maybe a
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 :: o -> m (Maybe Tree)
getCheckoutOptionsBaseline o
obj = IO (Maybe Tree) -> m (Maybe Tree)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Tree) -> m (Maybe Tree))
-> IO (Maybe Tree) -> m (Maybe Tree)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Tree -> Tree) -> IO (Maybe Tree)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"baseline" ManagedPtr Tree -> Tree
Ggit.Tree.Tree
setCheckoutOptionsBaseline :: (MonadIO m, IsCheckoutOptions o, Ggit.Tree.IsTree a) => o -> a -> m ()
setCheckoutOptionsBaseline :: o -> a -> m ()
setCheckoutOptionsBaseline o
obj a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"baseline" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructCheckoutOptionsBaseline :: (IsCheckoutOptions o, MIO.MonadIO m, Ggit.Tree.IsTree a) => a -> m (GValueConstruct o)
constructCheckoutOptionsBaseline :: a -> m (GValueConstruct o)
constructCheckoutOptionsBaseline a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"baseline" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearCheckoutOptionsBaseline :: (MonadIO m, IsCheckoutOptions o) => o -> m ()
clearCheckoutOptionsBaseline :: o -> m ()
clearCheckoutOptionsBaseline o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Tree -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"baseline" (Maybe Tree
forall a. Maybe a
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 :: o -> m Word32
getCheckoutOptionsDirMode o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"dir-mode"
setCheckoutOptionsDirMode :: (MonadIO m, IsCheckoutOptions o) => o -> Word32 -> m ()
setCheckoutOptionsDirMode :: o -> Word32 -> m ()
setCheckoutOptionsDirMode o
obj Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"dir-mode" Word32
val
constructCheckoutOptionsDirMode :: (IsCheckoutOptions o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructCheckoutOptionsDirMode :: Word32 -> m (GValueConstruct o)
constructCheckoutOptionsDirMode Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"dir-mode" Word32
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 :: o -> m Bool
getCheckoutOptionsDisableFilters o
obj = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"disable-filters"
setCheckoutOptionsDisableFilters :: (MonadIO m, IsCheckoutOptions o) => o -> Bool -> m ()
setCheckoutOptionsDisableFilters :: o -> Bool -> m ()
setCheckoutOptionsDisableFilters o
obj Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"disable-filters" Bool
val
constructCheckoutOptionsDisableFilters :: (IsCheckoutOptions o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructCheckoutOptionsDisableFilters :: Bool -> m (GValueConstruct o)
constructCheckoutOptionsDisableFilters Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"disable-filters" Bool
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 :: o -> m Word32
getCheckoutOptionsFileMode o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"file-mode"
setCheckoutOptionsFileMode :: (MonadIO m, IsCheckoutOptions o) => o -> Word32 -> m ()
setCheckoutOptionsFileMode :: o -> Word32 -> m ()
setCheckoutOptionsFileMode o
obj Word32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"file-mode" Word32
val
constructCheckoutOptionsFileMode :: (IsCheckoutOptions o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructCheckoutOptionsFileMode :: Word32 -> m (GValueConstruct o)
constructCheckoutOptionsFileMode Word32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"file-mode" Word32
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 :: o -> m Int32
getCheckoutOptionsFileOpenFlags o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"file-open-flags"
setCheckoutOptionsFileOpenFlags :: (MonadIO m, IsCheckoutOptions o) => o -> Int32 -> m ()
setCheckoutOptionsFileOpenFlags :: o -> Int32 -> m ()
setCheckoutOptionsFileOpenFlags o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"file-open-flags" Int32
val
constructCheckoutOptionsFileOpenFlags :: (IsCheckoutOptions o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructCheckoutOptionsFileOpenFlags :: Int32 -> m (GValueConstruct o)
constructCheckoutOptionsFileOpenFlags Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"file-open-flags" Int32
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 :: o -> m [CheckoutNotifyFlags]
getCheckoutOptionsNotifyFlags o
obj = IO [CheckoutNotifyFlags] -> m [CheckoutNotifyFlags]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [CheckoutNotifyFlags] -> m [CheckoutNotifyFlags])
-> IO [CheckoutNotifyFlags] -> m [CheckoutNotifyFlags]
forall a b. (a -> b) -> a -> b
$ o -> String -> IO [CheckoutNotifyFlags]
forall a b.
(GObject a, IsGFlag b, BoxedFlags b) =>
a -> String -> IO [b]
B.Properties.getObjectPropertyFlags o
obj String
"notify-flags"
setCheckoutOptionsNotifyFlags :: (MonadIO m, IsCheckoutOptions o) => o -> [Ggit.Flags.CheckoutNotifyFlags] -> m ()
setCheckoutOptionsNotifyFlags :: o -> [CheckoutNotifyFlags] -> m ()
setCheckoutOptionsNotifyFlags o
obj [CheckoutNotifyFlags]
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> [CheckoutNotifyFlags] -> IO ()
forall a b.
(IsGFlag b, BoxedFlags b, GObject a) =>
a -> String -> [b] -> IO ()
B.Properties.setObjectPropertyFlags o
obj String
"notify-flags" [CheckoutNotifyFlags]
val
constructCheckoutOptionsNotifyFlags :: (IsCheckoutOptions o, MIO.MonadIO m) => [Ggit.Flags.CheckoutNotifyFlags] -> m (GValueConstruct o)
constructCheckoutOptionsNotifyFlags :: [CheckoutNotifyFlags] -> m (GValueConstruct o)
constructCheckoutOptionsNotifyFlags [CheckoutNotifyFlags]
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> [CheckoutNotifyFlags] -> IO (GValueConstruct o)
forall a o.
(IsGFlag a, BoxedFlags a) =>
String -> [a] -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyFlags String
"notify-flags" [CheckoutNotifyFlags]
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 :: o -> m (Maybe Text)
getCheckoutOptionsOurLabel o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"our-label"
setCheckoutOptionsOurLabel :: (MonadIO m, IsCheckoutOptions o) => o -> T.Text -> m ()
setCheckoutOptionsOurLabel :: o -> Text -> m ()
setCheckoutOptionsOurLabel o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"our-label" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructCheckoutOptionsOurLabel :: (IsCheckoutOptions o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructCheckoutOptionsOurLabel :: Text -> m (GValueConstruct o)
constructCheckoutOptionsOurLabel Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"our-label" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearCheckoutOptionsOurLabel :: (MonadIO m, IsCheckoutOptions o) => o -> m ()
clearCheckoutOptionsOurLabel :: o -> m ()
clearCheckoutOptionsOurLabel o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"our-label" (Maybe Text
forall a. Maybe a
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 :: o -> m [CheckoutStrategy]
getCheckoutOptionsStrategy o
obj = IO [CheckoutStrategy] -> m [CheckoutStrategy]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [CheckoutStrategy] -> m [CheckoutStrategy])
-> IO [CheckoutStrategy] -> m [CheckoutStrategy]
forall a b. (a -> b) -> a -> b
$ o -> String -> IO [CheckoutStrategy]
forall a b.
(GObject a, IsGFlag b, BoxedFlags b) =>
a -> String -> IO [b]
B.Properties.getObjectPropertyFlags o
obj String
"strategy"
setCheckoutOptionsStrategy :: (MonadIO m, IsCheckoutOptions o) => o -> [Ggit.Flags.CheckoutStrategy] -> m ()
setCheckoutOptionsStrategy :: o -> [CheckoutStrategy] -> m ()
setCheckoutOptionsStrategy o
obj [CheckoutStrategy]
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> [CheckoutStrategy] -> IO ()
forall a b.
(IsGFlag b, BoxedFlags b, GObject a) =>
a -> String -> [b] -> IO ()
B.Properties.setObjectPropertyFlags o
obj String
"strategy" [CheckoutStrategy]
val
constructCheckoutOptionsStrategy :: (IsCheckoutOptions o, MIO.MonadIO m) => [Ggit.Flags.CheckoutStrategy] -> m (GValueConstruct o)
constructCheckoutOptionsStrategy :: [CheckoutStrategy] -> m (GValueConstruct o)
constructCheckoutOptionsStrategy [CheckoutStrategy]
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> [CheckoutStrategy] -> IO (GValueConstruct o)
forall a o.
(IsGFlag a, BoxedFlags a) =>
String -> [a] -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyFlags String
"strategy" [CheckoutStrategy]
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 :: o -> m (Maybe Text)
getCheckoutOptionsTargetDirectory o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"target-directory"
setCheckoutOptionsTargetDirectory :: (MonadIO m, IsCheckoutOptions o) => o -> T.Text -> m ()
setCheckoutOptionsTargetDirectory :: o -> Text -> m ()
setCheckoutOptionsTargetDirectory o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"target-directory" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructCheckoutOptionsTargetDirectory :: (IsCheckoutOptions o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructCheckoutOptionsTargetDirectory :: Text -> m (GValueConstruct o)
constructCheckoutOptionsTargetDirectory Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"target-directory" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearCheckoutOptionsTargetDirectory :: (MonadIO m, IsCheckoutOptions o) => o -> m ()
clearCheckoutOptionsTargetDirectory :: o -> m ()
clearCheckoutOptionsTargetDirectory o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"target-directory" (Maybe Text
forall a. Maybe a
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 :: o -> m (Maybe Text)
getCheckoutOptionsTheirLabel o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"their-label"
setCheckoutOptionsTheirLabel :: (MonadIO m, IsCheckoutOptions o) => o -> T.Text -> m ()
setCheckoutOptionsTheirLabel :: o -> Text -> m ()
setCheckoutOptionsTheirLabel o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"their-label" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructCheckoutOptionsTheirLabel :: (IsCheckoutOptions o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructCheckoutOptionsTheirLabel :: Text -> m (GValueConstruct o)
constructCheckoutOptionsTheirLabel Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"their-label" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearCheckoutOptionsTheirLabel :: (MonadIO m, IsCheckoutOptions o) => o -> m ()
clearCheckoutOptionsTheirLabel :: o -> m ()
clearCheckoutOptionsTheirLabel o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"their-label" (Maybe Text
forall a. Maybe a
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 :: m (Maybe CheckoutOptions)
checkoutOptionsNew = IO (Maybe CheckoutOptions) -> m (Maybe CheckoutOptions)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe CheckoutOptions) -> m (Maybe CheckoutOptions))
-> IO (Maybe CheckoutOptions) -> m (Maybe CheckoutOptions)
forall a b. (a -> b) -> a -> b
$ do
Ptr CheckoutOptions
result <- IO (Ptr CheckoutOptions)
ggit_checkout_options_new
Maybe CheckoutOptions
maybeResult <- Ptr CheckoutOptions
-> (Ptr CheckoutOptions -> IO CheckoutOptions)
-> IO (Maybe CheckoutOptions)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr CheckoutOptions
result ((Ptr CheckoutOptions -> IO CheckoutOptions)
-> IO (Maybe CheckoutOptions))
-> (Ptr CheckoutOptions -> IO CheckoutOptions)
-> IO (Maybe CheckoutOptions)
forall a b. (a -> b) -> a -> b
$ \Ptr CheckoutOptions
result' -> do
CheckoutOptions
result'' <- ((ManagedPtr CheckoutOptions -> CheckoutOptions)
-> Ptr CheckoutOptions -> IO CheckoutOptions
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr CheckoutOptions -> CheckoutOptions
CheckoutOptions) Ptr CheckoutOptions
result'
CheckoutOptions -> IO CheckoutOptions
forall (m :: * -> *) a. Monad m => a -> m a
return CheckoutOptions
result''
Maybe CheckoutOptions -> IO (Maybe CheckoutOptions)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe CheckoutOptions
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 :: a -> m (Maybe Text)
checkoutOptionsGetAncestorLabel a
options = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr CheckoutOptions
options' <- a -> IO (Ptr CheckoutOptions)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
options
CString
result <- Ptr CheckoutOptions -> IO CString
ggit_checkout_options_get_ancestor_label Ptr CheckoutOptions
options'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
options
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
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 :: a -> m (Maybe Tree)
checkoutOptionsGetBaseline a
options = IO (Maybe Tree) -> m (Maybe Tree)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Tree) -> m (Maybe Tree))
-> IO (Maybe Tree) -> m (Maybe Tree)
forall a b. (a -> b) -> a -> b
$ do
Ptr CheckoutOptions
options' <- a -> IO (Ptr CheckoutOptions)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
options
Ptr Tree
result <- Ptr CheckoutOptions -> IO (Ptr Tree)
ggit_checkout_options_get_baseline Ptr CheckoutOptions
options'
Maybe Tree
maybeResult <- Ptr Tree -> (Ptr Tree -> IO Tree) -> IO (Maybe Tree)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Tree
result ((Ptr Tree -> IO Tree) -> IO (Maybe Tree))
-> (Ptr Tree -> IO Tree) -> IO (Maybe Tree)
forall a b. (a -> b) -> a -> b
$ \Ptr Tree
result' -> do
Tree
result'' <- ((ManagedPtr Tree -> Tree) -> Ptr Tree -> IO Tree
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Tree -> Tree
Ggit.Tree.Tree) Ptr Tree
result'
Tree -> IO Tree
forall (m :: * -> *) a. Monad m => a -> m a
return Tree
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
options
Maybe Tree -> IO (Maybe Tree)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Tree
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 :: a -> m Word32
checkoutOptionsGetDirMode a
options = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr CheckoutOptions
options' <- a -> IO (Ptr CheckoutOptions)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
options
Word32
result <- Ptr CheckoutOptions -> IO Word32
ggit_checkout_options_get_dir_mode Ptr CheckoutOptions
options'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
options
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
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 :: a -> m Bool
checkoutOptionsGetDisableFilters a
options = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr CheckoutOptions
options' <- a -> IO (Ptr CheckoutOptions)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
options
CInt
result <- Ptr CheckoutOptions -> IO CInt
ggit_checkout_options_get_disable_filters Ptr CheckoutOptions
options'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
options
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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 :: a -> m Word32
checkoutOptionsGetFileMode a
options = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr CheckoutOptions
options' <- a -> IO (Ptr CheckoutOptions)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
options
Word32
result <- Ptr CheckoutOptions -> IO Word32
ggit_checkout_options_get_file_mode Ptr CheckoutOptions
options'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
options
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
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 :: a -> m Int32
checkoutOptionsGetFileOpenFlags a
options = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr CheckoutOptions
options' <- a -> IO (Ptr CheckoutOptions)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
options
Int32
result <- Ptr CheckoutOptions -> IO Int32
ggit_checkout_options_get_file_open_flags Ptr CheckoutOptions
options'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
options
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
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 :: a -> m [CheckoutNotifyFlags]
checkoutOptionsGetNotifyFlags a
options = IO [CheckoutNotifyFlags] -> m [CheckoutNotifyFlags]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [CheckoutNotifyFlags] -> m [CheckoutNotifyFlags])
-> IO [CheckoutNotifyFlags] -> m [CheckoutNotifyFlags]
forall a b. (a -> b) -> a -> b
$ do
Ptr CheckoutOptions
options' <- a -> IO (Ptr CheckoutOptions)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
options
CUInt
result <- Ptr CheckoutOptions -> IO CUInt
ggit_checkout_options_get_notify_flags Ptr CheckoutOptions
options'
let result' :: [CheckoutNotifyFlags]
result' = CUInt -> [CheckoutNotifyFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
options
[CheckoutNotifyFlags] -> IO [CheckoutNotifyFlags]
forall (m :: * -> *) a. Monad m => a -> m a
return [CheckoutNotifyFlags]
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 :: a -> m (Maybe Text)
checkoutOptionsGetOurLabel a
options = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr CheckoutOptions
options' <- a -> IO (Ptr CheckoutOptions)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
options
CString
result <- Ptr CheckoutOptions -> IO CString
ggit_checkout_options_get_our_label Ptr CheckoutOptions
options'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
options
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
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 :: a -> m (Maybe [Text])
checkoutOptionsGetPaths a
options = IO (Maybe [Text]) -> m (Maybe [Text])
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe [Text]) -> m (Maybe [Text]))
-> IO (Maybe [Text]) -> m (Maybe [Text])
forall a b. (a -> b) -> a -> b
$ do
Ptr CheckoutOptions
options' <- a -> IO (Ptr CheckoutOptions)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
options
Ptr CString
result <- Ptr CheckoutOptions -> IO (Ptr CString)
ggit_checkout_options_get_paths Ptr CheckoutOptions
options'
Maybe [Text]
maybeResult <- Ptr CString -> (Ptr CString -> IO [Text]) -> IO (Maybe [Text])
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr CString
result ((Ptr CString -> IO [Text]) -> IO (Maybe [Text]))
-> (Ptr CString -> IO [Text]) -> IO (Maybe [Text])
forall a b. (a -> b) -> a -> b
$ \Ptr CString
result' -> do
[Text]
result'' <- HasCallStack => Ptr CString -> IO [Text]
Ptr CString -> IO [Text]
unpackZeroTerminatedUTF8CArray Ptr CString
result'
[Text] -> IO [Text]
forall (m :: * -> *) a. Monad m => a -> m a
return [Text]
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
options
Maybe [Text] -> IO (Maybe [Text])
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe [Text]
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 :: a -> m [CheckoutStrategy]
checkoutOptionsGetStrategy a
options = IO [CheckoutStrategy] -> m [CheckoutStrategy]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [CheckoutStrategy] -> m [CheckoutStrategy])
-> IO [CheckoutStrategy] -> m [CheckoutStrategy]
forall a b. (a -> b) -> a -> b
$ do
Ptr CheckoutOptions
options' <- a -> IO (Ptr CheckoutOptions)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
options
CUInt
result <- Ptr CheckoutOptions -> IO CUInt
ggit_checkout_options_get_strategy Ptr CheckoutOptions
options'
let result' :: [CheckoutStrategy]
result' = CUInt -> [CheckoutStrategy]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
options
[CheckoutStrategy] -> IO [CheckoutStrategy]
forall (m :: * -> *) a. Monad m => a -> m a
return [CheckoutStrategy]
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 :: a -> m (Maybe Text)
checkoutOptionsGetTargetDirectory a
options = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr CheckoutOptions
options' <- a -> IO (Ptr CheckoutOptions)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
options
CString
result <- Ptr CheckoutOptions -> IO CString
ggit_checkout_options_get_target_directory Ptr CheckoutOptions
options'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
options
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
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 :: a -> m (Maybe Text)
checkoutOptionsGetTheirLabel a
options = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr CheckoutOptions
options' <- a -> IO (Ptr CheckoutOptions)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
options
CString
result <- Ptr CheckoutOptions -> IO CString
ggit_checkout_options_get_their_label Ptr CheckoutOptions
options'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
options
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
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 :: a -> Maybe Text -> m ()
checkoutOptionsSetAncestorLabel a
options Maybe Text
label = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CheckoutOptions
options' <- a -> IO (Ptr CheckoutOptions)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
options
CString
maybeLabel <- case Maybe Text
label of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jLabel -> do
CString
jLabel' <- Text -> IO CString
textToCString Text
jLabel
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jLabel'
Ptr CheckoutOptions -> CString -> IO ()
ggit_checkout_options_set_ancestor_label Ptr CheckoutOptions
options' CString
maybeLabel
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
options
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeLabel
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 :: a -> Maybe b -> m ()
checkoutOptionsSetBaseline a
options Maybe b
tree = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CheckoutOptions
options' <- a -> IO (Ptr CheckoutOptions)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
options
Ptr Tree
maybeTree <- case Maybe b
tree of
Maybe b
Nothing -> Ptr Tree -> IO (Ptr Tree)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Tree
forall a. Ptr a
nullPtr
Just b
jTree -> do
Ptr Tree
jTree' <- b -> IO (Ptr Tree)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jTree
Ptr Tree -> IO (Ptr Tree)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Tree
jTree'
Ptr CheckoutOptions -> Ptr Tree -> IO ()
ggit_checkout_options_set_baseline Ptr CheckoutOptions
options' Ptr Tree
maybeTree
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
options
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
tree b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 :: a -> Word32 -> m ()
checkoutOptionsSetDirMode a
options Word32
dirMode = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CheckoutOptions
options' <- a -> IO (Ptr CheckoutOptions)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
options
Ptr CheckoutOptions -> Word32 -> IO ()
ggit_checkout_options_set_dir_mode Ptr CheckoutOptions
options' Word32
dirMode
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
options
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 :: a -> Bool -> m ()
checkoutOptionsSetDisableFilters a
options Bool
disable = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CheckoutOptions
options' <- a -> IO (Ptr CheckoutOptions)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
options
let disable' :: CInt
disable' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
disable
Ptr CheckoutOptions -> CInt -> IO ()
ggit_checkout_options_set_disable_filters Ptr CheckoutOptions
options' CInt
disable'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
options
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 :: a -> Word32 -> m ()
checkoutOptionsSetFileMode a
options Word32
fileMode = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CheckoutOptions
options' <- a -> IO (Ptr CheckoutOptions)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
options
Ptr CheckoutOptions -> Word32 -> IO ()
ggit_checkout_options_set_file_mode Ptr CheckoutOptions
options' Word32
fileMode
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
options
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 :: a -> Int32 -> m ()
checkoutOptionsSetFileOpenFlags a
options Int32
flags = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CheckoutOptions
options' <- a -> IO (Ptr CheckoutOptions)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
options
Ptr CheckoutOptions -> Int32 -> IO ()
ggit_checkout_options_set_file_open_flags Ptr CheckoutOptions
options' Int32
flags
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
options
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 :: a -> [CheckoutNotifyFlags] -> m ()
checkoutOptionsSetNotifyFlags a
options [CheckoutNotifyFlags]
flags = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CheckoutOptions
options' <- a -> IO (Ptr CheckoutOptions)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
options
let flags' :: CUInt
flags' = [CheckoutNotifyFlags] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [CheckoutNotifyFlags]
flags
Ptr CheckoutOptions -> CUInt -> IO ()
ggit_checkout_options_set_notify_flags Ptr CheckoutOptions
options' CUInt
flags'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
options
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 :: a -> Maybe Text -> m ()
checkoutOptionsSetOurLabel a
options Maybe Text
label = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CheckoutOptions
options' <- a -> IO (Ptr CheckoutOptions)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
options
CString
maybeLabel <- case Maybe Text
label of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jLabel -> do
CString
jLabel' <- Text -> IO CString
textToCString Text
jLabel
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jLabel'
Ptr CheckoutOptions -> CString -> IO ()
ggit_checkout_options_set_our_label Ptr CheckoutOptions
options' CString
maybeLabel
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
options
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeLabel
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 :: a -> Maybe [Text] -> m ()
checkoutOptionsSetPaths a
options Maybe [Text]
paths = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CheckoutOptions
options' <- a -> IO (Ptr CheckoutOptions)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
options
Ptr CString
maybePaths <- case Maybe [Text]
paths of
Maybe [Text]
Nothing -> Ptr CString -> IO (Ptr CString)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CString
forall a. Ptr a
nullPtr
Just [Text]
jPaths -> do
Ptr CString
jPaths' <- [Text] -> IO (Ptr CString)
packZeroTerminatedUTF8CArray [Text]
jPaths
Ptr CString -> IO (Ptr CString)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CString
jPaths'
Ptr CheckoutOptions -> Ptr CString -> IO ()
ggit_checkout_options_set_paths Ptr CheckoutOptions
options' Ptr CString
maybePaths
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
options
(CString -> IO ()) -> Ptr CString -> IO ()
forall a b. (Ptr a -> IO b) -> Ptr (Ptr a) -> IO ()
mapZeroTerminatedCArray CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
maybePaths
Ptr CString -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CString
maybePaths
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 :: a -> [CheckoutStrategy] -> m ()
checkoutOptionsSetStrategy a
options [CheckoutStrategy]
strategy = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CheckoutOptions
options' <- a -> IO (Ptr CheckoutOptions)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
options
let strategy' :: CUInt
strategy' = [CheckoutStrategy] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [CheckoutStrategy]
strategy
Ptr CheckoutOptions -> CUInt -> IO ()
ggit_checkout_options_set_strategy Ptr CheckoutOptions
options' CUInt
strategy'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
options
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 :: a -> Maybe Text -> m ()
checkoutOptionsSetTargetDirectory a
options Maybe Text
directory = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CheckoutOptions
options' <- a -> IO (Ptr CheckoutOptions)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
options
CString
maybeDirectory <- case Maybe Text
directory of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jDirectory -> do
CString
jDirectory' <- Text -> IO CString
textToCString Text
jDirectory
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jDirectory'
Ptr CheckoutOptions -> CString -> IO ()
ggit_checkout_options_set_target_directory Ptr CheckoutOptions
options' CString
maybeDirectory
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
options
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeDirectory
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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 :: a -> Maybe Text -> m ()
checkoutOptionsSetTheirLabel a
options Maybe Text
label = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr CheckoutOptions
options' <- a -> IO (Ptr CheckoutOptions)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
options
CString
maybeLabel <- case Maybe Text
label of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jLabel -> do
CString
jLabel' <- Text -> IO CString
textToCString Text
jLabel
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jLabel'
Ptr CheckoutOptions -> CString -> IO ()
ggit_checkout_options_set_their_label Ptr CheckoutOptions
options' CString
maybeLabel
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
options
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeLabel
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
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