{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Ggit.Structs.IndexEntriesResolveUndo
(
IndexEntriesResolveUndo(..) ,
#if defined(ENABLE_OVERLOADING)
ResolveIndexEntriesResolveUndoMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
IndexEntriesResolveUndoGetMethodInfo ,
#endif
indexEntriesResolveUndoGet ,
#if defined(ENABLE_OVERLOADING)
IndexEntriesResolveUndoGetByFileMethodInfo,
#endif
indexEntriesResolveUndoGetByFile ,
#if defined(ENABLE_OVERLOADING)
IndexEntriesResolveUndoRefMethodInfo ,
#endif
indexEntriesResolveUndoRef ,
#if defined(ENABLE_OVERLOADING)
IndexEntriesResolveUndoSizeMethodInfo ,
#endif
indexEntriesResolveUndoSize ,
#if defined(ENABLE_OVERLOADING)
IndexEntriesResolveUndoUnrefMethodInfo ,
#endif
indexEntriesResolveUndoUnref ,
) 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.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.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 GHC.Records as R
import {-# SOURCE #-} qualified GI.Ggit.Structs.IndexEntryResolveUndo as Ggit.IndexEntryResolveUndo
import qualified GI.Gio.Interfaces.File as Gio.File
newtype IndexEntriesResolveUndo = IndexEntriesResolveUndo (SP.ManagedPtr IndexEntriesResolveUndo)
deriving (IndexEntriesResolveUndo -> IndexEntriesResolveUndo -> Bool
(IndexEntriesResolveUndo -> IndexEntriesResolveUndo -> Bool)
-> (IndexEntriesResolveUndo -> IndexEntriesResolveUndo -> Bool)
-> Eq IndexEntriesResolveUndo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: IndexEntriesResolveUndo -> IndexEntriesResolveUndo -> Bool
$c/= :: IndexEntriesResolveUndo -> IndexEntriesResolveUndo -> Bool
== :: IndexEntriesResolveUndo -> IndexEntriesResolveUndo -> Bool
$c== :: IndexEntriesResolveUndo -> IndexEntriesResolveUndo -> Bool
Eq)
instance SP.ManagedPtrNewtype IndexEntriesResolveUndo where
toManagedPtr :: IndexEntriesResolveUndo -> ManagedPtr IndexEntriesResolveUndo
toManagedPtr (IndexEntriesResolveUndo ManagedPtr IndexEntriesResolveUndo
p) = ManagedPtr IndexEntriesResolveUndo
p
foreign import ccall "ggit_index_entries_resolve_undo_get_type" c_ggit_index_entries_resolve_undo_get_type ::
IO GType
type instance O.ParentTypes IndexEntriesResolveUndo = '[]
instance O.HasParentTypes IndexEntriesResolveUndo
instance B.Types.TypedObject IndexEntriesResolveUndo where
glibType :: IO GType
glibType = IO GType
c_ggit_index_entries_resolve_undo_get_type
instance B.Types.GBoxed IndexEntriesResolveUndo
instance B.GValue.IsGValue (Maybe IndexEntriesResolveUndo) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_ggit_index_entries_resolve_undo_get_type
gvalueSet_ :: Ptr GValue -> Maybe IndexEntriesResolveUndo -> IO ()
gvalueSet_ Ptr GValue
gv Maybe IndexEntriesResolveUndo
P.Nothing = Ptr GValue -> Ptr IndexEntriesResolveUndo -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv (Ptr IndexEntriesResolveUndo
forall a. Ptr a
FP.nullPtr :: FP.Ptr IndexEntriesResolveUndo)
gvalueSet_ Ptr GValue
gv (P.Just IndexEntriesResolveUndo
obj) = IndexEntriesResolveUndo
-> (Ptr IndexEntriesResolveUndo -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr IndexEntriesResolveUndo
obj (Ptr GValue -> Ptr IndexEntriesResolveUndo -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe IndexEntriesResolveUndo)
gvalueGet_ Ptr GValue
gv = do
Ptr IndexEntriesResolveUndo
ptr <- Ptr GValue -> IO (Ptr IndexEntriesResolveUndo)
forall b. Ptr GValue -> IO (Ptr b)
B.GValue.get_boxed Ptr GValue
gv :: IO (Ptr IndexEntriesResolveUndo)
if Ptr IndexEntriesResolveUndo
ptr Ptr IndexEntriesResolveUndo -> Ptr IndexEntriesResolveUndo -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr IndexEntriesResolveUndo
forall a. Ptr a
FP.nullPtr
then IndexEntriesResolveUndo -> Maybe IndexEntriesResolveUndo
forall a. a -> Maybe a
P.Just (IndexEntriesResolveUndo -> Maybe IndexEntriesResolveUndo)
-> IO IndexEntriesResolveUndo -> IO (Maybe IndexEntriesResolveUndo)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr IndexEntriesResolveUndo -> IndexEntriesResolveUndo)
-> Ptr IndexEntriesResolveUndo -> IO IndexEntriesResolveUndo
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.newBoxed ManagedPtr IndexEntriesResolveUndo -> IndexEntriesResolveUndo
IndexEntriesResolveUndo Ptr IndexEntriesResolveUndo
ptr
else Maybe IndexEntriesResolveUndo -> IO (Maybe IndexEntriesResolveUndo)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe IndexEntriesResolveUndo
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList IndexEntriesResolveUndo
type instance O.AttributeList IndexEntriesResolveUndo = IndexEntriesResolveUndoAttributeList
type IndexEntriesResolveUndoAttributeList = ('[ ] :: [(Symbol, *)])
#endif
foreign import ccall "ggit_index_entries_resolve_undo_get" ggit_index_entries_resolve_undo_get ::
Ptr IndexEntriesResolveUndo ->
Word32 ->
IO (Ptr Ggit.IndexEntryResolveUndo.IndexEntryResolveUndo)
indexEntriesResolveUndoGet ::
(B.CallStack.HasCallStack, MonadIO m) =>
IndexEntriesResolveUndo
-> Word32
-> m (Maybe Ggit.IndexEntryResolveUndo.IndexEntryResolveUndo)
indexEntriesResolveUndoGet :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
IndexEntriesResolveUndo
-> Word32 -> m (Maybe IndexEntryResolveUndo)
indexEntriesResolveUndoGet IndexEntriesResolveUndo
entries Word32
idx = IO (Maybe IndexEntryResolveUndo) -> m (Maybe IndexEntryResolveUndo)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe IndexEntryResolveUndo)
-> m (Maybe IndexEntryResolveUndo))
-> IO (Maybe IndexEntryResolveUndo)
-> m (Maybe IndexEntryResolveUndo)
forall a b. (a -> b) -> a -> b
$ do
Ptr IndexEntriesResolveUndo
entries' <- IndexEntriesResolveUndo -> IO (Ptr IndexEntriesResolveUndo)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr IndexEntriesResolveUndo
entries
Ptr IndexEntryResolveUndo
result <- Ptr IndexEntriesResolveUndo
-> Word32 -> IO (Ptr IndexEntryResolveUndo)
ggit_index_entries_resolve_undo_get Ptr IndexEntriesResolveUndo
entries' Word32
idx
Maybe IndexEntryResolveUndo
maybeResult <- Ptr IndexEntryResolveUndo
-> (Ptr IndexEntryResolveUndo -> IO IndexEntryResolveUndo)
-> IO (Maybe IndexEntryResolveUndo)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr IndexEntryResolveUndo
result ((Ptr IndexEntryResolveUndo -> IO IndexEntryResolveUndo)
-> IO (Maybe IndexEntryResolveUndo))
-> (Ptr IndexEntryResolveUndo -> IO IndexEntryResolveUndo)
-> IO (Maybe IndexEntryResolveUndo)
forall a b. (a -> b) -> a -> b
$ \Ptr IndexEntryResolveUndo
result' -> do
IndexEntryResolveUndo
result'' <- ((ManagedPtr IndexEntryResolveUndo -> IndexEntryResolveUndo)
-> Ptr IndexEntryResolveUndo -> IO IndexEntryResolveUndo
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr IndexEntryResolveUndo -> IndexEntryResolveUndo
Ggit.IndexEntryResolveUndo.IndexEntryResolveUndo) Ptr IndexEntryResolveUndo
result'
IndexEntryResolveUndo -> IO IndexEntryResolveUndo
forall (m :: * -> *) a. Monad m => a -> m a
return IndexEntryResolveUndo
result''
IndexEntriesResolveUndo -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr IndexEntriesResolveUndo
entries
Maybe IndexEntryResolveUndo -> IO (Maybe IndexEntryResolveUndo)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe IndexEntryResolveUndo
maybeResult
#if defined(ENABLE_OVERLOADING)
data IndexEntriesResolveUndoGetMethodInfo
instance (signature ~ (Word32 -> m (Maybe Ggit.IndexEntryResolveUndo.IndexEntryResolveUndo)), MonadIO m) => O.OverloadedMethod IndexEntriesResolveUndoGetMethodInfo IndexEntriesResolveUndo signature where
overloadedMethod = indexEntriesResolveUndoGet
instance O.OverloadedMethodInfo IndexEntriesResolveUndoGetMethodInfo IndexEntriesResolveUndo where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Ggit.Structs.IndexEntriesResolveUndo.indexEntriesResolveUndoGet",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ggit-1.0.10/docs/GI-Ggit-Structs-IndexEntriesResolveUndo.html#v:indexEntriesResolveUndoGet"
}
#endif
foreign import ccall "ggit_index_entries_resolve_undo_get_by_file" ggit_index_entries_resolve_undo_get_by_file ::
Ptr IndexEntriesResolveUndo ->
Ptr Gio.File.File ->
IO (Ptr Ggit.IndexEntryResolveUndo.IndexEntryResolveUndo)
indexEntriesResolveUndoGetByFile ::
(B.CallStack.HasCallStack, MonadIO m, Gio.File.IsFile a) =>
IndexEntriesResolveUndo
-> a
-> m (Maybe Ggit.IndexEntryResolveUndo.IndexEntryResolveUndo)
indexEntriesResolveUndoGetByFile :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFile a) =>
IndexEntriesResolveUndo -> a -> m (Maybe IndexEntryResolveUndo)
indexEntriesResolveUndoGetByFile IndexEntriesResolveUndo
entries a
file = IO (Maybe IndexEntryResolveUndo) -> m (Maybe IndexEntryResolveUndo)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe IndexEntryResolveUndo)
-> m (Maybe IndexEntryResolveUndo))
-> IO (Maybe IndexEntryResolveUndo)
-> m (Maybe IndexEntryResolveUndo)
forall a b. (a -> b) -> a -> b
$ do
Ptr IndexEntriesResolveUndo
entries' <- IndexEntriesResolveUndo -> IO (Ptr IndexEntriesResolveUndo)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr IndexEntriesResolveUndo
entries
Ptr File
file' <- a -> IO (Ptr File)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
file
Ptr IndexEntryResolveUndo
result <- Ptr IndexEntriesResolveUndo
-> Ptr File -> IO (Ptr IndexEntryResolveUndo)
ggit_index_entries_resolve_undo_get_by_file Ptr IndexEntriesResolveUndo
entries' Ptr File
file'
Maybe IndexEntryResolveUndo
maybeResult <- Ptr IndexEntryResolveUndo
-> (Ptr IndexEntryResolveUndo -> IO IndexEntryResolveUndo)
-> IO (Maybe IndexEntryResolveUndo)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr IndexEntryResolveUndo
result ((Ptr IndexEntryResolveUndo -> IO IndexEntryResolveUndo)
-> IO (Maybe IndexEntryResolveUndo))
-> (Ptr IndexEntryResolveUndo -> IO IndexEntryResolveUndo)
-> IO (Maybe IndexEntryResolveUndo)
forall a b. (a -> b) -> a -> b
$ \Ptr IndexEntryResolveUndo
result' -> do
IndexEntryResolveUndo
result'' <- ((ManagedPtr IndexEntryResolveUndo -> IndexEntryResolveUndo)
-> Ptr IndexEntryResolveUndo -> IO IndexEntryResolveUndo
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr IndexEntryResolveUndo -> IndexEntryResolveUndo
Ggit.IndexEntryResolveUndo.IndexEntryResolveUndo) Ptr IndexEntryResolveUndo
result'
IndexEntryResolveUndo -> IO IndexEntryResolveUndo
forall (m :: * -> *) a. Monad m => a -> m a
return IndexEntryResolveUndo
result''
IndexEntriesResolveUndo -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr IndexEntriesResolveUndo
entries
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
file
Maybe IndexEntryResolveUndo -> IO (Maybe IndexEntryResolveUndo)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe IndexEntryResolveUndo
maybeResult
#if defined(ENABLE_OVERLOADING)
data IndexEntriesResolveUndoGetByFileMethodInfo
instance (signature ~ (a -> m (Maybe Ggit.IndexEntryResolveUndo.IndexEntryResolveUndo)), MonadIO m, Gio.File.IsFile a) => O.OverloadedMethod IndexEntriesResolveUndoGetByFileMethodInfo IndexEntriesResolveUndo signature where
overloadedMethod = indexEntriesResolveUndoGetByFile
instance O.OverloadedMethodInfo IndexEntriesResolveUndoGetByFileMethodInfo IndexEntriesResolveUndo where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Ggit.Structs.IndexEntriesResolveUndo.indexEntriesResolveUndoGetByFile",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ggit-1.0.10/docs/GI-Ggit-Structs-IndexEntriesResolveUndo.html#v:indexEntriesResolveUndoGetByFile"
}
#endif
foreign import ccall "ggit_index_entries_resolve_undo_ref" ggit_index_entries_resolve_undo_ref ::
Ptr IndexEntriesResolveUndo ->
IO (Ptr IndexEntriesResolveUndo)
indexEntriesResolveUndoRef ::
(B.CallStack.HasCallStack, MonadIO m) =>
IndexEntriesResolveUndo
-> m (Maybe IndexEntriesResolveUndo)
indexEntriesResolveUndoRef :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
IndexEntriesResolveUndo -> m (Maybe IndexEntriesResolveUndo)
indexEntriesResolveUndoRef IndexEntriesResolveUndo
entries = IO (Maybe IndexEntriesResolveUndo)
-> m (Maybe IndexEntriesResolveUndo)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe IndexEntriesResolveUndo)
-> m (Maybe IndexEntriesResolveUndo))
-> IO (Maybe IndexEntriesResolveUndo)
-> m (Maybe IndexEntriesResolveUndo)
forall a b. (a -> b) -> a -> b
$ do
Ptr IndexEntriesResolveUndo
entries' <- IndexEntriesResolveUndo -> IO (Ptr IndexEntriesResolveUndo)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr IndexEntriesResolveUndo
entries
Ptr IndexEntriesResolveUndo
result <- Ptr IndexEntriesResolveUndo -> IO (Ptr IndexEntriesResolveUndo)
ggit_index_entries_resolve_undo_ref Ptr IndexEntriesResolveUndo
entries'
Maybe IndexEntriesResolveUndo
maybeResult <- Ptr IndexEntriesResolveUndo
-> (Ptr IndexEntriesResolveUndo -> IO IndexEntriesResolveUndo)
-> IO (Maybe IndexEntriesResolveUndo)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr IndexEntriesResolveUndo
result ((Ptr IndexEntriesResolveUndo -> IO IndexEntriesResolveUndo)
-> IO (Maybe IndexEntriesResolveUndo))
-> (Ptr IndexEntriesResolveUndo -> IO IndexEntriesResolveUndo)
-> IO (Maybe IndexEntriesResolveUndo)
forall a b. (a -> b) -> a -> b
$ \Ptr IndexEntriesResolveUndo
result' -> do
IndexEntriesResolveUndo
result'' <- ((ManagedPtr IndexEntriesResolveUndo -> IndexEntriesResolveUndo)
-> Ptr IndexEntriesResolveUndo -> IO IndexEntriesResolveUndo
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr IndexEntriesResolveUndo -> IndexEntriesResolveUndo
IndexEntriesResolveUndo) Ptr IndexEntriesResolveUndo
result'
IndexEntriesResolveUndo -> IO IndexEntriesResolveUndo
forall (m :: * -> *) a. Monad m => a -> m a
return IndexEntriesResolveUndo
result''
IndexEntriesResolveUndo -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr IndexEntriesResolveUndo
entries
Maybe IndexEntriesResolveUndo -> IO (Maybe IndexEntriesResolveUndo)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe IndexEntriesResolveUndo
maybeResult
#if defined(ENABLE_OVERLOADING)
data IndexEntriesResolveUndoRefMethodInfo
instance (signature ~ (m (Maybe IndexEntriesResolveUndo)), MonadIO m) => O.OverloadedMethod IndexEntriesResolveUndoRefMethodInfo IndexEntriesResolveUndo signature where
overloadedMethod = indexEntriesResolveUndoRef
instance O.OverloadedMethodInfo IndexEntriesResolveUndoRefMethodInfo IndexEntriesResolveUndo where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Ggit.Structs.IndexEntriesResolveUndo.indexEntriesResolveUndoRef",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ggit-1.0.10/docs/GI-Ggit-Structs-IndexEntriesResolveUndo.html#v:indexEntriesResolveUndoRef"
}
#endif
foreign import ccall "ggit_index_entries_resolve_undo_size" ggit_index_entries_resolve_undo_size ::
Ptr IndexEntriesResolveUndo ->
IO Word32
indexEntriesResolveUndoSize ::
(B.CallStack.HasCallStack, MonadIO m) =>
IndexEntriesResolveUndo
-> m Word32
indexEntriesResolveUndoSize :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
IndexEntriesResolveUndo -> m Word32
indexEntriesResolveUndoSize IndexEntriesResolveUndo
entries = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr IndexEntriesResolveUndo
entries' <- IndexEntriesResolveUndo -> IO (Ptr IndexEntriesResolveUndo)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr IndexEntriesResolveUndo
entries
Word32
result <- Ptr IndexEntriesResolveUndo -> IO Word32
ggit_index_entries_resolve_undo_size Ptr IndexEntriesResolveUndo
entries'
IndexEntriesResolveUndo -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr IndexEntriesResolveUndo
entries
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data IndexEntriesResolveUndoSizeMethodInfo
instance (signature ~ (m Word32), MonadIO m) => O.OverloadedMethod IndexEntriesResolveUndoSizeMethodInfo IndexEntriesResolveUndo signature where
overloadedMethod = indexEntriesResolveUndoSize
instance O.OverloadedMethodInfo IndexEntriesResolveUndoSizeMethodInfo IndexEntriesResolveUndo where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Ggit.Structs.IndexEntriesResolveUndo.indexEntriesResolveUndoSize",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ggit-1.0.10/docs/GI-Ggit-Structs-IndexEntriesResolveUndo.html#v:indexEntriesResolveUndoSize"
}
#endif
foreign import ccall "ggit_index_entries_resolve_undo_unref" ggit_index_entries_resolve_undo_unref ::
Ptr IndexEntriesResolveUndo ->
IO ()
indexEntriesResolveUndoUnref ::
(B.CallStack.HasCallStack, MonadIO m) =>
IndexEntriesResolveUndo
-> m ()
indexEntriesResolveUndoUnref :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
IndexEntriesResolveUndo -> m ()
indexEntriesResolveUndoUnref IndexEntriesResolveUndo
entries = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr IndexEntriesResolveUndo
entries' <- IndexEntriesResolveUndo -> IO (Ptr IndexEntriesResolveUndo)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr IndexEntriesResolveUndo
entries
Ptr IndexEntriesResolveUndo -> IO ()
ggit_index_entries_resolve_undo_unref Ptr IndexEntriesResolveUndo
entries'
IndexEntriesResolveUndo -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr IndexEntriesResolveUndo
entries
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data IndexEntriesResolveUndoUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.OverloadedMethod IndexEntriesResolveUndoUnrefMethodInfo IndexEntriesResolveUndo signature where
overloadedMethod = indexEntriesResolveUndoUnref
instance O.OverloadedMethodInfo IndexEntriesResolveUndoUnrefMethodInfo IndexEntriesResolveUndo where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Ggit.Structs.IndexEntriesResolveUndo.indexEntriesResolveUndoUnref",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-ggit-1.0.10/docs/GI-Ggit-Structs-IndexEntriesResolveUndo.html#v:indexEntriesResolveUndoUnref"
}
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveIndexEntriesResolveUndoMethod (t :: Symbol) (o :: *) :: * where
ResolveIndexEntriesResolveUndoMethod "get" o = IndexEntriesResolveUndoGetMethodInfo
ResolveIndexEntriesResolveUndoMethod "ref" o = IndexEntriesResolveUndoRefMethodInfo
ResolveIndexEntriesResolveUndoMethod "size" o = IndexEntriesResolveUndoSizeMethodInfo
ResolveIndexEntriesResolveUndoMethod "unref" o = IndexEntriesResolveUndoUnrefMethodInfo
ResolveIndexEntriesResolveUndoMethod "getByFile" o = IndexEntriesResolveUndoGetByFileMethodInfo
ResolveIndexEntriesResolveUndoMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveIndexEntriesResolveUndoMethod t IndexEntriesResolveUndo, O.OverloadedMethod info IndexEntriesResolveUndo p) => OL.IsLabel t (IndexEntriesResolveUndo -> 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 ~ ResolveIndexEntriesResolveUndoMethod t IndexEntriesResolveUndo, O.OverloadedMethod info IndexEntriesResolveUndo p, R.HasField t IndexEntriesResolveUndo p) => R.HasField t IndexEntriesResolveUndo p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveIndexEntriesResolveUndoMethod t IndexEntriesResolveUndo, O.OverloadedMethodInfo info IndexEntriesResolveUndo) => OL.IsLabel t (O.MethodProxy info IndexEntriesResolveUndo) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif