#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Ggit.Structs.RevertOptions
(
RevertOptions(..) ,
noRevertOptions ,
#if ENABLE_OVERLOADING
RevertOptionsCopyMethodInfo ,
#endif
revertOptionsCopy ,
#if ENABLE_OVERLOADING
RevertOptionsFreeMethodInfo ,
#endif
revertOptionsFree ,
revertOptionsNew ,
) 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 {-# SOURCE #-} qualified GI.Ggit.Objects.CheckoutOptions as Ggit.CheckoutOptions
import {-# SOURCE #-} qualified GI.Ggit.Structs.MergeOptions as Ggit.MergeOptions
newtype RevertOptions = RevertOptions (ManagedPtr RevertOptions)
foreign import ccall "ggit_revert_options_get_type" c_ggit_revert_options_get_type ::
IO GType
instance BoxedObject RevertOptions where
boxedType _ = c_ggit_revert_options_get_type
noRevertOptions :: Maybe RevertOptions
noRevertOptions = Nothing
#if ENABLE_OVERLOADING
instance O.HasAttributeList RevertOptions
type instance O.AttributeList RevertOptions = RevertOptionsAttributeList
type RevertOptionsAttributeList = ('[ ] :: [(Symbol, *)])
#endif
foreign import ccall "ggit_revert_options_new" ggit_revert_options_new ::
Word32 ->
Ptr Ggit.MergeOptions.MergeOptions ->
Ptr Ggit.CheckoutOptions.CheckoutOptions ->
IO (Ptr RevertOptions)
revertOptionsNew ::
(B.CallStack.HasCallStack, MonadIO m, Ggit.CheckoutOptions.IsCheckoutOptions a) =>
Word32
-> Maybe (Ggit.MergeOptions.MergeOptions)
-> Maybe (a)
-> m (Maybe RevertOptions)
revertOptionsNew mainline mergeOptions checkoutOptions = liftIO $ do
maybeMergeOptions <- case mergeOptions of
Nothing -> return nullPtr
Just jMergeOptions -> do
jMergeOptions' <- unsafeManagedPtrGetPtr jMergeOptions
return jMergeOptions'
maybeCheckoutOptions <- case checkoutOptions of
Nothing -> return nullPtr
Just jCheckoutOptions -> do
jCheckoutOptions' <- unsafeManagedPtrCastPtr jCheckoutOptions
return jCheckoutOptions'
result <- ggit_revert_options_new mainline maybeMergeOptions maybeCheckoutOptions
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (wrapBoxed RevertOptions) result'
return result''
whenJust mergeOptions touchManagedPtr
whenJust checkoutOptions touchManagedPtr
return maybeResult
#if ENABLE_OVERLOADING
#endif
foreign import ccall "ggit_revert_options_copy" ggit_revert_options_copy ::
Ptr RevertOptions ->
IO (Ptr RevertOptions)
revertOptionsCopy ::
(B.CallStack.HasCallStack, MonadIO m) =>
RevertOptions
-> m (Maybe RevertOptions)
revertOptionsCopy revertOptions = liftIO $ do
revertOptions' <- unsafeManagedPtrGetPtr revertOptions
result <- ggit_revert_options_copy revertOptions'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (wrapBoxed RevertOptions) result'
return result''
touchManagedPtr revertOptions
return maybeResult
#if ENABLE_OVERLOADING
data RevertOptionsCopyMethodInfo
instance (signature ~ (m (Maybe RevertOptions)), MonadIO m) => O.MethodInfo RevertOptionsCopyMethodInfo RevertOptions signature where
overloadedMethod _ = revertOptionsCopy
#endif
foreign import ccall "ggit_revert_options_free" ggit_revert_options_free ::
Ptr RevertOptions ->
IO ()
revertOptionsFree ::
(B.CallStack.HasCallStack, MonadIO m) =>
RevertOptions
-> m ()
revertOptionsFree revertOptions = liftIO $ do
revertOptions' <- unsafeManagedPtrGetPtr revertOptions
ggit_revert_options_free revertOptions'
touchManagedPtr revertOptions
return ()
#if ENABLE_OVERLOADING
data RevertOptionsFreeMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo RevertOptionsFreeMethodInfo RevertOptions signature where
overloadedMethod _ = revertOptionsFree
#endif
#if ENABLE_OVERLOADING
type family ResolveRevertOptionsMethod (t :: Symbol) (o :: *) :: * where
ResolveRevertOptionsMethod "copy" o = RevertOptionsCopyMethodInfo
ResolveRevertOptionsMethod "free" o = RevertOptionsFreeMethodInfo
ResolveRevertOptionsMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveRevertOptionsMethod t RevertOptions, O.MethodInfo info RevertOptions p) => OL.IsLabel t (RevertOptions -> 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