{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Ggit.Objects.SubmoduleUpdateOptions
(
SubmoduleUpdateOptions(..) ,
IsSubmoduleUpdateOptions ,
toSubmoduleUpdateOptions ,
#if defined(ENABLE_OVERLOADING)
ResolveSubmoduleUpdateOptionsMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
SubmoduleUpdateOptionsGetCheckoutOptionsMethodInfo,
#endif
submoduleUpdateOptionsGetCheckoutOptions,
#if defined(ENABLE_OVERLOADING)
SubmoduleUpdateOptionsGetFetchOptionsMethodInfo,
#endif
submoduleUpdateOptionsGetFetchOptions ,
submoduleUpdateOptionsNew ,
#if defined(ENABLE_OVERLOADING)
SubmoduleUpdateOptionsSetCheckoutOptionsMethodInfo,
#endif
submoduleUpdateOptionsSetCheckoutOptions,
#if defined(ENABLE_OVERLOADING)
SubmoduleUpdateOptionsSetFetchOptionsMethodInfo,
#endif
submoduleUpdateOptionsSetFetchOptions ,
#if defined(ENABLE_OVERLOADING)
SubmoduleUpdateOptionsCheckoutOptionsPropertyInfo,
#endif
clearSubmoduleUpdateOptionsCheckoutOptions,
constructSubmoduleUpdateOptionsCheckoutOptions,
getSubmoduleUpdateOptionsCheckoutOptions,
setSubmoduleUpdateOptionsCheckoutOptions,
#if defined(ENABLE_OVERLOADING)
submoduleUpdateOptionsCheckoutOptions ,
#endif
#if defined(ENABLE_OVERLOADING)
SubmoduleUpdateOptionsFetchOptionsPropertyInfo,
#endif
clearSubmoduleUpdateOptionsFetchOptions ,
constructSubmoduleUpdateOptionsFetchOptions,
getSubmoduleUpdateOptionsFetchOptions ,
setSubmoduleUpdateOptionsFetchOptions ,
#if defined(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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
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 GHC.Records as R
import qualified Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import qualified GI.GLib.Structs.DateTime as GLib.DateTime
import qualified GI.GLib.Structs.MatchInfo as GLib.MatchInfo
import qualified GI.GLib.Structs.Regex as GLib.Regex
import qualified GI.GLib.Structs.TimeZone as GLib.TimeZone
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Ggit.Callbacks as Ggit.Callbacks
import {-# SOURCE #-} qualified GI.Ggit.Enums as Ggit.Enums
import {-# SOURCE #-} qualified GI.Ggit.Flags as Ggit.Flags
import {-# SOURCE #-} qualified GI.Ggit.Objects.Blame as Ggit.Blame
import {-# SOURCE #-} qualified GI.Ggit.Objects.Blob as Ggit.Blob
import {-# SOURCE #-} qualified GI.Ggit.Objects.BlobOutputStream as Ggit.BlobOutputStream
import {-# SOURCE #-} qualified GI.Ggit.Objects.Branch as Ggit.Branch
import {-# SOURCE #-} qualified GI.Ggit.Objects.CheckoutOptions as Ggit.CheckoutOptions
import {-# SOURCE #-} qualified GI.Ggit.Objects.CherryPickOptions as Ggit.CherryPickOptions
import {-# SOURCE #-} qualified GI.Ggit.Objects.CloneOptions as Ggit.CloneOptions
import {-# SOURCE #-} qualified GI.Ggit.Objects.Commit as Ggit.Commit
import {-# SOURCE #-} qualified GI.Ggit.Objects.CommitParents as Ggit.CommitParents
import {-# SOURCE #-} qualified GI.Ggit.Objects.Config as Ggit.Config
import {-# SOURCE #-} qualified GI.Ggit.Objects.Index as Ggit.Index
import {-# SOURCE #-} qualified GI.Ggit.Objects.Native as Ggit.Native
import {-# SOURCE #-} qualified GI.Ggit.Objects.Object as Ggit.Object
import {-# SOURCE #-} qualified GI.Ggit.Objects.ObjectFactoryBase as Ggit.ObjectFactoryBase
import {-# SOURCE #-} qualified GI.Ggit.Objects.ProxyOptions as Ggit.ProxyOptions
import {-# SOURCE #-} qualified GI.Ggit.Objects.PushOptions as Ggit.PushOptions
import {-# SOURCE #-} qualified GI.Ggit.Objects.Rebase as Ggit.Rebase
import {-# SOURCE #-} qualified GI.Ggit.Objects.Ref as Ggit.Ref
import {-# SOURCE #-} qualified GI.Ggit.Objects.Remote as Ggit.Remote
import {-# SOURCE #-} qualified GI.Ggit.Objects.RemoteCallbacks as Ggit.RemoteCallbacks
import {-# SOURCE #-} qualified GI.Ggit.Objects.Repository as Ggit.Repository
import {-# SOURCE #-} qualified GI.Ggit.Objects.Signature as Ggit.Signature
import {-# SOURCE #-} qualified GI.Ggit.Objects.Tag as Ggit.Tag
import {-# SOURCE #-} qualified GI.Ggit.Objects.Tree as Ggit.Tree
import {-# SOURCE #-} qualified GI.Ggit.Objects.TreeBuilder as Ggit.TreeBuilder
import {-# SOURCE #-} qualified GI.Ggit.Structs.AnnotatedCommit as Ggit.AnnotatedCommit
import {-# SOURCE #-} qualified GI.Ggit.Structs.BlameHunk as Ggit.BlameHunk
import {-# SOURCE #-} qualified GI.Ggit.Structs.BlameOptions as Ggit.BlameOptions
import {-# SOURCE #-} qualified GI.Ggit.Structs.BranchEnumerator as Ggit.BranchEnumerator
import {-# SOURCE #-} qualified GI.Ggit.Structs.ConfigEntry as Ggit.ConfigEntry
import {-# SOURCE #-} qualified GI.Ggit.Structs.DiffSimilarityMetric as Ggit.DiffSimilarityMetric
import {-# SOURCE #-} qualified GI.Ggit.Structs.FetchOptions as Ggit.FetchOptions
import {-# SOURCE #-} qualified GI.Ggit.Structs.IndexEntries as Ggit.IndexEntries
import {-# SOURCE #-} qualified GI.Ggit.Structs.IndexEntriesResolveUndo as Ggit.IndexEntriesResolveUndo
import {-# SOURCE #-} qualified GI.Ggit.Structs.IndexEntry as Ggit.IndexEntry
import {-# SOURCE #-} qualified GI.Ggit.Structs.IndexEntryResolveUndo as Ggit.IndexEntryResolveUndo
import {-# SOURCE #-} qualified GI.Ggit.Structs.MergeOptions as Ggit.MergeOptions
import {-# SOURCE #-} qualified GI.Ggit.Structs.Note as Ggit.Note
import {-# SOURCE #-} qualified GI.Ggit.Structs.OId as Ggit.OId
import {-# SOURCE #-} qualified GI.Ggit.Structs.RebaseOperation as Ggit.RebaseOperation
import {-# SOURCE #-} qualified GI.Ggit.Structs.RebaseOptions as Ggit.RebaseOptions
import {-# SOURCE #-} qualified GI.Ggit.Structs.Reflog as Ggit.Reflog
import {-# SOURCE #-} qualified GI.Ggit.Structs.ReflogEntry as Ggit.ReflogEntry
import {-# SOURCE #-} qualified GI.Ggit.Structs.RemoteHead as Ggit.RemoteHead
import {-# SOURCE #-} qualified GI.Ggit.Structs.RevertOptions as Ggit.RevertOptions
import {-# SOURCE #-} qualified GI.Ggit.Structs.StatusOptions as Ggit.StatusOptions
import {-# SOURCE #-} qualified GI.Ggit.Structs.Submodule as Ggit.Submodule
import {-# SOURCE #-} qualified GI.Ggit.Structs.TransferProgress as Ggit.TransferProgress
import {-# SOURCE #-} qualified GI.Ggit.Structs.TreeEntry as Ggit.TreeEntry
import qualified GI.Gio.Interfaces.File as Gio.File
import qualified GI.Gio.Interfaces.Initable as Gio.Initable
import qualified GI.Gio.Objects.OutputStream as Gio.OutputStream
#else
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
#endif
newtype SubmoduleUpdateOptions = SubmoduleUpdateOptions (SP.ManagedPtr SubmoduleUpdateOptions)
deriving (SubmoduleUpdateOptions -> SubmoduleUpdateOptions -> Bool
(SubmoduleUpdateOptions -> SubmoduleUpdateOptions -> Bool)
-> (SubmoduleUpdateOptions -> SubmoduleUpdateOptions -> Bool)
-> Eq SubmoduleUpdateOptions
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SubmoduleUpdateOptions -> SubmoduleUpdateOptions -> Bool
== :: SubmoduleUpdateOptions -> SubmoduleUpdateOptions -> Bool
$c/= :: SubmoduleUpdateOptions -> SubmoduleUpdateOptions -> Bool
/= :: SubmoduleUpdateOptions -> SubmoduleUpdateOptions -> Bool
Eq)
instance SP.ManagedPtrNewtype SubmoduleUpdateOptions where
toManagedPtr :: SubmoduleUpdateOptions -> ManagedPtr SubmoduleUpdateOptions
toManagedPtr (SubmoduleUpdateOptions ManagedPtr SubmoduleUpdateOptions
p) = ManagedPtr SubmoduleUpdateOptions
p
foreign import ccall "ggit_submodule_update_options_get_type"
c_ggit_submodule_update_options_get_type :: IO B.Types.GType
instance B.Types.TypedObject SubmoduleUpdateOptions where
glibType :: IO GType
glibType = IO GType
c_ggit_submodule_update_options_get_type
instance B.Types.GObject SubmoduleUpdateOptions
class (SP.GObject o, O.IsDescendantOf SubmoduleUpdateOptions o) => IsSubmoduleUpdateOptions o
instance (SP.GObject o, O.IsDescendantOf SubmoduleUpdateOptions o) => IsSubmoduleUpdateOptions o
instance O.HasParentTypes SubmoduleUpdateOptions
type instance O.ParentTypes SubmoduleUpdateOptions = '[GObject.Object.Object]
toSubmoduleUpdateOptions :: (MIO.MonadIO m, IsSubmoduleUpdateOptions o) => o -> m SubmoduleUpdateOptions
toSubmoduleUpdateOptions :: forall (m :: * -> *) o.
(MonadIO m, IsSubmoduleUpdateOptions o) =>
o -> m SubmoduleUpdateOptions
toSubmoduleUpdateOptions = IO SubmoduleUpdateOptions -> m SubmoduleUpdateOptions
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO SubmoduleUpdateOptions -> m SubmoduleUpdateOptions)
-> (o -> IO SubmoduleUpdateOptions)
-> o
-> m SubmoduleUpdateOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr SubmoduleUpdateOptions -> SubmoduleUpdateOptions)
-> o -> IO SubmoduleUpdateOptions
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr SubmoduleUpdateOptions -> SubmoduleUpdateOptions
SubmoduleUpdateOptions
instance B.GValue.IsGValue (Maybe SubmoduleUpdateOptions) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_ggit_submodule_update_options_get_type
gvalueSet_ :: Ptr GValue -> Maybe SubmoduleUpdateOptions -> IO ()
gvalueSet_ Ptr GValue
gv Maybe SubmoduleUpdateOptions
P.Nothing = Ptr GValue -> Ptr SubmoduleUpdateOptions -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr SubmoduleUpdateOptions
forall a. Ptr a
FP.nullPtr :: FP.Ptr SubmoduleUpdateOptions)
gvalueSet_ Ptr GValue
gv (P.Just SubmoduleUpdateOptions
obj) = SubmoduleUpdateOptions
-> (Ptr SubmoduleUpdateOptions -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr SubmoduleUpdateOptions
obj (Ptr GValue -> Ptr SubmoduleUpdateOptions -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe SubmoduleUpdateOptions)
gvalueGet_ Ptr GValue
gv = do
Ptr SubmoduleUpdateOptions
ptr <- Ptr GValue -> IO (Ptr SubmoduleUpdateOptions)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr SubmoduleUpdateOptions)
if Ptr SubmoduleUpdateOptions
ptr Ptr SubmoduleUpdateOptions -> Ptr SubmoduleUpdateOptions -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr SubmoduleUpdateOptions
forall a. Ptr a
FP.nullPtr
then SubmoduleUpdateOptions -> Maybe SubmoduleUpdateOptions
forall a. a -> Maybe a
P.Just (SubmoduleUpdateOptions -> Maybe SubmoduleUpdateOptions)
-> IO SubmoduleUpdateOptions -> IO (Maybe SubmoduleUpdateOptions)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr SubmoduleUpdateOptions -> SubmoduleUpdateOptions)
-> Ptr SubmoduleUpdateOptions -> IO SubmoduleUpdateOptions
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr SubmoduleUpdateOptions -> SubmoduleUpdateOptions
SubmoduleUpdateOptions Ptr SubmoduleUpdateOptions
ptr
else Maybe SubmoduleUpdateOptions -> IO (Maybe SubmoduleUpdateOptions)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe SubmoduleUpdateOptions
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveSubmoduleUpdateOptionsMethod (t :: Symbol) (o :: DK.Type) :: DK.Type 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 "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveSubmoduleUpdateOptionsMethod "setFetchOptions" o = SubmoduleUpdateOptionsSetFetchOptionsMethodInfo
ResolveSubmoduleUpdateOptionsMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveSubmoduleUpdateOptionsMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveSubmoduleUpdateOptionsMethod t SubmoduleUpdateOptions, O.OverloadedMethod info SubmoduleUpdateOptions p) => OL.IsLabel t (SubmoduleUpdateOptions -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveSubmoduleUpdateOptionsMethod t SubmoduleUpdateOptions, O.OverloadedMethod info SubmoduleUpdateOptions p, R.HasField t SubmoduleUpdateOptions p) => R.HasField t SubmoduleUpdateOptions p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveSubmoduleUpdateOptionsMethod t SubmoduleUpdateOptions, O.OverloadedMethodInfo info SubmoduleUpdateOptions) => OL.IsLabel t (O.MethodProxy info SubmoduleUpdateOptions) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getSubmoduleUpdateOptionsCheckoutOptions :: (MonadIO m, IsSubmoduleUpdateOptions o) => o -> m (Maybe Ggit.CheckoutOptions.CheckoutOptions)
getSubmoduleUpdateOptionsCheckoutOptions :: forall (m :: * -> *) o.
(MonadIO m, IsSubmoduleUpdateOptions o) =>
o -> m (Maybe CheckoutOptions)
getSubmoduleUpdateOptionsCheckoutOptions o
obj = IO (Maybe CheckoutOptions) -> m (Maybe CheckoutOptions)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe CheckoutOptions) -> m (Maybe CheckoutOptions))
-> IO (Maybe CheckoutOptions) -> m (Maybe CheckoutOptions)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr CheckoutOptions -> CheckoutOptions)
-> IO (Maybe CheckoutOptions)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"checkout-options" ManagedPtr CheckoutOptions -> CheckoutOptions
Ggit.CheckoutOptions.CheckoutOptions
setSubmoduleUpdateOptionsCheckoutOptions :: (MonadIO m, IsSubmoduleUpdateOptions o, Ggit.CheckoutOptions.IsCheckoutOptions a) => o -> a -> m ()
setSubmoduleUpdateOptionsCheckoutOptions :: forall (m :: * -> *) o a.
(MonadIO m, IsSubmoduleUpdateOptions o, IsCheckoutOptions a) =>
o -> a -> m ()
setSubmoduleUpdateOptionsCheckoutOptions o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"checkout-options" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructSubmoduleUpdateOptionsCheckoutOptions :: (IsSubmoduleUpdateOptions o, MIO.MonadIO m, Ggit.CheckoutOptions.IsCheckoutOptions a) => a -> m (GValueConstruct o)
constructSubmoduleUpdateOptionsCheckoutOptions :: forall o (m :: * -> *) a.
(IsSubmoduleUpdateOptions o, MonadIO m, IsCheckoutOptions a) =>
a -> m (GValueConstruct o)
constructSubmoduleUpdateOptionsCheckoutOptions a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (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
"checkout-options" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearSubmoduleUpdateOptionsCheckoutOptions :: (MonadIO m, IsSubmoduleUpdateOptions o) => o -> m ()
clearSubmoduleUpdateOptionsCheckoutOptions :: forall (m :: * -> *) o.
(MonadIO m, IsSubmoduleUpdateOptions o) =>
o -> m ()
clearSubmoduleUpdateOptionsCheckoutOptions o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe CheckoutOptions -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"checkout-options" (Maybe CheckoutOptions
forall a. Maybe a
Nothing :: Maybe Ggit.CheckoutOptions.CheckoutOptions)
#if defined(ENABLE_OVERLOADING)
data SubmoduleUpdateOptionsCheckoutOptionsPropertyInfo
instance AttrInfo SubmoduleUpdateOptionsCheckoutOptionsPropertyInfo where
type AttrAllowedOps SubmoduleUpdateOptionsCheckoutOptionsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SubmoduleUpdateOptionsCheckoutOptionsPropertyInfo = IsSubmoduleUpdateOptions
type AttrSetTypeConstraint SubmoduleUpdateOptionsCheckoutOptionsPropertyInfo = Ggit.CheckoutOptions.IsCheckoutOptions
type AttrTransferTypeConstraint SubmoduleUpdateOptionsCheckoutOptionsPropertyInfo = Ggit.CheckoutOptions.IsCheckoutOptions
type AttrTransferType SubmoduleUpdateOptionsCheckoutOptionsPropertyInfo = Ggit.CheckoutOptions.CheckoutOptions
type AttrGetType SubmoduleUpdateOptionsCheckoutOptionsPropertyInfo = (Maybe Ggit.CheckoutOptions.CheckoutOptions)
type AttrLabel SubmoduleUpdateOptionsCheckoutOptionsPropertyInfo = "checkout-options"
type AttrOrigin SubmoduleUpdateOptionsCheckoutOptionsPropertyInfo = SubmoduleUpdateOptions
attrGet = getSubmoduleUpdateOptionsCheckoutOptions
attrSet = setSubmoduleUpdateOptionsCheckoutOptions
attrTransfer _ v = do
unsafeCastTo Ggit.CheckoutOptions.CheckoutOptions v
attrConstruct = constructSubmoduleUpdateOptionsCheckoutOptions
attrClear = clearSubmoduleUpdateOptionsCheckoutOptions
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Ggit.Objects.SubmoduleUpdateOptions.checkoutOptions"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.15/docs/GI-Ggit-Objects-SubmoduleUpdateOptions.html#g:attr:checkoutOptions"
})
#endif
getSubmoduleUpdateOptionsFetchOptions :: (MonadIO m, IsSubmoduleUpdateOptions o) => o -> m (Maybe Ggit.FetchOptions.FetchOptions)
getSubmoduleUpdateOptionsFetchOptions :: forall (m :: * -> *) o.
(MonadIO m, IsSubmoduleUpdateOptions o) =>
o -> m (Maybe FetchOptions)
getSubmoduleUpdateOptionsFetchOptions o
obj = IO (Maybe FetchOptions) -> m (Maybe FetchOptions)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe FetchOptions) -> m (Maybe FetchOptions))
-> IO (Maybe FetchOptions) -> m (Maybe FetchOptions)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr FetchOptions -> FetchOptions)
-> IO (Maybe FetchOptions)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"fetch-options" ManagedPtr FetchOptions -> FetchOptions
Ggit.FetchOptions.FetchOptions
setSubmoduleUpdateOptionsFetchOptions :: (MonadIO m, IsSubmoduleUpdateOptions o) => o -> Ggit.FetchOptions.FetchOptions -> m ()
setSubmoduleUpdateOptionsFetchOptions :: forall (m :: * -> *) o.
(MonadIO m, IsSubmoduleUpdateOptions o) =>
o -> FetchOptions -> m ()
setSubmoduleUpdateOptionsFetchOptions o
obj FetchOptions
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe FetchOptions -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"fetch-options" (FetchOptions -> Maybe FetchOptions
forall a. a -> Maybe a
Just FetchOptions
val)
constructSubmoduleUpdateOptionsFetchOptions :: (IsSubmoduleUpdateOptions o, MIO.MonadIO m) => Ggit.FetchOptions.FetchOptions -> m (GValueConstruct o)
constructSubmoduleUpdateOptionsFetchOptions :: forall o (m :: * -> *).
(IsSubmoduleUpdateOptions o, MonadIO m) =>
FetchOptions -> m (GValueConstruct o)
constructSubmoduleUpdateOptionsFetchOptions FetchOptions
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe FetchOptions -> IO (GValueConstruct o)
forall a o. GBoxed a => String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBoxed String
"fetch-options" (FetchOptions -> Maybe FetchOptions
forall a. a -> Maybe a
P.Just FetchOptions
val)
clearSubmoduleUpdateOptionsFetchOptions :: (MonadIO m, IsSubmoduleUpdateOptions o) => o -> m ()
clearSubmoduleUpdateOptionsFetchOptions :: forall (m :: * -> *) o.
(MonadIO m, IsSubmoduleUpdateOptions o) =>
o -> m ()
clearSubmoduleUpdateOptionsFetchOptions o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe FetchOptions -> IO ()
forall a b.
(GObject a, GBoxed b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyBoxed o
obj String
"fetch-options" (Maybe FetchOptions
forall a. Maybe a
Nothing :: Maybe Ggit.FetchOptions.FetchOptions)
#if defined(ENABLE_OVERLOADING)
data SubmoduleUpdateOptionsFetchOptionsPropertyInfo
instance AttrInfo SubmoduleUpdateOptionsFetchOptionsPropertyInfo where
type AttrAllowedOps SubmoduleUpdateOptionsFetchOptionsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint SubmoduleUpdateOptionsFetchOptionsPropertyInfo = IsSubmoduleUpdateOptions
type AttrSetTypeConstraint SubmoduleUpdateOptionsFetchOptionsPropertyInfo = (~) Ggit.FetchOptions.FetchOptions
type AttrTransferTypeConstraint SubmoduleUpdateOptionsFetchOptionsPropertyInfo = (~) Ggit.FetchOptions.FetchOptions
type AttrTransferType SubmoduleUpdateOptionsFetchOptionsPropertyInfo = Ggit.FetchOptions.FetchOptions
type AttrGetType SubmoduleUpdateOptionsFetchOptionsPropertyInfo = (Maybe Ggit.FetchOptions.FetchOptions)
type AttrLabel SubmoduleUpdateOptionsFetchOptionsPropertyInfo = "fetch-options"
type AttrOrigin SubmoduleUpdateOptionsFetchOptionsPropertyInfo = SubmoduleUpdateOptions
attrGet = getSubmoduleUpdateOptionsFetchOptions
attrSet = setSubmoduleUpdateOptionsFetchOptions
attrTransfer _ v = do
return v
attrConstruct = constructSubmoduleUpdateOptionsFetchOptions
attrClear = clearSubmoduleUpdateOptionsFetchOptions
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Ggit.Objects.SubmoduleUpdateOptions.fetchOptions"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.15/docs/GI-Ggit-Objects-SubmoduleUpdateOptions.html#g:attr:fetchOptions"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList SubmoduleUpdateOptions
type instance O.AttributeList SubmoduleUpdateOptions = SubmoduleUpdateOptionsAttributeList
type SubmoduleUpdateOptionsAttributeList = ('[ '("checkoutOptions", SubmoduleUpdateOptionsCheckoutOptionsPropertyInfo), '("fetchOptions", SubmoduleUpdateOptionsFetchOptionsPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
submoduleUpdateOptionsCheckoutOptions :: AttrLabelProxy "checkoutOptions"
submoduleUpdateOptionsCheckoutOptions = AttrLabelProxy
submoduleUpdateOptionsFetchOptions :: AttrLabelProxy "fetchOptions"
submoduleUpdateOptionsFetchOptions = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList SubmoduleUpdateOptions = SubmoduleUpdateOptionsSignalList
type SubmoduleUpdateOptionsSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "ggit_submodule_update_options_new" ggit_submodule_update_options_new ::
IO (Ptr SubmoduleUpdateOptions)
submoduleUpdateOptionsNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m (Maybe SubmoduleUpdateOptions)
submoduleUpdateOptionsNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
m (Maybe SubmoduleUpdateOptions)
submoduleUpdateOptionsNew = IO (Maybe SubmoduleUpdateOptions)
-> m (Maybe SubmoduleUpdateOptions)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe SubmoduleUpdateOptions)
-> m (Maybe SubmoduleUpdateOptions))
-> IO (Maybe SubmoduleUpdateOptions)
-> m (Maybe SubmoduleUpdateOptions)
forall a b. (a -> b) -> a -> b
$ do
Ptr SubmoduleUpdateOptions
result <- IO (Ptr SubmoduleUpdateOptions)
ggit_submodule_update_options_new
Maybe SubmoduleUpdateOptions
maybeResult <- Ptr SubmoduleUpdateOptions
-> (Ptr SubmoduleUpdateOptions -> IO SubmoduleUpdateOptions)
-> IO (Maybe SubmoduleUpdateOptions)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr SubmoduleUpdateOptions
result ((Ptr SubmoduleUpdateOptions -> IO SubmoduleUpdateOptions)
-> IO (Maybe SubmoduleUpdateOptions))
-> (Ptr SubmoduleUpdateOptions -> IO SubmoduleUpdateOptions)
-> IO (Maybe SubmoduleUpdateOptions)
forall a b. (a -> b) -> a -> b
$ \Ptr SubmoduleUpdateOptions
result' -> do
SubmoduleUpdateOptions
result'' <- ((ManagedPtr SubmoduleUpdateOptions -> SubmoduleUpdateOptions)
-> Ptr SubmoduleUpdateOptions -> IO SubmoduleUpdateOptions
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr SubmoduleUpdateOptions -> SubmoduleUpdateOptions
SubmoduleUpdateOptions) Ptr SubmoduleUpdateOptions
result'
SubmoduleUpdateOptions -> IO SubmoduleUpdateOptions
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return SubmoduleUpdateOptions
result''
Maybe SubmoduleUpdateOptions -> IO (Maybe SubmoduleUpdateOptions)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe SubmoduleUpdateOptions
maybeResult
#if defined(ENABLE_OVERLOADING)
#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 (Maybe Ggit.CheckoutOptions.CheckoutOptions)
submoduleUpdateOptionsGetCheckoutOptions :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSubmoduleUpdateOptions a) =>
a -> m (Maybe CheckoutOptions)
submoduleUpdateOptionsGetCheckoutOptions a
options = IO (Maybe CheckoutOptions) -> m (Maybe CheckoutOptions)
forall a. IO a -> m a
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 SubmoduleUpdateOptions
options' <- a -> IO (Ptr SubmoduleUpdateOptions)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
options
Ptr CheckoutOptions
result <- Ptr SubmoduleUpdateOptions -> IO (Ptr CheckoutOptions)
ggit_submodule_update_options_get_checkout_options Ptr SubmoduleUpdateOptions
options'
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
newObject ManagedPtr CheckoutOptions -> CheckoutOptions
Ggit.CheckoutOptions.CheckoutOptions) Ptr CheckoutOptions
result'
CheckoutOptions -> IO CheckoutOptions
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CheckoutOptions
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
options
Maybe CheckoutOptions -> IO (Maybe CheckoutOptions)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe CheckoutOptions
maybeResult
#if defined(ENABLE_OVERLOADING)
data SubmoduleUpdateOptionsGetCheckoutOptionsMethodInfo
instance (signature ~ (m (Maybe Ggit.CheckoutOptions.CheckoutOptions)), MonadIO m, IsSubmoduleUpdateOptions a) => O.OverloadedMethod SubmoduleUpdateOptionsGetCheckoutOptionsMethodInfo a signature where
overloadedMethod = submoduleUpdateOptionsGetCheckoutOptions
instance O.OverloadedMethodInfo SubmoduleUpdateOptionsGetCheckoutOptionsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Ggit.Objects.SubmoduleUpdateOptions.submoduleUpdateOptionsGetCheckoutOptions",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.15/docs/GI-Ggit-Objects-SubmoduleUpdateOptions.html#v:submoduleUpdateOptionsGetCheckoutOptions"
})
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSubmoduleUpdateOptions a) =>
a -> m FetchOptions
submoduleUpdateOptionsGetFetchOptions a
options = IO FetchOptions -> m FetchOptions
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO FetchOptions -> m FetchOptions)
-> IO FetchOptions -> m FetchOptions
forall a b. (a -> b) -> a -> b
$ do
Ptr SubmoduleUpdateOptions
options' <- a -> IO (Ptr SubmoduleUpdateOptions)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
options
Ptr FetchOptions
result <- Ptr SubmoduleUpdateOptions -> IO (Ptr FetchOptions)
ggit_submodule_update_options_get_fetch_options Ptr SubmoduleUpdateOptions
options'
Text -> Ptr FetchOptions -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"submoduleUpdateOptionsGetFetchOptions" Ptr FetchOptions
result
FetchOptions
result' <- ((ManagedPtr FetchOptions -> FetchOptions)
-> Ptr FetchOptions -> IO FetchOptions
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr FetchOptions -> FetchOptions
Ggit.FetchOptions.FetchOptions) Ptr FetchOptions
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
options
FetchOptions -> IO FetchOptions
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return FetchOptions
result'
#if defined(ENABLE_OVERLOADING)
data SubmoduleUpdateOptionsGetFetchOptionsMethodInfo
instance (signature ~ (m Ggit.FetchOptions.FetchOptions), MonadIO m, IsSubmoduleUpdateOptions a) => O.OverloadedMethod SubmoduleUpdateOptionsGetFetchOptionsMethodInfo a signature where
overloadedMethod = submoduleUpdateOptionsGetFetchOptions
instance O.OverloadedMethodInfo SubmoduleUpdateOptionsGetFetchOptionsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Ggit.Objects.SubmoduleUpdateOptions.submoduleUpdateOptionsGetFetchOptions",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.15/docs/GI-Ggit-Objects-SubmoduleUpdateOptions.html#v: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 :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsSubmoduleUpdateOptions a,
IsCheckoutOptions b) =>
a -> Maybe b -> m ()
submoduleUpdateOptionsSetCheckoutOptions a
options Maybe b
checkoutOptions = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SubmoduleUpdateOptions
options' <- a -> IO (Ptr SubmoduleUpdateOptions)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
options
Ptr CheckoutOptions
maybeCheckoutOptions <- case Maybe b
checkoutOptions of
Maybe b
Nothing -> Ptr CheckoutOptions -> IO (Ptr CheckoutOptions)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CheckoutOptions
forall a. Ptr a
nullPtr
Just b
jCheckoutOptions -> do
Ptr CheckoutOptions
jCheckoutOptions' <- b -> IO (Ptr CheckoutOptions)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jCheckoutOptions
Ptr CheckoutOptions -> IO (Ptr CheckoutOptions)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CheckoutOptions
jCheckoutOptions'
Ptr SubmoduleUpdateOptions -> Ptr CheckoutOptions -> IO ()
ggit_submodule_update_options_set_checkout_options Ptr SubmoduleUpdateOptions
options' Ptr CheckoutOptions
maybeCheckoutOptions
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
checkoutOptions b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SubmoduleUpdateOptionsSetCheckoutOptionsMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsSubmoduleUpdateOptions a, Ggit.CheckoutOptions.IsCheckoutOptions b) => O.OverloadedMethod SubmoduleUpdateOptionsSetCheckoutOptionsMethodInfo a signature where
overloadedMethod = submoduleUpdateOptionsSetCheckoutOptions
instance O.OverloadedMethodInfo SubmoduleUpdateOptionsSetCheckoutOptionsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Ggit.Objects.SubmoduleUpdateOptions.submoduleUpdateOptionsSetCheckoutOptions",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.15/docs/GI-Ggit-Objects-SubmoduleUpdateOptions.html#v:submoduleUpdateOptionsSetCheckoutOptions"
})
#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 :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsSubmoduleUpdateOptions a) =>
a -> Maybe FetchOptions -> m ()
submoduleUpdateOptionsSetFetchOptions a
options Maybe FetchOptions
fetchOptions = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr SubmoduleUpdateOptions
options' <- a -> IO (Ptr SubmoduleUpdateOptions)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
options
Ptr FetchOptions
maybeFetchOptions <- case Maybe FetchOptions
fetchOptions of
Maybe FetchOptions
Nothing -> Ptr FetchOptions -> IO (Ptr FetchOptions)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr FetchOptions
forall a. Ptr a
nullPtr
Just FetchOptions
jFetchOptions -> do
Ptr FetchOptions
jFetchOptions' <- FetchOptions -> IO (Ptr FetchOptions)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr FetchOptions
jFetchOptions
Ptr FetchOptions -> IO (Ptr FetchOptions)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr FetchOptions
jFetchOptions'
Ptr SubmoduleUpdateOptions -> Ptr FetchOptions -> IO ()
ggit_submodule_update_options_set_fetch_options Ptr SubmoduleUpdateOptions
options' Ptr FetchOptions
maybeFetchOptions
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
options
Maybe FetchOptions -> (FetchOptions -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe FetchOptions
fetchOptions FetchOptions -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SubmoduleUpdateOptionsSetFetchOptionsMethodInfo
instance (signature ~ (Maybe (Ggit.FetchOptions.FetchOptions) -> m ()), MonadIO m, IsSubmoduleUpdateOptions a) => O.OverloadedMethod SubmoduleUpdateOptionsSetFetchOptionsMethodInfo a signature where
overloadedMethod = submoduleUpdateOptionsSetFetchOptions
instance O.OverloadedMethodInfo SubmoduleUpdateOptionsSetFetchOptionsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Ggit.Objects.SubmoduleUpdateOptions.submoduleUpdateOptionsSetFetchOptions",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.15/docs/GI-Ggit-Objects-SubmoduleUpdateOptions.html#v:submoduleUpdateOptionsSetFetchOptions"
})
#endif