{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit.Structs.SecurityOrigin
(
SecurityOrigin(..) ,
#if defined(ENABLE_OVERLOADING)
ResolveSecurityOriginMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
SecurityOriginGetHostMethodInfo ,
#endif
securityOriginGetHost ,
#if defined(ENABLE_OVERLOADING)
SecurityOriginGetPortMethodInfo ,
#endif
securityOriginGetPort ,
#if defined(ENABLE_OVERLOADING)
SecurityOriginGetProtocolMethodInfo ,
#endif
securityOriginGetProtocol ,
securityOriginNew ,
securityOriginNewForUri ,
#if defined(ENABLE_OVERLOADING)
SecurityOriginRefMethodInfo ,
#endif
securityOriginRef ,
#if defined(ENABLE_OVERLOADING)
SecurityOriginToStringMethodInfo ,
#endif
securityOriginToString ,
#if defined(ENABLE_OVERLOADING)
SecurityOriginUnrefMethodInfo ,
#endif
securityOriginUnref ,
) 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
newtype SecurityOrigin = SecurityOrigin (SP.ManagedPtr SecurityOrigin)
deriving (SecurityOrigin -> SecurityOrigin -> Bool
(SecurityOrigin -> SecurityOrigin -> Bool)
-> (SecurityOrigin -> SecurityOrigin -> Bool) -> Eq SecurityOrigin
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SecurityOrigin -> SecurityOrigin -> Bool
== :: SecurityOrigin -> SecurityOrigin -> Bool
$c/= :: SecurityOrigin -> SecurityOrigin -> Bool
/= :: SecurityOrigin -> SecurityOrigin -> Bool
Eq)
instance SP.ManagedPtrNewtype SecurityOrigin where
toManagedPtr :: SecurityOrigin -> ManagedPtr SecurityOrigin
toManagedPtr (SecurityOrigin ManagedPtr SecurityOrigin
p) = ManagedPtr SecurityOrigin
p
foreign import ccall "webkit_security_origin_get_type" c_webkit_security_origin_get_type ::
IO GType
type instance O.ParentTypes SecurityOrigin = '[]
instance O.HasParentTypes SecurityOrigin
instance B.Types.TypedObject SecurityOrigin where
glibType :: IO GType
glibType = IO GType
c_webkit_security_origin_get_type
instance B.Types.GBoxed SecurityOrigin
instance B.GValue.IsGValue (Maybe SecurityOrigin) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_security_origin_get_type
gvalueSet_ :: Ptr GValue -> Maybe SecurityOrigin -> IO ()
gvalueSet_ Ptr GValue
gv Maybe SecurityOrigin
P.Nothing = Ptr GValue -> Ptr SecurityOrigin -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv (Ptr SecurityOrigin
forall a. Ptr a
FP.nullPtr :: FP.Ptr SecurityOrigin)
gvalueSet_ Ptr GValue
gv (P.Just SecurityOrigin
obj) = SecurityOrigin -> (Ptr SecurityOrigin -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr SecurityOrigin
obj (Ptr GValue -> Ptr SecurityOrigin -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe SecurityOrigin)
gvalueGet_ Ptr GValue
gv = do
Ptr SecurityOrigin
ptr <- Ptr GValue -> IO (Ptr SecurityOrigin)
forall b. Ptr GValue -> IO (Ptr b)
B.GValue.get_boxed Ptr GValue
gv :: IO (Ptr SecurityOrigin)
if Ptr SecurityOrigin
ptr Ptr SecurityOrigin -> Ptr SecurityOrigin -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr SecurityOrigin
forall a. Ptr a
FP.nullPtr
then SecurityOrigin -> Maybe SecurityOrigin
forall a. a -> Maybe a
P.Just (SecurityOrigin -> Maybe SecurityOrigin)
-> IO SecurityOrigin -> IO (Maybe SecurityOrigin)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr SecurityOrigin -> SecurityOrigin)
-> Ptr SecurityOrigin -> IO SecurityOrigin
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.newBoxed ManagedPtr SecurityOrigin -> SecurityOrigin
SecurityOrigin Ptr SecurityOrigin
ptr
else Maybe SecurityOrigin -> IO (Maybe SecurityOrigin)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe SecurityOrigin
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList SecurityOrigin
type instance O.AttributeList SecurityOrigin = SecurityOriginAttributeList
type SecurityOriginAttributeList = ('[ ] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "webkit_security_origin_new" webkit_security_origin_new ::
CString ->
CString ->
Word16 ->
IO (Ptr SecurityOrigin)
securityOriginNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> T.Text
-> Word16
-> m SecurityOrigin
securityOriginNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Text -> Text -> Word16 -> m SecurityOrigin
securityOriginNew Text
protocol Text
host Word16
port = IO SecurityOrigin -> m SecurityOrigin
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SecurityOrigin -> m SecurityOrigin)
-> IO SecurityOrigin -> m SecurityOrigin
forall a b. (a -> b) -> a -> b
$ do
CString
protocol' <- Text -> IO CString
textToCString Text
protocol
CString
host' <- Text -> IO CString
textToCString Text
host
Ptr SecurityOrigin
result <- CString -> CString -> Word16 -> IO (Ptr SecurityOrigin)
webkit_security_origin_new CString
protocol' CString
host' Word16
port
Text -> Ptr SecurityOrigin -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"securityOriginNew" Ptr SecurityOrigin
result
SecurityOrigin
result' <- ((ManagedPtr SecurityOrigin -> SecurityOrigin)
-> Ptr SecurityOrigin -> IO SecurityOrigin
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr SecurityOrigin -> SecurityOrigin
SecurityOrigin) Ptr SecurityOrigin
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
protocol'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
host'
SecurityOrigin -> IO SecurityOrigin
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return SecurityOrigin
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "webkit_security_origin_new_for_uri" webkit_security_origin_new_for_uri ::
CString ->
IO (Ptr SecurityOrigin)
securityOriginNewForUri ::
(B.CallStack.HasCallStack, MonadIO m) =>
T.Text
-> m SecurityOrigin
securityOriginNewForUri :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Text -> m SecurityOrigin
securityOriginNewForUri Text
uri = IO SecurityOrigin -> m SecurityOrigin
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SecurityOrigin -> m SecurityOrigin)
-> IO SecurityOrigin -> m SecurityOrigin
forall a b. (a -> b) -> a -> b
$ do
CString
uri' <- Text -> IO CString
textToCString Text
uri
Ptr SecurityOrigin
result <- CString -> IO (Ptr SecurityOrigin)
webkit_security_origin_new_for_uri CString
uri'
Text -> Ptr SecurityOrigin -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"securityOriginNewForUri" Ptr SecurityOrigin
result
SecurityOrigin
result' <- ((ManagedPtr SecurityOrigin -> SecurityOrigin)
-> Ptr SecurityOrigin -> IO SecurityOrigin
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr SecurityOrigin -> SecurityOrigin
SecurityOrigin) Ptr SecurityOrigin
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
uri'
SecurityOrigin -> IO SecurityOrigin
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return SecurityOrigin
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "webkit_security_origin_get_host" webkit_security_origin_get_host ::
Ptr SecurityOrigin ->
IO CString
securityOriginGetHost ::
(B.CallStack.HasCallStack, MonadIO m) =>
SecurityOrigin
-> m (Maybe T.Text)
securityOriginGetHost :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SecurityOrigin -> m (Maybe Text)
securityOriginGetHost SecurityOrigin
origin = 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 SecurityOrigin
origin' <- SecurityOrigin -> IO (Ptr SecurityOrigin)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SecurityOrigin
origin
CString
result <- Ptr SecurityOrigin -> IO CString
webkit_security_origin_get_host Ptr SecurityOrigin
origin'
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''
SecurityOrigin -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SecurityOrigin
origin
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 SecurityOriginGetHostMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m) => O.OverloadedMethod SecurityOriginGetHostMethodInfo SecurityOrigin signature where
overloadedMethod = securityOriginGetHost
instance O.OverloadedMethodInfo SecurityOriginGetHostMethodInfo SecurityOrigin where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Structs.SecurityOrigin.securityOriginGetHost",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Structs-SecurityOrigin.html#v:securityOriginGetHost"
})
#endif
foreign import ccall "webkit_security_origin_get_port" webkit_security_origin_get_port ::
Ptr SecurityOrigin ->
IO Word16
securityOriginGetPort ::
(B.CallStack.HasCallStack, MonadIO m) =>
SecurityOrigin
-> m Word16
securityOriginGetPort :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SecurityOrigin -> m Word16
securityOriginGetPort SecurityOrigin
origin = IO Word16 -> m Word16
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word16 -> m Word16) -> IO Word16 -> m Word16
forall a b. (a -> b) -> a -> b
$ do
Ptr SecurityOrigin
origin' <- SecurityOrigin -> IO (Ptr SecurityOrigin)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SecurityOrigin
origin
Word16
result <- Ptr SecurityOrigin -> IO Word16
webkit_security_origin_get_port Ptr SecurityOrigin
origin'
SecurityOrigin -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SecurityOrigin
origin
Word16 -> IO Word16
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word16
result
#if defined(ENABLE_OVERLOADING)
data SecurityOriginGetPortMethodInfo
instance (signature ~ (m Word16), MonadIO m) => O.OverloadedMethod SecurityOriginGetPortMethodInfo SecurityOrigin signature where
overloadedMethod = securityOriginGetPort
instance O.OverloadedMethodInfo SecurityOriginGetPortMethodInfo SecurityOrigin where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Structs.SecurityOrigin.securityOriginGetPort",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Structs-SecurityOrigin.html#v:securityOriginGetPort"
})
#endif
foreign import ccall "webkit_security_origin_get_protocol" webkit_security_origin_get_protocol ::
Ptr SecurityOrigin ->
IO CString
securityOriginGetProtocol ::
(B.CallStack.HasCallStack, MonadIO m) =>
SecurityOrigin
-> m (Maybe T.Text)
securityOriginGetProtocol :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SecurityOrigin -> m (Maybe Text)
securityOriginGetProtocol SecurityOrigin
origin = 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 SecurityOrigin
origin' <- SecurityOrigin -> IO (Ptr SecurityOrigin)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SecurityOrigin
origin
CString
result <- Ptr SecurityOrigin -> IO CString
webkit_security_origin_get_protocol Ptr SecurityOrigin
origin'
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''
SecurityOrigin -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SecurityOrigin
origin
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 SecurityOriginGetProtocolMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m) => O.OverloadedMethod SecurityOriginGetProtocolMethodInfo SecurityOrigin signature where
overloadedMethod = securityOriginGetProtocol
instance O.OverloadedMethodInfo SecurityOriginGetProtocolMethodInfo SecurityOrigin where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Structs.SecurityOrigin.securityOriginGetProtocol",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Structs-SecurityOrigin.html#v:securityOriginGetProtocol"
})
#endif
foreign import ccall "webkit_security_origin_ref" webkit_security_origin_ref ::
Ptr SecurityOrigin ->
IO (Ptr SecurityOrigin)
securityOriginRef ::
(B.CallStack.HasCallStack, MonadIO m) =>
SecurityOrigin
-> m SecurityOrigin
securityOriginRef :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SecurityOrigin -> m SecurityOrigin
securityOriginRef SecurityOrigin
origin = IO SecurityOrigin -> m SecurityOrigin
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SecurityOrigin -> m SecurityOrigin)
-> IO SecurityOrigin -> m SecurityOrigin
forall a b. (a -> b) -> a -> b
$ do
Ptr SecurityOrigin
origin' <- SecurityOrigin -> IO (Ptr SecurityOrigin)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SecurityOrigin
origin
Ptr SecurityOrigin
result <- Ptr SecurityOrigin -> IO (Ptr SecurityOrigin)
webkit_security_origin_ref Ptr SecurityOrigin
origin'
Text -> Ptr SecurityOrigin -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"securityOriginRef" Ptr SecurityOrigin
result
SecurityOrigin
result' <- ((ManagedPtr SecurityOrigin -> SecurityOrigin)
-> Ptr SecurityOrigin -> IO SecurityOrigin
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr SecurityOrigin -> SecurityOrigin
SecurityOrigin) Ptr SecurityOrigin
result
SecurityOrigin -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SecurityOrigin
origin
SecurityOrigin -> IO SecurityOrigin
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return SecurityOrigin
result'
#if defined(ENABLE_OVERLOADING)
data SecurityOriginRefMethodInfo
instance (signature ~ (m SecurityOrigin), MonadIO m) => O.OverloadedMethod SecurityOriginRefMethodInfo SecurityOrigin signature where
overloadedMethod = securityOriginRef
instance O.OverloadedMethodInfo SecurityOriginRefMethodInfo SecurityOrigin where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Structs.SecurityOrigin.securityOriginRef",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Structs-SecurityOrigin.html#v:securityOriginRef"
})
#endif
foreign import ccall "webkit_security_origin_to_string" webkit_security_origin_to_string ::
Ptr SecurityOrigin ->
IO CString
securityOriginToString ::
(B.CallStack.HasCallStack, MonadIO m) =>
SecurityOrigin
-> m (Maybe T.Text)
securityOriginToString :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SecurityOrigin -> m (Maybe Text)
securityOriginToString SecurityOrigin
origin = 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 SecurityOrigin
origin' <- SecurityOrigin -> IO (Ptr SecurityOrigin)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SecurityOrigin
origin
CString
result <- Ptr SecurityOrigin -> IO CString
webkit_security_origin_to_string Ptr SecurityOrigin
origin'
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'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
SecurityOrigin -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SecurityOrigin
origin
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 SecurityOriginToStringMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m) => O.OverloadedMethod SecurityOriginToStringMethodInfo SecurityOrigin signature where
overloadedMethod = securityOriginToString
instance O.OverloadedMethodInfo SecurityOriginToStringMethodInfo SecurityOrigin where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Structs.SecurityOrigin.securityOriginToString",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Structs-SecurityOrigin.html#v:securityOriginToString"
})
#endif
foreign import ccall "webkit_security_origin_unref" webkit_security_origin_unref ::
Ptr SecurityOrigin ->
IO ()
securityOriginUnref ::
(B.CallStack.HasCallStack, MonadIO m) =>
SecurityOrigin
-> m ()
securityOriginUnref :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
SecurityOrigin -> m ()
securityOriginUnref SecurityOrigin
origin = 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 SecurityOrigin
origin' <- SecurityOrigin -> IO (Ptr SecurityOrigin)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr SecurityOrigin
origin
Ptr SecurityOrigin -> IO ()
webkit_security_origin_unref Ptr SecurityOrigin
origin'
SecurityOrigin -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr SecurityOrigin
origin
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data SecurityOriginUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.OverloadedMethod SecurityOriginUnrefMethodInfo SecurityOrigin signature where
overloadedMethod = securityOriginUnref
instance O.OverloadedMethodInfo SecurityOriginUnrefMethodInfo SecurityOrigin where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit.Structs.SecurityOrigin.securityOriginUnref",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit-6.0.2/docs/GI-WebKit-Structs-SecurityOrigin.html#v:securityOriginUnref"
})
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveSecurityOriginMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveSecurityOriginMethod "ref" o = SecurityOriginRefMethodInfo
ResolveSecurityOriginMethod "toString" o = SecurityOriginToStringMethodInfo
ResolveSecurityOriginMethod "unref" o = SecurityOriginUnrefMethodInfo
ResolveSecurityOriginMethod "getHost" o = SecurityOriginGetHostMethodInfo
ResolveSecurityOriginMethod "getPort" o = SecurityOriginGetPortMethodInfo
ResolveSecurityOriginMethod "getProtocol" o = SecurityOriginGetProtocolMethodInfo
ResolveSecurityOriginMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveSecurityOriginMethod t SecurityOrigin, O.OverloadedMethod info SecurityOrigin p) => OL.IsLabel t (SecurityOrigin -> 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 ~ ResolveSecurityOriginMethod t SecurityOrigin, O.OverloadedMethod info SecurityOrigin p, R.HasField t SecurityOrigin p) => R.HasField t SecurityOrigin p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveSecurityOriginMethod t SecurityOrigin, O.OverloadedMethodInfo info SecurityOrigin) => OL.IsLabel t (O.MethodProxy info SecurityOrigin) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif