#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Ggit.Structs.AnnotatedCommit
(
AnnotatedCommit(..) ,
noAnnotatedCommit ,
#if ENABLE_OVERLOADING
AnnotatedCommitGetIdMethodInfo ,
#endif
annotatedCommitGetId ,
#if ENABLE_OVERLOADING
AnnotatedCommitRefMethodInfo ,
#endif
annotatedCommitRef ,
#if ENABLE_OVERLOADING
AnnotatedCommitUnrefMethodInfo ,
#endif
annotatedCommitUnref ,
) 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
newtype AnnotatedCommit = AnnotatedCommit (ManagedPtr AnnotatedCommit)
foreign import ccall "ggit_annotated_commit_get_type" c_ggit_annotated_commit_get_type ::
IO GType
instance BoxedObject AnnotatedCommit where
boxedType _ = c_ggit_annotated_commit_get_type
noAnnotatedCommit :: Maybe AnnotatedCommit
noAnnotatedCommit = Nothing
#if ENABLE_OVERLOADING
instance O.HasAttributeList AnnotatedCommit
type instance O.AttributeList AnnotatedCommit = AnnotatedCommitAttributeList
type AnnotatedCommitAttributeList = ('[ ] :: [(Symbol, *)])
#endif
foreign import ccall "ggit_annotated_commit_get_id" ggit_annotated_commit_get_id ::
Ptr AnnotatedCommit ->
IO (Ptr Ggit.OId.OId)
annotatedCommitGetId ::
(B.CallStack.HasCallStack, MonadIO m) =>
AnnotatedCommit
-> m (Maybe Ggit.OId.OId)
annotatedCommitGetId annotatedCommit = liftIO $ do
annotatedCommit' <- unsafeManagedPtrGetPtr annotatedCommit
result <- ggit_annotated_commit_get_id annotatedCommit'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (wrapBoxed Ggit.OId.OId) result'
return result''
touchManagedPtr annotatedCommit
return maybeResult
#if ENABLE_OVERLOADING
data AnnotatedCommitGetIdMethodInfo
instance (signature ~ (m (Maybe Ggit.OId.OId)), MonadIO m) => O.MethodInfo AnnotatedCommitGetIdMethodInfo AnnotatedCommit signature where
overloadedMethod _ = annotatedCommitGetId
#endif
foreign import ccall "ggit_annotated_commit_ref" ggit_annotated_commit_ref ::
Ptr AnnotatedCommit ->
IO (Ptr AnnotatedCommit)
annotatedCommitRef ::
(B.CallStack.HasCallStack, MonadIO m) =>
AnnotatedCommit
-> m (Maybe AnnotatedCommit)
annotatedCommitRef annotatedCommit = liftIO $ do
annotatedCommit' <- unsafeManagedPtrGetPtr annotatedCommit
result <- ggit_annotated_commit_ref annotatedCommit'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newBoxed AnnotatedCommit) result'
return result''
touchManagedPtr annotatedCommit
return maybeResult
#if ENABLE_OVERLOADING
data AnnotatedCommitRefMethodInfo
instance (signature ~ (m (Maybe AnnotatedCommit)), MonadIO m) => O.MethodInfo AnnotatedCommitRefMethodInfo AnnotatedCommit signature where
overloadedMethod _ = annotatedCommitRef
#endif
foreign import ccall "ggit_annotated_commit_unref" ggit_annotated_commit_unref ::
Ptr AnnotatedCommit ->
IO ()
annotatedCommitUnref ::
(B.CallStack.HasCallStack, MonadIO m) =>
AnnotatedCommit
-> m ()
annotatedCommitUnref annotatedCommit = liftIO $ do
annotatedCommit' <- unsafeManagedPtrGetPtr annotatedCommit
ggit_annotated_commit_unref annotatedCommit'
touchManagedPtr annotatedCommit
return ()
#if ENABLE_OVERLOADING
data AnnotatedCommitUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo AnnotatedCommitUnrefMethodInfo AnnotatedCommit signature where
overloadedMethod _ = annotatedCommitUnref
#endif
#if ENABLE_OVERLOADING
type family ResolveAnnotatedCommitMethod (t :: Symbol) (o :: *) :: * where
ResolveAnnotatedCommitMethod "ref" o = AnnotatedCommitRefMethodInfo
ResolveAnnotatedCommitMethod "unref" o = AnnotatedCommitUnrefMethodInfo
ResolveAnnotatedCommitMethod "getId" o = AnnotatedCommitGetIdMethodInfo
ResolveAnnotatedCommitMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveAnnotatedCommitMethod t AnnotatedCommit, O.MethodInfo info AnnotatedCommit p) => OL.IsLabel t (AnnotatedCommit -> 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