#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Ggit.Structs.ConfigEntry
(
ConfigEntry(..) ,
noConfigEntry ,
#if ENABLE_OVERLOADING
ConfigEntryGetLevelMethodInfo ,
#endif
configEntryGetLevel ,
#if ENABLE_OVERLOADING
ConfigEntryGetNameMethodInfo ,
#endif
configEntryGetName ,
#if ENABLE_OVERLOADING
ConfigEntryGetValueMethodInfo ,
#endif
configEntryGetValue ,
#if ENABLE_OVERLOADING
ConfigEntryRefMethodInfo ,
#endif
configEntryRef ,
#if ENABLE_OVERLOADING
ConfigEntryUnrefMethodInfo ,
#endif
configEntryUnref ,
) 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.Enums as Ggit.Enums
newtype ConfigEntry = ConfigEntry (ManagedPtr ConfigEntry)
foreign import ccall "ggit_config_entry_get_type" c_ggit_config_entry_get_type ::
IO GType
instance BoxedObject ConfigEntry where
boxedType _ = c_ggit_config_entry_get_type
noConfigEntry :: Maybe ConfigEntry
noConfigEntry = Nothing
#if ENABLE_OVERLOADING
instance O.HasAttributeList ConfigEntry
type instance O.AttributeList ConfigEntry = ConfigEntryAttributeList
type ConfigEntryAttributeList = ('[ ] :: [(Symbol, *)])
#endif
foreign import ccall "ggit_config_entry_get_level" ggit_config_entry_get_level ::
Ptr ConfigEntry ->
IO CInt
configEntryGetLevel ::
(B.CallStack.HasCallStack, MonadIO m) =>
ConfigEntry
-> m Ggit.Enums.ConfigLevel
configEntryGetLevel entry = liftIO $ do
entry' <- unsafeManagedPtrGetPtr entry
result <- ggit_config_entry_get_level entry'
let result' = (toEnum . fromIntegral) result
touchManagedPtr entry
return result'
#if ENABLE_OVERLOADING
data ConfigEntryGetLevelMethodInfo
instance (signature ~ (m Ggit.Enums.ConfigLevel), MonadIO m) => O.MethodInfo ConfigEntryGetLevelMethodInfo ConfigEntry signature where
overloadedMethod _ = configEntryGetLevel
#endif
foreign import ccall "ggit_config_entry_get_name" ggit_config_entry_get_name ::
Ptr ConfigEntry ->
IO CString
configEntryGetName ::
(B.CallStack.HasCallStack, MonadIO m) =>
ConfigEntry
-> m (Maybe T.Text)
configEntryGetName entry = liftIO $ do
entry' <- unsafeManagedPtrGetPtr entry
result <- ggit_config_entry_get_name entry'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
return result''
touchManagedPtr entry
return maybeResult
#if ENABLE_OVERLOADING
data ConfigEntryGetNameMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m) => O.MethodInfo ConfigEntryGetNameMethodInfo ConfigEntry signature where
overloadedMethod _ = configEntryGetName
#endif
foreign import ccall "ggit_config_entry_get_value" ggit_config_entry_get_value ::
Ptr ConfigEntry ->
IO CString
configEntryGetValue ::
(B.CallStack.HasCallStack, MonadIO m) =>
ConfigEntry
-> m (Maybe T.Text)
configEntryGetValue entry = liftIO $ do
entry' <- unsafeManagedPtrGetPtr entry
result <- ggit_config_entry_get_value entry'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- cstringToText result'
return result''
touchManagedPtr entry
return maybeResult
#if ENABLE_OVERLOADING
data ConfigEntryGetValueMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m) => O.MethodInfo ConfigEntryGetValueMethodInfo ConfigEntry signature where
overloadedMethod _ = configEntryGetValue
#endif
foreign import ccall "ggit_config_entry_ref" ggit_config_entry_ref ::
Ptr ConfigEntry ->
IO (Ptr ConfigEntry)
configEntryRef ::
(B.CallStack.HasCallStack, MonadIO m) =>
ConfigEntry
-> m (Maybe ConfigEntry)
configEntryRef entry = liftIO $ do
entry' <- unsafeManagedPtrGetPtr entry
result <- ggit_config_entry_ref entry'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newBoxed ConfigEntry) result'
return result''
touchManagedPtr entry
return maybeResult
#if ENABLE_OVERLOADING
data ConfigEntryRefMethodInfo
instance (signature ~ (m (Maybe ConfigEntry)), MonadIO m) => O.MethodInfo ConfigEntryRefMethodInfo ConfigEntry signature where
overloadedMethod _ = configEntryRef
#endif
foreign import ccall "ggit_config_entry_unref" ggit_config_entry_unref ::
Ptr ConfigEntry ->
IO ()
configEntryUnref ::
(B.CallStack.HasCallStack, MonadIO m) =>
ConfigEntry
-> m ()
configEntryUnref entry = liftIO $ do
entry' <- unsafeManagedPtrGetPtr entry
ggit_config_entry_unref entry'
touchManagedPtr entry
return ()
#if ENABLE_OVERLOADING
data ConfigEntryUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo ConfigEntryUnrefMethodInfo ConfigEntry signature where
overloadedMethod _ = configEntryUnref
#endif
#if ENABLE_OVERLOADING
type family ResolveConfigEntryMethod (t :: Symbol) (o :: *) :: * where
ResolveConfigEntryMethod "ref" o = ConfigEntryRefMethodInfo
ResolveConfigEntryMethod "unref" o = ConfigEntryUnrefMethodInfo
ResolveConfigEntryMethod "getLevel" o = ConfigEntryGetLevelMethodInfo
ResolveConfigEntryMethod "getName" o = ConfigEntryGetNameMethodInfo
ResolveConfigEntryMethod "getValue" o = ConfigEntryGetValueMethodInfo
ResolveConfigEntryMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveConfigEntryMethod t ConfigEntry, O.MethodInfo info ConfigEntry p) => OL.IsLabel t (ConfigEntry -> 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