#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Ggit.Structs.ReflogEntry
(
ReflogEntry(..) ,
noReflogEntry ,
#if ENABLE_OVERLOADING
ReflogEntryGetCommitterMethodInfo ,
#endif
reflogEntryGetCommitter ,
#if ENABLE_OVERLOADING
ReflogEntryGetMessageMethodInfo ,
#endif
reflogEntryGetMessage ,
#if ENABLE_OVERLOADING
ReflogEntryGetNewIdMethodInfo ,
#endif
reflogEntryGetNewId ,
#if ENABLE_OVERLOADING
ReflogEntryGetOldIdMethodInfo ,
#endif
reflogEntryGetOldId ,
#if ENABLE_OVERLOADING
ReflogEntryRefMethodInfo ,
#endif
reflogEntryRef ,
#if ENABLE_OVERLOADING
ReflogEntryUnrefMethodInfo ,
#endif
reflogEntryUnref ,
) 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.Objects.Signature as Ggit.Signature
import {-# SOURCE #-} qualified GI.Ggit.Structs.OId as Ggit.OId
newtype ReflogEntry = ReflogEntry (ManagedPtr ReflogEntry)
foreign import ccall "ggit_reflog_entry_get_type" c_ggit_reflog_entry_get_type ::
IO GType
instance BoxedObject ReflogEntry where
boxedType _ = c_ggit_reflog_entry_get_type
noReflogEntry :: Maybe ReflogEntry
noReflogEntry = Nothing
#if ENABLE_OVERLOADING
instance O.HasAttributeList ReflogEntry
type instance O.AttributeList ReflogEntry = ReflogEntryAttributeList
type ReflogEntryAttributeList = ('[ ] :: [(Symbol, *)])
#endif
foreign import ccall "ggit_reflog_entry_get_committer" ggit_reflog_entry_get_committer ::
Ptr ReflogEntry ->
IO (Ptr Ggit.Signature.Signature)
reflogEntryGetCommitter ::
(B.CallStack.HasCallStack, MonadIO m) =>
ReflogEntry
-> m (Maybe Ggit.Signature.Signature)
reflogEntryGetCommitter reflogEntry = liftIO $ do
reflogEntry' <- unsafeManagedPtrGetPtr reflogEntry
result <- ggit_reflog_entry_get_committer reflogEntry'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject Ggit.Signature.Signature) result'
return result''
touchManagedPtr reflogEntry
return maybeResult
#if ENABLE_OVERLOADING
data ReflogEntryGetCommitterMethodInfo
instance (signature ~ (m (Maybe Ggit.Signature.Signature)), MonadIO m) => O.MethodInfo ReflogEntryGetCommitterMethodInfo ReflogEntry signature where
overloadedMethod _ = reflogEntryGetCommitter
#endif
foreign import ccall "ggit_reflog_entry_get_message" ggit_reflog_entry_get_message ::
Ptr ReflogEntry ->
IO CString
reflogEntryGetMessage ::
(B.CallStack.HasCallStack, MonadIO m) =>
ReflogEntry
-> m (Maybe T.Text)
reflogEntryGetMessage reflogEntry = liftIO $ do
reflogEntry' <- unsafeManagedPtrGetPtr reflogEntry
result <- ggit_reflog_entry_get_message reflogEntry'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
return result''
touchManagedPtr reflogEntry
return maybeResult
#if ENABLE_OVERLOADING
data ReflogEntryGetMessageMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m) => O.MethodInfo ReflogEntryGetMessageMethodInfo ReflogEntry signature where
overloadedMethod _ = reflogEntryGetMessage
#endif
foreign import ccall "ggit_reflog_entry_get_new_id" ggit_reflog_entry_get_new_id ::
Ptr ReflogEntry ->
IO (Ptr Ggit.OId.OId)
reflogEntryGetNewId ::
(B.CallStack.HasCallStack, MonadIO m) =>
ReflogEntry
-> m (Maybe Ggit.OId.OId)
reflogEntryGetNewId reflogEntry = liftIO $ do
reflogEntry' <- unsafeManagedPtrGetPtr reflogEntry
result <- ggit_reflog_entry_get_new_id reflogEntry'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (wrapBoxed Ggit.OId.OId) result'
return result''
touchManagedPtr reflogEntry
return maybeResult
#if ENABLE_OVERLOADING
data ReflogEntryGetNewIdMethodInfo
instance (signature ~ (m (Maybe Ggit.OId.OId)), MonadIO m) => O.MethodInfo ReflogEntryGetNewIdMethodInfo ReflogEntry signature where
overloadedMethod _ = reflogEntryGetNewId
#endif
foreign import ccall "ggit_reflog_entry_get_old_id" ggit_reflog_entry_get_old_id ::
Ptr ReflogEntry ->
IO (Ptr Ggit.OId.OId)
reflogEntryGetOldId ::
(B.CallStack.HasCallStack, MonadIO m) =>
ReflogEntry
-> m (Maybe Ggit.OId.OId)
reflogEntryGetOldId reflogEntry = liftIO $ do
reflogEntry' <- unsafeManagedPtrGetPtr reflogEntry
result <- ggit_reflog_entry_get_old_id reflogEntry'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (wrapBoxed Ggit.OId.OId) result'
return result''
touchManagedPtr reflogEntry
return maybeResult
#if ENABLE_OVERLOADING
data ReflogEntryGetOldIdMethodInfo
instance (signature ~ (m (Maybe Ggit.OId.OId)), MonadIO m) => O.MethodInfo ReflogEntryGetOldIdMethodInfo ReflogEntry signature where
overloadedMethod _ = reflogEntryGetOldId
#endif
foreign import ccall "ggit_reflog_entry_ref" ggit_reflog_entry_ref ::
Ptr ReflogEntry ->
IO (Ptr ReflogEntry)
reflogEntryRef ::
(B.CallStack.HasCallStack, MonadIO m) =>
ReflogEntry
-> m (Maybe ReflogEntry)
reflogEntryRef reflogEntry = liftIO $ do
reflogEntry' <- unsafeManagedPtrGetPtr reflogEntry
result <- ggit_reflog_entry_ref reflogEntry'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newBoxed ReflogEntry) result'
return result''
touchManagedPtr reflogEntry
return maybeResult
#if ENABLE_OVERLOADING
data ReflogEntryRefMethodInfo
instance (signature ~ (m (Maybe ReflogEntry)), MonadIO m) => O.MethodInfo ReflogEntryRefMethodInfo ReflogEntry signature where
overloadedMethod _ = reflogEntryRef
#endif
foreign import ccall "ggit_reflog_entry_unref" ggit_reflog_entry_unref ::
Ptr ReflogEntry ->
IO ()
reflogEntryUnref ::
(B.CallStack.HasCallStack, MonadIO m) =>
ReflogEntry
-> m ()
reflogEntryUnref reflogEntry = liftIO $ do
reflogEntry' <- unsafeManagedPtrGetPtr reflogEntry
ggit_reflog_entry_unref reflogEntry'
touchManagedPtr reflogEntry
return ()
#if ENABLE_OVERLOADING
data ReflogEntryUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo ReflogEntryUnrefMethodInfo ReflogEntry signature where
overloadedMethod _ = reflogEntryUnref
#endif
#if ENABLE_OVERLOADING
type family ResolveReflogEntryMethod (t :: Symbol) (o :: *) :: * where
ResolveReflogEntryMethod "ref" o = ReflogEntryRefMethodInfo
ResolveReflogEntryMethod "unref" o = ReflogEntryUnrefMethodInfo
ResolveReflogEntryMethod "getCommitter" o = ReflogEntryGetCommitterMethodInfo
ResolveReflogEntryMethod "getMessage" o = ReflogEntryGetMessageMethodInfo
ResolveReflogEntryMethod "getNewId" o = ReflogEntryGetNewIdMethodInfo
ResolveReflogEntryMethod "getOldId" o = ReflogEntryGetOldIdMethodInfo
ResolveReflogEntryMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveReflogEntryMethod t ReflogEntry, O.MethodInfo info ReflogEntry p) => OL.IsLabel t (ReflogEntry -> 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