{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gio.Structs.SettingsSchemaKey
(
SettingsSchemaKey(..) ,
#if defined(ENABLE_OVERLOADING)
ResolveSettingsSchemaKeyMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
SettingsSchemaKeyGetDefaultValueMethodInfo,
#endif
settingsSchemaKeyGetDefaultValue ,
#if defined(ENABLE_OVERLOADING)
SettingsSchemaKeyGetDescriptionMethodInfo,
#endif
settingsSchemaKeyGetDescription ,
#if defined(ENABLE_OVERLOADING)
SettingsSchemaKeyGetNameMethodInfo ,
#endif
settingsSchemaKeyGetName ,
#if defined(ENABLE_OVERLOADING)
SettingsSchemaKeyGetRangeMethodInfo ,
#endif
settingsSchemaKeyGetRange ,
#if defined(ENABLE_OVERLOADING)
SettingsSchemaKeyGetSummaryMethodInfo ,
#endif
settingsSchemaKeyGetSummary ,
#if defined(ENABLE_OVERLOADING)
SettingsSchemaKeyGetValueTypeMethodInfo ,
#endif
settingsSchemaKeyGetValueType ,
#if defined(ENABLE_OVERLOADING)
SettingsSchemaKeyRangeCheckMethodInfo ,
#endif
settingsSchemaKeyRangeCheck ,
#if defined(ENABLE_OVERLOADING)
SettingsSchemaKeyRefMethodInfo ,
#endif
settingsSchemaKeyRef ,
#if defined(ENABLE_OVERLOADING)
SettingsSchemaKeyUnrefMethodInfo ,
#endif
settingsSchemaKeyUnref ,
) 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.VariantType as GLib.VariantType
#else
import qualified GI.GLib.Structs.VariantType as GLib.VariantType
#endif
newtype SettingsSchemaKey = SettingsSchemaKey (SP.ManagedPtr SettingsSchemaKey)
deriving (SettingsSchemaKey -> SettingsSchemaKey -> Bool
(SettingsSchemaKey -> SettingsSchemaKey -> Bool)
-> (SettingsSchemaKey -> SettingsSchemaKey -> Bool)
-> Eq SettingsSchemaKey
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SettingsSchemaKey -> SettingsSchemaKey -> Bool
== :: SettingsSchemaKey -> SettingsSchemaKey -> Bool
$c/= :: SettingsSchemaKey -> SettingsSchemaKey -> Bool
/= :: SettingsSchemaKey -> SettingsSchemaKey -> Bool
Eq)
instance SP.ManagedPtrNewtype SettingsSchemaKey where
toManagedPtr :: SettingsSchemaKey -> ManagedPtr SettingsSchemaKey
toManagedPtr (SettingsSchemaKey ManagedPtr SettingsSchemaKey
p) = ManagedPtr SettingsSchemaKey
p
foreign import ccall "g_settings_schema_key_get_type" c_g_settings_schema_key_get_type ::
IO GType
type instance O.ParentTypes SettingsSchemaKey = '[]
instance O.HasParentTypes SettingsSchemaKey
instance B.Types.TypedObject SettingsSchemaKey where
glibType :: IO GType
glibType = IO GType
c_g_settings_schema_key_get_type
instance B.Types.GBoxed SettingsSchemaKey
instance B.GValue.IsGValue (Maybe SettingsSchemaKey) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_g_settings_schema_key_get_type
gvalueSet_ :: Ptr GValue -> Maybe SettingsSchemaKey -> IO ()
gvalueSet_ Ptr GValue
gv Maybe SettingsSchemaKey
P.Nothing = Ptr GValue -> Ptr SettingsSchemaKey -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv (Ptr SettingsSchemaKey
forall a. Ptr a
FP.nullPtr :: FP.Ptr SettingsSchemaKey)
gvalueSet_ Ptr GValue
gv (P.Just SettingsSchemaKey
obj) = SettingsSchemaKey -> (Ptr SettingsSchemaKey -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr SettingsSchemaKey
obj (Ptr GValue -> Ptr SettingsSchemaKey -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe SettingsSchemaKey)
gvalueGet_ Ptr GValue
gv = do
ptr <- Ptr GValue -> IO (Ptr SettingsSchemaKey)
forall b. Ptr GValue -> IO (Ptr b)
B.GValue.get_boxed Ptr GValue
gv :: IO (Ptr SettingsSchemaKey)
if ptr /= FP.nullPtr
then P.Just <$> B.ManagedPtr.newBoxed SettingsSchemaKey ptr
else return P.Nothing
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList SettingsSchemaKey
type instance O.AttributeList SettingsSchemaKey = SettingsSchemaKeyAttributeList
type SettingsSchemaKeyAttributeList = ('[ ] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "g_settings_schema_key_get_default_value" g_settings_schema_key_get_default_value ::
Ptr SettingsSchemaKey ->
IO (Ptr GVariant)
settingsSchemaKeyGetDefaultValue ::
(B.CallStack.HasCallStack, MonadIO m) =>
SettingsSchemaKey
-> m GVariant
settingsSchemaKeyGetDefaultValue :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SettingsSchemaKey -> m GVariant
settingsSchemaKeyGetDefaultValue SettingsSchemaKey
key = IO GVariant -> m GVariant
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO GVariant -> m GVariant) -> IO GVariant -> m GVariant
forall a b. (a -> b) -> a -> b
$ do
key' <- SettingsSchemaKey -> IO (Ptr SettingsSchemaKey)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SettingsSchemaKey
key
result <- g_settings_schema_key_get_default_value key'
checkUnexpectedReturnNULL "settingsSchemaKeyGetDefaultValue" result
result' <- B.GVariant.wrapGVariantPtr result
touchManagedPtr key
return result'
#if defined(ENABLE_OVERLOADING)
data SettingsSchemaKeyGetDefaultValueMethodInfo
instance (signature ~ (m GVariant), MonadIO m) => O.OverloadedMethod SettingsSchemaKeyGetDefaultValueMethodInfo SettingsSchemaKey signature where
overloadedMethod = settingsSchemaKeyGetDefaultValue
instance O.OverloadedMethodInfo SettingsSchemaKeyGetDefaultValueMethodInfo SettingsSchemaKey where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Structs.SettingsSchemaKey.settingsSchemaKeyGetDefaultValue",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Structs-SettingsSchemaKey.html#v:settingsSchemaKeyGetDefaultValue"
})
#endif
foreign import ccall "g_settings_schema_key_get_description" g_settings_schema_key_get_description ::
Ptr SettingsSchemaKey ->
IO CString
settingsSchemaKeyGetDescription ::
(B.CallStack.HasCallStack, MonadIO m) =>
SettingsSchemaKey
-> m (Maybe T.Text)
settingsSchemaKeyGetDescription :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SettingsSchemaKey -> m (Maybe Text)
settingsSchemaKeyGetDescription SettingsSchemaKey
key = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
key' <- SettingsSchemaKey -> IO (Ptr SettingsSchemaKey)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SettingsSchemaKey
key
result <- g_settings_schema_key_get_description key'
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
return result''
touchManagedPtr key
return maybeResult
#if defined(ENABLE_OVERLOADING)
data SettingsSchemaKeyGetDescriptionMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m) => O.OverloadedMethod SettingsSchemaKeyGetDescriptionMethodInfo SettingsSchemaKey signature where
overloadedMethod = settingsSchemaKeyGetDescription
instance O.OverloadedMethodInfo SettingsSchemaKeyGetDescriptionMethodInfo SettingsSchemaKey where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Structs.SettingsSchemaKey.settingsSchemaKeyGetDescription",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Structs-SettingsSchemaKey.html#v:settingsSchemaKeyGetDescription"
})
#endif
foreign import ccall "g_settings_schema_key_get_name" g_settings_schema_key_get_name ::
Ptr SettingsSchemaKey ->
IO CString
settingsSchemaKeyGetName ::
(B.CallStack.HasCallStack, MonadIO m) =>
SettingsSchemaKey
-> m T.Text
settingsSchemaKeyGetName :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SettingsSchemaKey -> m Text
settingsSchemaKeyGetName SettingsSchemaKey
key = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
key' <- SettingsSchemaKey -> IO (Ptr SettingsSchemaKey)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SettingsSchemaKey
key
result <- g_settings_schema_key_get_name key'
checkUnexpectedReturnNULL "settingsSchemaKeyGetName" result
result' <- cstringToText result
touchManagedPtr key
return result'
#if defined(ENABLE_OVERLOADING)
data SettingsSchemaKeyGetNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.OverloadedMethod SettingsSchemaKeyGetNameMethodInfo SettingsSchemaKey signature where
overloadedMethod = settingsSchemaKeyGetName
instance O.OverloadedMethodInfo SettingsSchemaKeyGetNameMethodInfo SettingsSchemaKey where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Structs.SettingsSchemaKey.settingsSchemaKeyGetName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Structs-SettingsSchemaKey.html#v:settingsSchemaKeyGetName"
})
#endif
foreign import ccall "g_settings_schema_key_get_range" g_settings_schema_key_get_range ::
Ptr SettingsSchemaKey ->
IO (Ptr GVariant)
settingsSchemaKeyGetRange ::
(B.CallStack.HasCallStack, MonadIO m) =>
SettingsSchemaKey
-> m GVariant
settingsSchemaKeyGetRange :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SettingsSchemaKey -> m GVariant
settingsSchemaKeyGetRange SettingsSchemaKey
key = IO GVariant -> m GVariant
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO GVariant -> m GVariant) -> IO GVariant -> m GVariant
forall a b. (a -> b) -> a -> b
$ do
key' <- SettingsSchemaKey -> IO (Ptr SettingsSchemaKey)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SettingsSchemaKey
key
result <- g_settings_schema_key_get_range key'
checkUnexpectedReturnNULL "settingsSchemaKeyGetRange" result
result' <- B.GVariant.wrapGVariantPtr result
touchManagedPtr key
return result'
#if defined(ENABLE_OVERLOADING)
data SettingsSchemaKeyGetRangeMethodInfo
instance (signature ~ (m GVariant), MonadIO m) => O.OverloadedMethod SettingsSchemaKeyGetRangeMethodInfo SettingsSchemaKey signature where
overloadedMethod = settingsSchemaKeyGetRange
instance O.OverloadedMethodInfo SettingsSchemaKeyGetRangeMethodInfo SettingsSchemaKey where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Structs.SettingsSchemaKey.settingsSchemaKeyGetRange",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Structs-SettingsSchemaKey.html#v:settingsSchemaKeyGetRange"
})
#endif
foreign import ccall "g_settings_schema_key_get_summary" g_settings_schema_key_get_summary ::
Ptr SettingsSchemaKey ->
IO CString
settingsSchemaKeyGetSummary ::
(B.CallStack.HasCallStack, MonadIO m) =>
SettingsSchemaKey
-> m (Maybe T.Text)
settingsSchemaKeyGetSummary :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SettingsSchemaKey -> m (Maybe Text)
settingsSchemaKeyGetSummary SettingsSchemaKey
key = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
key' <- SettingsSchemaKey -> IO (Ptr SettingsSchemaKey)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SettingsSchemaKey
key
result <- g_settings_schema_key_get_summary key'
maybeResult <- convertIfNonNull result $ \CString
result' -> do
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
return result''
touchManagedPtr key
return maybeResult
#if defined(ENABLE_OVERLOADING)
data SettingsSchemaKeyGetSummaryMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m) => O.OverloadedMethod SettingsSchemaKeyGetSummaryMethodInfo SettingsSchemaKey signature where
overloadedMethod = settingsSchemaKeyGetSummary
instance O.OverloadedMethodInfo SettingsSchemaKeyGetSummaryMethodInfo SettingsSchemaKey where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Structs.SettingsSchemaKey.settingsSchemaKeyGetSummary",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Structs-SettingsSchemaKey.html#v:settingsSchemaKeyGetSummary"
})
#endif
foreign import ccall "g_settings_schema_key_get_value_type" g_settings_schema_key_get_value_type ::
Ptr SettingsSchemaKey ->
IO (Ptr GLib.VariantType.VariantType)
settingsSchemaKeyGetValueType ::
(B.CallStack.HasCallStack, MonadIO m) =>
SettingsSchemaKey
-> m GLib.VariantType.VariantType
settingsSchemaKeyGetValueType :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SettingsSchemaKey -> m VariantType
settingsSchemaKeyGetValueType SettingsSchemaKey
key = IO VariantType -> m VariantType
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO VariantType -> m VariantType)
-> IO VariantType -> m VariantType
forall a b. (a -> b) -> a -> b
$ do
key' <- SettingsSchemaKey -> IO (Ptr SettingsSchemaKey)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SettingsSchemaKey
key
result <- g_settings_schema_key_get_value_type key'
checkUnexpectedReturnNULL "settingsSchemaKeyGetValueType" result
result' <- (newBoxed GLib.VariantType.VariantType) result
touchManagedPtr key
return result'
#if defined(ENABLE_OVERLOADING)
data SettingsSchemaKeyGetValueTypeMethodInfo
instance (signature ~ (m GLib.VariantType.VariantType), MonadIO m) => O.OverloadedMethod SettingsSchemaKeyGetValueTypeMethodInfo SettingsSchemaKey signature where
overloadedMethod = settingsSchemaKeyGetValueType
instance O.OverloadedMethodInfo SettingsSchemaKeyGetValueTypeMethodInfo SettingsSchemaKey where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Structs.SettingsSchemaKey.settingsSchemaKeyGetValueType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Structs-SettingsSchemaKey.html#v:settingsSchemaKeyGetValueType"
})
#endif
foreign import ccall "g_settings_schema_key_range_check" g_settings_schema_key_range_check ::
Ptr SettingsSchemaKey ->
Ptr GVariant ->
IO CInt
settingsSchemaKeyRangeCheck ::
(B.CallStack.HasCallStack, MonadIO m) =>
SettingsSchemaKey
-> GVariant
-> m Bool
settingsSchemaKeyRangeCheck :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SettingsSchemaKey -> GVariant -> m Bool
settingsSchemaKeyRangeCheck SettingsSchemaKey
key GVariant
value = 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
key' <- SettingsSchemaKey -> IO (Ptr SettingsSchemaKey)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SettingsSchemaKey
key
value' <- unsafeManagedPtrGetPtr value
result <- g_settings_schema_key_range_check key' value'
let result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
touchManagedPtr key
touchManagedPtr value
return result'
#if defined(ENABLE_OVERLOADING)
data SettingsSchemaKeyRangeCheckMethodInfo
instance (signature ~ (GVariant -> m Bool), MonadIO m) => O.OverloadedMethod SettingsSchemaKeyRangeCheckMethodInfo SettingsSchemaKey signature where
overloadedMethod = settingsSchemaKeyRangeCheck
instance O.OverloadedMethodInfo SettingsSchemaKeyRangeCheckMethodInfo SettingsSchemaKey where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Structs.SettingsSchemaKey.settingsSchemaKeyRangeCheck",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Structs-SettingsSchemaKey.html#v:settingsSchemaKeyRangeCheck"
})
#endif
foreign import ccall "g_settings_schema_key_ref" g_settings_schema_key_ref ::
Ptr SettingsSchemaKey ->
IO (Ptr SettingsSchemaKey)
settingsSchemaKeyRef ::
(B.CallStack.HasCallStack, MonadIO m) =>
SettingsSchemaKey
-> m SettingsSchemaKey
settingsSchemaKeyRef :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SettingsSchemaKey -> m SettingsSchemaKey
settingsSchemaKeyRef SettingsSchemaKey
key = IO SettingsSchemaKey -> m SettingsSchemaKey
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SettingsSchemaKey -> m SettingsSchemaKey)
-> IO SettingsSchemaKey -> m SettingsSchemaKey
forall a b. (a -> b) -> a -> b
$ do
key' <- SettingsSchemaKey -> IO (Ptr SettingsSchemaKey)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SettingsSchemaKey
key
result <- g_settings_schema_key_ref key'
checkUnexpectedReturnNULL "settingsSchemaKeyRef" result
result' <- (wrapBoxed SettingsSchemaKey) result
touchManagedPtr key
return result'
#if defined(ENABLE_OVERLOADING)
data SettingsSchemaKeyRefMethodInfo
instance (signature ~ (m SettingsSchemaKey), MonadIO m) => O.OverloadedMethod SettingsSchemaKeyRefMethodInfo SettingsSchemaKey signature where
overloadedMethod = settingsSchemaKeyRef
instance O.OverloadedMethodInfo SettingsSchemaKeyRefMethodInfo SettingsSchemaKey where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Structs.SettingsSchemaKey.settingsSchemaKeyRef",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Structs-SettingsSchemaKey.html#v:settingsSchemaKeyRef"
})
#endif
foreign import ccall "g_settings_schema_key_unref" g_settings_schema_key_unref ::
Ptr SettingsSchemaKey ->
IO ()
settingsSchemaKeyUnref ::
(B.CallStack.HasCallStack, MonadIO m) =>
SettingsSchemaKey
-> m ()
settingsSchemaKeyUnref :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SettingsSchemaKey -> m ()
settingsSchemaKeyUnref SettingsSchemaKey
key = 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
key' <- SettingsSchemaKey -> IO (Ptr SettingsSchemaKey)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SettingsSchemaKey
key
g_settings_schema_key_unref key'
touchManagedPtr key
return ()
#if defined(ENABLE_OVERLOADING)
data SettingsSchemaKeyUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.OverloadedMethod SettingsSchemaKeyUnrefMethodInfo SettingsSchemaKey signature where
overloadedMethod = settingsSchemaKeyUnref
instance O.OverloadedMethodInfo SettingsSchemaKeyUnrefMethodInfo SettingsSchemaKey where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gio.Structs.SettingsSchemaKey.settingsSchemaKeyUnref",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gio-2.0.35/docs/GI-Gio-Structs-SettingsSchemaKey.html#v:settingsSchemaKeyUnref"
})
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveSettingsSchemaKeyMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveSettingsSchemaKeyMethod "rangeCheck" o = SettingsSchemaKeyRangeCheckMethodInfo
ResolveSettingsSchemaKeyMethod "ref" o = SettingsSchemaKeyRefMethodInfo
ResolveSettingsSchemaKeyMethod "unref" o = SettingsSchemaKeyUnrefMethodInfo
ResolveSettingsSchemaKeyMethod "getDefaultValue" o = SettingsSchemaKeyGetDefaultValueMethodInfo
ResolveSettingsSchemaKeyMethod "getDescription" o = SettingsSchemaKeyGetDescriptionMethodInfo
ResolveSettingsSchemaKeyMethod "getName" o = SettingsSchemaKeyGetNameMethodInfo
ResolveSettingsSchemaKeyMethod "getRange" o = SettingsSchemaKeyGetRangeMethodInfo
ResolveSettingsSchemaKeyMethod "getSummary" o = SettingsSchemaKeyGetSummaryMethodInfo
ResolveSettingsSchemaKeyMethod "getValueType" o = SettingsSchemaKeyGetValueTypeMethodInfo
ResolveSettingsSchemaKeyMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveSettingsSchemaKeyMethod t SettingsSchemaKey, O.OverloadedMethod info SettingsSchemaKey p) => OL.IsLabel t (SettingsSchemaKey -> 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 ~ ResolveSettingsSchemaKeyMethod t SettingsSchemaKey, O.OverloadedMethod info SettingsSchemaKey p, R.HasField t SettingsSchemaKey p) => R.HasField t SettingsSchemaKey p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveSettingsSchemaKeyMethod t SettingsSchemaKey, O.OverloadedMethodInfo info SettingsSchemaKey) => OL.IsLabel t (O.MethodProxy info SettingsSchemaKey) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif