{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Ggit.Objects.CherryPickOptions
(
CherryPickOptions(..) ,
IsCherryPickOptions ,
toCherryPickOptions ,
noCherryPickOptions ,
#if defined(ENABLE_OVERLOADING)
ResolveCherryPickOptionsMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
CherryPickOptionsGetCheckoutOptionsMethodInfo,
#endif
cherryPickOptionsGetCheckoutOptions ,
#if defined(ENABLE_OVERLOADING)
CherryPickOptionsGetMainlineMethodInfo ,
#endif
cherryPickOptionsGetMainline ,
#if defined(ENABLE_OVERLOADING)
CherryPickOptionsGetMergeOptionsMethodInfo,
#endif
cherryPickOptionsGetMergeOptions ,
cherryPickOptionsNew ,
#if defined(ENABLE_OVERLOADING)
CherryPickOptionsSetCheckoutOptionsMethodInfo,
#endif
cherryPickOptionsSetCheckoutOptions ,
#if defined(ENABLE_OVERLOADING)
CherryPickOptionsSetMainlineMethodInfo ,
#endif
cherryPickOptionsSetMainline ,
#if defined(ENABLE_OVERLOADING)
CherryPickOptionsSetMergeOptionsMethodInfo,
#endif
cherryPickOptionsSetMergeOptions ,
#if defined(ENABLE_OVERLOADING)
CherryPickOptionsCheckoutOptionsPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
cherryPickOptionsCheckoutOptions ,
#endif
clearCherryPickOptionsCheckoutOptions ,
constructCherryPickOptionsCheckoutOptions,
getCherryPickOptionsCheckoutOptions ,
setCherryPickOptionsCheckoutOptions ,
#if defined(ENABLE_OVERLOADING)
CherryPickOptionsMainlinePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
cherryPickOptionsMainline ,
#endif
constructCherryPickOptionsMainline ,
getCherryPickOptionsMainline ,
setCherryPickOptionsMainline ,
#if defined(ENABLE_OVERLOADING)
CherryPickOptionsMergeOptionsPropertyInfo,
#endif
#if defined(ENABLE_OVERLOADING)
cherryPickOptionsMergeOptions ,
#endif
clearCherryPickOptionsMergeOptions ,
constructCherryPickOptionsMergeOptions ,
getCherryPickOptionsMergeOptions ,
setCherryPickOptionsMergeOptions ,
) 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.GI.Base.Signals as B.Signals
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.MergeOptions as Ggit.MergeOptions
newtype CherryPickOptions = CherryPickOptions (ManagedPtr CherryPickOptions)
deriving (Eq)
foreign import ccall "ggit_cherry_pick_options_get_type"
c_ggit_cherry_pick_options_get_type :: IO GType
instance GObject CherryPickOptions where
gobjectType = c_ggit_cherry_pick_options_get_type
instance B.GValue.IsGValue CherryPickOptions where
toGValue o = do
gtype <- c_ggit_cherry_pick_options_get_type
B.ManagedPtr.withManagedPtr o (B.GValue.buildGValue gtype B.GValue.set_object)
fromGValue gv = do
ptr <- B.GValue.get_object gv :: IO (Ptr CherryPickOptions)
B.ManagedPtr.newObject CherryPickOptions ptr
class (GObject o, O.IsDescendantOf CherryPickOptions o) => IsCherryPickOptions o
instance (GObject o, O.IsDescendantOf CherryPickOptions o) => IsCherryPickOptions o
instance O.HasParentTypes CherryPickOptions
type instance O.ParentTypes CherryPickOptions = '[GObject.Object.Object]
toCherryPickOptions :: (MonadIO m, IsCherryPickOptions o) => o -> m CherryPickOptions
toCherryPickOptions = liftIO . unsafeCastTo CherryPickOptions
noCherryPickOptions :: Maybe CherryPickOptions
noCherryPickOptions = Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveCherryPickOptionsMethod (t :: Symbol) (o :: *) :: * where
ResolveCherryPickOptionsMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveCherryPickOptionsMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveCherryPickOptionsMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveCherryPickOptionsMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveCherryPickOptionsMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveCherryPickOptionsMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveCherryPickOptionsMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveCherryPickOptionsMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveCherryPickOptionsMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveCherryPickOptionsMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveCherryPickOptionsMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveCherryPickOptionsMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveCherryPickOptionsMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveCherryPickOptionsMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveCherryPickOptionsMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveCherryPickOptionsMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveCherryPickOptionsMethod "getCheckoutOptions" o = CherryPickOptionsGetCheckoutOptionsMethodInfo
ResolveCherryPickOptionsMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveCherryPickOptionsMethod "getMainline" o = CherryPickOptionsGetMainlineMethodInfo
ResolveCherryPickOptionsMethod "getMergeOptions" o = CherryPickOptionsGetMergeOptionsMethodInfo
ResolveCherryPickOptionsMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveCherryPickOptionsMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveCherryPickOptionsMethod "setCheckoutOptions" o = CherryPickOptionsSetCheckoutOptionsMethodInfo
ResolveCherryPickOptionsMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveCherryPickOptionsMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveCherryPickOptionsMethod "setMainline" o = CherryPickOptionsSetMainlineMethodInfo
ResolveCherryPickOptionsMethod "setMergeOptions" o = CherryPickOptionsSetMergeOptionsMethodInfo
ResolveCherryPickOptionsMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveCherryPickOptionsMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveCherryPickOptionsMethod t CherryPickOptions, O.MethodInfo info CherryPickOptions p) => OL.IsLabel t (CherryPickOptions -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
getCherryPickOptionsCheckoutOptions :: (MonadIO m, IsCherryPickOptions o) => o -> m Ggit.CheckoutOptions.CheckoutOptions
getCherryPickOptionsCheckoutOptions obj = liftIO $ checkUnexpectedNothing "getCherryPickOptionsCheckoutOptions" $ B.Properties.getObjectPropertyObject obj "checkout-options" Ggit.CheckoutOptions.CheckoutOptions
setCherryPickOptionsCheckoutOptions :: (MonadIO m, IsCherryPickOptions o, Ggit.CheckoutOptions.IsCheckoutOptions a) => o -> a -> m ()
setCherryPickOptionsCheckoutOptions obj val = liftIO $ B.Properties.setObjectPropertyObject obj "checkout-options" (Just val)
constructCherryPickOptionsCheckoutOptions :: (IsCherryPickOptions o, Ggit.CheckoutOptions.IsCheckoutOptions a) => a -> IO (GValueConstruct o)
constructCherryPickOptionsCheckoutOptions val = B.Properties.constructObjectPropertyObject "checkout-options" (Just val)
clearCherryPickOptionsCheckoutOptions :: (MonadIO m, IsCherryPickOptions o) => o -> m ()
clearCherryPickOptionsCheckoutOptions obj = liftIO $ B.Properties.setObjectPropertyObject obj "checkout-options" (Nothing :: Maybe Ggit.CheckoutOptions.CheckoutOptions)
#if defined(ENABLE_OVERLOADING)
data CherryPickOptionsCheckoutOptionsPropertyInfo
instance AttrInfo CherryPickOptionsCheckoutOptionsPropertyInfo where
type AttrAllowedOps CherryPickOptionsCheckoutOptionsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CherryPickOptionsCheckoutOptionsPropertyInfo = IsCherryPickOptions
type AttrSetTypeConstraint CherryPickOptionsCheckoutOptionsPropertyInfo = Ggit.CheckoutOptions.IsCheckoutOptions
type AttrTransferTypeConstraint CherryPickOptionsCheckoutOptionsPropertyInfo = Ggit.CheckoutOptions.IsCheckoutOptions
type AttrTransferType CherryPickOptionsCheckoutOptionsPropertyInfo = Ggit.CheckoutOptions.CheckoutOptions
type AttrGetType CherryPickOptionsCheckoutOptionsPropertyInfo = Ggit.CheckoutOptions.CheckoutOptions
type AttrLabel CherryPickOptionsCheckoutOptionsPropertyInfo = "checkout-options"
type AttrOrigin CherryPickOptionsCheckoutOptionsPropertyInfo = CherryPickOptions
attrGet = getCherryPickOptionsCheckoutOptions
attrSet = setCherryPickOptionsCheckoutOptions
attrTransfer _ v = do
unsafeCastTo Ggit.CheckoutOptions.CheckoutOptions v
attrConstruct = constructCherryPickOptionsCheckoutOptions
attrClear = clearCherryPickOptionsCheckoutOptions
#endif
getCherryPickOptionsMainline :: (MonadIO m, IsCherryPickOptions o) => o -> m Word32
getCherryPickOptionsMainline obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "mainline"
setCherryPickOptionsMainline :: (MonadIO m, IsCherryPickOptions o) => o -> Word32 -> m ()
setCherryPickOptionsMainline obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "mainline" val
constructCherryPickOptionsMainline :: (IsCherryPickOptions o) => Word32 -> IO (GValueConstruct o)
constructCherryPickOptionsMainline val = B.Properties.constructObjectPropertyUInt32 "mainline" val
#if defined(ENABLE_OVERLOADING)
data CherryPickOptionsMainlinePropertyInfo
instance AttrInfo CherryPickOptionsMainlinePropertyInfo where
type AttrAllowedOps CherryPickOptionsMainlinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint CherryPickOptionsMainlinePropertyInfo = IsCherryPickOptions
type AttrSetTypeConstraint CherryPickOptionsMainlinePropertyInfo = (~) Word32
type AttrTransferTypeConstraint CherryPickOptionsMainlinePropertyInfo = (~) Word32
type AttrTransferType CherryPickOptionsMainlinePropertyInfo = Word32
type AttrGetType CherryPickOptionsMainlinePropertyInfo = Word32
type AttrLabel CherryPickOptionsMainlinePropertyInfo = "mainline"
type AttrOrigin CherryPickOptionsMainlinePropertyInfo = CherryPickOptions
attrGet = getCherryPickOptionsMainline
attrSet = setCherryPickOptionsMainline
attrTransfer _ v = do
return v
attrConstruct = constructCherryPickOptionsMainline
attrClear = undefined
#endif
getCherryPickOptionsMergeOptions :: (MonadIO m, IsCherryPickOptions o) => o -> m (Maybe Ggit.MergeOptions.MergeOptions)
getCherryPickOptionsMergeOptions obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "merge-options" Ggit.MergeOptions.MergeOptions
setCherryPickOptionsMergeOptions :: (MonadIO m, IsCherryPickOptions o) => o -> Ggit.MergeOptions.MergeOptions -> m ()
setCherryPickOptionsMergeOptions obj val = liftIO $ B.Properties.setObjectPropertyBoxed obj "merge-options" (Just val)
constructCherryPickOptionsMergeOptions :: (IsCherryPickOptions o) => Ggit.MergeOptions.MergeOptions -> IO (GValueConstruct o)
constructCherryPickOptionsMergeOptions val = B.Properties.constructObjectPropertyBoxed "merge-options" (Just val)
clearCherryPickOptionsMergeOptions :: (MonadIO m, IsCherryPickOptions o) => o -> m ()
clearCherryPickOptionsMergeOptions obj = liftIO $ B.Properties.setObjectPropertyBoxed obj "merge-options" (Nothing :: Maybe Ggit.MergeOptions.MergeOptions)
#if defined(ENABLE_OVERLOADING)
data CherryPickOptionsMergeOptionsPropertyInfo
instance AttrInfo CherryPickOptionsMergeOptionsPropertyInfo where
type AttrAllowedOps CherryPickOptionsMergeOptionsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint CherryPickOptionsMergeOptionsPropertyInfo = IsCherryPickOptions
type AttrSetTypeConstraint CherryPickOptionsMergeOptionsPropertyInfo = (~) Ggit.MergeOptions.MergeOptions
type AttrTransferTypeConstraint CherryPickOptionsMergeOptionsPropertyInfo = (~) Ggit.MergeOptions.MergeOptions
type AttrTransferType CherryPickOptionsMergeOptionsPropertyInfo = Ggit.MergeOptions.MergeOptions
type AttrGetType CherryPickOptionsMergeOptionsPropertyInfo = (Maybe Ggit.MergeOptions.MergeOptions)
type AttrLabel CherryPickOptionsMergeOptionsPropertyInfo = "merge-options"
type AttrOrigin CherryPickOptionsMergeOptionsPropertyInfo = CherryPickOptions
attrGet = getCherryPickOptionsMergeOptions
attrSet = setCherryPickOptionsMergeOptions
attrTransfer _ v = do
return v
attrConstruct = constructCherryPickOptionsMergeOptions
attrClear = clearCherryPickOptionsMergeOptions
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList CherryPickOptions
type instance O.AttributeList CherryPickOptions = CherryPickOptionsAttributeList
type CherryPickOptionsAttributeList = ('[ '("checkoutOptions", CherryPickOptionsCheckoutOptionsPropertyInfo), '("mainline", CherryPickOptionsMainlinePropertyInfo), '("mergeOptions", CherryPickOptionsMergeOptionsPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
cherryPickOptionsCheckoutOptions :: AttrLabelProxy "checkoutOptions"
cherryPickOptionsCheckoutOptions = AttrLabelProxy
cherryPickOptionsMainline :: AttrLabelProxy "mainline"
cherryPickOptionsMainline = AttrLabelProxy
cherryPickOptionsMergeOptions :: AttrLabelProxy "mergeOptions"
cherryPickOptionsMergeOptions = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList CherryPickOptions = CherryPickOptionsSignalList
type CherryPickOptionsSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "ggit_cherry_pick_options_new" ggit_cherry_pick_options_new ::
IO (Ptr CherryPickOptions)
cherryPickOptionsNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m CherryPickOptions
cherryPickOptionsNew = liftIO $ do
result <- ggit_cherry_pick_options_new
checkUnexpectedReturnNULL "cherryPickOptionsNew" result
result' <- (wrapObject CherryPickOptions) result
return result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "ggit_cherry_pick_options_get_checkout_options" ggit_cherry_pick_options_get_checkout_options ::
Ptr CherryPickOptions ->
IO (Ptr Ggit.CheckoutOptions.CheckoutOptions)
cherryPickOptionsGetCheckoutOptions ::
(B.CallStack.HasCallStack, MonadIO m, IsCherryPickOptions a) =>
a
-> m Ggit.CheckoutOptions.CheckoutOptions
cherryPickOptionsGetCheckoutOptions options = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
result <- ggit_cherry_pick_options_get_checkout_options options'
checkUnexpectedReturnNULL "cherryPickOptionsGetCheckoutOptions" result
result' <- (newObject Ggit.CheckoutOptions.CheckoutOptions) result
touchManagedPtr options
return result'
#if defined(ENABLE_OVERLOADING)
data CherryPickOptionsGetCheckoutOptionsMethodInfo
instance (signature ~ (m Ggit.CheckoutOptions.CheckoutOptions), MonadIO m, IsCherryPickOptions a) => O.MethodInfo CherryPickOptionsGetCheckoutOptionsMethodInfo a signature where
overloadedMethod = cherryPickOptionsGetCheckoutOptions
#endif
foreign import ccall "ggit_cherry_pick_options_get_mainline" ggit_cherry_pick_options_get_mainline ::
Ptr CherryPickOptions ->
IO Word32
cherryPickOptionsGetMainline ::
(B.CallStack.HasCallStack, MonadIO m, IsCherryPickOptions a) =>
a
-> m Word32
cherryPickOptionsGetMainline options = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
result <- ggit_cherry_pick_options_get_mainline options'
touchManagedPtr options
return result
#if defined(ENABLE_OVERLOADING)
data CherryPickOptionsGetMainlineMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsCherryPickOptions a) => O.MethodInfo CherryPickOptionsGetMainlineMethodInfo a signature where
overloadedMethod = cherryPickOptionsGetMainline
#endif
foreign import ccall "ggit_cherry_pick_options_get_merge_options" ggit_cherry_pick_options_get_merge_options ::
Ptr CherryPickOptions ->
IO (Ptr Ggit.MergeOptions.MergeOptions)
cherryPickOptionsGetMergeOptions ::
(B.CallStack.HasCallStack, MonadIO m, IsCherryPickOptions a) =>
a
-> m Ggit.MergeOptions.MergeOptions
cherryPickOptionsGetMergeOptions options = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
result <- ggit_cherry_pick_options_get_merge_options options'
checkUnexpectedReturnNULL "cherryPickOptionsGetMergeOptions" result
result' <- (wrapBoxed Ggit.MergeOptions.MergeOptions) result
touchManagedPtr options
return result'
#if defined(ENABLE_OVERLOADING)
data CherryPickOptionsGetMergeOptionsMethodInfo
instance (signature ~ (m Ggit.MergeOptions.MergeOptions), MonadIO m, IsCherryPickOptions a) => O.MethodInfo CherryPickOptionsGetMergeOptionsMethodInfo a signature where
overloadedMethod = cherryPickOptionsGetMergeOptions
#endif
foreign import ccall "ggit_cherry_pick_options_set_checkout_options" ggit_cherry_pick_options_set_checkout_options ::
Ptr CherryPickOptions ->
Ptr Ggit.CheckoutOptions.CheckoutOptions ->
IO ()
cherryPickOptionsSetCheckoutOptions ::
(B.CallStack.HasCallStack, MonadIO m, IsCherryPickOptions a, Ggit.CheckoutOptions.IsCheckoutOptions b) =>
a
-> Maybe (b)
-> m ()
cherryPickOptionsSetCheckoutOptions options checkoutOptions = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
maybeCheckoutOptions <- case checkoutOptions of
Nothing -> return nullPtr
Just jCheckoutOptions -> do
jCheckoutOptions' <- unsafeManagedPtrCastPtr jCheckoutOptions
return jCheckoutOptions'
ggit_cherry_pick_options_set_checkout_options options' maybeCheckoutOptions
touchManagedPtr options
whenJust checkoutOptions touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data CherryPickOptionsSetCheckoutOptionsMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsCherryPickOptions a, Ggit.CheckoutOptions.IsCheckoutOptions b) => O.MethodInfo CherryPickOptionsSetCheckoutOptionsMethodInfo a signature where
overloadedMethod = cherryPickOptionsSetCheckoutOptions
#endif
foreign import ccall "ggit_cherry_pick_options_set_mainline" ggit_cherry_pick_options_set_mainline ::
Ptr CherryPickOptions ->
Word32 ->
IO ()
cherryPickOptionsSetMainline ::
(B.CallStack.HasCallStack, MonadIO m, IsCherryPickOptions a) =>
a
-> Word32
-> m ()
cherryPickOptionsSetMainline options mainline = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
ggit_cherry_pick_options_set_mainline options' mainline
touchManagedPtr options
return ()
#if defined(ENABLE_OVERLOADING)
data CherryPickOptionsSetMainlineMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsCherryPickOptions a) => O.MethodInfo CherryPickOptionsSetMainlineMethodInfo a signature where
overloadedMethod = cherryPickOptionsSetMainline
#endif
foreign import ccall "ggit_cherry_pick_options_set_merge_options" ggit_cherry_pick_options_set_merge_options ::
Ptr CherryPickOptions ->
Ptr Ggit.MergeOptions.MergeOptions ->
IO ()
cherryPickOptionsSetMergeOptions ::
(B.CallStack.HasCallStack, MonadIO m, IsCherryPickOptions a) =>
a
-> Maybe (Ggit.MergeOptions.MergeOptions)
-> m ()
cherryPickOptionsSetMergeOptions options mergeOptions = liftIO $ do
options' <- unsafeManagedPtrCastPtr options
maybeMergeOptions <- case mergeOptions of
Nothing -> return nullPtr
Just jMergeOptions -> do
jMergeOptions' <- unsafeManagedPtrGetPtr jMergeOptions
return jMergeOptions'
ggit_cherry_pick_options_set_merge_options options' maybeMergeOptions
touchManagedPtr options
whenJust mergeOptions touchManagedPtr
return ()
#if defined(ENABLE_OVERLOADING)
data CherryPickOptionsSetMergeOptionsMethodInfo
instance (signature ~ (Maybe (Ggit.MergeOptions.MergeOptions) -> m ()), MonadIO m, IsCherryPickOptions a) => O.MethodInfo CherryPickOptionsSetMergeOptionsMethodInfo a signature where
overloadedMethod = cherryPickOptionsSetMergeOptions
#endif