#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Ggit.Structs.IndexEntryResolveUndo
(
IndexEntryResolveUndo(..) ,
noIndexEntryResolveUndo ,
#if ENABLE_OVERLOADING
IndexEntryResolveUndoGetFileMethodInfo ,
#endif
indexEntryResolveUndoGetFile ,
#if ENABLE_OVERLOADING
IndexEntryResolveUndoGetIdMethodInfo ,
#endif
indexEntryResolveUndoGetId ,
#if ENABLE_OVERLOADING
IndexEntryResolveUndoGetModeMethodInfo ,
#endif
indexEntryResolveUndoGetMode ,
#if ENABLE_OVERLOADING
IndexEntryResolveUndoRefMethodInfo ,
#endif
indexEntryResolveUndoRef ,
#if ENABLE_OVERLOADING
IndexEntryResolveUndoUnrefMethodInfo ,
#endif
indexEntryResolveUndoUnref ,
) 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.Structs.OId as Ggit.OId
import qualified GI.Gio.Interfaces.File as Gio.File
newtype IndexEntryResolveUndo = IndexEntryResolveUndo (ManagedPtr IndexEntryResolveUndo)
foreign import ccall "ggit_index_entry_resolve_undo_get_type" c_ggit_index_entry_resolve_undo_get_type ::
IO GType
instance BoxedObject IndexEntryResolveUndo where
boxedType _ = c_ggit_index_entry_resolve_undo_get_type
noIndexEntryResolveUndo :: Maybe IndexEntryResolveUndo
noIndexEntryResolveUndo = Nothing
#if ENABLE_OVERLOADING
instance O.HasAttributeList IndexEntryResolveUndo
type instance O.AttributeList IndexEntryResolveUndo = IndexEntryResolveUndoAttributeList
type IndexEntryResolveUndoAttributeList = ('[ ] :: [(Symbol, *)])
#endif
foreign import ccall "ggit_index_entry_resolve_undo_get_file" ggit_index_entry_resolve_undo_get_file ::
Ptr IndexEntryResolveUndo ->
IO (Ptr Gio.File.File)
indexEntryResolveUndoGetFile ::
(B.CallStack.HasCallStack, MonadIO m) =>
IndexEntryResolveUndo
-> m (Maybe Gio.File.File)
indexEntryResolveUndoGetFile entry = liftIO $ do
entry' <- unsafeManagedPtrGetPtr entry
result <- ggit_index_entry_resolve_undo_get_file entry'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (wrapObject Gio.File.File) result'
return result''
touchManagedPtr entry
return maybeResult
#if ENABLE_OVERLOADING
data IndexEntryResolveUndoGetFileMethodInfo
instance (signature ~ (m (Maybe Gio.File.File)), MonadIO m) => O.MethodInfo IndexEntryResolveUndoGetFileMethodInfo IndexEntryResolveUndo signature where
overloadedMethod _ = indexEntryResolveUndoGetFile
#endif
foreign import ccall "ggit_index_entry_resolve_undo_get_id" ggit_index_entry_resolve_undo_get_id ::
Ptr IndexEntryResolveUndo ->
Int32 ->
IO (Ptr Ggit.OId.OId)
indexEntryResolveUndoGetId ::
(B.CallStack.HasCallStack, MonadIO m) =>
IndexEntryResolveUndo
-> Int32
-> m (Maybe Ggit.OId.OId)
indexEntryResolveUndoGetId entry stage = liftIO $ do
entry' <- unsafeManagedPtrGetPtr entry
result <- ggit_index_entry_resolve_undo_get_id entry' stage
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (wrapBoxed Ggit.OId.OId) result'
return result''
touchManagedPtr entry
return maybeResult
#if ENABLE_OVERLOADING
data IndexEntryResolveUndoGetIdMethodInfo
instance (signature ~ (Int32 -> m (Maybe Ggit.OId.OId)), MonadIO m) => O.MethodInfo IndexEntryResolveUndoGetIdMethodInfo IndexEntryResolveUndo signature where
overloadedMethod _ = indexEntryResolveUndoGetId
#endif
foreign import ccall "ggit_index_entry_resolve_undo_get_mode" ggit_index_entry_resolve_undo_get_mode ::
Ptr IndexEntryResolveUndo ->
Int32 ->
IO Word32
indexEntryResolveUndoGetMode ::
(B.CallStack.HasCallStack, MonadIO m) =>
IndexEntryResolveUndo
-> Int32
-> m Word32
indexEntryResolveUndoGetMode entry stage = liftIO $ do
entry' <- unsafeManagedPtrGetPtr entry
result <- ggit_index_entry_resolve_undo_get_mode entry' stage
touchManagedPtr entry
return result
#if ENABLE_OVERLOADING
data IndexEntryResolveUndoGetModeMethodInfo
instance (signature ~ (Int32 -> m Word32), MonadIO m) => O.MethodInfo IndexEntryResolveUndoGetModeMethodInfo IndexEntryResolveUndo signature where
overloadedMethod _ = indexEntryResolveUndoGetMode
#endif
foreign import ccall "ggit_index_entry_resolve_undo_ref" ggit_index_entry_resolve_undo_ref ::
Ptr IndexEntryResolveUndo ->
IO (Ptr IndexEntryResolveUndo)
indexEntryResolveUndoRef ::
(B.CallStack.HasCallStack, MonadIO m) =>
IndexEntryResolveUndo
-> m (Maybe IndexEntryResolveUndo)
indexEntryResolveUndoRef entry = liftIO $ do
entry' <- unsafeManagedPtrGetPtr entry
result <- ggit_index_entry_resolve_undo_ref entry'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newBoxed IndexEntryResolveUndo) result'
return result''
touchManagedPtr entry
return maybeResult
#if ENABLE_OVERLOADING
data IndexEntryResolveUndoRefMethodInfo
instance (signature ~ (m (Maybe IndexEntryResolveUndo)), MonadIO m) => O.MethodInfo IndexEntryResolveUndoRefMethodInfo IndexEntryResolveUndo signature where
overloadedMethod _ = indexEntryResolveUndoRef
#endif
foreign import ccall "ggit_index_entry_resolve_undo_unref" ggit_index_entry_resolve_undo_unref ::
Ptr IndexEntryResolveUndo ->
IO ()
indexEntryResolveUndoUnref ::
(B.CallStack.HasCallStack, MonadIO m) =>
IndexEntryResolveUndo
-> m ()
indexEntryResolveUndoUnref entry = liftIO $ do
entry' <- unsafeManagedPtrGetPtr entry
ggit_index_entry_resolve_undo_unref entry'
touchManagedPtr entry
return ()
#if ENABLE_OVERLOADING
data IndexEntryResolveUndoUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo IndexEntryResolveUndoUnrefMethodInfo IndexEntryResolveUndo signature where
overloadedMethod _ = indexEntryResolveUndoUnref
#endif
#if ENABLE_OVERLOADING
type family ResolveIndexEntryResolveUndoMethod (t :: Symbol) (o :: *) :: * where
ResolveIndexEntryResolveUndoMethod "ref" o = IndexEntryResolveUndoRefMethodInfo
ResolveIndexEntryResolveUndoMethod "unref" o = IndexEntryResolveUndoUnrefMethodInfo
ResolveIndexEntryResolveUndoMethod "getFile" o = IndexEntryResolveUndoGetFileMethodInfo
ResolveIndexEntryResolveUndoMethod "getId" o = IndexEntryResolveUndoGetIdMethodInfo
ResolveIndexEntryResolveUndoMethod "getMode" o = IndexEntryResolveUndoGetModeMethodInfo
ResolveIndexEntryResolveUndoMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveIndexEntryResolveUndoMethod t IndexEntryResolveUndo, O.MethodInfo info IndexEntryResolveUndo p) => OL.IsLabel t (IndexEntryResolveUndo -> 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