{-# 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.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 {-# 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 IndexEntriesResolveUndo where
toGValue :: IndexEntriesResolveUndo -> IO GValue
toGValue IndexEntriesResolveUndo
o = do
GType
gtype <- IO GType
c_ggit_index_entries_resolve_undo_get_type
IndexEntriesResolveUndo
-> (Ptr IndexEntriesResolveUndo -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr IndexEntriesResolveUndo
o (GType
-> (GValue -> Ptr IndexEntriesResolveUndo -> IO ())
-> Ptr IndexEntriesResolveUndo
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr IndexEntriesResolveUndo -> IO ()
forall a. GValue -> Ptr a -> IO ()
B.GValue.set_boxed)
fromGValue :: GValue -> IO IndexEntriesResolveUndo
fromGValue GValue
gv = do
Ptr IndexEntriesResolveUndo
ptr <- GValue -> IO (Ptr IndexEntriesResolveUndo)
forall b. GValue -> IO (Ptr b)
B.GValue.get_boxed GValue
gv :: IO (Ptr IndexEntriesResolveUndo)
(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
#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 :: 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.MethodInfo IndexEntriesResolveUndoGetMethodInfo IndexEntriesResolveUndo signature where
overloadedMethod = 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 :: 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.MethodInfo IndexEntriesResolveUndoGetByFileMethodInfo IndexEntriesResolveUndo signature where
overloadedMethod = 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 :: 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.MethodInfo IndexEntriesResolveUndoRefMethodInfo IndexEntriesResolveUndo signature where
overloadedMethod = 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 :: 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.MethodInfo IndexEntriesResolveUndoSizeMethodInfo IndexEntriesResolveUndo signature where
overloadedMethod = 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 :: 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.MethodInfo IndexEntriesResolveUndoUnrefMethodInfo IndexEntriesResolveUndo signature where
overloadedMethod = 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.MethodInfo 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
#endif