module GI.Ggit.Objects.SubmoduleUpdateOptions
(
SubmoduleUpdateOptions(..) ,
IsSubmoduleUpdateOptions ,
toSubmoduleUpdateOptions ,
noSubmoduleUpdateOptions ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SubmoduleUpdateOptionsGetCheckoutOptionsMethodInfo,
#endif
submoduleUpdateOptionsGetCheckoutOptions,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SubmoduleUpdateOptionsGetCloneCheckoutStrategyMethodInfo,
#endif
submoduleUpdateOptionsGetCloneCheckoutStrategy,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SubmoduleUpdateOptionsGetFetchOptionsMethodInfo,
#endif
submoduleUpdateOptionsGetFetchOptions ,
submoduleUpdateOptionsNew ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SubmoduleUpdateOptionsSetCheckoutOptionsMethodInfo,
#endif
submoduleUpdateOptionsSetCheckoutOptions,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SubmoduleUpdateOptionsSetCloneCheckoutStrategyMethodInfo,
#endif
submoduleUpdateOptionsSetCloneCheckoutStrategy,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SubmoduleUpdateOptionsSetFetchOptionsMethodInfo,
#endif
submoduleUpdateOptionsSetFetchOptions ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SubmoduleUpdateOptionsCheckoutOptionsPropertyInfo,
#endif
clearSubmoduleUpdateOptionsCheckoutOptions,
constructSubmoduleUpdateOptionsCheckoutOptions,
getSubmoduleUpdateOptionsCheckoutOptions,
setSubmoduleUpdateOptionsCheckoutOptions,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
submoduleUpdateOptionsCheckoutOptions ,
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SubmoduleUpdateOptionsCloneCheckoutStrategyPropertyInfo,
#endif
constructSubmoduleUpdateOptionsCloneCheckoutStrategy,
getSubmoduleUpdateOptionsCloneCheckoutStrategy,
setSubmoduleUpdateOptionsCloneCheckoutStrategy,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
submoduleUpdateOptionsCloneCheckoutStrategy,
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
SubmoduleUpdateOptionsFetchOptionsPropertyInfo,
#endif
clearSubmoduleUpdateOptionsFetchOptions ,
constructSubmoduleUpdateOptionsFetchOptions,
getSubmoduleUpdateOptionsFetchOptions ,
setSubmoduleUpdateOptionsFetchOptions ,
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
submoduleUpdateOptionsFetchOptions ,
#endif
) 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.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
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 GI.GObject.Objects.Object as GObject.Object
import qualified GI.Ggit.Flags as Ggit.Flags
import qualified GI.Ggit.Objects.CheckoutOptions as Ggit.CheckoutOptions
import qualified GI.Ggit.Structs.FetchOptions as Ggit.FetchOptions
newtype SubmoduleUpdateOptions = SubmoduleUpdateOptions (ManagedPtr SubmoduleUpdateOptions)
foreign import ccall "ggit_submodule_update_options_get_type"
c_ggit_submodule_update_options_get_type :: IO GType
instance GObject SubmoduleUpdateOptions where
gobjectType _ = c_ggit_submodule_update_options_get_type
class GObject o => IsSubmoduleUpdateOptions o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError SubmoduleUpdateOptions a) =>
IsSubmoduleUpdateOptions a
#endif
instance IsSubmoduleUpdateOptions SubmoduleUpdateOptions
instance GObject.Object.IsObject SubmoduleUpdateOptions
toSubmoduleUpdateOptions :: (MonadIO m, IsSubmoduleUpdateOptions o) => o -> m SubmoduleUpdateOptions
toSubmoduleUpdateOptions = liftIO . unsafeCastTo SubmoduleUpdateOptions
noSubmoduleUpdateOptions :: Maybe SubmoduleUpdateOptions
noSubmoduleUpdateOptions = Nothing
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
type family ResolveSubmoduleUpdateOptionsMethod (t :: Symbol) (o :: *) :: * where
ResolveSubmoduleUpdateOptionsMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveSubmoduleUpdateOptionsMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveSubmoduleUpdateOptionsMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveSubmoduleUpdateOptionsMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveSubmoduleUpdateOptionsMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveSubmoduleUpdateOptionsMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveSubmoduleUpdateOptionsMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveSubmoduleUpdateOptionsMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveSubmoduleUpdateOptionsMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveSubmoduleUpdateOptionsMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveSubmoduleUpdateOptionsMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveSubmoduleUpdateOptionsMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveSubmoduleUpdateOptionsMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveSubmoduleUpdateOptionsMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveSubmoduleUpdateOptionsMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveSubmoduleUpdateOptionsMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveSubmoduleUpdateOptionsMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveSubmoduleUpdateOptionsMethod "getCheckoutOptions" o = SubmoduleUpdateOptionsGetCheckoutOptionsMethodInfo
ResolveSubmoduleUpdateOptionsMethod "getCloneCheckoutStrategy" o = SubmoduleUpdateOptionsGetCloneCheckoutStrategyMethodInfo
ResolveSubmoduleUpdateOptionsMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveSubmoduleUpdateOptionsMethod "getFetchOptions" o = SubmoduleUpdateOptionsGetFetchOptionsMethodInfo
ResolveSubmoduleUpdateOptionsMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveSubmoduleUpdateOptionsMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveSubmoduleUpdateOptionsMethod "setCheckoutOptions" o = SubmoduleUpdateOptionsSetCheckoutOptionsMethodInfo
ResolveSubmoduleUpdateOptionsMethod "setCloneCheckoutStrategy" o = SubmoduleUpdateOptionsSetCloneCheckoutStrategyMethodInfo
ResolveSubmoduleUpdateOptionsMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveSubmoduleUpdateOptionsMethod "setFetchOptions" o = SubmoduleUpdateOptionsSetFetchOptionsMethodInfo
ResolveSubmoduleUpdateOptionsMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveSubmoduleUpdateOptionsMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveSubmoduleUpdateOptionsMethod t SubmoduleUpdateOptions, O.MethodInfo info SubmoduleUpdateOptions p) => O.IsLabelProxy t (SubmoduleUpdateOptions -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveSubmoduleUpdateOptionsMethod t SubmoduleUpdateOptions, O.MethodInfo info SubmoduleUpdateOptions p) => O.IsLabel t (SubmoduleUpdateOptions -> 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
#endif
getSubmoduleUpdateOptionsCheckoutOptions :: (MonadIO m, IsSubmoduleUpdateOptions o) => o -> m Ggit.CheckoutOptions.CheckoutOptions
getSubmoduleUpdateOptionsCheckoutOptions obj = liftIO $ checkUnexpectedNothing "getSubmoduleUpdateOptionsCheckoutOptions" $ getObjectPropertyObject obj "checkout-options" Ggit.CheckoutOptions.CheckoutOptions
setSubmoduleUpdateOptionsCheckoutOptions :: (MonadIO m, IsSubmoduleUpdateOptions o, Ggit.CheckoutOptions.IsCheckoutOptions a) => o -> a -> m ()
setSubmoduleUpdateOptionsCheckoutOptions obj val = liftIO $ setObjectPropertyObject obj "checkout-options" (Just val)
constructSubmoduleUpdateOptionsCheckoutOptions :: (IsSubmoduleUpdateOptions o, Ggit.CheckoutOptions.IsCheckoutOptions a) => a -> IO (GValueConstruct o)
constructSubmoduleUpdateOptionsCheckoutOptions val = constructObjectPropertyObject "checkout-options" (Just val)
clearSubmoduleUpdateOptionsCheckoutOptions :: (MonadIO m, IsSubmoduleUpdateOptions o) => o -> m ()
clearSubmoduleUpdateOptionsCheckoutOptions obj = liftIO $ setObjectPropertyObject obj "checkout-options" (Nothing :: Maybe Ggit.CheckoutOptions.CheckoutOptions)
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SubmoduleUpdateOptionsCheckoutOptionsPropertyInfo
instance AttrInfo SubmoduleUpdateOptionsCheckoutOptionsPropertyInfo where
type AttrAllowedOps SubmoduleUpdateOptionsCheckoutOptionsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint SubmoduleUpdateOptionsCheckoutOptionsPropertyInfo = Ggit.CheckoutOptions.IsCheckoutOptions
type AttrBaseTypeConstraint SubmoduleUpdateOptionsCheckoutOptionsPropertyInfo = IsSubmoduleUpdateOptions
type AttrGetType SubmoduleUpdateOptionsCheckoutOptionsPropertyInfo = Ggit.CheckoutOptions.CheckoutOptions
type AttrLabel SubmoduleUpdateOptionsCheckoutOptionsPropertyInfo = "checkout-options"
type AttrOrigin SubmoduleUpdateOptionsCheckoutOptionsPropertyInfo = SubmoduleUpdateOptions
attrGet _ = getSubmoduleUpdateOptionsCheckoutOptions
attrSet _ = setSubmoduleUpdateOptionsCheckoutOptions
attrConstruct _ = constructSubmoduleUpdateOptionsCheckoutOptions
attrClear _ = clearSubmoduleUpdateOptionsCheckoutOptions
#endif
getSubmoduleUpdateOptionsCloneCheckoutStrategy :: (MonadIO m, IsSubmoduleUpdateOptions o) => o -> m [Ggit.Flags.CheckoutStrategy]
getSubmoduleUpdateOptionsCloneCheckoutStrategy obj = liftIO $ getObjectPropertyFlags obj "clone-checkout-strategy"
setSubmoduleUpdateOptionsCloneCheckoutStrategy :: (MonadIO m, IsSubmoduleUpdateOptions o) => o -> [Ggit.Flags.CheckoutStrategy] -> m ()
setSubmoduleUpdateOptionsCloneCheckoutStrategy obj val = liftIO $ setObjectPropertyFlags obj "clone-checkout-strategy" val
constructSubmoduleUpdateOptionsCloneCheckoutStrategy :: (IsSubmoduleUpdateOptions o) => [Ggit.Flags.CheckoutStrategy] -> IO (GValueConstruct o)
constructSubmoduleUpdateOptionsCloneCheckoutStrategy val = constructObjectPropertyFlags "clone-checkout-strategy" val
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SubmoduleUpdateOptionsCloneCheckoutStrategyPropertyInfo
instance AttrInfo SubmoduleUpdateOptionsCloneCheckoutStrategyPropertyInfo where
type AttrAllowedOps SubmoduleUpdateOptionsCloneCheckoutStrategyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SubmoduleUpdateOptionsCloneCheckoutStrategyPropertyInfo = (~) [Ggit.Flags.CheckoutStrategy]
type AttrBaseTypeConstraint SubmoduleUpdateOptionsCloneCheckoutStrategyPropertyInfo = IsSubmoduleUpdateOptions
type AttrGetType SubmoduleUpdateOptionsCloneCheckoutStrategyPropertyInfo = [Ggit.Flags.CheckoutStrategy]
type AttrLabel SubmoduleUpdateOptionsCloneCheckoutStrategyPropertyInfo = "clone-checkout-strategy"
type AttrOrigin SubmoduleUpdateOptionsCloneCheckoutStrategyPropertyInfo = SubmoduleUpdateOptions
attrGet _ = getSubmoduleUpdateOptionsCloneCheckoutStrategy
attrSet _ = setSubmoduleUpdateOptionsCloneCheckoutStrategy
attrConstruct _ = constructSubmoduleUpdateOptionsCloneCheckoutStrategy
attrClear _ = undefined
#endif
getSubmoduleUpdateOptionsFetchOptions :: (MonadIO m, IsSubmoduleUpdateOptions o) => o -> m (Maybe Ggit.FetchOptions.FetchOptions)
getSubmoduleUpdateOptionsFetchOptions obj = liftIO $ getObjectPropertyBoxed obj "fetch-options" Ggit.FetchOptions.FetchOptions
setSubmoduleUpdateOptionsFetchOptions :: (MonadIO m, IsSubmoduleUpdateOptions o) => o -> Ggit.FetchOptions.FetchOptions -> m ()
setSubmoduleUpdateOptionsFetchOptions obj val = liftIO $ setObjectPropertyBoxed obj "fetch-options" (Just val)
constructSubmoduleUpdateOptionsFetchOptions :: (IsSubmoduleUpdateOptions o) => Ggit.FetchOptions.FetchOptions -> IO (GValueConstruct o)
constructSubmoduleUpdateOptionsFetchOptions val = constructObjectPropertyBoxed "fetch-options" (Just val)
clearSubmoduleUpdateOptionsFetchOptions :: (MonadIO m, IsSubmoduleUpdateOptions o) => o -> m ()
clearSubmoduleUpdateOptionsFetchOptions obj = liftIO $ setObjectPropertyBoxed obj "fetch-options" (Nothing :: Maybe Ggit.FetchOptions.FetchOptions)
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SubmoduleUpdateOptionsFetchOptionsPropertyInfo
instance AttrInfo SubmoduleUpdateOptionsFetchOptionsPropertyInfo where
type AttrAllowedOps SubmoduleUpdateOptionsFetchOptionsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint SubmoduleUpdateOptionsFetchOptionsPropertyInfo = (~) Ggit.FetchOptions.FetchOptions
type AttrBaseTypeConstraint SubmoduleUpdateOptionsFetchOptionsPropertyInfo = IsSubmoduleUpdateOptions
type AttrGetType SubmoduleUpdateOptionsFetchOptionsPropertyInfo = (Maybe Ggit.FetchOptions.FetchOptions)
type AttrLabel SubmoduleUpdateOptionsFetchOptionsPropertyInfo = "fetch-options"
type AttrOrigin SubmoduleUpdateOptionsFetchOptionsPropertyInfo = SubmoduleUpdateOptions
attrGet _ = getSubmoduleUpdateOptionsFetchOptions
attrSet _ = setSubmoduleUpdateOptionsFetchOptions
attrConstruct _ = constructSubmoduleUpdateOptionsFetchOptions
attrClear _ = clearSubmoduleUpdateOptionsFetchOptions
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
instance O.HasAttributeList SubmoduleUpdateOptions
type instance O.AttributeList SubmoduleUpdateOptions = SubmoduleUpdateOptionsAttributeList
type SubmoduleUpdateOptionsAttributeList = ('[ '("checkoutOptions", SubmoduleUpdateOptionsCheckoutOptionsPropertyInfo), '("cloneCheckoutStrategy", SubmoduleUpdateOptionsCloneCheckoutStrategyPropertyInfo), '("fetchOptions", SubmoduleUpdateOptionsFetchOptionsPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
submoduleUpdateOptionsCheckoutOptions :: AttrLabelProxy "checkoutOptions"
submoduleUpdateOptionsCheckoutOptions = AttrLabelProxy
submoduleUpdateOptionsCloneCheckoutStrategy :: AttrLabelProxy "cloneCheckoutStrategy"
submoduleUpdateOptionsCloneCheckoutStrategy = AttrLabelProxy
submoduleUpdateOptionsFetchOptions :: AttrLabelProxy "fetchOptions"
submoduleUpdateOptionsFetchOptions = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
type instance O.SignalList SubmoduleUpdateOptions = SubmoduleUpdateOptionsSignalList
type SubmoduleUpdateOptionsSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "ggit_submodule_update_options_new" ggit_submodule_update_options_new ::
IO (Ptr SubmoduleUpdateOptions)
submoduleUpdateOptionsNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m SubmoduleUpdateOptions
submoduleUpdateOptionsNew = liftIO $ do
result <- ggit_submodule_update_options_new
checkUnexpectedReturnNULL "submoduleUpdateOptionsNew" result
result' <- (wrapObject SubmoduleUpdateOptions) result
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
#endif
foreign import ccall "ggit_submodule_update_options_get_checkout_options" ggit_submodule_update_options_get_checkout_options ::
Ptr SubmoduleUpdateOptions ->
IO (Ptr Ggit.CheckoutOptions.CheckoutOptions)
submoduleUpdateOptionsGetCheckoutOptions ::
(B.CallStack.HasCallStack, MonadIO m, IsSubmoduleUpdateOptions a) =>
a
-> m Ggit.CheckoutOptions.CheckoutOptions
submoduleUpdateOptionsGetCheckoutOptions options = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
result <- ggit_submodule_update_options_get_checkout_options options'
checkUnexpectedReturnNULL "submoduleUpdateOptionsGetCheckoutOptions" result
result' <- (newObject Ggit.CheckoutOptions.CheckoutOptions) result
touchManagedPtr options
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SubmoduleUpdateOptionsGetCheckoutOptionsMethodInfo
instance (signature ~ (m Ggit.CheckoutOptions.CheckoutOptions), MonadIO m, IsSubmoduleUpdateOptions a) => O.MethodInfo SubmoduleUpdateOptionsGetCheckoutOptionsMethodInfo a signature where
overloadedMethod _ = submoduleUpdateOptionsGetCheckoutOptions
#endif
foreign import ccall "ggit_submodule_update_options_get_clone_checkout_strategy" ggit_submodule_update_options_get_clone_checkout_strategy ::
Ptr SubmoduleUpdateOptions ->
IO CUInt
submoduleUpdateOptionsGetCloneCheckoutStrategy ::
(B.CallStack.HasCallStack, MonadIO m, IsSubmoduleUpdateOptions a) =>
a
-> m [Ggit.Flags.CheckoutStrategy]
submoduleUpdateOptionsGetCloneCheckoutStrategy options = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
result <- ggit_submodule_update_options_get_clone_checkout_strategy options'
let result' = wordToGFlags result
touchManagedPtr options
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SubmoduleUpdateOptionsGetCloneCheckoutStrategyMethodInfo
instance (signature ~ (m [Ggit.Flags.CheckoutStrategy]), MonadIO m, IsSubmoduleUpdateOptions a) => O.MethodInfo SubmoduleUpdateOptionsGetCloneCheckoutStrategyMethodInfo a signature where
overloadedMethod _ = submoduleUpdateOptionsGetCloneCheckoutStrategy
#endif
foreign import ccall "ggit_submodule_update_options_get_fetch_options" ggit_submodule_update_options_get_fetch_options ::
Ptr SubmoduleUpdateOptions ->
IO (Ptr Ggit.FetchOptions.FetchOptions)
submoduleUpdateOptionsGetFetchOptions ::
(B.CallStack.HasCallStack, MonadIO m, IsSubmoduleUpdateOptions a) =>
a
-> m Ggit.FetchOptions.FetchOptions
submoduleUpdateOptionsGetFetchOptions options = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
result <- ggit_submodule_update_options_get_fetch_options options'
checkUnexpectedReturnNULL "submoduleUpdateOptionsGetFetchOptions" result
result' <- (wrapBoxed Ggit.FetchOptions.FetchOptions) result
touchManagedPtr options
return result'
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SubmoduleUpdateOptionsGetFetchOptionsMethodInfo
instance (signature ~ (m Ggit.FetchOptions.FetchOptions), MonadIO m, IsSubmoduleUpdateOptions a) => O.MethodInfo SubmoduleUpdateOptionsGetFetchOptionsMethodInfo a signature where
overloadedMethod _ = submoduleUpdateOptionsGetFetchOptions
#endif
foreign import ccall "ggit_submodule_update_options_set_checkout_options" ggit_submodule_update_options_set_checkout_options ::
Ptr SubmoduleUpdateOptions ->
Ptr Ggit.CheckoutOptions.CheckoutOptions ->
IO ()
submoduleUpdateOptionsSetCheckoutOptions ::
(B.CallStack.HasCallStack, MonadIO m, IsSubmoduleUpdateOptions a, Ggit.CheckoutOptions.IsCheckoutOptions b) =>
a
-> Maybe (b)
-> m ()
submoduleUpdateOptionsSetCheckoutOptions options checkoutOptions = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
maybeCheckoutOptions <- case checkoutOptions of
Nothing -> return nullPtr
Just jCheckoutOptions -> do
jCheckoutOptions' <- unsafeManagedPtrCastPtr jCheckoutOptions
return jCheckoutOptions'
ggit_submodule_update_options_set_checkout_options options' maybeCheckoutOptions
touchManagedPtr options
whenJust checkoutOptions touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SubmoduleUpdateOptionsSetCheckoutOptionsMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsSubmoduleUpdateOptions a, Ggit.CheckoutOptions.IsCheckoutOptions b) => O.MethodInfo SubmoduleUpdateOptionsSetCheckoutOptionsMethodInfo a signature where
overloadedMethod _ = submoduleUpdateOptionsSetCheckoutOptions
#endif
foreign import ccall "ggit_submodule_update_options_set_clone_checkout_strategy" ggit_submodule_update_options_set_clone_checkout_strategy ::
Ptr SubmoduleUpdateOptions ->
CUInt ->
IO ()
submoduleUpdateOptionsSetCloneCheckoutStrategy ::
(B.CallStack.HasCallStack, MonadIO m, IsSubmoduleUpdateOptions a) =>
a
-> [Ggit.Flags.CheckoutStrategy]
-> m ()
submoduleUpdateOptionsSetCloneCheckoutStrategy options checkoutStrategy = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
let checkoutStrategy' = gflagsToWord checkoutStrategy
ggit_submodule_update_options_set_clone_checkout_strategy options' checkoutStrategy'
touchManagedPtr options
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SubmoduleUpdateOptionsSetCloneCheckoutStrategyMethodInfo
instance (signature ~ ([Ggit.Flags.CheckoutStrategy] -> m ()), MonadIO m, IsSubmoduleUpdateOptions a) => O.MethodInfo SubmoduleUpdateOptionsSetCloneCheckoutStrategyMethodInfo a signature where
overloadedMethod _ = submoduleUpdateOptionsSetCloneCheckoutStrategy
#endif
foreign import ccall "ggit_submodule_update_options_set_fetch_options" ggit_submodule_update_options_set_fetch_options ::
Ptr SubmoduleUpdateOptions ->
Ptr Ggit.FetchOptions.FetchOptions ->
IO ()
submoduleUpdateOptionsSetFetchOptions ::
(B.CallStack.HasCallStack, MonadIO m, IsSubmoduleUpdateOptions a) =>
a
-> Maybe (Ggit.FetchOptions.FetchOptions)
-> m ()
submoduleUpdateOptionsSetFetchOptions options fetchOptions = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
maybeFetchOptions <- case fetchOptions of
Nothing -> return nullPtr
Just jFetchOptions -> do
jFetchOptions' <- unsafeManagedPtrGetPtr jFetchOptions
return jFetchOptions'
ggit_submodule_update_options_set_fetch_options options' maybeFetchOptions
touchManagedPtr options
whenJust fetchOptions touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING) && !defined(__HADDOCK_VERSION__)
data SubmoduleUpdateOptionsSetFetchOptionsMethodInfo
instance (signature ~ (Maybe (Ggit.FetchOptions.FetchOptions) -> m ()), MonadIO m, IsSubmoduleUpdateOptions a) => O.MethodInfo SubmoduleUpdateOptionsSetFetchOptionsMethodInfo a signature where
overloadedMethod _ = submoduleUpdateOptionsSetFetchOptions
#endif