SubmoduleUpdateOptions.hs


{- |
Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License    : LGPL-2.1
Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)

Represents options for a submodule update.
-}

#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
       && !defined(__HADDOCK_VERSION__))

module GI.Ggit.Objects.SubmoduleUpdateOptions
    ( 

-- * Exported types
    SubmoduleUpdateOptions(..)              ,
    IsSubmoduleUpdateOptions                ,
    toSubmoduleUpdateOptions                ,
    noSubmoduleUpdateOptions                ,


 -- * Methods
-- ** getCheckoutOptions #method:getCheckoutOptions#

#if ENABLE_OVERLOADING
    SubmoduleUpdateOptionsGetCheckoutOptionsMethodInfo,
#endif
    submoduleUpdateOptionsGetCheckoutOptions,


-- ** getFetchOptions #method:getFetchOptions#

#if ENABLE_OVERLOADING
    SubmoduleUpdateOptionsGetFetchOptionsMethodInfo,
#endif
    submoduleUpdateOptionsGetFetchOptions   ,


-- ** new #method:new#

    submoduleUpdateOptionsNew               ,


-- ** setCheckoutOptions #method:setCheckoutOptions#

#if ENABLE_OVERLOADING
    SubmoduleUpdateOptionsSetCheckoutOptionsMethodInfo,
#endif
    submoduleUpdateOptionsSetCheckoutOptions,


-- ** setFetchOptions #method:setFetchOptions#

#if ENABLE_OVERLOADING
    SubmoduleUpdateOptionsSetFetchOptionsMethodInfo,
#endif
    submoduleUpdateOptionsSetFetchOptions   ,




 -- * Properties
-- ** checkoutOptions #attr:checkoutOptions#
{- | /No description available in the introspection data./
-}
#if ENABLE_OVERLOADING
    SubmoduleUpdateOptionsCheckoutOptionsPropertyInfo,
#endif
    clearSubmoduleUpdateOptionsCheckoutOptions,
    constructSubmoduleUpdateOptionsCheckoutOptions,
    getSubmoduleUpdateOptionsCheckoutOptions,
    setSubmoduleUpdateOptionsCheckoutOptions,
#if ENABLE_OVERLOADING
    submoduleUpdateOptionsCheckoutOptions   ,
#endif


-- ** fetchOptions #attr:fetchOptions#
{- | /No description available in the introspection data./
-}
#if ENABLE_OVERLOADING
    SubmoduleUpdateOptionsFetchOptionsPropertyInfo,
#endif
    clearSubmoduleUpdateOptionsFetchOptions ,
    constructSubmoduleUpdateOptionsFetchOptions,
    getSubmoduleUpdateOptionsFetchOptions   ,
    setSubmoduleUpdateOptionsFetchOptions   ,
#if ENABLE_OVERLOADING
    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.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL

import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Ggit.Objects.CheckoutOptions as Ggit.CheckoutOptions
import {-# SOURCE #-} qualified GI.Ggit.Structs.FetchOptions as Ggit.FetchOptions

-- | Memory-managed wrapper type.
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
    

-- | Type class for types which can be safely cast to `SubmoduleUpdateOptions`, for instance with `toSubmoduleUpdateOptions`.
class (GObject o, O.IsDescendantOf SubmoduleUpdateOptions o) => IsSubmoduleUpdateOptions o
instance (GObject o, O.IsDescendantOf SubmoduleUpdateOptions o) => IsSubmoduleUpdateOptions o

instance O.HasParentTypes SubmoduleUpdateOptions
type instance O.ParentTypes SubmoduleUpdateOptions = '[GObject.Object.Object]

-- | Cast to `SubmoduleUpdateOptions`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.
toSubmoduleUpdateOptions :: (MonadIO m, IsSubmoduleUpdateOptions o) => o -> m SubmoduleUpdateOptions
toSubmoduleUpdateOptions = liftIO . unsafeCastTo SubmoduleUpdateOptions

-- | A convenience alias for `Nothing` :: `Maybe` `SubmoduleUpdateOptions`.
noSubmoduleUpdateOptions :: Maybe SubmoduleUpdateOptions
noSubmoduleUpdateOptions = Nothing

#if ENABLE_OVERLOADING
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 "getv" o = GObject.Object.ObjectGetvMethodInfo
    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 "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 "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 "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) => OL.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

-- VVV Prop "checkout-options"
   -- Type: TInterface (Name {namespace = "Ggit", name = "CheckoutOptions"})
   -- Flags: [PropertyReadable,PropertyWritable]
   -- Nullable: (Just True,Just True)

{- |
Get the value of the “@checkout-options@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to

@
'Data.GI.Base.Attributes.get' submoduleUpdateOptions #checkoutOptions
@
-}
getSubmoduleUpdateOptionsCheckoutOptions :: (MonadIO m, IsSubmoduleUpdateOptions o) => o -> m (Maybe Ggit.CheckoutOptions.CheckoutOptions)
getSubmoduleUpdateOptionsCheckoutOptions obj = liftIO $ B.Properties.getObjectPropertyObject obj "checkout-options" Ggit.CheckoutOptions.CheckoutOptions

{- |
Set the value of the “@checkout-options@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to

@
'Data.GI.Base.Attributes.set' submoduleUpdateOptions [ #checkoutOptions 'Data.GI.Base.Attributes.:=' value ]
@
-}
setSubmoduleUpdateOptionsCheckoutOptions :: (MonadIO m, IsSubmoduleUpdateOptions o, Ggit.CheckoutOptions.IsCheckoutOptions a) => o -> a -> m ()
setSubmoduleUpdateOptionsCheckoutOptions obj val = liftIO $ B.Properties.setObjectPropertyObject obj "checkout-options" (Just val)

{- |
Construct a `GValueConstruct` with valid value for the “@checkout-options@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
-}
constructSubmoduleUpdateOptionsCheckoutOptions :: (IsSubmoduleUpdateOptions o, Ggit.CheckoutOptions.IsCheckoutOptions a) => a -> IO (GValueConstruct o)
constructSubmoduleUpdateOptionsCheckoutOptions val = B.Properties.constructObjectPropertyObject "checkout-options" (Just val)

{- |
Set the value of the “@checkout-options@” property to `Nothing`.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to

@
'Data.GI.Base.Attributes.clear' #checkoutOptions
@
-}
clearSubmoduleUpdateOptionsCheckoutOptions :: (MonadIO m, IsSubmoduleUpdateOptions o) => o -> m ()
clearSubmoduleUpdateOptionsCheckoutOptions obj = liftIO $ B.Properties.setObjectPropertyObject obj "checkout-options" (Nothing :: Maybe Ggit.CheckoutOptions.CheckoutOptions)

#if ENABLE_OVERLOADING
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 = (Maybe Ggit.CheckoutOptions.CheckoutOptions)
    type AttrLabel SubmoduleUpdateOptionsCheckoutOptionsPropertyInfo = "checkout-options"
    type AttrOrigin SubmoduleUpdateOptionsCheckoutOptionsPropertyInfo = SubmoduleUpdateOptions
    attrGet _ = getSubmoduleUpdateOptionsCheckoutOptions
    attrSet _ = setSubmoduleUpdateOptionsCheckoutOptions
    attrConstruct _ = constructSubmoduleUpdateOptionsCheckoutOptions
    attrClear _ = clearSubmoduleUpdateOptionsCheckoutOptions
#endif

-- VVV Prop "fetch-options"
   -- Type: TInterface (Name {namespace = "Ggit", name = "FetchOptions"})
   -- Flags: [PropertyReadable,PropertyWritable]
   -- Nullable: (Nothing,Just True)

{- |
Get the value of the “@fetch-options@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to

@
'Data.GI.Base.Attributes.get' submoduleUpdateOptions #fetchOptions
@
-}
getSubmoduleUpdateOptionsFetchOptions :: (MonadIO m, IsSubmoduleUpdateOptions o) => o -> m (Maybe Ggit.FetchOptions.FetchOptions)
getSubmoduleUpdateOptionsFetchOptions obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "fetch-options" Ggit.FetchOptions.FetchOptions

{- |
Set the value of the “@fetch-options@” property.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to

@
'Data.GI.Base.Attributes.set' submoduleUpdateOptions [ #fetchOptions 'Data.GI.Base.Attributes.:=' value ]
@
-}
setSubmoduleUpdateOptionsFetchOptions :: (MonadIO m, IsSubmoduleUpdateOptions o) => o -> Ggit.FetchOptions.FetchOptions -> m ()
setSubmoduleUpdateOptionsFetchOptions obj val = liftIO $ B.Properties.setObjectPropertyBoxed obj "fetch-options" (Just val)

{- |
Construct a `GValueConstruct` with valid value for the “@fetch-options@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.
-}
constructSubmoduleUpdateOptionsFetchOptions :: (IsSubmoduleUpdateOptions o) => Ggit.FetchOptions.FetchOptions -> IO (GValueConstruct o)
constructSubmoduleUpdateOptionsFetchOptions val = B.Properties.constructObjectPropertyBoxed "fetch-options" (Just val)

{- |
Set the value of the “@fetch-options@” property to `Nothing`.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to

@
'Data.GI.Base.Attributes.clear' #fetchOptions
@
-}
clearSubmoduleUpdateOptionsFetchOptions :: (MonadIO m, IsSubmoduleUpdateOptions o) => o -> m ()
clearSubmoduleUpdateOptionsFetchOptions obj = liftIO $ B.Properties.setObjectPropertyBoxed obj "fetch-options" (Nothing :: Maybe Ggit.FetchOptions.FetchOptions)

#if ENABLE_OVERLOADING
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 ENABLE_OVERLOADING
instance O.HasAttributeList SubmoduleUpdateOptions
type instance O.AttributeList SubmoduleUpdateOptions = SubmoduleUpdateOptionsAttributeList
type SubmoduleUpdateOptionsAttributeList = ('[ '("checkoutOptions", SubmoduleUpdateOptionsCheckoutOptionsPropertyInfo), '("fetchOptions", SubmoduleUpdateOptionsFetchOptionsPropertyInfo)] :: [(Symbol, *)])
#endif

#if ENABLE_OVERLOADING
submoduleUpdateOptionsCheckoutOptions :: AttrLabelProxy "checkoutOptions"
submoduleUpdateOptionsCheckoutOptions = AttrLabelProxy

submoduleUpdateOptionsFetchOptions :: AttrLabelProxy "fetchOptions"
submoduleUpdateOptionsFetchOptions = AttrLabelProxy

#endif

#if ENABLE_OVERLOADING
type instance O.SignalList SubmoduleUpdateOptions = SubmoduleUpdateOptionsSignalList
type SubmoduleUpdateOptionsSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])

#endif

-- method SubmoduleUpdateOptions::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- returnType : Just (TInterface (Name {namespace = "Ggit", name = "SubmoduleUpdateOptions"}))
-- throws : False
-- Skip return : False

foreign import ccall "ggit_submodule_update_options_new" ggit_submodule_update_options_new :: 
    IO (Ptr SubmoduleUpdateOptions)

{- |
Creates a new submodule options object.
-}
submoduleUpdateOptionsNew ::
    (B.CallStack.HasCallStack, MonadIO m) =>
    m (Maybe SubmoduleUpdateOptions)
    {- ^ __Returns:__ a 'GI.Ggit.Objects.SubmoduleUpdateOptions.SubmoduleUpdateOptions' or 'Nothing'. -}
submoduleUpdateOptionsNew  = liftIO $ do
    result <- ggit_submodule_update_options_new
    maybeResult <- convertIfNonNull result $ \result' -> do
        result'' <- (wrapObject SubmoduleUpdateOptions) result'
        return result''
    return maybeResult

#if ENABLE_OVERLOADING
#endif

-- method SubmoduleUpdateOptions::get_checkout_options
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "options", argType = TInterface (Name {namespace = "Ggit", name = "SubmoduleUpdateOptions"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GgitSubmoduleUpdateOptions.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TInterface (Name {namespace = "Ggit", name = "CheckoutOptions"}))
-- throws : False
-- Skip return : False

foreign import ccall "ggit_submodule_update_options_get_checkout_options" ggit_submodule_update_options_get_checkout_options :: 
    Ptr SubmoduleUpdateOptions ->           -- options : TInterface (Name {namespace = "Ggit", name = "SubmoduleUpdateOptions"})
    IO (Ptr Ggit.CheckoutOptions.CheckoutOptions)

{- |
Get the checkout options.
-}
submoduleUpdateOptionsGetCheckoutOptions ::
    (B.CallStack.HasCallStack, MonadIO m, IsSubmoduleUpdateOptions a) =>
    a
    {- ^ /@options@/: a 'GI.Ggit.Objects.SubmoduleUpdateOptions.SubmoduleUpdateOptions'. -}
    -> m (Maybe Ggit.CheckoutOptions.CheckoutOptions)
    {- ^ __Returns:__ a 'GI.Ggit.Objects.CheckoutOptions.CheckoutOptions' or 'Nothing'. -}
submoduleUpdateOptionsGetCheckoutOptions options = liftIO $ do
    options' <- unsafeManagedPtrCastPtr options
    result <- ggit_submodule_update_options_get_checkout_options options'
    maybeResult <- convertIfNonNull result $ \result' -> do
        result'' <- (newObject Ggit.CheckoutOptions.CheckoutOptions) result'
        return result''
    touchManagedPtr options
    return maybeResult

#if ENABLE_OVERLOADING
data SubmoduleUpdateOptionsGetCheckoutOptionsMethodInfo
instance (signature ~ (m (Maybe Ggit.CheckoutOptions.CheckoutOptions)), MonadIO m, IsSubmoduleUpdateOptions a) => O.MethodInfo SubmoduleUpdateOptionsGetCheckoutOptionsMethodInfo a signature where
    overloadedMethod _ = submoduleUpdateOptionsGetCheckoutOptions

#endif

-- method SubmoduleUpdateOptions::get_fetch_options
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "options", argType = TInterface (Name {namespace = "Ggit", name = "SubmoduleUpdateOptions"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TInterface (Name {namespace = "Ggit", name = "FetchOptions"}))
-- throws : False
-- Skip return : False

foreign import ccall "ggit_submodule_update_options_get_fetch_options" ggit_submodule_update_options_get_fetch_options :: 
    Ptr SubmoduleUpdateOptions ->           -- options : TInterface (Name {namespace = "Ggit", name = "SubmoduleUpdateOptions"})
    IO (Ptr Ggit.FetchOptions.FetchOptions)

{- |
/No description available in the introspection data./
-}
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 ENABLE_OVERLOADING
data SubmoduleUpdateOptionsGetFetchOptionsMethodInfo
instance (signature ~ (m Ggit.FetchOptions.FetchOptions), MonadIO m, IsSubmoduleUpdateOptions a) => O.MethodInfo SubmoduleUpdateOptionsGetFetchOptionsMethodInfo a signature where
    overloadedMethod _ = submoduleUpdateOptionsGetFetchOptions

#endif

-- method SubmoduleUpdateOptions::set_checkout_options
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "options", argType = TInterface (Name {namespace = "Ggit", name = "SubmoduleUpdateOptions"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GgitSubmoduleUpdateOptions.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "checkout_options", argType = TInterface (Name {namespace = "Ggit", name = "CheckoutOptions"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GgitCheckoutOptions.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "ggit_submodule_update_options_set_checkout_options" ggit_submodule_update_options_set_checkout_options :: 
    Ptr SubmoduleUpdateOptions ->           -- options : TInterface (Name {namespace = "Ggit", name = "SubmoduleUpdateOptions"})
    Ptr Ggit.CheckoutOptions.CheckoutOptions -> -- checkout_options : TInterface (Name {namespace = "Ggit", name = "CheckoutOptions"})
    IO ()

{- |
Set the checkout options.
-}
submoduleUpdateOptionsSetCheckoutOptions ::
    (B.CallStack.HasCallStack, MonadIO m, IsSubmoduleUpdateOptions a, Ggit.CheckoutOptions.IsCheckoutOptions b) =>
    a
    {- ^ /@options@/: a 'GI.Ggit.Objects.SubmoduleUpdateOptions.SubmoduleUpdateOptions'. -}
    -> Maybe (b)
    {- ^ /@checkoutOptions@/: a 'GI.Ggit.Objects.CheckoutOptions.CheckoutOptions'. -}
    -> 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 ENABLE_OVERLOADING
data SubmoduleUpdateOptionsSetCheckoutOptionsMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsSubmoduleUpdateOptions a, Ggit.CheckoutOptions.IsCheckoutOptions b) => O.MethodInfo SubmoduleUpdateOptionsSetCheckoutOptionsMethodInfo a signature where
    overloadedMethod _ = submoduleUpdateOptionsSetCheckoutOptions

#endif

-- method SubmoduleUpdateOptions::set_fetch_options
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "options", argType = TInterface (Name {namespace = "Ggit", name = "SubmoduleUpdateOptions"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GgitSubmoduleUpdateOptions.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fetch_options", argType = TInterface (Name {namespace = "Ggit", name = "FetchOptions"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GgitFetchOptions.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Nothing
-- throws : False
-- Skip return : False

foreign import ccall "ggit_submodule_update_options_set_fetch_options" ggit_submodule_update_options_set_fetch_options :: 
    Ptr SubmoduleUpdateOptions ->           -- options : TInterface (Name {namespace = "Ggit", name = "SubmoduleUpdateOptions"})
    Ptr Ggit.FetchOptions.FetchOptions ->   -- fetch_options : TInterface (Name {namespace = "Ggit", name = "FetchOptions"})
    IO ()

{- |
Sets the fetch options.
-}
submoduleUpdateOptionsSetFetchOptions ::
    (B.CallStack.HasCallStack, MonadIO m, IsSubmoduleUpdateOptions a) =>
    a
    {- ^ /@options@/: a 'GI.Ggit.Objects.SubmoduleUpdateOptions.SubmoduleUpdateOptions'. -}
    -> Maybe (Ggit.FetchOptions.FetchOptions)
    {- ^ /@fetchOptions@/: a 'GI.Ggit.Structs.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 ENABLE_OVERLOADING
data SubmoduleUpdateOptionsSetFetchOptionsMethodInfo
instance (signature ~ (Maybe (Ggit.FetchOptions.FetchOptions) -> m ()), MonadIO m, IsSubmoduleUpdateOptions a) => O.MethodInfo SubmoduleUpdateOptionsSetFetchOptionsMethodInfo a signature where
    overloadedMethod _ = submoduleUpdateOptionsSetFetchOptions

#endif