{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Ggit.Objects.RevisionWalker
(
RevisionWalker(..) ,
IsRevisionWalker ,
toRevisionWalker ,
#if defined(ENABLE_OVERLOADING)
ResolveRevisionWalkerMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
RevisionWalkerGetRepositoryMethodInfo ,
#endif
revisionWalkerGetRepository ,
#if defined(ENABLE_OVERLOADING)
RevisionWalkerHideMethodInfo ,
#endif
revisionWalkerHide ,
#if defined(ENABLE_OVERLOADING)
RevisionWalkerHideGlobMethodInfo ,
#endif
revisionWalkerHideGlob ,
#if defined(ENABLE_OVERLOADING)
RevisionWalkerHideHeadMethodInfo ,
#endif
revisionWalkerHideHead ,
#if defined(ENABLE_OVERLOADING)
RevisionWalkerHideRefMethodInfo ,
#endif
revisionWalkerHideRef ,
revisionWalkerNew ,
#if defined(ENABLE_OVERLOADING)
RevisionWalkerNextMethodInfo ,
#endif
revisionWalkerNext ,
#if defined(ENABLE_OVERLOADING)
RevisionWalkerPushMethodInfo ,
#endif
revisionWalkerPush ,
#if defined(ENABLE_OVERLOADING)
RevisionWalkerPushGlobMethodInfo ,
#endif
revisionWalkerPushGlob ,
#if defined(ENABLE_OVERLOADING)
RevisionWalkerPushHeadMethodInfo ,
#endif
revisionWalkerPushHead ,
#if defined(ENABLE_OVERLOADING)
RevisionWalkerPushRangeMethodInfo ,
#endif
revisionWalkerPushRange ,
#if defined(ENABLE_OVERLOADING)
RevisionWalkerPushRefMethodInfo ,
#endif
revisionWalkerPushRef ,
#if defined(ENABLE_OVERLOADING)
RevisionWalkerResetMethodInfo ,
#endif
revisionWalkerReset ,
#if defined(ENABLE_OVERLOADING)
RevisionWalkerSetSortModeMethodInfo ,
#endif
revisionWalkerSetSortMode ,
#if defined(ENABLE_OVERLOADING)
RevisionWalkerRepositoryPropertyInfo ,
#endif
clearRevisionWalkerRepository ,
constructRevisionWalkerRepository ,
getRevisionWalkerRepository ,
#if defined(ENABLE_OVERLOADING)
revisionWalkerRepository ,
#endif
setRevisionWalkerRepository ,
) 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.BranchEnumerator as Ggit.BranchEnumerator
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 qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Ggit.Flags as Ggit.Flags
import {-# SOURCE #-} qualified GI.Ggit.Objects.Native as Ggit.Native
import {-# SOURCE #-} qualified GI.Ggit.Objects.ObjectFactoryBase as Ggit.ObjectFactoryBase
import {-# SOURCE #-} qualified GI.Ggit.Objects.Repository as Ggit.Repository
import {-# SOURCE #-} qualified GI.Ggit.Structs.OId as Ggit.OId
import qualified GI.Gio.Interfaces.Initable as Gio.Initable
#endif
newtype RevisionWalker = RevisionWalker (SP.ManagedPtr RevisionWalker)
deriving (RevisionWalker -> RevisionWalker -> Bool
(RevisionWalker -> RevisionWalker -> Bool)
-> (RevisionWalker -> RevisionWalker -> Bool) -> Eq RevisionWalker
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RevisionWalker -> RevisionWalker -> Bool
== :: RevisionWalker -> RevisionWalker -> Bool
$c/= :: RevisionWalker -> RevisionWalker -> Bool
/= :: RevisionWalker -> RevisionWalker -> Bool
Eq)
instance SP.ManagedPtrNewtype RevisionWalker where
toManagedPtr :: RevisionWalker -> ManagedPtr RevisionWalker
toManagedPtr (RevisionWalker ManagedPtr RevisionWalker
p) = ManagedPtr RevisionWalker
p
foreign import ccall "ggit_revision_walker_get_type"
c_ggit_revision_walker_get_type :: IO B.Types.GType
instance B.Types.TypedObject RevisionWalker where
glibType :: IO GType
glibType = IO GType
c_ggit_revision_walker_get_type
instance B.Types.GObject RevisionWalker
class (SP.GObject o, O.IsDescendantOf RevisionWalker o) => IsRevisionWalker o
instance (SP.GObject o, O.IsDescendantOf RevisionWalker o) => IsRevisionWalker o
instance O.HasParentTypes RevisionWalker
type instance O.ParentTypes RevisionWalker = '[Ggit.Native.Native, Ggit.ObjectFactoryBase.ObjectFactoryBase, GObject.Object.Object, Gio.Initable.Initable]
toRevisionWalker :: (MIO.MonadIO m, IsRevisionWalker o) => o -> m RevisionWalker
toRevisionWalker :: forall (m :: * -> *) o.
(MonadIO m, IsRevisionWalker o) =>
o -> m RevisionWalker
toRevisionWalker = IO RevisionWalker -> m RevisionWalker
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO RevisionWalker -> m RevisionWalker)
-> (o -> IO RevisionWalker) -> o -> m RevisionWalker
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr RevisionWalker -> RevisionWalker)
-> o -> IO RevisionWalker
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr RevisionWalker -> RevisionWalker
RevisionWalker
instance B.GValue.IsGValue (Maybe RevisionWalker) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_ggit_revision_walker_get_type
gvalueSet_ :: Ptr GValue -> Maybe RevisionWalker -> IO ()
gvalueSet_ Ptr GValue
gv Maybe RevisionWalker
P.Nothing = Ptr GValue -> Ptr RevisionWalker -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr RevisionWalker
forall a. Ptr a
FP.nullPtr :: FP.Ptr RevisionWalker)
gvalueSet_ Ptr GValue
gv (P.Just RevisionWalker
obj) = RevisionWalker -> (Ptr RevisionWalker -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr RevisionWalker
obj (Ptr GValue -> Ptr RevisionWalker -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe RevisionWalker)
gvalueGet_ Ptr GValue
gv = do
Ptr RevisionWalker
ptr <- Ptr GValue -> IO (Ptr RevisionWalker)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr RevisionWalker)
if Ptr RevisionWalker
ptr Ptr RevisionWalker -> Ptr RevisionWalker -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr RevisionWalker
forall a. Ptr a
FP.nullPtr
then RevisionWalker -> Maybe RevisionWalker
forall a. a -> Maybe a
P.Just (RevisionWalker -> Maybe RevisionWalker)
-> IO RevisionWalker -> IO (Maybe RevisionWalker)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr RevisionWalker -> RevisionWalker)
-> Ptr RevisionWalker -> IO RevisionWalker
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr RevisionWalker -> RevisionWalker
RevisionWalker Ptr RevisionWalker
ptr
else Maybe RevisionWalker -> IO (Maybe RevisionWalker)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe RevisionWalker
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveRevisionWalkerMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveRevisionWalkerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveRevisionWalkerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveRevisionWalkerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveRevisionWalkerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveRevisionWalkerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveRevisionWalkerMethod "hide" o = RevisionWalkerHideMethodInfo
ResolveRevisionWalkerMethod "hideGlob" o = RevisionWalkerHideGlobMethodInfo
ResolveRevisionWalkerMethod "hideHead" o = RevisionWalkerHideHeadMethodInfo
ResolveRevisionWalkerMethod "hideRef" o = RevisionWalkerHideRefMethodInfo
ResolveRevisionWalkerMethod "init" o = Gio.Initable.InitableInitMethodInfo
ResolveRevisionWalkerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveRevisionWalkerMethod "next" o = RevisionWalkerNextMethodInfo
ResolveRevisionWalkerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveRevisionWalkerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveRevisionWalkerMethod "push" o = RevisionWalkerPushMethodInfo
ResolveRevisionWalkerMethod "pushGlob" o = RevisionWalkerPushGlobMethodInfo
ResolveRevisionWalkerMethod "pushHead" o = RevisionWalkerPushHeadMethodInfo
ResolveRevisionWalkerMethod "pushRange" o = RevisionWalkerPushRangeMethodInfo
ResolveRevisionWalkerMethod "pushRef" o = RevisionWalkerPushRefMethodInfo
ResolveRevisionWalkerMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveRevisionWalkerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveRevisionWalkerMethod "reset" o = RevisionWalkerResetMethodInfo
ResolveRevisionWalkerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveRevisionWalkerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveRevisionWalkerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveRevisionWalkerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveRevisionWalkerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveRevisionWalkerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveRevisionWalkerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveRevisionWalkerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveRevisionWalkerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveRevisionWalkerMethod "getRepository" o = RevisionWalkerGetRepositoryMethodInfo
ResolveRevisionWalkerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveRevisionWalkerMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveRevisionWalkerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveRevisionWalkerMethod "setSortMode" o = RevisionWalkerSetSortModeMethodInfo
ResolveRevisionWalkerMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveRevisionWalkerMethod t RevisionWalker, O.OverloadedMethod info RevisionWalker p) => OL.IsLabel t (RevisionWalker -> 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 ~ ResolveRevisionWalkerMethod t RevisionWalker, O.OverloadedMethod info RevisionWalker p, R.HasField t RevisionWalker p) => R.HasField t RevisionWalker p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveRevisionWalkerMethod t RevisionWalker, O.OverloadedMethodInfo info RevisionWalker) => OL.IsLabel t (O.MethodProxy info RevisionWalker) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getRevisionWalkerRepository :: (MonadIO m, IsRevisionWalker o) => o -> m (Maybe Ggit.Repository.Repository)
getRevisionWalkerRepository :: forall (m :: * -> *) o.
(MonadIO m, IsRevisionWalker o) =>
o -> m (Maybe Repository)
getRevisionWalkerRepository o
obj = IO (Maybe Repository) -> m (Maybe Repository)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Repository) -> m (Maybe Repository))
-> IO (Maybe Repository) -> m (Maybe Repository)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr Repository -> Repository)
-> IO (Maybe Repository)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"repository" ManagedPtr Repository -> Repository
Ggit.Repository.Repository
setRevisionWalkerRepository :: (MonadIO m, IsRevisionWalker o, Ggit.Repository.IsRepository a) => o -> a -> m ()
setRevisionWalkerRepository :: forall (m :: * -> *) o a.
(MonadIO m, IsRevisionWalker o, IsRepository a) =>
o -> a -> m ()
setRevisionWalkerRepository o
obj a
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"repository" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructRevisionWalkerRepository :: (IsRevisionWalker o, MIO.MonadIO m, Ggit.Repository.IsRepository a) => a -> m (GValueConstruct o)
constructRevisionWalkerRepository :: forall o (m :: * -> *) a.
(IsRevisionWalker o, MonadIO m, IsRepository a) =>
a -> m (GValueConstruct o)
constructRevisionWalkerRepository a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"repository" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearRevisionWalkerRepository :: (MonadIO m, IsRevisionWalker o) => o -> m ()
clearRevisionWalkerRepository :: forall (m :: * -> *) o.
(MonadIO m, IsRevisionWalker o) =>
o -> m ()
clearRevisionWalkerRepository o
obj = 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
$ o -> String -> Maybe Repository -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"repository" (Maybe Repository
forall a. Maybe a
Nothing :: Maybe Ggit.Repository.Repository)
#if defined(ENABLE_OVERLOADING)
data RevisionWalkerRepositoryPropertyInfo
instance AttrInfo RevisionWalkerRepositoryPropertyInfo where
type AttrAllowedOps RevisionWalkerRepositoryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint RevisionWalkerRepositoryPropertyInfo = IsRevisionWalker
type AttrSetTypeConstraint RevisionWalkerRepositoryPropertyInfo = Ggit.Repository.IsRepository
type AttrTransferTypeConstraint RevisionWalkerRepositoryPropertyInfo = Ggit.Repository.IsRepository
type AttrTransferType RevisionWalkerRepositoryPropertyInfo = Ggit.Repository.Repository
type AttrGetType RevisionWalkerRepositoryPropertyInfo = (Maybe Ggit.Repository.Repository)
type AttrLabel RevisionWalkerRepositoryPropertyInfo = "repository"
type AttrOrigin RevisionWalkerRepositoryPropertyInfo = RevisionWalker
attrGet = getRevisionWalkerRepository
attrSet = setRevisionWalkerRepository
attrTransfer _ v = do
unsafeCastTo Ggit.Repository.Repository v
attrConstruct = constructRevisionWalkerRepository
attrClear = clearRevisionWalkerRepository
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Ggit.Objects.RevisionWalker.repository"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.15/docs/GI-Ggit-Objects-RevisionWalker.html#g:attr:repository"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList RevisionWalker
type instance O.AttributeList RevisionWalker = RevisionWalkerAttributeList
type RevisionWalkerAttributeList = ('[ '("native", Ggit.Native.NativeNativePropertyInfo), '("repository", RevisionWalkerRepositoryPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
revisionWalkerRepository :: AttrLabelProxy "repository"
revisionWalkerRepository = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList RevisionWalker = RevisionWalkerSignalList
type RevisionWalkerSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "ggit_revision_walker_new" ggit_revision_walker_new ::
Ptr Ggit.Repository.Repository ->
Ptr (Ptr GError) ->
IO (Ptr RevisionWalker)
revisionWalkerNew ::
(B.CallStack.HasCallStack, MonadIO m, Ggit.Repository.IsRepository a) =>
a
-> m (Maybe RevisionWalker)
revisionWalkerNew :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRepository a) =>
a -> m (Maybe RevisionWalker)
revisionWalkerNew a
repository = IO (Maybe RevisionWalker) -> m (Maybe RevisionWalker)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe RevisionWalker) -> m (Maybe RevisionWalker))
-> IO (Maybe RevisionWalker) -> m (Maybe RevisionWalker)
forall a b. (a -> b) -> a -> b
$ do
Ptr Repository
repository' <- a -> IO (Ptr Repository)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
repository
IO (Maybe RevisionWalker) -> IO () -> IO (Maybe RevisionWalker)
forall a b. IO a -> IO b -> IO a
onException (do
Ptr RevisionWalker
result <- (Ptr (Ptr GError) -> IO (Ptr RevisionWalker))
-> IO (Ptr RevisionWalker)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr RevisionWalker))
-> IO (Ptr RevisionWalker))
-> (Ptr (Ptr GError) -> IO (Ptr RevisionWalker))
-> IO (Ptr RevisionWalker)
forall a b. (a -> b) -> a -> b
$ Ptr Repository -> Ptr (Ptr GError) -> IO (Ptr RevisionWalker)
ggit_revision_walker_new Ptr Repository
repository'
Maybe RevisionWalker
maybeResult <- Ptr RevisionWalker
-> (Ptr RevisionWalker -> IO RevisionWalker)
-> IO (Maybe RevisionWalker)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr RevisionWalker
result ((Ptr RevisionWalker -> IO RevisionWalker)
-> IO (Maybe RevisionWalker))
-> (Ptr RevisionWalker -> IO RevisionWalker)
-> IO (Maybe RevisionWalker)
forall a b. (a -> b) -> a -> b
$ \Ptr RevisionWalker
result' -> do
RevisionWalker
result'' <- ((ManagedPtr RevisionWalker -> RevisionWalker)
-> Ptr RevisionWalker -> IO RevisionWalker
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr RevisionWalker -> RevisionWalker
RevisionWalker) Ptr RevisionWalker
result'
RevisionWalker -> IO RevisionWalker
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return RevisionWalker
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
repository
Maybe RevisionWalker -> IO (Maybe RevisionWalker)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe RevisionWalker
maybeResult
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "ggit_revision_walker_get_repository" ggit_revision_walker_get_repository ::
Ptr RevisionWalker ->
IO (Ptr Ggit.Repository.Repository)
revisionWalkerGetRepository ::
(B.CallStack.HasCallStack, MonadIO m, IsRevisionWalker a) =>
a
-> m (Maybe Ggit.Repository.Repository)
revisionWalkerGetRepository :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRevisionWalker a) =>
a -> m (Maybe Repository)
revisionWalkerGetRepository a
walker = IO (Maybe Repository) -> m (Maybe Repository)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Repository) -> m (Maybe Repository))
-> IO (Maybe Repository) -> m (Maybe Repository)
forall a b. (a -> b) -> a -> b
$ do
Ptr RevisionWalker
walker' <- a -> IO (Ptr RevisionWalker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
walker
Ptr Repository
result <- Ptr RevisionWalker -> IO (Ptr Repository)
ggit_revision_walker_get_repository Ptr RevisionWalker
walker'
Maybe Repository
maybeResult <- Ptr Repository
-> (Ptr Repository -> IO Repository) -> IO (Maybe Repository)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Repository
result ((Ptr Repository -> IO Repository) -> IO (Maybe Repository))
-> (Ptr Repository -> IO Repository) -> IO (Maybe Repository)
forall a b. (a -> b) -> a -> b
$ \Ptr Repository
result' -> do
Repository
result'' <- ((ManagedPtr Repository -> Repository)
-> Ptr Repository -> IO Repository
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Repository -> Repository
Ggit.Repository.Repository) Ptr Repository
result'
Repository -> IO Repository
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Repository
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
walker
Maybe Repository -> IO (Maybe Repository)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Repository
maybeResult
#if defined(ENABLE_OVERLOADING)
data RevisionWalkerGetRepositoryMethodInfo
instance (signature ~ (m (Maybe Ggit.Repository.Repository)), MonadIO m, IsRevisionWalker a) => O.OverloadedMethod RevisionWalkerGetRepositoryMethodInfo a signature where
overloadedMethod = revisionWalkerGetRepository
instance O.OverloadedMethodInfo RevisionWalkerGetRepositoryMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Ggit.Objects.RevisionWalker.revisionWalkerGetRepository",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.15/docs/GI-Ggit-Objects-RevisionWalker.html#v:revisionWalkerGetRepository"
})
#endif
foreign import ccall "ggit_revision_walker_hide" ggit_revision_walker_hide ::
Ptr RevisionWalker ->
Ptr Ggit.OId.OId ->
Ptr (Ptr GError) ->
IO ()
revisionWalkerHide ::
(B.CallStack.HasCallStack, MonadIO m, IsRevisionWalker a) =>
a
-> Ggit.OId.OId
-> m ()
revisionWalkerHide :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRevisionWalker a) =>
a -> OId -> m ()
revisionWalkerHide a
walker OId
oid = 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 RevisionWalker
walker' <- a -> IO (Ptr RevisionWalker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
walker
Ptr OId
oid' <- OId -> IO (Ptr OId)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr OId
oid
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr RevisionWalker -> Ptr OId -> Ptr (Ptr GError) -> IO ()
ggit_revision_walker_hide Ptr RevisionWalker
walker' Ptr OId
oid'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
walker
OId -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr OId
oid
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data RevisionWalkerHideMethodInfo
instance (signature ~ (Ggit.OId.OId -> m ()), MonadIO m, IsRevisionWalker a) => O.OverloadedMethod RevisionWalkerHideMethodInfo a signature where
overloadedMethod = revisionWalkerHide
instance O.OverloadedMethodInfo RevisionWalkerHideMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Ggit.Objects.RevisionWalker.revisionWalkerHide",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.15/docs/GI-Ggit-Objects-RevisionWalker.html#v:revisionWalkerHide"
})
#endif
foreign import ccall "ggit_revision_walker_hide_glob" ggit_revision_walker_hide_glob ::
Ptr RevisionWalker ->
CString ->
Ptr (Ptr GError) ->
IO ()
revisionWalkerHideGlob ::
(B.CallStack.HasCallStack, MonadIO m, IsRevisionWalker a) =>
a
-> T.Text
-> m ()
revisionWalkerHideGlob :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRevisionWalker a) =>
a -> Text -> m ()
revisionWalkerHideGlob a
walker Text
item = 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 RevisionWalker
walker' <- a -> IO (Ptr RevisionWalker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
walker
CString
item' <- Text -> IO CString
textToCString Text
item
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr RevisionWalker -> CString -> Ptr (Ptr GError) -> IO ()
ggit_revision_walker_hide_glob Ptr RevisionWalker
walker' CString
item'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
walker
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
item'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
item'
)
#if defined(ENABLE_OVERLOADING)
data RevisionWalkerHideGlobMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsRevisionWalker a) => O.OverloadedMethod RevisionWalkerHideGlobMethodInfo a signature where
overloadedMethod = revisionWalkerHideGlob
instance O.OverloadedMethodInfo RevisionWalkerHideGlobMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Ggit.Objects.RevisionWalker.revisionWalkerHideGlob",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.15/docs/GI-Ggit-Objects-RevisionWalker.html#v:revisionWalkerHideGlob"
})
#endif
foreign import ccall "ggit_revision_walker_hide_head" ggit_revision_walker_hide_head ::
Ptr RevisionWalker ->
Ptr (Ptr GError) ->
IO ()
revisionWalkerHideHead ::
(B.CallStack.HasCallStack, MonadIO m, IsRevisionWalker a) =>
a
-> m ()
revisionWalkerHideHead :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRevisionWalker a) =>
a -> m ()
revisionWalkerHideHead a
walker = 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 RevisionWalker
walker' <- a -> IO (Ptr RevisionWalker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
walker
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr RevisionWalker -> Ptr (Ptr GError) -> IO ()
ggit_revision_walker_hide_head Ptr RevisionWalker
walker'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
walker
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data RevisionWalkerHideHeadMethodInfo
instance (signature ~ (m ()), MonadIO m, IsRevisionWalker a) => O.OverloadedMethod RevisionWalkerHideHeadMethodInfo a signature where
overloadedMethod = revisionWalkerHideHead
instance O.OverloadedMethodInfo RevisionWalkerHideHeadMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Ggit.Objects.RevisionWalker.revisionWalkerHideHead",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.15/docs/GI-Ggit-Objects-RevisionWalker.html#v:revisionWalkerHideHead"
})
#endif
foreign import ccall "ggit_revision_walker_hide_ref" ggit_revision_walker_hide_ref ::
Ptr RevisionWalker ->
CString ->
Ptr (Ptr GError) ->
IO ()
revisionWalkerHideRef ::
(B.CallStack.HasCallStack, MonadIO m, IsRevisionWalker a) =>
a
-> T.Text
-> m ()
revisionWalkerHideRef :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRevisionWalker a) =>
a -> Text -> m ()
revisionWalkerHideRef a
walker Text
item = 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 RevisionWalker
walker' <- a -> IO (Ptr RevisionWalker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
walker
CString
item' <- Text -> IO CString
textToCString Text
item
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr RevisionWalker -> CString -> Ptr (Ptr GError) -> IO ()
ggit_revision_walker_hide_ref Ptr RevisionWalker
walker' CString
item'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
walker
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
item'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
item'
)
#if defined(ENABLE_OVERLOADING)
data RevisionWalkerHideRefMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsRevisionWalker a) => O.OverloadedMethod RevisionWalkerHideRefMethodInfo a signature where
overloadedMethod = revisionWalkerHideRef
instance O.OverloadedMethodInfo RevisionWalkerHideRefMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Ggit.Objects.RevisionWalker.revisionWalkerHideRef",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.15/docs/GI-Ggit-Objects-RevisionWalker.html#v:revisionWalkerHideRef"
})
#endif
foreign import ccall "ggit_revision_walker_next" ggit_revision_walker_next ::
Ptr RevisionWalker ->
Ptr (Ptr GError) ->
IO (Ptr Ggit.OId.OId)
revisionWalkerNext ::
(B.CallStack.HasCallStack, MonadIO m, IsRevisionWalker a) =>
a
-> m (Maybe Ggit.OId.OId)
revisionWalkerNext :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRevisionWalker a) =>
a -> m (Maybe OId)
revisionWalkerNext a
walker = IO (Maybe OId) -> m (Maybe OId)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe OId) -> m (Maybe OId))
-> IO (Maybe OId) -> m (Maybe OId)
forall a b. (a -> b) -> a -> b
$ do
Ptr RevisionWalker
walker' <- a -> IO (Ptr RevisionWalker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
walker
IO (Maybe OId) -> IO () -> IO (Maybe OId)
forall a b. IO a -> IO b -> IO a
onException (do
Ptr OId
result <- (Ptr (Ptr GError) -> IO (Ptr OId)) -> IO (Ptr OId)
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO (Ptr OId)) -> IO (Ptr OId))
-> (Ptr (Ptr GError) -> IO (Ptr OId)) -> IO (Ptr OId)
forall a b. (a -> b) -> a -> b
$ Ptr RevisionWalker -> Ptr (Ptr GError) -> IO (Ptr OId)
ggit_revision_walker_next Ptr RevisionWalker
walker'
Maybe OId
maybeResult <- Ptr OId -> (Ptr OId -> IO OId) -> IO (Maybe OId)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr OId
result ((Ptr OId -> IO OId) -> IO (Maybe OId))
-> (Ptr OId -> IO OId) -> IO (Maybe OId)
forall a b. (a -> b) -> a -> b
$ \Ptr OId
result' -> do
OId
result'' <- ((ManagedPtr OId -> OId) -> Ptr OId -> IO OId
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr OId -> OId
Ggit.OId.OId) Ptr OId
result'
OId -> IO OId
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return OId
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
walker
Maybe OId -> IO (Maybe OId)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe OId
maybeResult
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data RevisionWalkerNextMethodInfo
instance (signature ~ (m (Maybe Ggit.OId.OId)), MonadIO m, IsRevisionWalker a) => O.OverloadedMethod RevisionWalkerNextMethodInfo a signature where
overloadedMethod = revisionWalkerNext
instance O.OverloadedMethodInfo RevisionWalkerNextMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Ggit.Objects.RevisionWalker.revisionWalkerNext",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.15/docs/GI-Ggit-Objects-RevisionWalker.html#v:revisionWalkerNext"
})
#endif
foreign import ccall "ggit_revision_walker_push" ggit_revision_walker_push ::
Ptr RevisionWalker ->
Ptr Ggit.OId.OId ->
Ptr (Ptr GError) ->
IO ()
revisionWalkerPush ::
(B.CallStack.HasCallStack, MonadIO m, IsRevisionWalker a) =>
a
-> Ggit.OId.OId
-> m ()
revisionWalkerPush :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRevisionWalker a) =>
a -> OId -> m ()
revisionWalkerPush a
walker OId
oid = 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 RevisionWalker
walker' <- a -> IO (Ptr RevisionWalker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
walker
Ptr OId
oid' <- OId -> IO (Ptr OId)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr OId
oid
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr RevisionWalker -> Ptr OId -> Ptr (Ptr GError) -> IO ()
ggit_revision_walker_push Ptr RevisionWalker
walker' Ptr OId
oid'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
walker
OId -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr OId
oid
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data RevisionWalkerPushMethodInfo
instance (signature ~ (Ggit.OId.OId -> m ()), MonadIO m, IsRevisionWalker a) => O.OverloadedMethod RevisionWalkerPushMethodInfo a signature where
overloadedMethod = revisionWalkerPush
instance O.OverloadedMethodInfo RevisionWalkerPushMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Ggit.Objects.RevisionWalker.revisionWalkerPush",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.15/docs/GI-Ggit-Objects-RevisionWalker.html#v:revisionWalkerPush"
})
#endif
foreign import ccall "ggit_revision_walker_push_glob" ggit_revision_walker_push_glob ::
Ptr RevisionWalker ->
CString ->
Ptr (Ptr GError) ->
IO ()
revisionWalkerPushGlob ::
(B.CallStack.HasCallStack, MonadIO m, IsRevisionWalker a) =>
a
-> T.Text
-> m ()
revisionWalkerPushGlob :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRevisionWalker a) =>
a -> Text -> m ()
revisionWalkerPushGlob a
walker Text
item = 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 RevisionWalker
walker' <- a -> IO (Ptr RevisionWalker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
walker
CString
item' <- Text -> IO CString
textToCString Text
item
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr RevisionWalker -> CString -> Ptr (Ptr GError) -> IO ()
ggit_revision_walker_push_glob Ptr RevisionWalker
walker' CString
item'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
walker
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
item'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
item'
)
#if defined(ENABLE_OVERLOADING)
data RevisionWalkerPushGlobMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsRevisionWalker a) => O.OverloadedMethod RevisionWalkerPushGlobMethodInfo a signature where
overloadedMethod = revisionWalkerPushGlob
instance O.OverloadedMethodInfo RevisionWalkerPushGlobMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Ggit.Objects.RevisionWalker.revisionWalkerPushGlob",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.15/docs/GI-Ggit-Objects-RevisionWalker.html#v:revisionWalkerPushGlob"
})
#endif
foreign import ccall "ggit_revision_walker_push_head" ggit_revision_walker_push_head ::
Ptr RevisionWalker ->
Ptr (Ptr GError) ->
IO ()
revisionWalkerPushHead ::
(B.CallStack.HasCallStack, MonadIO m, IsRevisionWalker a) =>
a
-> m ()
revisionWalkerPushHead :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRevisionWalker a) =>
a -> m ()
revisionWalkerPushHead a
walker = 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 RevisionWalker
walker' <- a -> IO (Ptr RevisionWalker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
walker
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr RevisionWalker -> Ptr (Ptr GError) -> IO ()
ggit_revision_walker_push_head Ptr RevisionWalker
walker'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
walker
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data RevisionWalkerPushHeadMethodInfo
instance (signature ~ (m ()), MonadIO m, IsRevisionWalker a) => O.OverloadedMethod RevisionWalkerPushHeadMethodInfo a signature where
overloadedMethod = revisionWalkerPushHead
instance O.OverloadedMethodInfo RevisionWalkerPushHeadMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Ggit.Objects.RevisionWalker.revisionWalkerPushHead",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.15/docs/GI-Ggit-Objects-RevisionWalker.html#v:revisionWalkerPushHead"
})
#endif
foreign import ccall "ggit_revision_walker_push_range" ggit_revision_walker_push_range ::
Ptr RevisionWalker ->
CString ->
Ptr (Ptr GError) ->
IO ()
revisionWalkerPushRange ::
(B.CallStack.HasCallStack, MonadIO m, IsRevisionWalker a) =>
a
-> T.Text
-> m ()
revisionWalkerPushRange :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRevisionWalker a) =>
a -> Text -> m ()
revisionWalkerPushRange a
walker Text
range = 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 RevisionWalker
walker' <- a -> IO (Ptr RevisionWalker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
walker
CString
range' <- Text -> IO CString
textToCString Text
range
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr RevisionWalker -> CString -> Ptr (Ptr GError) -> IO ()
ggit_revision_walker_push_range Ptr RevisionWalker
walker' CString
range'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
walker
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
range'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
range'
)
#if defined(ENABLE_OVERLOADING)
data RevisionWalkerPushRangeMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsRevisionWalker a) => O.OverloadedMethod RevisionWalkerPushRangeMethodInfo a signature where
overloadedMethod = revisionWalkerPushRange
instance O.OverloadedMethodInfo RevisionWalkerPushRangeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Ggit.Objects.RevisionWalker.revisionWalkerPushRange",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.15/docs/GI-Ggit-Objects-RevisionWalker.html#v:revisionWalkerPushRange"
})
#endif
foreign import ccall "ggit_revision_walker_push_ref" ggit_revision_walker_push_ref ::
Ptr RevisionWalker ->
CString ->
Ptr (Ptr GError) ->
IO ()
revisionWalkerPushRef ::
(B.CallStack.HasCallStack, MonadIO m, IsRevisionWalker a) =>
a
-> T.Text
-> m ()
revisionWalkerPushRef :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRevisionWalker a) =>
a -> Text -> m ()
revisionWalkerPushRef a
walker Text
item = 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 RevisionWalker
walker' <- a -> IO (Ptr RevisionWalker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
walker
CString
item' <- Text -> IO CString
textToCString Text
item
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr RevisionWalker -> CString -> Ptr (Ptr GError) -> IO ()
ggit_revision_walker_push_ref Ptr RevisionWalker
walker' CString
item'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
walker
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
item'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
item'
)
#if defined(ENABLE_OVERLOADING)
data RevisionWalkerPushRefMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsRevisionWalker a) => O.OverloadedMethod RevisionWalkerPushRefMethodInfo a signature where
overloadedMethod = revisionWalkerPushRef
instance O.OverloadedMethodInfo RevisionWalkerPushRefMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Ggit.Objects.RevisionWalker.revisionWalkerPushRef",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.15/docs/GI-Ggit-Objects-RevisionWalker.html#v:revisionWalkerPushRef"
})
#endif
foreign import ccall "ggit_revision_walker_reset" ggit_revision_walker_reset ::
Ptr RevisionWalker ->
IO ()
revisionWalkerReset ::
(B.CallStack.HasCallStack, MonadIO m, IsRevisionWalker a) =>
a
-> m ()
revisionWalkerReset :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRevisionWalker a) =>
a -> m ()
revisionWalkerReset a
walker = 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 RevisionWalker
walker' <- a -> IO (Ptr RevisionWalker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
walker
Ptr RevisionWalker -> IO ()
ggit_revision_walker_reset Ptr RevisionWalker
walker'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
walker
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RevisionWalkerResetMethodInfo
instance (signature ~ (m ()), MonadIO m, IsRevisionWalker a) => O.OverloadedMethod RevisionWalkerResetMethodInfo a signature where
overloadedMethod = revisionWalkerReset
instance O.OverloadedMethodInfo RevisionWalkerResetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Ggit.Objects.RevisionWalker.revisionWalkerReset",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.15/docs/GI-Ggit-Objects-RevisionWalker.html#v:revisionWalkerReset"
})
#endif
foreign import ccall "ggit_revision_walker_set_sort_mode" ggit_revision_walker_set_sort_mode ::
Ptr RevisionWalker ->
CUInt ->
IO ()
revisionWalkerSetSortMode ::
(B.CallStack.HasCallStack, MonadIO m, IsRevisionWalker a) =>
a
-> [Ggit.Flags.SortMode]
-> m ()
revisionWalkerSetSortMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRevisionWalker a) =>
a -> [SortMode] -> m ()
revisionWalkerSetSortMode a
walker [SortMode]
sortMode = 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 RevisionWalker
walker' <- a -> IO (Ptr RevisionWalker)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
walker
let sortMode' :: CUInt
sortMode' = [SortMode] -> CUInt
forall b a. (Num b, IsGFlag a) => [a] -> b
gflagsToWord [SortMode]
sortMode
Ptr RevisionWalker -> CUInt -> IO ()
ggit_revision_walker_set_sort_mode Ptr RevisionWalker
walker' CUInt
sortMode'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
walker
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RevisionWalkerSetSortModeMethodInfo
instance (signature ~ ([Ggit.Flags.SortMode] -> m ()), MonadIO m, IsRevisionWalker a) => O.OverloadedMethod RevisionWalkerSetSortModeMethodInfo a signature where
overloadedMethod = revisionWalkerSetSortMode
instance O.OverloadedMethodInfo RevisionWalkerSetSortModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Ggit.Objects.RevisionWalker.revisionWalkerSetSortMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-ggit-1.0.15/docs/GI-Ggit-Objects-RevisionWalker.html#v:revisionWalkerSetSortMode"
})
#endif