{-# 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 GI.GLib.Structs.VariantType as GLib.VariantType
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 SettingsSchemaKey
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 SettingsSchemaKey
ptr Ptr SettingsSchemaKey -> Ptr SettingsSchemaKey -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr SettingsSchemaKey
forall a. Ptr a
FP.nullPtr
then SettingsSchemaKey -> Maybe SettingsSchemaKey
forall a. a -> Maybe a
P.Just (SettingsSchemaKey -> Maybe SettingsSchemaKey)
-> IO SettingsSchemaKey -> IO (Maybe SettingsSchemaKey)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr SettingsSchemaKey -> SettingsSchemaKey)
-> Ptr SettingsSchemaKey -> IO SettingsSchemaKey
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.newBoxed ManagedPtr SettingsSchemaKey -> SettingsSchemaKey
SettingsSchemaKey Ptr SettingsSchemaKey
ptr
else Maybe SettingsSchemaKey -> IO (Maybe SettingsSchemaKey)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe SettingsSchemaKey
forall a. Maybe a
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
Ptr SettingsSchemaKey
key' <- SettingsSchemaKey -> IO (Ptr SettingsSchemaKey)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SettingsSchemaKey
key
Ptr GVariant
result <- Ptr SettingsSchemaKey -> IO (Ptr GVariant)
g_settings_schema_key_get_default_value Ptr SettingsSchemaKey
key'
Text -> Ptr GVariant -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingsSchemaKeyGetDefaultValue" Ptr GVariant
result
GVariant
result' <- Ptr GVariant -> IO GVariant
B.GVariant.wrapGVariantPtr Ptr GVariant
result
SettingsSchemaKey -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SettingsSchemaKey
key
GVariant -> IO GVariant
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return GVariant
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.32/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
Ptr SettingsSchemaKey
key' <- SettingsSchemaKey -> IO (Ptr SettingsSchemaKey)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SettingsSchemaKey
key
CString
result <- Ptr SettingsSchemaKey -> IO CString
g_settings_schema_key_get_description Ptr SettingsSchemaKey
key'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
SettingsSchemaKey -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SettingsSchemaKey
key
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
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.32/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
Ptr SettingsSchemaKey
key' <- SettingsSchemaKey -> IO (Ptr SettingsSchemaKey)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SettingsSchemaKey
key
CString
result <- Ptr SettingsSchemaKey -> IO CString
g_settings_schema_key_get_name Ptr SettingsSchemaKey
key'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingsSchemaKeyGetName" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
SettingsSchemaKey -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SettingsSchemaKey
key
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
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.32/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
Ptr SettingsSchemaKey
key' <- SettingsSchemaKey -> IO (Ptr SettingsSchemaKey)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SettingsSchemaKey
key
Ptr GVariant
result <- Ptr SettingsSchemaKey -> IO (Ptr GVariant)
g_settings_schema_key_get_range Ptr SettingsSchemaKey
key'
Text -> Ptr GVariant -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingsSchemaKeyGetRange" Ptr GVariant
result
GVariant
result' <- Ptr GVariant -> IO GVariant
B.GVariant.wrapGVariantPtr Ptr GVariant
result
SettingsSchemaKey -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SettingsSchemaKey
key
GVariant -> IO GVariant
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return GVariant
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.32/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
Ptr SettingsSchemaKey
key' <- SettingsSchemaKey -> IO (Ptr SettingsSchemaKey)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SettingsSchemaKey
key
CString
result <- Ptr SettingsSchemaKey -> IO CString
g_settings_schema_key_get_summary Ptr SettingsSchemaKey
key'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
SettingsSchemaKey -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SettingsSchemaKey
key
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
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.32/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
Ptr SettingsSchemaKey
key' <- SettingsSchemaKey -> IO (Ptr SettingsSchemaKey)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SettingsSchemaKey
key
Ptr VariantType
result <- Ptr SettingsSchemaKey -> IO (Ptr VariantType)
g_settings_schema_key_get_value_type Ptr SettingsSchemaKey
key'
Text -> Ptr VariantType -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingsSchemaKeyGetValueType" Ptr VariantType
result
VariantType
result' <- ((ManagedPtr VariantType -> VariantType)
-> Ptr VariantType -> IO VariantType
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr VariantType -> VariantType
GLib.VariantType.VariantType) Ptr VariantType
result
SettingsSchemaKey -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SettingsSchemaKey
key
VariantType -> IO VariantType
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return VariantType
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.32/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
Ptr SettingsSchemaKey
key' <- SettingsSchemaKey -> IO (Ptr SettingsSchemaKey)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SettingsSchemaKey
key
Ptr GVariant
value' <- GVariant -> IO (Ptr GVariant)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GVariant
value
CInt
result <- Ptr SettingsSchemaKey -> Ptr GVariant -> IO CInt
g_settings_schema_key_range_check Ptr SettingsSchemaKey
key' Ptr GVariant
value'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
SettingsSchemaKey -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SettingsSchemaKey
key
GVariant -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GVariant
value
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
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.32/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
Ptr SettingsSchemaKey
key' <- SettingsSchemaKey -> IO (Ptr SettingsSchemaKey)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SettingsSchemaKey
key
Ptr SettingsSchemaKey
result <- Ptr SettingsSchemaKey -> IO (Ptr SettingsSchemaKey)
g_settings_schema_key_ref Ptr SettingsSchemaKey
key'
Text -> Ptr SettingsSchemaKey -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"settingsSchemaKeyRef" Ptr SettingsSchemaKey
result
SettingsSchemaKey
result' <- ((ManagedPtr SettingsSchemaKey -> SettingsSchemaKey)
-> Ptr SettingsSchemaKey -> IO SettingsSchemaKey
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr SettingsSchemaKey -> SettingsSchemaKey
SettingsSchemaKey) Ptr SettingsSchemaKey
result
SettingsSchemaKey -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SettingsSchemaKey
key
SettingsSchemaKey -> IO SettingsSchemaKey
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return SettingsSchemaKey
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.32/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
Ptr SettingsSchemaKey
key' <- SettingsSchemaKey -> IO (Ptr SettingsSchemaKey)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SettingsSchemaKey
key
Ptr SettingsSchemaKey -> IO ()
g_settings_schema_key_unref Ptr SettingsSchemaKey
key'
SettingsSchemaKey -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SettingsSchemaKey
key
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
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.32/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