{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Ggit.Structs.BranchEnumerator
(
BranchEnumerator(..) ,
#if defined(ENABLE_OVERLOADING)
ResolveBranchEnumeratorMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
BranchEnumeratorGetMethodInfo ,
#endif
branchEnumeratorGet ,
#if defined(ENABLE_OVERLOADING)
BranchEnumeratorIteratorMethodInfo ,
#endif
branchEnumeratorIterator ,
#if defined(ENABLE_OVERLOADING)
BranchEnumeratorNextMethodInfo ,
#endif
branchEnumeratorNext ,
#if defined(ENABLE_OVERLOADING)
BranchEnumeratorRefMethodInfo ,
#endif
branchEnumeratorRef ,
#if defined(ENABLE_OVERLOADING)
BranchEnumeratorUnrefMethodInfo ,
#endif
branchEnumeratorUnref ,
) 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.GHashTable as B.GHT
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.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
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 qualified Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import qualified GI.GLib.Structs.DateTime as GLib.DateTime
import qualified GI.GLib.Structs.MatchInfo as GLib.MatchInfo
import qualified GI.GLib.Structs.Regex as GLib.Regex
import qualified GI.GLib.Structs.TimeZone as GLib.TimeZone
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Ggit.Callbacks as Ggit.Callbacks
import {-# SOURCE #-} qualified GI.Ggit.Enums as Ggit.Enums
import {-# SOURCE #-} qualified GI.Ggit.Flags as Ggit.Flags
import {-# SOURCE #-} qualified GI.Ggit.Objects.Blame as Ggit.Blame
import {-# SOURCE #-} qualified GI.Ggit.Objects.Blob as Ggit.Blob
import {-# SOURCE #-} qualified GI.Ggit.Objects.BlobOutputStream as Ggit.BlobOutputStream
import {-# SOURCE #-} qualified GI.Ggit.Objects.Branch as Ggit.Branch
import {-# SOURCE #-} qualified GI.Ggit.Objects.CheckoutOptions as Ggit.CheckoutOptions
import {-# SOURCE #-} qualified GI.Ggit.Objects.CherryPickOptions as Ggit.CherryPickOptions
import {-# SOURCE #-} qualified GI.Ggit.Objects.CloneOptions as Ggit.CloneOptions
import {-# SOURCE #-} qualified GI.Ggit.Objects.Commit as Ggit.Commit
import {-# SOURCE #-} qualified GI.Ggit.Objects.CommitParents as Ggit.CommitParents
import {-# SOURCE #-} qualified GI.Ggit.Objects.Config as Ggit.Config
import {-# SOURCE #-} qualified GI.Ggit.Objects.Index as Ggit.Index
import {-# SOURCE #-} qualified GI.Ggit.Objects.Native as Ggit.Native
import {-# SOURCE #-} qualified GI.Ggit.Objects.Object as Ggit.Object
import {-# SOURCE #-} qualified GI.Ggit.Objects.ObjectFactoryBase as Ggit.ObjectFactoryBase
import {-# SOURCE #-} qualified GI.Ggit.Objects.ProxyOptions as Ggit.ProxyOptions
import {-# SOURCE #-} qualified GI.Ggit.Objects.PushOptions as Ggit.PushOptions
import {-# SOURCE #-} qualified GI.Ggit.Objects.Rebase as Ggit.Rebase
import {-# SOURCE #-} qualified GI.Ggit.Objects.Ref as Ggit.Ref
import {-# SOURCE #-} qualified GI.Ggit.Objects.Remote as Ggit.Remote
import {-# SOURCE #-} qualified GI.Ggit.Objects.RemoteCallbacks as Ggit.RemoteCallbacks
import {-# SOURCE #-} qualified GI.Ggit.Objects.Repository as Ggit.Repository
import {-# SOURCE #-} qualified GI.Ggit.Objects.Signature as Ggit.Signature
import {-# SOURCE #-} qualified GI.Ggit.Objects.SubmoduleUpdateOptions as Ggit.SubmoduleUpdateOptions
import {-# SOURCE #-} qualified GI.Ggit.Objects.Tag as Ggit.Tag
import {-# SOURCE #-} qualified GI.Ggit.Objects.Tree as Ggit.Tree
import {-# SOURCE #-} qualified GI.Ggit.Objects.TreeBuilder as Ggit.TreeBuilder
import {-# SOURCE #-} qualified GI.Ggit.Structs.AnnotatedCommit as Ggit.AnnotatedCommit
import {-# SOURCE #-} qualified GI.Ggit.Structs.BlameHunk as Ggit.BlameHunk
import {-# SOURCE #-} qualified GI.Ggit.Structs.BlameOptions as Ggit.BlameOptions
import {-# SOURCE #-} qualified GI.Ggit.Structs.ConfigEntry as Ggit.ConfigEntry
import {-# SOURCE #-} qualified GI.Ggit.Structs.DiffSimilarityMetric as Ggit.DiffSimilarityMetric
import {-# SOURCE #-} qualified GI.Ggit.Structs.FetchOptions as Ggit.FetchOptions
import {-# SOURCE #-} qualified GI.Ggit.Structs.IndexEntries as Ggit.IndexEntries
import {-# SOURCE #-} qualified GI.Ggit.Structs.IndexEntriesResolveUndo as Ggit.IndexEntriesResolveUndo
import {-# SOURCE #-} qualified GI.Ggit.Structs.IndexEntry as Ggit.IndexEntry
import {-# SOURCE #-} qualified GI.Ggit.Structs.IndexEntryResolveUndo as Ggit.IndexEntryResolveUndo
import {-# SOURCE #-} qualified GI.Ggit.Structs.MergeOptions as Ggit.MergeOptions
import {-# SOURCE #-} qualified GI.Ggit.Structs.Note as Ggit.Note
import {-# SOURCE #-} qualified GI.Ggit.Structs.OId as Ggit.OId
import {-# SOURCE #-} qualified GI.Ggit.Structs.RebaseOperation as Ggit.RebaseOperation
import {-# SOURCE #-} qualified GI.Ggit.Structs.RebaseOptions as Ggit.RebaseOptions
import {-# SOURCE #-} qualified GI.Ggit.Structs.Reflog as Ggit.Reflog
import {-# SOURCE #-} qualified GI.Ggit.Structs.ReflogEntry as Ggit.ReflogEntry
import {-# SOURCE #-} qualified GI.Ggit.Structs.RemoteHead as Ggit.RemoteHead
import {-# SOURCE #-} qualified GI.Ggit.Structs.RevertOptions as Ggit.RevertOptions
import {-# SOURCE #-} qualified GI.Ggit.Structs.StatusOptions as Ggit.StatusOptions
import {-# SOURCE #-} qualified GI.Ggit.Structs.Submodule as Ggit.Submodule
import {-# SOURCE #-} qualified GI.Ggit.Structs.TransferProgress as Ggit.TransferProgress
import {-# SOURCE #-} qualified GI.Ggit.Structs.TreeEntry as Ggit.TreeEntry
import qualified GI.Gio.Interfaces.File as Gio.File
import qualified GI.Gio.Interfaces.Initable as Gio.Initable
import qualified GI.Gio.Objects.OutputStream as Gio.OutputStream
#else
import {-# SOURCE #-} qualified GI.Ggit.Objects.Ref as Ggit.Ref
#endif
newtype BranchEnumerator = BranchEnumerator (SP.ManagedPtr BranchEnumerator)
deriving (BranchEnumerator -> BranchEnumerator -> Bool
(BranchEnumerator -> BranchEnumerator -> Bool)
-> (BranchEnumerator -> BranchEnumerator -> Bool)
-> Eq BranchEnumerator
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: BranchEnumerator -> BranchEnumerator -> Bool
== :: BranchEnumerator -> BranchEnumerator -> Bool
$c/= :: BranchEnumerator -> BranchEnumerator -> Bool
/= :: BranchEnumerator -> BranchEnumerator -> Bool
Eq)
instance SP.ManagedPtrNewtype BranchEnumerator where
toManagedPtr :: BranchEnumerator -> ManagedPtr BranchEnumerator
toManagedPtr (BranchEnumerator ManagedPtr BranchEnumerator
p) = ManagedPtr BranchEnumerator
p
foreign import ccall "ggit_branch_enumerator_get_type" c_ggit_branch_enumerator_get_type ::
IO GType
type instance O.ParentTypes BranchEnumerator = '[]
instance O.HasParentTypes BranchEnumerator
instance B.Types.TypedObject BranchEnumerator where
glibType :: IO GType
glibType = IO GType
c_ggit_branch_enumerator_get_type
instance B.Types.GBoxed BranchEnumerator
instance B.GValue.IsGValue (Maybe BranchEnumerator) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_ggit_branch_enumerator_get_type
gvalueSet_ :: Ptr GValue -> Maybe BranchEnumerator -> IO ()
gvalueSet_ Ptr GValue
gv Maybe BranchEnumerator
P.Nothing = Ptr GValue -> Ptr BranchEnumerator -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv (Ptr BranchEnumerator
forall a. Ptr a
FP.nullPtr :: FP.Ptr BranchEnumerator)
gvalueSet_ Ptr GValue
gv (P.Just BranchEnumerator
obj) = BranchEnumerator -> (Ptr BranchEnumerator -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr BranchEnumerator
obj (Ptr GValue -> Ptr BranchEnumerator -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe BranchEnumerator)
gvalueGet_ Ptr GValue
gv = do
Ptr BranchEnumerator
ptr <- Ptr GValue -> IO (Ptr BranchEnumerator)
forall b. Ptr GValue -> IO (Ptr b)
B.GValue.get_boxed Ptr GValue
gv :: IO (Ptr BranchEnumerator)
if Ptr BranchEnumerator
ptr Ptr BranchEnumerator -> Ptr BranchEnumerator -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr BranchEnumerator
forall a. Ptr a
FP.nullPtr
then BranchEnumerator -> Maybe BranchEnumerator
forall a. a -> Maybe a
P.Just (BranchEnumerator -> Maybe BranchEnumerator)
-> IO BranchEnumerator -> IO (Maybe BranchEnumerator)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr BranchEnumerator -> BranchEnumerator)
-> Ptr BranchEnumerator -> IO BranchEnumerator
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.newBoxed ManagedPtr BranchEnumerator -> BranchEnumerator
BranchEnumerator Ptr BranchEnumerator
ptr
else Maybe BranchEnumerator -> IO (Maybe BranchEnumerator)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe BranchEnumerator
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList BranchEnumerator
type instance O.AttributeList BranchEnumerator = BranchEnumeratorAttributeList
type BranchEnumeratorAttributeList = ('[ ] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "ggit_branch_enumerator_get" ggit_branch_enumerator_get ::
Ptr BranchEnumerator ->
IO (Ptr Ggit.Ref.Ref)
branchEnumeratorGet ::
(B.CallStack.HasCallStack, MonadIO m) =>
BranchEnumerator
-> m (Maybe Ggit.Ref.Ref)
branchEnumeratorGet :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
BranchEnumerator -> m (Maybe Ref)
branchEnumeratorGet BranchEnumerator
enumerator = IO (Maybe Ref) -> m (Maybe Ref)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Ref) -> m (Maybe Ref))
-> IO (Maybe Ref) -> m (Maybe Ref)
forall a b. (a -> b) -> a -> b
$ do
Ptr BranchEnumerator
enumerator' <- BranchEnumerator -> IO (Ptr BranchEnumerator)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr BranchEnumerator
enumerator
Ptr Ref
result <- Ptr BranchEnumerator -> IO (Ptr Ref)
ggit_branch_enumerator_get Ptr BranchEnumerator
enumerator'
Maybe Ref
maybeResult <- Ptr Ref -> (Ptr Ref -> IO Ref) -> IO (Maybe Ref)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Ref
result ((Ptr Ref -> IO Ref) -> IO (Maybe Ref))
-> (Ptr Ref -> IO Ref) -> IO (Maybe Ref)
forall a b. (a -> b) -> a -> b
$ \Ptr Ref
result' -> do
Ref
result'' <- ((ManagedPtr Ref -> Ref) -> Ptr Ref -> IO Ref
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Ref -> Ref
Ggit.Ref.Ref) Ptr Ref
result'
Ref -> IO Ref
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ref
result''
BranchEnumerator -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr BranchEnumerator
enumerator
Maybe Ref -> IO (Maybe Ref)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Ref
maybeResult
#if defined(ENABLE_OVERLOADING)
data BranchEnumeratorGetMethodInfo
instance (signature ~ (m (Maybe Ggit.Ref.Ref)), MonadIO m) => O.OverloadedMethod BranchEnumeratorGetMethodInfo BranchEnumerator signature where
overloadedMethod = branchEnumeratorGet
instance O.OverloadedMethodInfo BranchEnumeratorGetMethodInfo BranchEnumerator where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Ggit.Structs.BranchEnumerator.branchEnumeratorGet",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.15/docs/GI-Ggit-Structs-BranchEnumerator.html#v:branchEnumeratorGet"
})
#endif
foreign import ccall "ggit_branch_enumerator_iterator" ggit_branch_enumerator_iterator ::
Ptr BranchEnumerator ->
IO (Ptr BranchEnumerator)
branchEnumeratorIterator ::
(B.CallStack.HasCallStack, MonadIO m) =>
BranchEnumerator
-> m (Maybe BranchEnumerator)
branchEnumeratorIterator :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
BranchEnumerator -> m (Maybe BranchEnumerator)
branchEnumeratorIterator BranchEnumerator
enumerator = IO (Maybe BranchEnumerator) -> m (Maybe BranchEnumerator)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe BranchEnumerator) -> m (Maybe BranchEnumerator))
-> IO (Maybe BranchEnumerator) -> m (Maybe BranchEnumerator)
forall a b. (a -> b) -> a -> b
$ do
Ptr BranchEnumerator
enumerator' <- BranchEnumerator -> IO (Ptr BranchEnumerator)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr BranchEnumerator
enumerator
Ptr BranchEnumerator
result <- Ptr BranchEnumerator -> IO (Ptr BranchEnumerator)
ggit_branch_enumerator_iterator Ptr BranchEnumerator
enumerator'
Maybe BranchEnumerator
maybeResult <- Ptr BranchEnumerator
-> (Ptr BranchEnumerator -> IO BranchEnumerator)
-> IO (Maybe BranchEnumerator)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr BranchEnumerator
result ((Ptr BranchEnumerator -> IO BranchEnumerator)
-> IO (Maybe BranchEnumerator))
-> (Ptr BranchEnumerator -> IO BranchEnumerator)
-> IO (Maybe BranchEnumerator)
forall a b. (a -> b) -> a -> b
$ \Ptr BranchEnumerator
result' -> do
BranchEnumerator
result'' <- ((ManagedPtr BranchEnumerator -> BranchEnumerator)
-> Ptr BranchEnumerator -> IO BranchEnumerator
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr BranchEnumerator -> BranchEnumerator
BranchEnumerator) Ptr BranchEnumerator
result'
BranchEnumerator -> IO BranchEnumerator
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return BranchEnumerator
result''
BranchEnumerator -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr BranchEnumerator
enumerator
Maybe BranchEnumerator -> IO (Maybe BranchEnumerator)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe BranchEnumerator
maybeResult
#if defined(ENABLE_OVERLOADING)
data BranchEnumeratorIteratorMethodInfo
instance (signature ~ (m (Maybe BranchEnumerator)), MonadIO m) => O.OverloadedMethod BranchEnumeratorIteratorMethodInfo BranchEnumerator signature where
overloadedMethod = branchEnumeratorIterator
instance O.OverloadedMethodInfo BranchEnumeratorIteratorMethodInfo BranchEnumerator where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Ggit.Structs.BranchEnumerator.branchEnumeratorIterator",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.15/docs/GI-Ggit-Structs-BranchEnumerator.html#v:branchEnumeratorIterator"
})
#endif
foreign import ccall "ggit_branch_enumerator_next" ggit_branch_enumerator_next ::
Ptr BranchEnumerator ->
IO CInt
branchEnumeratorNext ::
(B.CallStack.HasCallStack, MonadIO m) =>
BranchEnumerator
-> m Bool
branchEnumeratorNext :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
BranchEnumerator -> m Bool
branchEnumeratorNext BranchEnumerator
enumerator = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr BranchEnumerator
enumerator' <- BranchEnumerator -> IO (Ptr BranchEnumerator)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr BranchEnumerator
enumerator
CInt
result <- Ptr BranchEnumerator -> IO CInt
ggit_branch_enumerator_next Ptr BranchEnumerator
enumerator'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
BranchEnumerator -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr BranchEnumerator
enumerator
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data BranchEnumeratorNextMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod BranchEnumeratorNextMethodInfo BranchEnumerator signature where
overloadedMethod = branchEnumeratorNext
instance O.OverloadedMethodInfo BranchEnumeratorNextMethodInfo BranchEnumerator where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Ggit.Structs.BranchEnumerator.branchEnumeratorNext",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.15/docs/GI-Ggit-Structs-BranchEnumerator.html#v:branchEnumeratorNext"
})
#endif
foreign import ccall "ggit_branch_enumerator_ref" ggit_branch_enumerator_ref ::
Ptr BranchEnumerator ->
IO (Ptr BranchEnumerator)
branchEnumeratorRef ::
(B.CallStack.HasCallStack, MonadIO m) =>
BranchEnumerator
-> m (Maybe BranchEnumerator)
branchEnumeratorRef :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
BranchEnumerator -> m (Maybe BranchEnumerator)
branchEnumeratorRef BranchEnumerator
enumerator = IO (Maybe BranchEnumerator) -> m (Maybe BranchEnumerator)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe BranchEnumerator) -> m (Maybe BranchEnumerator))
-> IO (Maybe BranchEnumerator) -> m (Maybe BranchEnumerator)
forall a b. (a -> b) -> a -> b
$ do
Ptr BranchEnumerator
enumerator' <- BranchEnumerator -> IO (Ptr BranchEnumerator)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr BranchEnumerator
enumerator
Ptr BranchEnumerator
result <- Ptr BranchEnumerator -> IO (Ptr BranchEnumerator)
ggit_branch_enumerator_ref Ptr BranchEnumerator
enumerator'
Maybe BranchEnumerator
maybeResult <- Ptr BranchEnumerator
-> (Ptr BranchEnumerator -> IO BranchEnumerator)
-> IO (Maybe BranchEnumerator)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr BranchEnumerator
result ((Ptr BranchEnumerator -> IO BranchEnumerator)
-> IO (Maybe BranchEnumerator))
-> (Ptr BranchEnumerator -> IO BranchEnumerator)
-> IO (Maybe BranchEnumerator)
forall a b. (a -> b) -> a -> b
$ \Ptr BranchEnumerator
result' -> do
BranchEnumerator
result'' <- ((ManagedPtr BranchEnumerator -> BranchEnumerator)
-> Ptr BranchEnumerator -> IO BranchEnumerator
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr BranchEnumerator -> BranchEnumerator
BranchEnumerator) Ptr BranchEnumerator
result'
BranchEnumerator -> IO BranchEnumerator
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return BranchEnumerator
result''
BranchEnumerator -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr BranchEnumerator
enumerator
Maybe BranchEnumerator -> IO (Maybe BranchEnumerator)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe BranchEnumerator
maybeResult
#if defined(ENABLE_OVERLOADING)
data BranchEnumeratorRefMethodInfo
instance (signature ~ (m (Maybe BranchEnumerator)), MonadIO m) => O.OverloadedMethod BranchEnumeratorRefMethodInfo BranchEnumerator signature where
overloadedMethod = branchEnumeratorRef
instance O.OverloadedMethodInfo BranchEnumeratorRefMethodInfo BranchEnumerator where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Ggit.Structs.BranchEnumerator.branchEnumeratorRef",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.15/docs/GI-Ggit-Structs-BranchEnumerator.html#v:branchEnumeratorRef"
})
#endif
foreign import ccall "ggit_branch_enumerator_unref" ggit_branch_enumerator_unref ::
Ptr BranchEnumerator ->
IO ()
branchEnumeratorUnref ::
(B.CallStack.HasCallStack, MonadIO m) =>
BranchEnumerator
-> m ()
branchEnumeratorUnref :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
BranchEnumerator -> m ()
branchEnumeratorUnref BranchEnumerator
enumerator = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr BranchEnumerator
enumerator' <- BranchEnumerator -> IO (Ptr BranchEnumerator)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr BranchEnumerator
enumerator
Ptr BranchEnumerator -> IO ()
ggit_branch_enumerator_unref Ptr BranchEnumerator
enumerator'
BranchEnumerator -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr BranchEnumerator
enumerator
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BranchEnumeratorUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.OverloadedMethod BranchEnumeratorUnrefMethodInfo BranchEnumerator signature where
overloadedMethod = branchEnumeratorUnref
instance O.OverloadedMethodInfo BranchEnumeratorUnrefMethodInfo BranchEnumerator where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Ggit.Structs.BranchEnumerator.branchEnumeratorUnref",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.15/docs/GI-Ggit-Structs-BranchEnumerator.html#v:branchEnumeratorUnref"
})
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveBranchEnumeratorMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveBranchEnumeratorMethod "get" o = BranchEnumeratorGetMethodInfo
ResolveBranchEnumeratorMethod "iterator" o = BranchEnumeratorIteratorMethodInfo
ResolveBranchEnumeratorMethod "next" o = BranchEnumeratorNextMethodInfo
ResolveBranchEnumeratorMethod "ref" o = BranchEnumeratorRefMethodInfo
ResolveBranchEnumeratorMethod "unref" o = BranchEnumeratorUnrefMethodInfo
ResolveBranchEnumeratorMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveBranchEnumeratorMethod t BranchEnumerator, O.OverloadedMethod info BranchEnumerator p) => OL.IsLabel t (BranchEnumerator -> 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 ~ ResolveBranchEnumeratorMethod t BranchEnumerator, O.OverloadedMethod info BranchEnumerator p, R.HasField t BranchEnumerator p) => R.HasField t BranchEnumerator p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveBranchEnumeratorMethod t BranchEnumerator, O.OverloadedMethodInfo info BranchEnumerator) => OL.IsLabel t (O.MethodProxy info BranchEnumerator) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif