#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Ggit.Objects.SubmoduleUpdateOptions
(
SubmoduleUpdateOptions(..) ,
IsSubmoduleUpdateOptions ,
toSubmoduleUpdateOptions ,
noSubmoduleUpdateOptions ,
#if ENABLE_OVERLOADING
SubmoduleUpdateOptionsGetCheckoutOptionsMethodInfo,
#endif
submoduleUpdateOptionsGetCheckoutOptions,
#if ENABLE_OVERLOADING
SubmoduleUpdateOptionsGetFetchOptionsMethodInfo,
#endif
submoduleUpdateOptionsGetFetchOptions ,
submoduleUpdateOptionsNew ,
#if ENABLE_OVERLOADING
SubmoduleUpdateOptionsSetCheckoutOptionsMethodInfo,
#endif
submoduleUpdateOptionsSetCheckoutOptions,
#if ENABLE_OVERLOADING
SubmoduleUpdateOptionsSetFetchOptionsMethodInfo,
#endif
submoduleUpdateOptionsSetFetchOptions ,
#if ENABLE_OVERLOADING
SubmoduleUpdateOptionsCheckoutOptionsPropertyInfo,
#endif
clearSubmoduleUpdateOptionsCheckoutOptions,
constructSubmoduleUpdateOptionsCheckoutOptions,
getSubmoduleUpdateOptionsCheckoutOptions,
setSubmoduleUpdateOptionsCheckoutOptions,
#if ENABLE_OVERLOADING
submoduleUpdateOptionsCheckoutOptions ,
#endif
#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
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, 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]
toSubmoduleUpdateOptions :: (MonadIO m, IsSubmoduleUpdateOptions o) => o -> m SubmoduleUpdateOptions
toSubmoduleUpdateOptions = liftIO . unsafeCastTo 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
getSubmoduleUpdateOptionsCheckoutOptions :: (MonadIO m, IsSubmoduleUpdateOptions o) => o -> m (Maybe Ggit.CheckoutOptions.CheckoutOptions)
getSubmoduleUpdateOptionsCheckoutOptions obj = liftIO $ B.Properties.getObjectPropertyObject obj "checkout-options" Ggit.CheckoutOptions.CheckoutOptions
setSubmoduleUpdateOptionsCheckoutOptions :: (MonadIO m, IsSubmoduleUpdateOptions o, Ggit.CheckoutOptions.IsCheckoutOptions a) => o -> a -> m ()
setSubmoduleUpdateOptionsCheckoutOptions obj val = liftIO $ B.Properties.setObjectPropertyObject obj "checkout-options" (Just val)
constructSubmoduleUpdateOptionsCheckoutOptions :: (IsSubmoduleUpdateOptions o, Ggit.CheckoutOptions.IsCheckoutOptions a) => a -> IO (GValueConstruct o)
constructSubmoduleUpdateOptionsCheckoutOptions val = B.Properties.constructObjectPropertyObject "checkout-options" (Just val)
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
getSubmoduleUpdateOptionsFetchOptions :: (MonadIO m, IsSubmoduleUpdateOptions o) => o -> m (Maybe Ggit.FetchOptions.FetchOptions)
getSubmoduleUpdateOptionsFetchOptions obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "fetch-options" Ggit.FetchOptions.FetchOptions
setSubmoduleUpdateOptionsFetchOptions :: (MonadIO m, IsSubmoduleUpdateOptions o) => o -> Ggit.FetchOptions.FetchOptions -> m ()
setSubmoduleUpdateOptionsFetchOptions obj val = liftIO $ B.Properties.setObjectPropertyBoxed obj "fetch-options" (Just val)
constructSubmoduleUpdateOptionsFetchOptions :: (IsSubmoduleUpdateOptions o) => Ggit.FetchOptions.FetchOptions -> IO (GValueConstruct o)
constructSubmoduleUpdateOptionsFetchOptions val = B.Properties.constructObjectPropertyBoxed "fetch-options" (Just val)
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
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 = 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
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 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
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 ENABLE_OVERLOADING
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 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
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 ENABLE_OVERLOADING
data SubmoduleUpdateOptionsSetFetchOptionsMethodInfo
instance (signature ~ (Maybe (Ggit.FetchOptions.FetchOptions) -> m ()), MonadIO m, IsSubmoduleUpdateOptions a) => O.MethodInfo SubmoduleUpdateOptionsSetFetchOptionsMethodInfo a signature where
overloadedMethod _ = submoduleUpdateOptionsSetFetchOptions
#endif