{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Soup.Structs.HSTSPolicy
(
HSTSPolicy(..) ,
newZeroHSTSPolicy ,
#if defined(ENABLE_OVERLOADING)
ResolveHSTSPolicyMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
HSTSPolicyCopyMethodInfo ,
#endif
hSTSPolicyCopy ,
#if defined(ENABLE_OVERLOADING)
HSTSPolicyEqualMethodInfo ,
#endif
hSTSPolicyEqual ,
#if defined(ENABLE_OVERLOADING)
HSTSPolicyFreeMethodInfo ,
#endif
hSTSPolicyFree ,
#if defined(ENABLE_OVERLOADING)
HSTSPolicyGetDomainMethodInfo ,
#endif
hSTSPolicyGetDomain ,
#if defined(ENABLE_OVERLOADING)
HSTSPolicyIncludesSubdomainsMethodInfo ,
#endif
hSTSPolicyIncludesSubdomains ,
#if defined(ENABLE_OVERLOADING)
HSTSPolicyIsExpiredMethodInfo ,
#endif
hSTSPolicyIsExpired ,
#if defined(ENABLE_OVERLOADING)
HSTSPolicyIsSessionPolicyMethodInfo ,
#endif
hSTSPolicyIsSessionPolicy ,
hSTSPolicyNew ,
hSTSPolicyNewFromResponse ,
hSTSPolicyNewFull ,
hSTSPolicyNewSessionPolicy ,
clearHSTSPolicyDomain ,
getHSTSPolicyDomain ,
#if defined(ENABLE_OVERLOADING)
hSTSPolicy_domain ,
#endif
setHSTSPolicyDomain ,
clearHSTSPolicyExpires ,
getHSTSPolicyExpires ,
#if defined(ENABLE_OVERLOADING)
hSTSPolicy_expires ,
#endif
setHSTSPolicyExpires ,
getHSTSPolicyIncludeSubdomains ,
#if defined(ENABLE_OVERLOADING)
hSTSPolicy_includeSubdomains ,
#endif
setHSTSPolicyIncludeSubdomains ,
getHSTSPolicyMaxAge ,
#if defined(ENABLE_OVERLOADING)
hSTSPolicy_maxAge ,
#endif
setHSTSPolicyMaxAge ,
) 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
import {-# SOURCE #-} qualified GI.Soup.Objects.Message as Soup.Message
import {-# SOURCE #-} qualified GI.Soup.Structs.Date as Soup.Date
newtype HSTSPolicy = HSTSPolicy (SP.ManagedPtr HSTSPolicy)
deriving (HSTSPolicy -> HSTSPolicy -> Bool
(HSTSPolicy -> HSTSPolicy -> Bool)
-> (HSTSPolicy -> HSTSPolicy -> Bool) -> Eq HSTSPolicy
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: HSTSPolicy -> HSTSPolicy -> Bool
$c/= :: HSTSPolicy -> HSTSPolicy -> Bool
== :: HSTSPolicy -> HSTSPolicy -> Bool
$c== :: HSTSPolicy -> HSTSPolicy -> Bool
Eq)
instance SP.ManagedPtrNewtype HSTSPolicy where
toManagedPtr :: HSTSPolicy -> ManagedPtr HSTSPolicy
toManagedPtr (HSTSPolicy ManagedPtr HSTSPolicy
p) = ManagedPtr HSTSPolicy
p
foreign import ccall "soup_hsts_policy_get_type" c_soup_hsts_policy_get_type ::
IO GType
type instance O.ParentTypes HSTSPolicy = '[]
instance O.HasParentTypes HSTSPolicy
instance B.Types.TypedObject HSTSPolicy where
glibType :: IO GType
glibType = IO GType
c_soup_hsts_policy_get_type
instance B.Types.GBoxed HSTSPolicy
instance B.GValue.IsGValue (Maybe HSTSPolicy) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_soup_hsts_policy_get_type
gvalueSet_ :: Ptr GValue -> Maybe HSTSPolicy -> IO ()
gvalueSet_ Ptr GValue
gv Maybe HSTSPolicy
P.Nothing = Ptr GValue -> Ptr HSTSPolicy -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv (Ptr HSTSPolicy
forall a. Ptr a
FP.nullPtr :: FP.Ptr HSTSPolicy)
gvalueSet_ Ptr GValue
gv (P.Just HSTSPolicy
obj) = HSTSPolicy -> (Ptr HSTSPolicy -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr HSTSPolicy
obj (Ptr GValue -> Ptr HSTSPolicy -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe HSTSPolicy)
gvalueGet_ Ptr GValue
gv = do
Ptr HSTSPolicy
ptr <- Ptr GValue -> IO (Ptr HSTSPolicy)
forall b. Ptr GValue -> IO (Ptr b)
B.GValue.get_boxed Ptr GValue
gv :: IO (Ptr HSTSPolicy)
if Ptr HSTSPolicy
ptr Ptr HSTSPolicy -> Ptr HSTSPolicy -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr HSTSPolicy
forall a. Ptr a
FP.nullPtr
then HSTSPolicy -> Maybe HSTSPolicy
forall a. a -> Maybe a
P.Just (HSTSPolicy -> Maybe HSTSPolicy)
-> IO HSTSPolicy -> IO (Maybe HSTSPolicy)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr HSTSPolicy -> HSTSPolicy)
-> Ptr HSTSPolicy -> IO HSTSPolicy
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.newBoxed ManagedPtr HSTSPolicy -> HSTSPolicy
HSTSPolicy Ptr HSTSPolicy
ptr
else Maybe HSTSPolicy -> IO (Maybe HSTSPolicy)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe HSTSPolicy
forall a. Maybe a
P.Nothing
newZeroHSTSPolicy :: MonadIO m => m HSTSPolicy
newZeroHSTSPolicy :: forall (m :: * -> *). MonadIO m => m HSTSPolicy
newZeroHSTSPolicy = IO HSTSPolicy -> m HSTSPolicy
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO HSTSPolicy -> m HSTSPolicy) -> IO HSTSPolicy -> m HSTSPolicy
forall a b. (a -> b) -> a -> b
$ Int -> IO (Ptr HSTSPolicy)
forall a. GBoxed a => Int -> IO (Ptr a)
callocBoxedBytes Int
32 IO (Ptr HSTSPolicy)
-> (Ptr HSTSPolicy -> IO HSTSPolicy) -> IO HSTSPolicy
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (ManagedPtr HSTSPolicy -> HSTSPolicy)
-> Ptr HSTSPolicy -> IO HSTSPolicy
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr HSTSPolicy -> HSTSPolicy
HSTSPolicy
instance tag ~ 'AttrSet => Constructible HSTSPolicy tag where
new :: forall (m :: * -> *).
MonadIO m =>
(ManagedPtr HSTSPolicy -> HSTSPolicy)
-> [AttrOp HSTSPolicy tag] -> m HSTSPolicy
new ManagedPtr HSTSPolicy -> HSTSPolicy
_ [AttrOp HSTSPolicy tag]
attrs = do
HSTSPolicy
o <- m HSTSPolicy
forall (m :: * -> *). MonadIO m => m HSTSPolicy
newZeroHSTSPolicy
HSTSPolicy -> [AttrOp HSTSPolicy 'AttrSet] -> m ()
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set HSTSPolicy
o [AttrOp HSTSPolicy tag]
[AttrOp HSTSPolicy 'AttrSet]
attrs
HSTSPolicy -> m HSTSPolicy
forall (m :: * -> *) a. Monad m => a -> m a
return HSTSPolicy
o
getHSTSPolicyDomain :: MonadIO m => HSTSPolicy -> m (Maybe T.Text)
getHSTSPolicyDomain :: forall (m :: * -> *). MonadIO m => HSTSPolicy -> m (Maybe Text)
getHSTSPolicyDomain HSTSPolicy
s = IO (Maybe Text) -> m (Maybe Text)
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
$ HSTSPolicy
-> (Ptr HSTSPolicy -> IO (Maybe Text)) -> IO (Maybe Text)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr HSTSPolicy
s ((Ptr HSTSPolicy -> IO (Maybe Text)) -> IO (Maybe Text))
-> (Ptr HSTSPolicy -> IO (Maybe Text)) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \Ptr HSTSPolicy
ptr -> do
CString
val <- Ptr CString -> IO CString
forall a. Storable a => Ptr a -> IO a
peek (Ptr HSTSPolicy
ptr Ptr HSTSPolicy -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) :: IO CString
Maybe Text
result <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull CString
val ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
val' -> do
Text
val'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
val'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
val''
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
result
setHSTSPolicyDomain :: MonadIO m => HSTSPolicy -> CString -> m ()
setHSTSPolicyDomain :: forall (m :: * -> *). MonadIO m => HSTSPolicy -> CString -> m ()
setHSTSPolicyDomain HSTSPolicy
s CString
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ HSTSPolicy -> (Ptr HSTSPolicy -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr HSTSPolicy
s ((Ptr HSTSPolicy -> IO ()) -> IO ())
-> (Ptr HSTSPolicy -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr HSTSPolicy
ptr -> do
Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr HSTSPolicy
ptr Ptr HSTSPolicy -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (CString
val :: CString)
clearHSTSPolicyDomain :: MonadIO m => HSTSPolicy -> m ()
clearHSTSPolicyDomain :: forall (m :: * -> *). MonadIO m => HSTSPolicy -> m ()
clearHSTSPolicyDomain HSTSPolicy
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ HSTSPolicy -> (Ptr HSTSPolicy -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr HSTSPolicy
s ((Ptr HSTSPolicy -> IO ()) -> IO ())
-> (Ptr HSTSPolicy -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr HSTSPolicy
ptr -> do
Ptr CString -> CString -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr HSTSPolicy
ptr Ptr HSTSPolicy -> Int -> Ptr CString
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (CString
forall a. Ptr a
FP.nullPtr :: CString)
#if defined(ENABLE_OVERLOADING)
data HSTSPolicyDomainFieldInfo
instance AttrInfo HSTSPolicyDomainFieldInfo where
type AttrBaseTypeConstraint HSTSPolicyDomainFieldInfo = (~) HSTSPolicy
type AttrAllowedOps HSTSPolicyDomainFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint HSTSPolicyDomainFieldInfo = (~) CString
type AttrTransferTypeConstraint HSTSPolicyDomainFieldInfo = (~)CString
type AttrTransferType HSTSPolicyDomainFieldInfo = CString
type AttrGetType HSTSPolicyDomainFieldInfo = Maybe T.Text
type AttrLabel HSTSPolicyDomainFieldInfo = "domain"
type AttrOrigin HSTSPolicyDomainFieldInfo = HSTSPolicy
attrGet = getHSTSPolicyDomain
attrSet = setHSTSPolicyDomain
attrConstruct = undefined
attrClear = clearHSTSPolicyDomain
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Structs.HSTSPolicy.domain"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-2.4.25/docs/GI-Soup-Structs-HSTSPolicy.html#g:attr:domain"
})
hSTSPolicy_domain :: AttrLabelProxy "domain"
hSTSPolicy_domain = AttrLabelProxy
#endif
getHSTSPolicyMaxAge :: MonadIO m => HSTSPolicy -> m CULong
getHSTSPolicyMaxAge :: forall (m :: * -> *). MonadIO m => HSTSPolicy -> m CULong
getHSTSPolicyMaxAge HSTSPolicy
s = IO CULong -> m CULong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CULong -> m CULong) -> IO CULong -> m CULong
forall a b. (a -> b) -> a -> b
$ HSTSPolicy -> (Ptr HSTSPolicy -> IO CULong) -> IO CULong
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr HSTSPolicy
s ((Ptr HSTSPolicy -> IO CULong) -> IO CULong)
-> (Ptr HSTSPolicy -> IO CULong) -> IO CULong
forall a b. (a -> b) -> a -> b
$ \Ptr HSTSPolicy
ptr -> do
CULong
val <- Ptr CULong -> IO CULong
forall a. Storable a => Ptr a -> IO a
peek (Ptr HSTSPolicy
ptr Ptr HSTSPolicy -> Int -> Ptr CULong
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) :: IO CULong
CULong -> IO CULong
forall (m :: * -> *) a. Monad m => a -> m a
return CULong
val
setHSTSPolicyMaxAge :: MonadIO m => HSTSPolicy -> CULong -> m ()
setHSTSPolicyMaxAge :: forall (m :: * -> *). MonadIO m => HSTSPolicy -> CULong -> m ()
setHSTSPolicyMaxAge HSTSPolicy
s CULong
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ HSTSPolicy -> (Ptr HSTSPolicy -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr HSTSPolicy
s ((Ptr HSTSPolicy -> IO ()) -> IO ())
-> (Ptr HSTSPolicy -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr HSTSPolicy
ptr -> do
Ptr CULong -> CULong -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr HSTSPolicy
ptr Ptr HSTSPolicy -> Int -> Ptr CULong
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
8) (CULong
val :: CULong)
#if defined(ENABLE_OVERLOADING)
data HSTSPolicyMaxAgeFieldInfo
instance AttrInfo HSTSPolicyMaxAgeFieldInfo where
type AttrBaseTypeConstraint HSTSPolicyMaxAgeFieldInfo = (~) HSTSPolicy
type AttrAllowedOps HSTSPolicyMaxAgeFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint HSTSPolicyMaxAgeFieldInfo = (~) CULong
type AttrTransferTypeConstraint HSTSPolicyMaxAgeFieldInfo = (~)CULong
type AttrTransferType HSTSPolicyMaxAgeFieldInfo = CULong
type AttrGetType HSTSPolicyMaxAgeFieldInfo = CULong
type AttrLabel HSTSPolicyMaxAgeFieldInfo = "max_age"
type AttrOrigin HSTSPolicyMaxAgeFieldInfo = HSTSPolicy
attrGet = getHSTSPolicyMaxAge
attrSet = setHSTSPolicyMaxAge
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Structs.HSTSPolicy.maxAge"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-2.4.25/docs/GI-Soup-Structs-HSTSPolicy.html#g:attr:maxAge"
})
hSTSPolicy_maxAge :: AttrLabelProxy "maxAge"
hSTSPolicy_maxAge = AttrLabelProxy
#endif
getHSTSPolicyExpires :: MonadIO m => HSTSPolicy -> m (Maybe Soup.Date.Date)
getHSTSPolicyExpires :: forall (m :: * -> *). MonadIO m => HSTSPolicy -> m (Maybe Date)
getHSTSPolicyExpires HSTSPolicy
s = IO (Maybe Date) -> m (Maybe Date)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Date) -> m (Maybe Date))
-> IO (Maybe Date) -> m (Maybe Date)
forall a b. (a -> b) -> a -> b
$ HSTSPolicy
-> (Ptr HSTSPolicy -> IO (Maybe Date)) -> IO (Maybe Date)
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr HSTSPolicy
s ((Ptr HSTSPolicy -> IO (Maybe Date)) -> IO (Maybe Date))
-> (Ptr HSTSPolicy -> IO (Maybe Date)) -> IO (Maybe Date)
forall a b. (a -> b) -> a -> b
$ \Ptr HSTSPolicy
ptr -> do
Ptr Date
val <- Ptr (Ptr Date) -> IO (Ptr Date)
forall a. Storable a => Ptr a -> IO a
peek (Ptr HSTSPolicy
ptr Ptr HSTSPolicy -> Int -> Ptr (Ptr Date)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) :: IO (Ptr Soup.Date.Date)
Maybe Date
result <- Ptr Date -> (Ptr Date -> IO Date) -> IO (Maybe Date)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
SP.convertIfNonNull Ptr Date
val ((Ptr Date -> IO Date) -> IO (Maybe Date))
-> (Ptr Date -> IO Date) -> IO (Maybe Date)
forall a b. (a -> b) -> a -> b
$ \Ptr Date
val' -> do
Date
val'' <- ((ManagedPtr Date -> Date) -> Ptr Date -> IO Date
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr Date -> Date
Soup.Date.Date) Ptr Date
val'
Date -> IO Date
forall (m :: * -> *) a. Monad m => a -> m a
return Date
val''
Maybe Date -> IO (Maybe Date)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Date
result
setHSTSPolicyExpires :: MonadIO m => HSTSPolicy -> Ptr Soup.Date.Date -> m ()
setHSTSPolicyExpires :: forall (m :: * -> *). MonadIO m => HSTSPolicy -> Ptr Date -> m ()
setHSTSPolicyExpires HSTSPolicy
s Ptr Date
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ HSTSPolicy -> (Ptr HSTSPolicy -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr HSTSPolicy
s ((Ptr HSTSPolicy -> IO ()) -> IO ())
-> (Ptr HSTSPolicy -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr HSTSPolicy
ptr -> do
Ptr (Ptr Date) -> Ptr Date -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr HSTSPolicy
ptr Ptr HSTSPolicy -> Int -> Ptr (Ptr Date)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) (Ptr Date
val :: Ptr Soup.Date.Date)
clearHSTSPolicyExpires :: MonadIO m => HSTSPolicy -> m ()
clearHSTSPolicyExpires :: forall (m :: * -> *). MonadIO m => HSTSPolicy -> m ()
clearHSTSPolicyExpires HSTSPolicy
s = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ HSTSPolicy -> (Ptr HSTSPolicy -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr HSTSPolicy
s ((Ptr HSTSPolicy -> IO ()) -> IO ())
-> (Ptr HSTSPolicy -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr HSTSPolicy
ptr -> do
Ptr (Ptr Date) -> Ptr Date -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr HSTSPolicy
ptr Ptr HSTSPolicy -> Int -> Ptr (Ptr Date)
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
16) (Ptr Date
forall a. Ptr a
FP.nullPtr :: Ptr Soup.Date.Date)
#if defined(ENABLE_OVERLOADING)
data HSTSPolicyExpiresFieldInfo
instance AttrInfo HSTSPolicyExpiresFieldInfo where
type AttrBaseTypeConstraint HSTSPolicyExpiresFieldInfo = (~) HSTSPolicy
type AttrAllowedOps HSTSPolicyExpiresFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint HSTSPolicyExpiresFieldInfo = (~) (Ptr Soup.Date.Date)
type AttrTransferTypeConstraint HSTSPolicyExpiresFieldInfo = (~)(Ptr Soup.Date.Date)
type AttrTransferType HSTSPolicyExpiresFieldInfo = (Ptr Soup.Date.Date)
type AttrGetType HSTSPolicyExpiresFieldInfo = Maybe Soup.Date.Date
type AttrLabel HSTSPolicyExpiresFieldInfo = "expires"
type AttrOrigin HSTSPolicyExpiresFieldInfo = HSTSPolicy
attrGet = getHSTSPolicyExpires
attrSet = setHSTSPolicyExpires
attrConstruct = undefined
attrClear = clearHSTSPolicyExpires
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Structs.HSTSPolicy.expires"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-2.4.25/docs/GI-Soup-Structs-HSTSPolicy.html#g:attr:expires"
})
hSTSPolicy_expires :: AttrLabelProxy "expires"
hSTSPolicy_expires = AttrLabelProxy
#endif
getHSTSPolicyIncludeSubdomains :: MonadIO m => HSTSPolicy -> m Bool
getHSTSPolicyIncludeSubdomains :: forall (m :: * -> *). MonadIO m => HSTSPolicy -> m Bool
getHSTSPolicyIncludeSubdomains HSTSPolicy
s = IO Bool -> m Bool
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
$ HSTSPolicy -> (Ptr HSTSPolicy -> IO Bool) -> IO Bool
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr HSTSPolicy
s ((Ptr HSTSPolicy -> IO Bool) -> IO Bool)
-> (Ptr HSTSPolicy -> IO Bool) -> IO Bool
forall a b. (a -> b) -> a -> b
$ \Ptr HSTSPolicy
ptr -> do
CInt
val <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek (Ptr HSTSPolicy
ptr Ptr HSTSPolicy -> Int -> Ptr CInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) :: IO CInt
let val' :: Bool
val' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
val
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
val'
setHSTSPolicyIncludeSubdomains :: MonadIO m => HSTSPolicy -> Bool -> m ()
setHSTSPolicyIncludeSubdomains :: forall (m :: * -> *). MonadIO m => HSTSPolicy -> Bool -> m ()
setHSTSPolicyIncludeSubdomains HSTSPolicy
s Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ HSTSPolicy -> (Ptr HSTSPolicy -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr HSTSPolicy
s ((Ptr HSTSPolicy -> IO ()) -> IO ())
-> (Ptr HSTSPolicy -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr HSTSPolicy
ptr -> do
let val' :: CInt
val' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
val
Ptr CInt -> CInt -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr HSTSPolicy
ptr Ptr HSTSPolicy -> Int -> Ptr CInt
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
24) (CInt
val' :: CInt)
#if defined(ENABLE_OVERLOADING)
data HSTSPolicyIncludeSubdomainsFieldInfo
instance AttrInfo HSTSPolicyIncludeSubdomainsFieldInfo where
type AttrBaseTypeConstraint HSTSPolicyIncludeSubdomainsFieldInfo = (~) HSTSPolicy
type AttrAllowedOps HSTSPolicyIncludeSubdomainsFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint HSTSPolicyIncludeSubdomainsFieldInfo = (~) Bool
type AttrTransferTypeConstraint HSTSPolicyIncludeSubdomainsFieldInfo = (~)Bool
type AttrTransferType HSTSPolicyIncludeSubdomainsFieldInfo = Bool
type AttrGetType HSTSPolicyIncludeSubdomainsFieldInfo = Bool
type AttrLabel HSTSPolicyIncludeSubdomainsFieldInfo = "include_subdomains"
type AttrOrigin HSTSPolicyIncludeSubdomainsFieldInfo = HSTSPolicy
attrGet = getHSTSPolicyIncludeSubdomains
attrSet = setHSTSPolicyIncludeSubdomains
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Structs.HSTSPolicy.includeSubdomains"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-2.4.25/docs/GI-Soup-Structs-HSTSPolicy.html#g:attr:includeSubdomains"
})
hSTSPolicy_includeSubdomains :: AttrLabelProxy "includeSubdomains"
hSTSPolicy_includeSubdomains = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList HSTSPolicy
type instance O.AttributeList HSTSPolicy = HSTSPolicyAttributeList
type HSTSPolicyAttributeList = ('[ '("domain", HSTSPolicyDomainFieldInfo), '("maxAge", HSTSPolicyMaxAgeFieldInfo), '("expires", HSTSPolicyExpiresFieldInfo), '("includeSubdomains", HSTSPolicyIncludeSubdomainsFieldInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "soup_hsts_policy_new" soup_hsts_policy_new ::
CString ->
CULong ->
CInt ->
IO (Ptr HSTSPolicy)
hSTSPolicyNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> CULong
-> Bool
-> m HSTSPolicy
hSTSPolicyNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Text -> CULong -> Bool -> m HSTSPolicy
hSTSPolicyNew Text
domain CULong
maxAge Bool
includeSubdomains = IO HSTSPolicy -> m HSTSPolicy
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO HSTSPolicy -> m HSTSPolicy) -> IO HSTSPolicy -> m HSTSPolicy
forall a b. (a -> b) -> a -> b
$ do
CString
domain' <- Text -> IO CString
textToCString Text
domain
let includeSubdomains' :: CInt
includeSubdomains' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
includeSubdomains
Ptr HSTSPolicy
result <- CString -> CULong -> CInt -> IO (Ptr HSTSPolicy)
soup_hsts_policy_new CString
domain' CULong
maxAge CInt
includeSubdomains'
Text -> Ptr HSTSPolicy -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"hSTSPolicyNew" Ptr HSTSPolicy
result
HSTSPolicy
result' <- ((ManagedPtr HSTSPolicy -> HSTSPolicy)
-> Ptr HSTSPolicy -> IO HSTSPolicy
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr HSTSPolicy -> HSTSPolicy
HSTSPolicy) Ptr HSTSPolicy
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
domain'
HSTSPolicy -> IO HSTSPolicy
forall (m :: * -> *) a. Monad m => a -> m a
return HSTSPolicy
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "soup_hsts_policy_new_from_response" soup_hsts_policy_new_from_response ::
Ptr Soup.Message.Message ->
IO (Ptr HSTSPolicy)
hSTSPolicyNewFromResponse ::
(B.CallStack.HasCallStack, MonadIO m, Soup.Message.IsMessage a) =>
a
-> m (Maybe HSTSPolicy)
hSTSPolicyNewFromResponse :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsMessage a) =>
a -> m (Maybe HSTSPolicy)
hSTSPolicyNewFromResponse a
msg = IO (Maybe HSTSPolicy) -> m (Maybe HSTSPolicy)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe HSTSPolicy) -> m (Maybe HSTSPolicy))
-> IO (Maybe HSTSPolicy) -> m (Maybe HSTSPolicy)
forall a b. (a -> b) -> a -> b
$ do
Ptr Message
msg' <- a -> IO (Ptr Message)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
msg
Ptr HSTSPolicy
result <- Ptr Message -> IO (Ptr HSTSPolicy)
soup_hsts_policy_new_from_response Ptr Message
msg'
Maybe HSTSPolicy
maybeResult <- Ptr HSTSPolicy
-> (Ptr HSTSPolicy -> IO HSTSPolicy) -> IO (Maybe HSTSPolicy)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr HSTSPolicy
result ((Ptr HSTSPolicy -> IO HSTSPolicy) -> IO (Maybe HSTSPolicy))
-> (Ptr HSTSPolicy -> IO HSTSPolicy) -> IO (Maybe HSTSPolicy)
forall a b. (a -> b) -> a -> b
$ \Ptr HSTSPolicy
result' -> do
HSTSPolicy
result'' <- ((ManagedPtr HSTSPolicy -> HSTSPolicy)
-> Ptr HSTSPolicy -> IO HSTSPolicy
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr HSTSPolicy -> HSTSPolicy
HSTSPolicy) Ptr HSTSPolicy
result'
HSTSPolicy -> IO HSTSPolicy
forall (m :: * -> *) a. Monad m => a -> m a
return HSTSPolicy
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
msg
Maybe HSTSPolicy -> IO (Maybe HSTSPolicy)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe HSTSPolicy
maybeResult
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "soup_hsts_policy_new_full" soup_hsts_policy_new_full ::
CString ->
CULong ->
Ptr Soup.Date.Date ->
CInt ->
IO (Ptr HSTSPolicy)
hSTSPolicyNewFull ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> CULong
-> Soup.Date.Date
-> Bool
-> m HSTSPolicy
hSTSPolicyNewFull :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Text -> CULong -> Date -> Bool -> m HSTSPolicy
hSTSPolicyNewFull Text
domain CULong
maxAge Date
expires Bool
includeSubdomains = IO HSTSPolicy -> m HSTSPolicy
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO HSTSPolicy -> m HSTSPolicy) -> IO HSTSPolicy -> m HSTSPolicy
forall a b. (a -> b) -> a -> b
$ do
CString
domain' <- Text -> IO CString
textToCString Text
domain
Ptr Date
expires' <- Date -> IO (Ptr Date)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Date
expires
let includeSubdomains' :: CInt
includeSubdomains' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
includeSubdomains
Ptr HSTSPolicy
result <- CString -> CULong -> Ptr Date -> CInt -> IO (Ptr HSTSPolicy)
soup_hsts_policy_new_full CString
domain' CULong
maxAge Ptr Date
expires' CInt
includeSubdomains'
Text -> Ptr HSTSPolicy -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"hSTSPolicyNewFull" Ptr HSTSPolicy
result
HSTSPolicy
result' <- ((ManagedPtr HSTSPolicy -> HSTSPolicy)
-> Ptr HSTSPolicy -> IO HSTSPolicy
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr HSTSPolicy -> HSTSPolicy
HSTSPolicy) Ptr HSTSPolicy
result
Date -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Date
expires
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
domain'
HSTSPolicy -> IO HSTSPolicy
forall (m :: * -> *) a. Monad m => a -> m a
return HSTSPolicy
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "soup_hsts_policy_new_session_policy" soup_hsts_policy_new_session_policy ::
CString ->
CInt ->
IO (Ptr HSTSPolicy)
hSTSPolicyNewSessionPolicy ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> Bool
-> m HSTSPolicy
hSTSPolicyNewSessionPolicy :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Text -> Bool -> m HSTSPolicy
hSTSPolicyNewSessionPolicy Text
domain Bool
includeSubdomains = IO HSTSPolicy -> m HSTSPolicy
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO HSTSPolicy -> m HSTSPolicy) -> IO HSTSPolicy -> m HSTSPolicy
forall a b. (a -> b) -> a -> b
$ do
CString
domain' <- Text -> IO CString
textToCString Text
domain
let includeSubdomains' :: CInt
includeSubdomains' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
includeSubdomains
Ptr HSTSPolicy
result <- CString -> CInt -> IO (Ptr HSTSPolicy)
soup_hsts_policy_new_session_policy CString
domain' CInt
includeSubdomains'
Text -> Ptr HSTSPolicy -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"hSTSPolicyNewSessionPolicy" Ptr HSTSPolicy
result
HSTSPolicy
result' <- ((ManagedPtr HSTSPolicy -> HSTSPolicy)
-> Ptr HSTSPolicy -> IO HSTSPolicy
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr HSTSPolicy -> HSTSPolicy
HSTSPolicy) Ptr HSTSPolicy
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
domain'
HSTSPolicy -> IO HSTSPolicy
forall (m :: * -> *) a. Monad m => a -> m a
return HSTSPolicy
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "soup_hsts_policy_copy" soup_hsts_policy_copy ::
Ptr HSTSPolicy ->
IO (Ptr HSTSPolicy)
hSTSPolicyCopy ::
(B.CallStack.HasCallStack, MonadIO m) =>
HSTSPolicy
-> m HSTSPolicy
hSTSPolicyCopy :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
HSTSPolicy -> m HSTSPolicy
hSTSPolicyCopy HSTSPolicy
policy = IO HSTSPolicy -> m HSTSPolicy
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO HSTSPolicy -> m HSTSPolicy) -> IO HSTSPolicy -> m HSTSPolicy
forall a b. (a -> b) -> a -> b
$ do
Ptr HSTSPolicy
policy' <- HSTSPolicy -> IO (Ptr HSTSPolicy)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr HSTSPolicy
policy
Ptr HSTSPolicy
result <- Ptr HSTSPolicy -> IO (Ptr HSTSPolicy)
soup_hsts_policy_copy Ptr HSTSPolicy
policy'
Text -> Ptr HSTSPolicy -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"hSTSPolicyCopy" Ptr HSTSPolicy
result
HSTSPolicy
result' <- ((ManagedPtr HSTSPolicy -> HSTSPolicy)
-> Ptr HSTSPolicy -> IO HSTSPolicy
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr HSTSPolicy -> HSTSPolicy
HSTSPolicy) Ptr HSTSPolicy
result
HSTSPolicy -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr HSTSPolicy
policy
HSTSPolicy -> IO HSTSPolicy
forall (m :: * -> *) a. Monad m => a -> m a
return HSTSPolicy
result'
#if defined(ENABLE_OVERLOADING)
data HSTSPolicyCopyMethodInfo
instance (signature ~ (m HSTSPolicy), MonadIO m) => O.OverloadedMethod HSTSPolicyCopyMethodInfo HSTSPolicy signature where
overloadedMethod = hSTSPolicyCopy
instance O.OverloadedMethodInfo HSTSPolicyCopyMethodInfo HSTSPolicy where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Structs.HSTSPolicy.hSTSPolicyCopy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-2.4.25/docs/GI-Soup-Structs-HSTSPolicy.html#v:hSTSPolicyCopy"
})
#endif
foreign import ccall "soup_hsts_policy_equal" soup_hsts_policy_equal ::
Ptr HSTSPolicy ->
Ptr HSTSPolicy ->
IO CInt
hSTSPolicyEqual ::
(B.CallStack.HasCallStack, MonadIO m) =>
HSTSPolicy
-> HSTSPolicy
-> m Bool
hSTSPolicyEqual :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
HSTSPolicy -> HSTSPolicy -> m Bool
hSTSPolicyEqual HSTSPolicy
policy1 HSTSPolicy
policy2 = IO Bool -> m Bool
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 HSTSPolicy
policy1' <- HSTSPolicy -> IO (Ptr HSTSPolicy)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr HSTSPolicy
policy1
Ptr HSTSPolicy
policy2' <- HSTSPolicy -> IO (Ptr HSTSPolicy)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr HSTSPolicy
policy2
CInt
result <- Ptr HSTSPolicy -> Ptr HSTSPolicy -> IO CInt
soup_hsts_policy_equal Ptr HSTSPolicy
policy1' Ptr HSTSPolicy
policy2'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
HSTSPolicy -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr HSTSPolicy
policy1
HSTSPolicy -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr HSTSPolicy
policy2
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data HSTSPolicyEqualMethodInfo
instance (signature ~ (HSTSPolicy -> m Bool), MonadIO m) => O.OverloadedMethod HSTSPolicyEqualMethodInfo HSTSPolicy signature where
overloadedMethod = hSTSPolicyEqual
instance O.OverloadedMethodInfo HSTSPolicyEqualMethodInfo HSTSPolicy where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Structs.HSTSPolicy.hSTSPolicyEqual",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-2.4.25/docs/GI-Soup-Structs-HSTSPolicy.html#v:hSTSPolicyEqual"
})
#endif
foreign import ccall "soup_hsts_policy_free" soup_hsts_policy_free ::
Ptr HSTSPolicy ->
IO ()
hSTSPolicyFree ::
(B.CallStack.HasCallStack, MonadIO m) =>
HSTSPolicy
-> m ()
hSTSPolicyFree :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
HSTSPolicy -> m ()
hSTSPolicyFree HSTSPolicy
policy = 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 HSTSPolicy
policy' <- HSTSPolicy -> IO (Ptr HSTSPolicy)
forall a. (HasCallStack, GBoxed a) => a -> IO (Ptr a)
B.ManagedPtr.disownBoxed HSTSPolicy
policy
Ptr HSTSPolicy -> IO ()
soup_hsts_policy_free Ptr HSTSPolicy
policy'
HSTSPolicy -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr HSTSPolicy
policy
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data HSTSPolicyFreeMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.OverloadedMethod HSTSPolicyFreeMethodInfo HSTSPolicy signature where
overloadedMethod = hSTSPolicyFree
instance O.OverloadedMethodInfo HSTSPolicyFreeMethodInfo HSTSPolicy where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Structs.HSTSPolicy.hSTSPolicyFree",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-2.4.25/docs/GI-Soup-Structs-HSTSPolicy.html#v:hSTSPolicyFree"
})
#endif
foreign import ccall "soup_hsts_policy_get_domain" soup_hsts_policy_get_domain ::
Ptr HSTSPolicy ->
IO CString
hSTSPolicyGetDomain ::
(B.CallStack.HasCallStack, MonadIO m) =>
HSTSPolicy
-> m T.Text
hSTSPolicyGetDomain :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
HSTSPolicy -> m Text
hSTSPolicyGetDomain HSTSPolicy
policy = IO Text -> m Text
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 HSTSPolicy
policy' <- HSTSPolicy -> IO (Ptr HSTSPolicy)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr HSTSPolicy
policy
CString
result <- Ptr HSTSPolicy -> IO CString
soup_hsts_policy_get_domain Ptr HSTSPolicy
policy'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"hSTSPolicyGetDomain" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
HSTSPolicy -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr HSTSPolicy
policy
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data HSTSPolicyGetDomainMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.OverloadedMethod HSTSPolicyGetDomainMethodInfo HSTSPolicy signature where
overloadedMethod = hSTSPolicyGetDomain
instance O.OverloadedMethodInfo HSTSPolicyGetDomainMethodInfo HSTSPolicy where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Structs.HSTSPolicy.hSTSPolicyGetDomain",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-2.4.25/docs/GI-Soup-Structs-HSTSPolicy.html#v:hSTSPolicyGetDomain"
})
#endif
foreign import ccall "soup_hsts_policy_includes_subdomains" soup_hsts_policy_includes_subdomains ::
Ptr HSTSPolicy ->
IO CInt
hSTSPolicyIncludesSubdomains ::
(B.CallStack.HasCallStack, MonadIO m) =>
HSTSPolicy
-> m Bool
hSTSPolicyIncludesSubdomains :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
HSTSPolicy -> m Bool
hSTSPolicyIncludesSubdomains HSTSPolicy
policy = IO Bool -> m Bool
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 HSTSPolicy
policy' <- HSTSPolicy -> IO (Ptr HSTSPolicy)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr HSTSPolicy
policy
CInt
result <- Ptr HSTSPolicy -> IO CInt
soup_hsts_policy_includes_subdomains Ptr HSTSPolicy
policy'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
HSTSPolicy -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr HSTSPolicy
policy
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data HSTSPolicyIncludesSubdomainsMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod HSTSPolicyIncludesSubdomainsMethodInfo HSTSPolicy signature where
overloadedMethod = hSTSPolicyIncludesSubdomains
instance O.OverloadedMethodInfo HSTSPolicyIncludesSubdomainsMethodInfo HSTSPolicy where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Structs.HSTSPolicy.hSTSPolicyIncludesSubdomains",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-2.4.25/docs/GI-Soup-Structs-HSTSPolicy.html#v:hSTSPolicyIncludesSubdomains"
})
#endif
foreign import ccall "soup_hsts_policy_is_expired" soup_hsts_policy_is_expired ::
Ptr HSTSPolicy ->
IO CInt
hSTSPolicyIsExpired ::
(B.CallStack.HasCallStack, MonadIO m) =>
HSTSPolicy
-> m Bool
hSTSPolicyIsExpired :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
HSTSPolicy -> m Bool
hSTSPolicyIsExpired HSTSPolicy
policy = IO Bool -> m Bool
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 HSTSPolicy
policy' <- HSTSPolicy -> IO (Ptr HSTSPolicy)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr HSTSPolicy
policy
CInt
result <- Ptr HSTSPolicy -> IO CInt
soup_hsts_policy_is_expired Ptr HSTSPolicy
policy'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
HSTSPolicy -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr HSTSPolicy
policy
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data HSTSPolicyIsExpiredMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod HSTSPolicyIsExpiredMethodInfo HSTSPolicy signature where
overloadedMethod = hSTSPolicyIsExpired
instance O.OverloadedMethodInfo HSTSPolicyIsExpiredMethodInfo HSTSPolicy where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Structs.HSTSPolicy.hSTSPolicyIsExpired",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-2.4.25/docs/GI-Soup-Structs-HSTSPolicy.html#v:hSTSPolicyIsExpired"
})
#endif
foreign import ccall "soup_hsts_policy_is_session_policy" soup_hsts_policy_is_session_policy ::
Ptr HSTSPolicy ->
IO CInt
hSTSPolicyIsSessionPolicy ::
(B.CallStack.HasCallStack, MonadIO m) =>
HSTSPolicy
-> m Bool
hSTSPolicyIsSessionPolicy :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
HSTSPolicy -> m Bool
hSTSPolicyIsSessionPolicy HSTSPolicy
policy = IO Bool -> m Bool
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 HSTSPolicy
policy' <- HSTSPolicy -> IO (Ptr HSTSPolicy)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr HSTSPolicy
policy
CInt
result <- Ptr HSTSPolicy -> IO CInt
soup_hsts_policy_is_session_policy Ptr HSTSPolicy
policy'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
HSTSPolicy -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr HSTSPolicy
policy
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data HSTSPolicyIsSessionPolicyMethodInfo
instance (signature ~ (m Bool), MonadIO m) => O.OverloadedMethod HSTSPolicyIsSessionPolicyMethodInfo HSTSPolicy signature where
overloadedMethod = hSTSPolicyIsSessionPolicy
instance O.OverloadedMethodInfo HSTSPolicyIsSessionPolicyMethodInfo HSTSPolicy where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Soup.Structs.HSTSPolicy.hSTSPolicyIsSessionPolicy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-soup-2.4.25/docs/GI-Soup-Structs-HSTSPolicy.html#v:hSTSPolicyIsSessionPolicy"
})
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveHSTSPolicyMethod (t :: Symbol) (o :: *) :: * where
ResolveHSTSPolicyMethod "copy" o = HSTSPolicyCopyMethodInfo
ResolveHSTSPolicyMethod "equal" o = HSTSPolicyEqualMethodInfo
ResolveHSTSPolicyMethod "free" o = HSTSPolicyFreeMethodInfo
ResolveHSTSPolicyMethod "includesSubdomains" o = HSTSPolicyIncludesSubdomainsMethodInfo
ResolveHSTSPolicyMethod "isExpired" o = HSTSPolicyIsExpiredMethodInfo
ResolveHSTSPolicyMethod "isSessionPolicy" o = HSTSPolicyIsSessionPolicyMethodInfo
ResolveHSTSPolicyMethod "getDomain" o = HSTSPolicyGetDomainMethodInfo
ResolveHSTSPolicyMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveHSTSPolicyMethod t HSTSPolicy, O.OverloadedMethod info HSTSPolicy p) => OL.IsLabel t (HSTSPolicy -> 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 ~ ResolveHSTSPolicyMethod t HSTSPolicy, O.OverloadedMethod info HSTSPolicy p, R.HasField t HSTSPolicy p) => R.HasField t HSTSPolicy p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveHSTSPolicyMethod t HSTSPolicy, O.OverloadedMethodInfo info HSTSPolicy) => OL.IsLabel t (O.MethodProxy info HSTSPolicy) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif