{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2.Structs.MemoryPressureSettings
(
MemoryPressureSettings(..) ,
#if defined(ENABLE_OVERLOADING)
ResolveMemoryPressureSettingsMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
MemoryPressureSettingsCopyMethodInfo ,
#endif
memoryPressureSettingsCopy ,
#if defined(ENABLE_OVERLOADING)
MemoryPressureSettingsFreeMethodInfo ,
#endif
memoryPressureSettingsFree ,
#if defined(ENABLE_OVERLOADING)
MemoryPressureSettingsGetConservativeThresholdMethodInfo,
#endif
memoryPressureSettingsGetConservativeThreshold,
#if defined(ENABLE_OVERLOADING)
MemoryPressureSettingsGetKillThresholdMethodInfo,
#endif
memoryPressureSettingsGetKillThreshold ,
#if defined(ENABLE_OVERLOADING)
MemoryPressureSettingsGetMemoryLimitMethodInfo,
#endif
memoryPressureSettingsGetMemoryLimit ,
#if defined(ENABLE_OVERLOADING)
MemoryPressureSettingsGetPollIntervalMethodInfo,
#endif
memoryPressureSettingsGetPollInterval ,
#if defined(ENABLE_OVERLOADING)
MemoryPressureSettingsGetStrictThresholdMethodInfo,
#endif
memoryPressureSettingsGetStrictThreshold,
memoryPressureSettingsNew ,
#if defined(ENABLE_OVERLOADING)
MemoryPressureSettingsSetConservativeThresholdMethodInfo,
#endif
memoryPressureSettingsSetConservativeThreshold,
#if defined(ENABLE_OVERLOADING)
MemoryPressureSettingsSetKillThresholdMethodInfo,
#endif
memoryPressureSettingsSetKillThreshold ,
#if defined(ENABLE_OVERLOADING)
MemoryPressureSettingsSetMemoryLimitMethodInfo,
#endif
memoryPressureSettingsSetMemoryLimit ,
#if defined(ENABLE_OVERLOADING)
MemoryPressureSettingsSetPollIntervalMethodInfo,
#endif
memoryPressureSettingsSetPollInterval ,
#if defined(ENABLE_OVERLOADING)
MemoryPressureSettingsSetStrictThresholdMethodInfo,
#endif
memoryPressureSettingsSetStrictThreshold,
) 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.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.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
newtype MemoryPressureSettings = MemoryPressureSettings (SP.ManagedPtr MemoryPressureSettings)
deriving (MemoryPressureSettings -> MemoryPressureSettings -> Bool
(MemoryPressureSettings -> MemoryPressureSettings -> Bool)
-> (MemoryPressureSettings -> MemoryPressureSettings -> Bool)
-> Eq MemoryPressureSettings
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MemoryPressureSettings -> MemoryPressureSettings -> Bool
$c/= :: MemoryPressureSettings -> MemoryPressureSettings -> Bool
== :: MemoryPressureSettings -> MemoryPressureSettings -> Bool
$c== :: MemoryPressureSettings -> MemoryPressureSettings -> Bool
Eq)
instance SP.ManagedPtrNewtype MemoryPressureSettings where
toManagedPtr :: MemoryPressureSettings -> ManagedPtr MemoryPressureSettings
toManagedPtr (MemoryPressureSettings ManagedPtr MemoryPressureSettings
p) = ManagedPtr MemoryPressureSettings
p
foreign import ccall "webkit_memory_pressure_settings_get_type" c_webkit_memory_pressure_settings_get_type ::
IO GType
type instance O.ParentTypes MemoryPressureSettings = '[]
instance O.HasParentTypes MemoryPressureSettings
instance B.Types.TypedObject MemoryPressureSettings where
glibType :: IO GType
glibType = IO GType
c_webkit_memory_pressure_settings_get_type
instance B.Types.GBoxed MemoryPressureSettings
instance B.GValue.IsGValue (Maybe MemoryPressureSettings) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_memory_pressure_settings_get_type
gvalueSet_ :: Ptr GValue -> Maybe MemoryPressureSettings -> IO ()
gvalueSet_ Ptr GValue
gv Maybe MemoryPressureSettings
P.Nothing = Ptr GValue -> Ptr MemoryPressureSettings -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv (Ptr MemoryPressureSettings
forall a. Ptr a
FP.nullPtr :: FP.Ptr MemoryPressureSettings)
gvalueSet_ Ptr GValue
gv (P.Just MemoryPressureSettings
obj) = MemoryPressureSettings
-> (Ptr MemoryPressureSettings -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr MemoryPressureSettings
obj (Ptr GValue -> Ptr MemoryPressureSettings -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe MemoryPressureSettings)
gvalueGet_ Ptr GValue
gv = do
Ptr MemoryPressureSettings
ptr <- Ptr GValue -> IO (Ptr MemoryPressureSettings)
forall b. Ptr GValue -> IO (Ptr b)
B.GValue.get_boxed Ptr GValue
gv :: IO (Ptr MemoryPressureSettings)
if Ptr MemoryPressureSettings
ptr Ptr MemoryPressureSettings -> Ptr MemoryPressureSettings -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr MemoryPressureSettings
forall a. Ptr a
FP.nullPtr
then MemoryPressureSettings -> Maybe MemoryPressureSettings
forall a. a -> Maybe a
P.Just (MemoryPressureSettings -> Maybe MemoryPressureSettings)
-> IO MemoryPressureSettings -> IO (Maybe MemoryPressureSettings)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr MemoryPressureSettings -> MemoryPressureSettings)
-> Ptr MemoryPressureSettings -> IO MemoryPressureSettings
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.newBoxed ManagedPtr MemoryPressureSettings -> MemoryPressureSettings
MemoryPressureSettings Ptr MemoryPressureSettings
ptr
else Maybe MemoryPressureSettings -> IO (Maybe MemoryPressureSettings)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe MemoryPressureSettings
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList MemoryPressureSettings
type instance O.AttributeList MemoryPressureSettings = MemoryPressureSettingsAttributeList
type MemoryPressureSettingsAttributeList = ('[ ] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_memory_pressure_settings_new" webkit_memory_pressure_settings_new ::
IO (Ptr MemoryPressureSettings)
memoryPressureSettingsNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m MemoryPressureSettings
memoryPressureSettingsNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
m MemoryPressureSettings
memoryPressureSettingsNew = IO MemoryPressureSettings -> m MemoryPressureSettings
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO MemoryPressureSettings -> m MemoryPressureSettings)
-> IO MemoryPressureSettings -> m MemoryPressureSettings
forall a b. (a -> b) -> a -> b
$ do
Ptr MemoryPressureSettings
result <- IO (Ptr MemoryPressureSettings)
webkit_memory_pressure_settings_new
Text -> Ptr MemoryPressureSettings -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"memoryPressureSettingsNew" Ptr MemoryPressureSettings
result
MemoryPressureSettings
result' <- ((ManagedPtr MemoryPressureSettings -> MemoryPressureSettings)
-> Ptr MemoryPressureSettings -> IO MemoryPressureSettings
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr MemoryPressureSettings -> MemoryPressureSettings
MemoryPressureSettings) Ptr MemoryPressureSettings
result
MemoryPressureSettings -> IO MemoryPressureSettings
forall (m :: * -> *) a. Monad m => a -> m a
return MemoryPressureSettings
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "webkit_memory_pressure_settings_copy" webkit_memory_pressure_settings_copy ::
Ptr MemoryPressureSettings ->
IO (Ptr MemoryPressureSettings)
memoryPressureSettingsCopy ::
(B.CallStack.HasCallStack, MonadIO m) =>
MemoryPressureSettings
-> m MemoryPressureSettings
memoryPressureSettingsCopy :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MemoryPressureSettings -> m MemoryPressureSettings
memoryPressureSettingsCopy MemoryPressureSettings
settings = IO MemoryPressureSettings -> m MemoryPressureSettings
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO MemoryPressureSettings -> m MemoryPressureSettings)
-> IO MemoryPressureSettings -> m MemoryPressureSettings
forall a b. (a -> b) -> a -> b
$ do
Ptr MemoryPressureSettings
settings' <- MemoryPressureSettings -> IO (Ptr MemoryPressureSettings)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MemoryPressureSettings
settings
Ptr MemoryPressureSettings
result <- Ptr MemoryPressureSettings -> IO (Ptr MemoryPressureSettings)
webkit_memory_pressure_settings_copy Ptr MemoryPressureSettings
settings'
Text -> Ptr MemoryPressureSettings -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"memoryPressureSettingsCopy" Ptr MemoryPressureSettings
result
MemoryPressureSettings
result' <- ((ManagedPtr MemoryPressureSettings -> MemoryPressureSettings)
-> Ptr MemoryPressureSettings -> IO MemoryPressureSettings
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr MemoryPressureSettings -> MemoryPressureSettings
MemoryPressureSettings) Ptr MemoryPressureSettings
result
MemoryPressureSettings -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MemoryPressureSettings
settings
MemoryPressureSettings -> IO MemoryPressureSettings
forall (m :: * -> *) a. Monad m => a -> m a
return MemoryPressureSettings
result'
#if defined(ENABLE_OVERLOADING)
data MemoryPressureSettingsCopyMethodInfo
instance (signature ~ (m MemoryPressureSettings), MonadIO m) => O.OverloadedMethod MemoryPressureSettingsCopyMethodInfo MemoryPressureSettings signature where
overloadedMethod = memoryPressureSettingsCopy
instance O.OverloadedMethodInfo MemoryPressureSettingsCopyMethodInfo MemoryPressureSettings where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Structs.MemoryPressureSettings.memoryPressureSettingsCopy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Structs-MemoryPressureSettings.html#v:memoryPressureSettingsCopy"
})
#endif
foreign import ccall "webkit_memory_pressure_settings_free" webkit_memory_pressure_settings_free ::
Ptr MemoryPressureSettings ->
IO ()
memoryPressureSettingsFree ::
(B.CallStack.HasCallStack, MonadIO m) =>
MemoryPressureSettings
-> m ()
memoryPressureSettingsFree :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MemoryPressureSettings -> m ()
memoryPressureSettingsFree MemoryPressureSettings
settings = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr MemoryPressureSettings
settings' <- MemoryPressureSettings -> IO (Ptr MemoryPressureSettings)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MemoryPressureSettings
settings
Ptr MemoryPressureSettings -> IO ()
webkit_memory_pressure_settings_free Ptr MemoryPressureSettings
settings'
MemoryPressureSettings -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MemoryPressureSettings
settings
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MemoryPressureSettingsFreeMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.OverloadedMethod MemoryPressureSettingsFreeMethodInfo MemoryPressureSettings signature where
overloadedMethod = memoryPressureSettingsFree
instance O.OverloadedMethodInfo MemoryPressureSettingsFreeMethodInfo MemoryPressureSettings where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Structs.MemoryPressureSettings.memoryPressureSettingsFree",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Structs-MemoryPressureSettings.html#v:memoryPressureSettingsFree"
})
#endif
foreign import ccall "webkit_memory_pressure_settings_get_conservative_threshold" webkit_memory_pressure_settings_get_conservative_threshold ::
Ptr MemoryPressureSettings ->
IO CDouble
memoryPressureSettingsGetConservativeThreshold ::
(B.CallStack.HasCallStack, MonadIO m) =>
MemoryPressureSettings
-> m Double
memoryPressureSettingsGetConservativeThreshold :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MemoryPressureSettings -> m Double
memoryPressureSettingsGetConservativeThreshold MemoryPressureSettings
settings = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr MemoryPressureSettings
settings' <- MemoryPressureSettings -> IO (Ptr MemoryPressureSettings)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MemoryPressureSettings
settings
CDouble
result <- Ptr MemoryPressureSettings -> IO CDouble
webkit_memory_pressure_settings_get_conservative_threshold Ptr MemoryPressureSettings
settings'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
MemoryPressureSettings -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MemoryPressureSettings
settings
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data MemoryPressureSettingsGetConservativeThresholdMethodInfo
instance (signature ~ (m Double), MonadIO m) => O.OverloadedMethod MemoryPressureSettingsGetConservativeThresholdMethodInfo MemoryPressureSettings signature where
overloadedMethod = memoryPressureSettingsGetConservativeThreshold
instance O.OverloadedMethodInfo MemoryPressureSettingsGetConservativeThresholdMethodInfo MemoryPressureSettings where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Structs.MemoryPressureSettings.memoryPressureSettingsGetConservativeThreshold",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Structs-MemoryPressureSettings.html#v:memoryPressureSettingsGetConservativeThreshold"
})
#endif
foreign import ccall "webkit_memory_pressure_settings_get_kill_threshold" webkit_memory_pressure_settings_get_kill_threshold ::
Ptr MemoryPressureSettings ->
IO CDouble
memoryPressureSettingsGetKillThreshold ::
(B.CallStack.HasCallStack, MonadIO m) =>
MemoryPressureSettings
-> m Double
memoryPressureSettingsGetKillThreshold :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MemoryPressureSettings -> m Double
memoryPressureSettingsGetKillThreshold MemoryPressureSettings
settings = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr MemoryPressureSettings
settings' <- MemoryPressureSettings -> IO (Ptr MemoryPressureSettings)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MemoryPressureSettings
settings
CDouble
result <- Ptr MemoryPressureSettings -> IO CDouble
webkit_memory_pressure_settings_get_kill_threshold Ptr MemoryPressureSettings
settings'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
MemoryPressureSettings -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MemoryPressureSettings
settings
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data MemoryPressureSettingsGetKillThresholdMethodInfo
instance (signature ~ (m Double), MonadIO m) => O.OverloadedMethod MemoryPressureSettingsGetKillThresholdMethodInfo MemoryPressureSettings signature where
overloadedMethod = memoryPressureSettingsGetKillThreshold
instance O.OverloadedMethodInfo MemoryPressureSettingsGetKillThresholdMethodInfo MemoryPressureSettings where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Structs.MemoryPressureSettings.memoryPressureSettingsGetKillThreshold",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Structs-MemoryPressureSettings.html#v:memoryPressureSettingsGetKillThreshold"
})
#endif
foreign import ccall "webkit_memory_pressure_settings_get_memory_limit" webkit_memory_pressure_settings_get_memory_limit ::
Ptr MemoryPressureSettings ->
IO Word32
memoryPressureSettingsGetMemoryLimit ::
(B.CallStack.HasCallStack, MonadIO m) =>
MemoryPressureSettings
-> m Word32
memoryPressureSettingsGetMemoryLimit :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MemoryPressureSettings -> m Word32
memoryPressureSettingsGetMemoryLimit MemoryPressureSettings
settings = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr MemoryPressureSettings
settings' <- MemoryPressureSettings -> IO (Ptr MemoryPressureSettings)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MemoryPressureSettings
settings
Word32
result <- Ptr MemoryPressureSettings -> IO Word32
webkit_memory_pressure_settings_get_memory_limit Ptr MemoryPressureSettings
settings'
MemoryPressureSettings -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MemoryPressureSettings
settings
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data MemoryPressureSettingsGetMemoryLimitMethodInfo
instance (signature ~ (m Word32), MonadIO m) => O.OverloadedMethod MemoryPressureSettingsGetMemoryLimitMethodInfo MemoryPressureSettings signature where
overloadedMethod = memoryPressureSettingsGetMemoryLimit
instance O.OverloadedMethodInfo MemoryPressureSettingsGetMemoryLimitMethodInfo MemoryPressureSettings where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Structs.MemoryPressureSettings.memoryPressureSettingsGetMemoryLimit",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Structs-MemoryPressureSettings.html#v:memoryPressureSettingsGetMemoryLimit"
})
#endif
foreign import ccall "webkit_memory_pressure_settings_get_poll_interval" webkit_memory_pressure_settings_get_poll_interval ::
Ptr MemoryPressureSettings ->
IO CDouble
memoryPressureSettingsGetPollInterval ::
(B.CallStack.HasCallStack, MonadIO m) =>
MemoryPressureSettings
-> m Double
memoryPressureSettingsGetPollInterval :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MemoryPressureSettings -> m Double
memoryPressureSettingsGetPollInterval MemoryPressureSettings
settings = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr MemoryPressureSettings
settings' <- MemoryPressureSettings -> IO (Ptr MemoryPressureSettings)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MemoryPressureSettings
settings
CDouble
result <- Ptr MemoryPressureSettings -> IO CDouble
webkit_memory_pressure_settings_get_poll_interval Ptr MemoryPressureSettings
settings'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
MemoryPressureSettings -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MemoryPressureSettings
settings
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data MemoryPressureSettingsGetPollIntervalMethodInfo
instance (signature ~ (m Double), MonadIO m) => O.OverloadedMethod MemoryPressureSettingsGetPollIntervalMethodInfo MemoryPressureSettings signature where
overloadedMethod = memoryPressureSettingsGetPollInterval
instance O.OverloadedMethodInfo MemoryPressureSettingsGetPollIntervalMethodInfo MemoryPressureSettings where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Structs.MemoryPressureSettings.memoryPressureSettingsGetPollInterval",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Structs-MemoryPressureSettings.html#v:memoryPressureSettingsGetPollInterval"
})
#endif
foreign import ccall "webkit_memory_pressure_settings_get_strict_threshold" webkit_memory_pressure_settings_get_strict_threshold ::
Ptr MemoryPressureSettings ->
IO CDouble
memoryPressureSettingsGetStrictThreshold ::
(B.CallStack.HasCallStack, MonadIO m) =>
MemoryPressureSettings
-> m Double
memoryPressureSettingsGetStrictThreshold :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MemoryPressureSettings -> m Double
memoryPressureSettingsGetStrictThreshold MemoryPressureSettings
settings = IO Double -> m Double
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Double -> m Double) -> IO Double -> m Double
forall a b. (a -> b) -> a -> b
$ do
Ptr MemoryPressureSettings
settings' <- MemoryPressureSettings -> IO (Ptr MemoryPressureSettings)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MemoryPressureSettings
settings
CDouble
result <- Ptr MemoryPressureSettings -> IO CDouble
webkit_memory_pressure_settings_get_strict_threshold Ptr MemoryPressureSettings
settings'
let result' :: Double
result' = CDouble -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac CDouble
result
MemoryPressureSettings -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MemoryPressureSettings
settings
Double -> IO Double
forall (m :: * -> *) a. Monad m => a -> m a
return Double
result'
#if defined(ENABLE_OVERLOADING)
data MemoryPressureSettingsGetStrictThresholdMethodInfo
instance (signature ~ (m Double), MonadIO m) => O.OverloadedMethod MemoryPressureSettingsGetStrictThresholdMethodInfo MemoryPressureSettings signature where
overloadedMethod = memoryPressureSettingsGetStrictThreshold
instance O.OverloadedMethodInfo MemoryPressureSettingsGetStrictThresholdMethodInfo MemoryPressureSettings where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Structs.MemoryPressureSettings.memoryPressureSettingsGetStrictThreshold",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Structs-MemoryPressureSettings.html#v:memoryPressureSettingsGetStrictThreshold"
})
#endif
foreign import ccall "webkit_memory_pressure_settings_set_conservative_threshold" webkit_memory_pressure_settings_set_conservative_threshold ::
Ptr MemoryPressureSettings ->
CDouble ->
IO ()
memoryPressureSettingsSetConservativeThreshold ::
(B.CallStack.HasCallStack, MonadIO m) =>
MemoryPressureSettings
-> Double
-> m ()
memoryPressureSettingsSetConservativeThreshold :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MemoryPressureSettings -> Double -> m ()
memoryPressureSettingsSetConservativeThreshold MemoryPressureSettings
settings Double
value = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr MemoryPressureSettings
settings' <- MemoryPressureSettings -> IO (Ptr MemoryPressureSettings)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MemoryPressureSettings
settings
let value' :: CDouble
value' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
value
Ptr MemoryPressureSettings -> CDouble -> IO ()
webkit_memory_pressure_settings_set_conservative_threshold Ptr MemoryPressureSettings
settings' CDouble
value'
MemoryPressureSettings -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MemoryPressureSettings
settings
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MemoryPressureSettingsSetConservativeThresholdMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m) => O.OverloadedMethod MemoryPressureSettingsSetConservativeThresholdMethodInfo MemoryPressureSettings signature where
overloadedMethod = memoryPressureSettingsSetConservativeThreshold
instance O.OverloadedMethodInfo MemoryPressureSettingsSetConservativeThresholdMethodInfo MemoryPressureSettings where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Structs.MemoryPressureSettings.memoryPressureSettingsSetConservativeThreshold",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Structs-MemoryPressureSettings.html#v:memoryPressureSettingsSetConservativeThreshold"
})
#endif
foreign import ccall "webkit_memory_pressure_settings_set_kill_threshold" webkit_memory_pressure_settings_set_kill_threshold ::
Ptr MemoryPressureSettings ->
CDouble ->
IO ()
memoryPressureSettingsSetKillThreshold ::
(B.CallStack.HasCallStack, MonadIO m) =>
MemoryPressureSettings
-> Double
-> m ()
memoryPressureSettingsSetKillThreshold :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MemoryPressureSettings -> Double -> m ()
memoryPressureSettingsSetKillThreshold MemoryPressureSettings
settings Double
value = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr MemoryPressureSettings
settings' <- MemoryPressureSettings -> IO (Ptr MemoryPressureSettings)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MemoryPressureSettings
settings
let value' :: CDouble
value' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
value
Ptr MemoryPressureSettings -> CDouble -> IO ()
webkit_memory_pressure_settings_set_kill_threshold Ptr MemoryPressureSettings
settings' CDouble
value'
MemoryPressureSettings -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MemoryPressureSettings
settings
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MemoryPressureSettingsSetKillThresholdMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m) => O.OverloadedMethod MemoryPressureSettingsSetKillThresholdMethodInfo MemoryPressureSettings signature where
overloadedMethod = memoryPressureSettingsSetKillThreshold
instance O.OverloadedMethodInfo MemoryPressureSettingsSetKillThresholdMethodInfo MemoryPressureSettings where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Structs.MemoryPressureSettings.memoryPressureSettingsSetKillThreshold",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Structs-MemoryPressureSettings.html#v:memoryPressureSettingsSetKillThreshold"
})
#endif
foreign import ccall "webkit_memory_pressure_settings_set_memory_limit" webkit_memory_pressure_settings_set_memory_limit ::
Ptr MemoryPressureSettings ->
Word32 ->
IO ()
memoryPressureSettingsSetMemoryLimit ::
(B.CallStack.HasCallStack, MonadIO m) =>
MemoryPressureSettings
-> Word32
-> m ()
memoryPressureSettingsSetMemoryLimit :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MemoryPressureSettings -> Word32 -> m ()
memoryPressureSettingsSetMemoryLimit MemoryPressureSettings
settings Word32
memoryLimit = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr MemoryPressureSettings
settings' <- MemoryPressureSettings -> IO (Ptr MemoryPressureSettings)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MemoryPressureSettings
settings
Ptr MemoryPressureSettings -> Word32 -> IO ()
webkit_memory_pressure_settings_set_memory_limit Ptr MemoryPressureSettings
settings' Word32
memoryLimit
MemoryPressureSettings -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MemoryPressureSettings
settings
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MemoryPressureSettingsSetMemoryLimitMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m) => O.OverloadedMethod MemoryPressureSettingsSetMemoryLimitMethodInfo MemoryPressureSettings signature where
overloadedMethod = memoryPressureSettingsSetMemoryLimit
instance O.OverloadedMethodInfo MemoryPressureSettingsSetMemoryLimitMethodInfo MemoryPressureSettings where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Structs.MemoryPressureSettings.memoryPressureSettingsSetMemoryLimit",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Structs-MemoryPressureSettings.html#v:memoryPressureSettingsSetMemoryLimit"
})
#endif
foreign import ccall "webkit_memory_pressure_settings_set_poll_interval" webkit_memory_pressure_settings_set_poll_interval ::
Ptr MemoryPressureSettings ->
CDouble ->
IO ()
memoryPressureSettingsSetPollInterval ::
(B.CallStack.HasCallStack, MonadIO m) =>
MemoryPressureSettings
-> Double
-> m ()
memoryPressureSettingsSetPollInterval :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MemoryPressureSettings -> Double -> m ()
memoryPressureSettingsSetPollInterval MemoryPressureSettings
settings Double
value = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr MemoryPressureSettings
settings' <- MemoryPressureSettings -> IO (Ptr MemoryPressureSettings)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MemoryPressureSettings
settings
let value' :: CDouble
value' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
value
Ptr MemoryPressureSettings -> CDouble -> IO ()
webkit_memory_pressure_settings_set_poll_interval Ptr MemoryPressureSettings
settings' CDouble
value'
MemoryPressureSettings -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MemoryPressureSettings
settings
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MemoryPressureSettingsSetPollIntervalMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m) => O.OverloadedMethod MemoryPressureSettingsSetPollIntervalMethodInfo MemoryPressureSettings signature where
overloadedMethod = memoryPressureSettingsSetPollInterval
instance O.OverloadedMethodInfo MemoryPressureSettingsSetPollIntervalMethodInfo MemoryPressureSettings where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Structs.MemoryPressureSettings.memoryPressureSettingsSetPollInterval",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Structs-MemoryPressureSettings.html#v:memoryPressureSettingsSetPollInterval"
})
#endif
foreign import ccall "webkit_memory_pressure_settings_set_strict_threshold" webkit_memory_pressure_settings_set_strict_threshold ::
Ptr MemoryPressureSettings ->
CDouble ->
IO ()
memoryPressureSettingsSetStrictThreshold ::
(B.CallStack.HasCallStack, MonadIO m) =>
MemoryPressureSettings
-> Double
-> m ()
memoryPressureSettingsSetStrictThreshold :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
MemoryPressureSettings -> Double -> m ()
memoryPressureSettingsSetStrictThreshold MemoryPressureSettings
settings Double
value = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr MemoryPressureSettings
settings' <- MemoryPressureSettings -> IO (Ptr MemoryPressureSettings)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr MemoryPressureSettings
settings
let value' :: CDouble
value' = Double -> CDouble
forall a b. (Real a, Fractional b) => a -> b
realToFrac Double
value
Ptr MemoryPressureSettings -> CDouble -> IO ()
webkit_memory_pressure_settings_set_strict_threshold Ptr MemoryPressureSettings
settings' CDouble
value'
MemoryPressureSettings -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MemoryPressureSettings
settings
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data MemoryPressureSettingsSetStrictThresholdMethodInfo
instance (signature ~ (Double -> m ()), MonadIO m) => O.OverloadedMethod MemoryPressureSettingsSetStrictThresholdMethodInfo MemoryPressureSettings signature where
overloadedMethod = memoryPressureSettingsSetStrictThreshold
instance O.OverloadedMethodInfo MemoryPressureSettingsSetStrictThresholdMethodInfo MemoryPressureSettings where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Structs.MemoryPressureSettings.memoryPressureSettingsSetStrictThreshold",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Structs-MemoryPressureSettings.html#v:memoryPressureSettingsSetStrictThreshold"
})
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveMemoryPressureSettingsMethod (t :: Symbol) (o :: *) :: * where
ResolveMemoryPressureSettingsMethod "copy" o = MemoryPressureSettingsCopyMethodInfo
ResolveMemoryPressureSettingsMethod "free" o = MemoryPressureSettingsFreeMethodInfo
ResolveMemoryPressureSettingsMethod "getConservativeThreshold" o = MemoryPressureSettingsGetConservativeThresholdMethodInfo
ResolveMemoryPressureSettingsMethod "getKillThreshold" o = MemoryPressureSettingsGetKillThresholdMethodInfo
ResolveMemoryPressureSettingsMethod "getMemoryLimit" o = MemoryPressureSettingsGetMemoryLimitMethodInfo
ResolveMemoryPressureSettingsMethod "getPollInterval" o = MemoryPressureSettingsGetPollIntervalMethodInfo
ResolveMemoryPressureSettingsMethod "getStrictThreshold" o = MemoryPressureSettingsGetStrictThresholdMethodInfo
ResolveMemoryPressureSettingsMethod "setConservativeThreshold" o = MemoryPressureSettingsSetConservativeThresholdMethodInfo
ResolveMemoryPressureSettingsMethod "setKillThreshold" o = MemoryPressureSettingsSetKillThresholdMethodInfo
ResolveMemoryPressureSettingsMethod "setMemoryLimit" o = MemoryPressureSettingsSetMemoryLimitMethodInfo
ResolveMemoryPressureSettingsMethod "setPollInterval" o = MemoryPressureSettingsSetPollIntervalMethodInfo
ResolveMemoryPressureSettingsMethod "setStrictThreshold" o = MemoryPressureSettingsSetStrictThresholdMethodInfo
ResolveMemoryPressureSettingsMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveMemoryPressureSettingsMethod t MemoryPressureSettings, O.OverloadedMethod info MemoryPressureSettings p) => OL.IsLabel t (MemoryPressureSettings -> 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 ~ ResolveMemoryPressureSettingsMethod t MemoryPressureSettings, O.OverloadedMethod info MemoryPressureSettings p, R.HasField t MemoryPressureSettings p) => R.HasField t MemoryPressureSettings p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveMemoryPressureSettingsMethod t MemoryPressureSettings, O.OverloadedMethodInfo info MemoryPressureSettings) => OL.IsLabel t (O.MethodProxy info MemoryPressureSettings) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif