{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2.Objects.AuthenticationRequest
(
AuthenticationRequest(..) ,
IsAuthenticationRequest ,
toAuthenticationRequest ,
#if defined(ENABLE_OVERLOADING)
ResolveAuthenticationRequestMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
AuthenticationRequestAuthenticateMethodInfo,
#endif
authenticationRequestAuthenticate ,
#if defined(ENABLE_OVERLOADING)
AuthenticationRequestCanSaveCredentialsMethodInfo,
#endif
authenticationRequestCanSaveCredentials ,
#if defined(ENABLE_OVERLOADING)
AuthenticationRequestCancelMethodInfo ,
#endif
authenticationRequestCancel ,
#if defined(ENABLE_OVERLOADING)
AuthenticationRequestGetCertificatePinFlagsMethodInfo,
#endif
authenticationRequestGetCertificatePinFlags,
#if defined(ENABLE_OVERLOADING)
AuthenticationRequestGetHostMethodInfo ,
#endif
authenticationRequestGetHost ,
#if defined(ENABLE_OVERLOADING)
AuthenticationRequestGetPortMethodInfo ,
#endif
authenticationRequestGetPort ,
#if defined(ENABLE_OVERLOADING)
AuthenticationRequestGetProposedCredentialMethodInfo,
#endif
authenticationRequestGetProposedCredential,
#if defined(ENABLE_OVERLOADING)
AuthenticationRequestGetRealmMethodInfo ,
#endif
authenticationRequestGetRealm ,
#if defined(ENABLE_OVERLOADING)
AuthenticationRequestGetSchemeMethodInfo,
#endif
authenticationRequestGetScheme ,
#if defined(ENABLE_OVERLOADING)
AuthenticationRequestGetSecurityOriginMethodInfo,
#endif
authenticationRequestGetSecurityOrigin ,
#if defined(ENABLE_OVERLOADING)
AuthenticationRequestIsForProxyMethodInfo,
#endif
authenticationRequestIsForProxy ,
#if defined(ENABLE_OVERLOADING)
AuthenticationRequestIsRetryMethodInfo ,
#endif
authenticationRequestIsRetry ,
#if defined(ENABLE_OVERLOADING)
AuthenticationRequestSetCanSaveCredentialsMethodInfo,
#endif
authenticationRequestSetCanSaveCredentials,
#if defined(ENABLE_OVERLOADING)
AuthenticationRequestSetProposedCredentialMethodInfo,
#endif
authenticationRequestSetProposedCredential,
AuthenticationRequestAuthenticatedCallback,
#if defined(ENABLE_OVERLOADING)
AuthenticationRequestAuthenticatedSignalInfo,
#endif
afterAuthenticationRequestAuthenticated ,
onAuthenticationRequestAuthenticated ,
AuthenticationRequestCancelledCallback ,
#if defined(ENABLE_OVERLOADING)
AuthenticationRequestCancelledSignalInfo,
#endif
afterAuthenticationRequestCancelled ,
onAuthenticationRequestCancelled ,
) 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 qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Flags as Gio.Flags
import {-# SOURCE #-} qualified GI.WebKit2.Enums as WebKit2.Enums
import {-# SOURCE #-} qualified GI.WebKit2.Structs.Credential as WebKit2.Credential
import {-# SOURCE #-} qualified GI.WebKit2.Structs.SecurityOrigin as WebKit2.SecurityOrigin
newtype AuthenticationRequest = AuthenticationRequest (SP.ManagedPtr AuthenticationRequest)
deriving (AuthenticationRequest -> AuthenticationRequest -> Bool
(AuthenticationRequest -> AuthenticationRequest -> Bool)
-> (AuthenticationRequest -> AuthenticationRequest -> Bool)
-> Eq AuthenticationRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AuthenticationRequest -> AuthenticationRequest -> Bool
$c/= :: AuthenticationRequest -> AuthenticationRequest -> Bool
== :: AuthenticationRequest -> AuthenticationRequest -> Bool
$c== :: AuthenticationRequest -> AuthenticationRequest -> Bool
Eq)
instance SP.ManagedPtrNewtype AuthenticationRequest where
toManagedPtr :: AuthenticationRequest -> ManagedPtr AuthenticationRequest
toManagedPtr (AuthenticationRequest ManagedPtr AuthenticationRequest
p) = ManagedPtr AuthenticationRequest
p
foreign import ccall "webkit_authentication_request_get_type"
c_webkit_authentication_request_get_type :: IO B.Types.GType
instance B.Types.TypedObject AuthenticationRequest where
glibType :: IO GType
glibType = IO GType
c_webkit_authentication_request_get_type
instance B.Types.GObject AuthenticationRequest
class (SP.GObject o, O.IsDescendantOf AuthenticationRequest o) => IsAuthenticationRequest o
instance (SP.GObject o, O.IsDescendantOf AuthenticationRequest o) => IsAuthenticationRequest o
instance O.HasParentTypes AuthenticationRequest
type instance O.ParentTypes AuthenticationRequest = '[GObject.Object.Object]
toAuthenticationRequest :: (MIO.MonadIO m, IsAuthenticationRequest o) => o -> m AuthenticationRequest
toAuthenticationRequest :: forall (m :: * -> *) o.
(MonadIO m, IsAuthenticationRequest o) =>
o -> m AuthenticationRequest
toAuthenticationRequest = IO AuthenticationRequest -> m AuthenticationRequest
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO AuthenticationRequest -> m AuthenticationRequest)
-> (o -> IO AuthenticationRequest) -> o -> m AuthenticationRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr AuthenticationRequest -> AuthenticationRequest)
-> o -> IO AuthenticationRequest
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr AuthenticationRequest -> AuthenticationRequest
AuthenticationRequest
instance B.GValue.IsGValue (Maybe AuthenticationRequest) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_authentication_request_get_type
gvalueSet_ :: Ptr GValue -> Maybe AuthenticationRequest -> IO ()
gvalueSet_ Ptr GValue
gv Maybe AuthenticationRequest
P.Nothing = Ptr GValue -> Ptr AuthenticationRequest -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr AuthenticationRequest
forall a. Ptr a
FP.nullPtr :: FP.Ptr AuthenticationRequest)
gvalueSet_ Ptr GValue
gv (P.Just AuthenticationRequest
obj) = AuthenticationRequest
-> (Ptr AuthenticationRequest -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr AuthenticationRequest
obj (Ptr GValue -> Ptr AuthenticationRequest -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe AuthenticationRequest)
gvalueGet_ Ptr GValue
gv = do
Ptr AuthenticationRequest
ptr <- Ptr GValue -> IO (Ptr AuthenticationRequest)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr AuthenticationRequest)
if Ptr AuthenticationRequest
ptr Ptr AuthenticationRequest -> Ptr AuthenticationRequest -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr AuthenticationRequest
forall a. Ptr a
FP.nullPtr
then AuthenticationRequest -> Maybe AuthenticationRequest
forall a. a -> Maybe a
P.Just (AuthenticationRequest -> Maybe AuthenticationRequest)
-> IO AuthenticationRequest -> IO (Maybe AuthenticationRequest)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr AuthenticationRequest -> AuthenticationRequest)
-> Ptr AuthenticationRequest -> IO AuthenticationRequest
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr AuthenticationRequest -> AuthenticationRequest
AuthenticationRequest Ptr AuthenticationRequest
ptr
else Maybe AuthenticationRequest -> IO (Maybe AuthenticationRequest)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe AuthenticationRequest
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveAuthenticationRequestMethod (t :: Symbol) (o :: *) :: * where
ResolveAuthenticationRequestMethod "authenticate" o = AuthenticationRequestAuthenticateMethodInfo
ResolveAuthenticationRequestMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveAuthenticationRequestMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveAuthenticationRequestMethod "canSaveCredentials" o = AuthenticationRequestCanSaveCredentialsMethodInfo
ResolveAuthenticationRequestMethod "cancel" o = AuthenticationRequestCancelMethodInfo
ResolveAuthenticationRequestMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveAuthenticationRequestMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveAuthenticationRequestMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveAuthenticationRequestMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveAuthenticationRequestMethod "isForProxy" o = AuthenticationRequestIsForProxyMethodInfo
ResolveAuthenticationRequestMethod "isRetry" o = AuthenticationRequestIsRetryMethodInfo
ResolveAuthenticationRequestMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveAuthenticationRequestMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveAuthenticationRequestMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveAuthenticationRequestMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveAuthenticationRequestMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveAuthenticationRequestMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveAuthenticationRequestMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveAuthenticationRequestMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveAuthenticationRequestMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveAuthenticationRequestMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveAuthenticationRequestMethod "getCertificatePinFlags" o = AuthenticationRequestGetCertificatePinFlagsMethodInfo
ResolveAuthenticationRequestMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveAuthenticationRequestMethod "getHost" o = AuthenticationRequestGetHostMethodInfo
ResolveAuthenticationRequestMethod "getPort" o = AuthenticationRequestGetPortMethodInfo
ResolveAuthenticationRequestMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveAuthenticationRequestMethod "getProposedCredential" o = AuthenticationRequestGetProposedCredentialMethodInfo
ResolveAuthenticationRequestMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveAuthenticationRequestMethod "getRealm" o = AuthenticationRequestGetRealmMethodInfo
ResolveAuthenticationRequestMethod "getScheme" o = AuthenticationRequestGetSchemeMethodInfo
ResolveAuthenticationRequestMethod "getSecurityOrigin" o = AuthenticationRequestGetSecurityOriginMethodInfo
ResolveAuthenticationRequestMethod "setCanSaveCredentials" o = AuthenticationRequestSetCanSaveCredentialsMethodInfo
ResolveAuthenticationRequestMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveAuthenticationRequestMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveAuthenticationRequestMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveAuthenticationRequestMethod "setProposedCredential" o = AuthenticationRequestSetProposedCredentialMethodInfo
ResolveAuthenticationRequestMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveAuthenticationRequestMethod t AuthenticationRequest, O.OverloadedMethod info AuthenticationRequest p) => OL.IsLabel t (AuthenticationRequest -> 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 ~ ResolveAuthenticationRequestMethod t AuthenticationRequest, O.OverloadedMethod info AuthenticationRequest p, R.HasField t AuthenticationRequest p) => R.HasField t AuthenticationRequest p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveAuthenticationRequestMethod t AuthenticationRequest, O.OverloadedMethodInfo info AuthenticationRequest) => OL.IsLabel t (O.MethodProxy info AuthenticationRequest) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type AuthenticationRequestAuthenticatedCallback =
WebKit2.Credential.Credential
-> IO ()
type C_AuthenticationRequestAuthenticatedCallback =
Ptr AuthenticationRequest ->
Ptr WebKit2.Credential.Credential ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_AuthenticationRequestAuthenticatedCallback :: C_AuthenticationRequestAuthenticatedCallback -> IO (FunPtr C_AuthenticationRequestAuthenticatedCallback)
wrap_AuthenticationRequestAuthenticatedCallback ::
GObject a => (a -> AuthenticationRequestAuthenticatedCallback) ->
C_AuthenticationRequestAuthenticatedCallback
wrap_AuthenticationRequestAuthenticatedCallback :: forall a.
GObject a =>
(a -> AuthenticationRequestAuthenticatedCallback)
-> C_AuthenticationRequestAuthenticatedCallback
wrap_AuthenticationRequestAuthenticatedCallback a -> AuthenticationRequestAuthenticatedCallback
gi'cb Ptr AuthenticationRequest
gi'selfPtr Ptr Credential
credential Ptr ()
_ = do
Ptr Credential
-> AuthenticationRequestAuthenticatedCallback -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Credential
credential (AuthenticationRequestAuthenticatedCallback -> IO ())
-> AuthenticationRequestAuthenticatedCallback -> IO ()
forall a b. (a -> b) -> a -> b
$ \Credential
credential' -> do
Ptr AuthenticationRequest
-> (AuthenticationRequest -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr AuthenticationRequest
gi'selfPtr ((AuthenticationRequest -> IO ()) -> IO ())
-> (AuthenticationRequest -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \AuthenticationRequest
gi'self -> a -> AuthenticationRequestAuthenticatedCallback
gi'cb (AuthenticationRequest -> a
Coerce.coerce AuthenticationRequest
gi'self) Credential
credential'
onAuthenticationRequestAuthenticated :: (IsAuthenticationRequest a, MonadIO m) => a -> ((?self :: a) => AuthenticationRequestAuthenticatedCallback) -> m SignalHandlerId
onAuthenticationRequestAuthenticated :: forall a (m :: * -> *).
(IsAuthenticationRequest a, MonadIO m) =>
a
-> ((?self::a) => AuthenticationRequestAuthenticatedCallback)
-> m SignalHandlerId
onAuthenticationRequestAuthenticated a
obj (?self::a) => AuthenticationRequestAuthenticatedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> AuthenticationRequestAuthenticatedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => AuthenticationRequestAuthenticatedCallback
AuthenticationRequestAuthenticatedCallback
cb
let wrapped' :: C_AuthenticationRequestAuthenticatedCallback
wrapped' = (a -> AuthenticationRequestAuthenticatedCallback)
-> C_AuthenticationRequestAuthenticatedCallback
forall a.
GObject a =>
(a -> AuthenticationRequestAuthenticatedCallback)
-> C_AuthenticationRequestAuthenticatedCallback
wrap_AuthenticationRequestAuthenticatedCallback a -> AuthenticationRequestAuthenticatedCallback
wrapped
FunPtr C_AuthenticationRequestAuthenticatedCallback
wrapped'' <- C_AuthenticationRequestAuthenticatedCallback
-> IO (FunPtr C_AuthenticationRequestAuthenticatedCallback)
mk_AuthenticationRequestAuthenticatedCallback C_AuthenticationRequestAuthenticatedCallback
wrapped'
a
-> Text
-> FunPtr C_AuthenticationRequestAuthenticatedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"authenticated" FunPtr C_AuthenticationRequestAuthenticatedCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAuthenticationRequestAuthenticated :: (IsAuthenticationRequest a, MonadIO m) => a -> ((?self :: a) => AuthenticationRequestAuthenticatedCallback) -> m SignalHandlerId
afterAuthenticationRequestAuthenticated :: forall a (m :: * -> *).
(IsAuthenticationRequest a, MonadIO m) =>
a
-> ((?self::a) => AuthenticationRequestAuthenticatedCallback)
-> m SignalHandlerId
afterAuthenticationRequestAuthenticated a
obj (?self::a) => AuthenticationRequestAuthenticatedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> AuthenticationRequestAuthenticatedCallback
wrapped a
self = let ?self = a
?self::a
self in (?self::a) => AuthenticationRequestAuthenticatedCallback
AuthenticationRequestAuthenticatedCallback
cb
let wrapped' :: C_AuthenticationRequestAuthenticatedCallback
wrapped' = (a -> AuthenticationRequestAuthenticatedCallback)
-> C_AuthenticationRequestAuthenticatedCallback
forall a.
GObject a =>
(a -> AuthenticationRequestAuthenticatedCallback)
-> C_AuthenticationRequestAuthenticatedCallback
wrap_AuthenticationRequestAuthenticatedCallback a -> AuthenticationRequestAuthenticatedCallback
wrapped
FunPtr C_AuthenticationRequestAuthenticatedCallback
wrapped'' <- C_AuthenticationRequestAuthenticatedCallback
-> IO (FunPtr C_AuthenticationRequestAuthenticatedCallback)
mk_AuthenticationRequestAuthenticatedCallback C_AuthenticationRequestAuthenticatedCallback
wrapped'
a
-> Text
-> FunPtr C_AuthenticationRequestAuthenticatedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"authenticated" FunPtr C_AuthenticationRequestAuthenticatedCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data AuthenticationRequestAuthenticatedSignalInfo
instance SignalInfo AuthenticationRequestAuthenticatedSignalInfo where
type HaskellCallbackType AuthenticationRequestAuthenticatedSignalInfo = AuthenticationRequestAuthenticatedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_AuthenticationRequestAuthenticatedCallback cb
cb'' <- mk_AuthenticationRequestAuthenticatedCallback cb'
connectSignalFunPtr obj "authenticated" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.AuthenticationRequest::authenticated"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-AuthenticationRequest.html#g:signal:authenticated"})
#endif
type AuthenticationRequestCancelledCallback =
IO ()
type C_AuthenticationRequestCancelledCallback =
Ptr AuthenticationRequest ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_AuthenticationRequestCancelledCallback :: C_AuthenticationRequestCancelledCallback -> IO (FunPtr C_AuthenticationRequestCancelledCallback)
wrap_AuthenticationRequestCancelledCallback ::
GObject a => (a -> AuthenticationRequestCancelledCallback) ->
C_AuthenticationRequestCancelledCallback
wrap_AuthenticationRequestCancelledCallback :: forall a.
GObject a =>
(a -> IO ()) -> C_AuthenticationRequestCancelledCallback
wrap_AuthenticationRequestCancelledCallback a -> IO ()
gi'cb Ptr AuthenticationRequest
gi'selfPtr Ptr ()
_ = do
Ptr AuthenticationRequest
-> (AuthenticationRequest -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr AuthenticationRequest
gi'selfPtr ((AuthenticationRequest -> IO ()) -> IO ())
-> (AuthenticationRequest -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \AuthenticationRequest
gi'self -> a -> IO ()
gi'cb (AuthenticationRequest -> a
Coerce.coerce AuthenticationRequest
gi'self)
onAuthenticationRequestCancelled :: (IsAuthenticationRequest a, MonadIO m) => a -> ((?self :: a) => AuthenticationRequestCancelledCallback) -> m SignalHandlerId
onAuthenticationRequestCancelled :: forall a (m :: * -> *).
(IsAuthenticationRequest a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onAuthenticationRequestCancelled a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_AuthenticationRequestCancelledCallback
wrapped' = (a -> IO ()) -> C_AuthenticationRequestCancelledCallback
forall a.
GObject a =>
(a -> IO ()) -> C_AuthenticationRequestCancelledCallback
wrap_AuthenticationRequestCancelledCallback a -> IO ()
wrapped
FunPtr C_AuthenticationRequestCancelledCallback
wrapped'' <- C_AuthenticationRequestCancelledCallback
-> IO (FunPtr C_AuthenticationRequestCancelledCallback)
mk_AuthenticationRequestCancelledCallback C_AuthenticationRequestCancelledCallback
wrapped'
a
-> Text
-> FunPtr C_AuthenticationRequestCancelledCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"cancelled" FunPtr C_AuthenticationRequestCancelledCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterAuthenticationRequestCancelled :: (IsAuthenticationRequest a, MonadIO m) => a -> ((?self :: a) => AuthenticationRequestCancelledCallback) -> m SignalHandlerId
afterAuthenticationRequestCancelled :: forall a (m :: * -> *).
(IsAuthenticationRequest a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterAuthenticationRequestCancelled a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_AuthenticationRequestCancelledCallback
wrapped' = (a -> IO ()) -> C_AuthenticationRequestCancelledCallback
forall a.
GObject a =>
(a -> IO ()) -> C_AuthenticationRequestCancelledCallback
wrap_AuthenticationRequestCancelledCallback a -> IO ()
wrapped
FunPtr C_AuthenticationRequestCancelledCallback
wrapped'' <- C_AuthenticationRequestCancelledCallback
-> IO (FunPtr C_AuthenticationRequestCancelledCallback)
mk_AuthenticationRequestCancelledCallback C_AuthenticationRequestCancelledCallback
wrapped'
a
-> Text
-> FunPtr C_AuthenticationRequestCancelledCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"cancelled" FunPtr C_AuthenticationRequestCancelledCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data AuthenticationRequestCancelledSignalInfo
instance SignalInfo AuthenticationRequestCancelledSignalInfo where
type HaskellCallbackType AuthenticationRequestCancelledSignalInfo = AuthenticationRequestCancelledCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_AuthenticationRequestCancelledCallback cb
cb'' <- mk_AuthenticationRequestCancelledCallback cb'
connectSignalFunPtr obj "cancelled" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.AuthenticationRequest::cancelled"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-AuthenticationRequest.html#g:signal:cancelled"})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList AuthenticationRequest
type instance O.AttributeList AuthenticationRequest = AuthenticationRequestAttributeList
type AuthenticationRequestAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList AuthenticationRequest = AuthenticationRequestSignalList
type AuthenticationRequestSignalList = ('[ '("authenticated", AuthenticationRequestAuthenticatedSignalInfo), '("cancelled", AuthenticationRequestCancelledSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_authentication_request_authenticate" webkit_authentication_request_authenticate ::
Ptr AuthenticationRequest ->
Ptr WebKit2.Credential.Credential ->
IO ()
authenticationRequestAuthenticate ::
(B.CallStack.HasCallStack, MonadIO m, IsAuthenticationRequest a) =>
a
-> Maybe (WebKit2.Credential.Credential)
-> m ()
authenticationRequestAuthenticate :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAuthenticationRequest a) =>
a -> Maybe Credential -> m ()
authenticationRequestAuthenticate a
request Maybe Credential
credential = 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 AuthenticationRequest
request' <- a -> IO (Ptr AuthenticationRequest)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
request
Ptr Credential
maybeCredential <- case Maybe Credential
credential of
Maybe Credential
Nothing -> Ptr Credential -> IO (Ptr Credential)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Credential
forall a. Ptr a
nullPtr
Just Credential
jCredential -> do
Ptr Credential
jCredential' <- Credential -> IO (Ptr Credential)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Credential
jCredential
Ptr Credential -> IO (Ptr Credential)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Credential
jCredential'
Ptr AuthenticationRequest -> Ptr Credential -> IO ()
webkit_authentication_request_authenticate Ptr AuthenticationRequest
request' Ptr Credential
maybeCredential
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
request
Maybe Credential
-> AuthenticationRequestAuthenticatedCallback -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe Credential
credential AuthenticationRequestAuthenticatedCallback
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AuthenticationRequestAuthenticateMethodInfo
instance (signature ~ (Maybe (WebKit2.Credential.Credential) -> m ()), MonadIO m, IsAuthenticationRequest a) => O.OverloadedMethod AuthenticationRequestAuthenticateMethodInfo a signature where
overloadedMethod = authenticationRequestAuthenticate
instance O.OverloadedMethodInfo AuthenticationRequestAuthenticateMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.AuthenticationRequest.authenticationRequestAuthenticate",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-AuthenticationRequest.html#v:authenticationRequestAuthenticate"
})
#endif
foreign import ccall "webkit_authentication_request_can_save_credentials" webkit_authentication_request_can_save_credentials ::
Ptr AuthenticationRequest ->
IO CInt
authenticationRequestCanSaveCredentials ::
(B.CallStack.HasCallStack, MonadIO m, IsAuthenticationRequest a) =>
a
-> m Bool
authenticationRequestCanSaveCredentials :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAuthenticationRequest a) =>
a -> m Bool
authenticationRequestCanSaveCredentials a
request = 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 AuthenticationRequest
request' <- a -> IO (Ptr AuthenticationRequest)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
request
CInt
result <- Ptr AuthenticationRequest -> IO CInt
webkit_authentication_request_can_save_credentials Ptr AuthenticationRequest
request'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
request
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data AuthenticationRequestCanSaveCredentialsMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsAuthenticationRequest a) => O.OverloadedMethod AuthenticationRequestCanSaveCredentialsMethodInfo a signature where
overloadedMethod = authenticationRequestCanSaveCredentials
instance O.OverloadedMethodInfo AuthenticationRequestCanSaveCredentialsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.AuthenticationRequest.authenticationRequestCanSaveCredentials",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-AuthenticationRequest.html#v:authenticationRequestCanSaveCredentials"
})
#endif
foreign import ccall "webkit_authentication_request_cancel" webkit_authentication_request_cancel ::
Ptr AuthenticationRequest ->
IO ()
authenticationRequestCancel ::
(B.CallStack.HasCallStack, MonadIO m, IsAuthenticationRequest a) =>
a
-> m ()
authenticationRequestCancel :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAuthenticationRequest a) =>
a -> m ()
authenticationRequestCancel a
request = 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 AuthenticationRequest
request' <- a -> IO (Ptr AuthenticationRequest)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
request
Ptr AuthenticationRequest -> IO ()
webkit_authentication_request_cancel Ptr AuthenticationRequest
request'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
request
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AuthenticationRequestCancelMethodInfo
instance (signature ~ (m ()), MonadIO m, IsAuthenticationRequest a) => O.OverloadedMethod AuthenticationRequestCancelMethodInfo a signature where
overloadedMethod = authenticationRequestCancel
instance O.OverloadedMethodInfo AuthenticationRequestCancelMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.AuthenticationRequest.authenticationRequestCancel",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-AuthenticationRequest.html#v:authenticationRequestCancel"
})
#endif
foreign import ccall "webkit_authentication_request_get_certificate_pin_flags" webkit_authentication_request_get_certificate_pin_flags ::
Ptr AuthenticationRequest ->
IO CUInt
authenticationRequestGetCertificatePinFlags ::
(B.CallStack.HasCallStack, MonadIO m, IsAuthenticationRequest a) =>
a
-> m [Gio.Flags.TlsPasswordFlags]
authenticationRequestGetCertificatePinFlags :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAuthenticationRequest a) =>
a -> m [TlsPasswordFlags]
authenticationRequestGetCertificatePinFlags a
request = IO [TlsPasswordFlags] -> m [TlsPasswordFlags]
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [TlsPasswordFlags] -> m [TlsPasswordFlags])
-> IO [TlsPasswordFlags] -> m [TlsPasswordFlags]
forall a b. (a -> b) -> a -> b
$ do
Ptr AuthenticationRequest
request' <- a -> IO (Ptr AuthenticationRequest)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
request
CUInt
result <- Ptr AuthenticationRequest -> IO CUInt
webkit_authentication_request_get_certificate_pin_flags Ptr AuthenticationRequest
request'
let result' :: [TlsPasswordFlags]
result' = CUInt -> [TlsPasswordFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
request
[TlsPasswordFlags] -> IO [TlsPasswordFlags]
forall (m :: * -> *) a. Monad m => a -> m a
return [TlsPasswordFlags]
result'
#if defined(ENABLE_OVERLOADING)
data AuthenticationRequestGetCertificatePinFlagsMethodInfo
instance (signature ~ (m [Gio.Flags.TlsPasswordFlags]), MonadIO m, IsAuthenticationRequest a) => O.OverloadedMethod AuthenticationRequestGetCertificatePinFlagsMethodInfo a signature where
overloadedMethod = authenticationRequestGetCertificatePinFlags
instance O.OverloadedMethodInfo AuthenticationRequestGetCertificatePinFlagsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.AuthenticationRequest.authenticationRequestGetCertificatePinFlags",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-AuthenticationRequest.html#v:authenticationRequestGetCertificatePinFlags"
})
#endif
foreign import ccall "webkit_authentication_request_get_host" webkit_authentication_request_get_host ::
Ptr AuthenticationRequest ->
IO CString
authenticationRequestGetHost ::
(B.CallStack.HasCallStack, MonadIO m, IsAuthenticationRequest a) =>
a
-> m T.Text
authenticationRequestGetHost :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAuthenticationRequest a) =>
a -> m Text
authenticationRequestGetHost a
request = 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 AuthenticationRequest
request' <- a -> IO (Ptr AuthenticationRequest)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
request
CString
result <- Ptr AuthenticationRequest -> IO CString
webkit_authentication_request_get_host Ptr AuthenticationRequest
request'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"authenticationRequestGetHost" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
request
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data AuthenticationRequestGetHostMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsAuthenticationRequest a) => O.OverloadedMethod AuthenticationRequestGetHostMethodInfo a signature where
overloadedMethod = authenticationRequestGetHost
instance O.OverloadedMethodInfo AuthenticationRequestGetHostMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.AuthenticationRequest.authenticationRequestGetHost",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-AuthenticationRequest.html#v:authenticationRequestGetHost"
})
#endif
foreign import ccall "webkit_authentication_request_get_port" webkit_authentication_request_get_port ::
Ptr AuthenticationRequest ->
IO Word32
authenticationRequestGetPort ::
(B.CallStack.HasCallStack, MonadIO m, IsAuthenticationRequest a) =>
a
-> m Word32
authenticationRequestGetPort :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAuthenticationRequest a) =>
a -> m Word32
authenticationRequestGetPort a
request = 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 AuthenticationRequest
request' <- a -> IO (Ptr AuthenticationRequest)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
request
Word32
result <- Ptr AuthenticationRequest -> IO Word32
webkit_authentication_request_get_port Ptr AuthenticationRequest
request'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
request
Word32 -> IO Word32
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data AuthenticationRequestGetPortMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsAuthenticationRequest a) => O.OverloadedMethod AuthenticationRequestGetPortMethodInfo a signature where
overloadedMethod = authenticationRequestGetPort
instance O.OverloadedMethodInfo AuthenticationRequestGetPortMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.AuthenticationRequest.authenticationRequestGetPort",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-AuthenticationRequest.html#v:authenticationRequestGetPort"
})
#endif
foreign import ccall "webkit_authentication_request_get_proposed_credential" webkit_authentication_request_get_proposed_credential ::
Ptr AuthenticationRequest ->
IO (Ptr WebKit2.Credential.Credential)
authenticationRequestGetProposedCredential ::
(B.CallStack.HasCallStack, MonadIO m, IsAuthenticationRequest a) =>
a
-> m WebKit2.Credential.Credential
authenticationRequestGetProposedCredential :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAuthenticationRequest a) =>
a -> m Credential
authenticationRequestGetProposedCredential a
request = IO Credential -> m Credential
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Credential -> m Credential) -> IO Credential -> m Credential
forall a b. (a -> b) -> a -> b
$ do
Ptr AuthenticationRequest
request' <- a -> IO (Ptr AuthenticationRequest)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
request
Ptr Credential
result <- Ptr AuthenticationRequest -> IO (Ptr Credential)
webkit_authentication_request_get_proposed_credential Ptr AuthenticationRequest
request'
Text -> Ptr Credential -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"authenticationRequestGetProposedCredential" Ptr Credential
result
Credential
result' <- ((ManagedPtr Credential -> Credential)
-> Ptr Credential -> IO Credential
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Credential -> Credential
WebKit2.Credential.Credential) Ptr Credential
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
request
Credential -> IO Credential
forall (m :: * -> *) a. Monad m => a -> m a
return Credential
result'
#if defined(ENABLE_OVERLOADING)
data AuthenticationRequestGetProposedCredentialMethodInfo
instance (signature ~ (m WebKit2.Credential.Credential), MonadIO m, IsAuthenticationRequest a) => O.OverloadedMethod AuthenticationRequestGetProposedCredentialMethodInfo a signature where
overloadedMethod = authenticationRequestGetProposedCredential
instance O.OverloadedMethodInfo AuthenticationRequestGetProposedCredentialMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.AuthenticationRequest.authenticationRequestGetProposedCredential",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-AuthenticationRequest.html#v:authenticationRequestGetProposedCredential"
})
#endif
foreign import ccall "webkit_authentication_request_get_realm" webkit_authentication_request_get_realm ::
Ptr AuthenticationRequest ->
IO CString
authenticationRequestGetRealm ::
(B.CallStack.HasCallStack, MonadIO m, IsAuthenticationRequest a) =>
a
-> m T.Text
authenticationRequestGetRealm :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAuthenticationRequest a) =>
a -> m Text
authenticationRequestGetRealm a
request = 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 AuthenticationRequest
request' <- a -> IO (Ptr AuthenticationRequest)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
request
CString
result <- Ptr AuthenticationRequest -> IO CString
webkit_authentication_request_get_realm Ptr AuthenticationRequest
request'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"authenticationRequestGetRealm" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
request
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data AuthenticationRequestGetRealmMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsAuthenticationRequest a) => O.OverloadedMethod AuthenticationRequestGetRealmMethodInfo a signature where
overloadedMethod = authenticationRequestGetRealm
instance O.OverloadedMethodInfo AuthenticationRequestGetRealmMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.AuthenticationRequest.authenticationRequestGetRealm",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-AuthenticationRequest.html#v:authenticationRequestGetRealm"
})
#endif
foreign import ccall "webkit_authentication_request_get_scheme" webkit_authentication_request_get_scheme ::
Ptr AuthenticationRequest ->
IO CUInt
authenticationRequestGetScheme ::
(B.CallStack.HasCallStack, MonadIO m, IsAuthenticationRequest a) =>
a
-> m WebKit2.Enums.AuthenticationScheme
authenticationRequestGetScheme :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAuthenticationRequest a) =>
a -> m AuthenticationScheme
authenticationRequestGetScheme a
request = IO AuthenticationScheme -> m AuthenticationScheme
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO AuthenticationScheme -> m AuthenticationScheme)
-> IO AuthenticationScheme -> m AuthenticationScheme
forall a b. (a -> b) -> a -> b
$ do
Ptr AuthenticationRequest
request' <- a -> IO (Ptr AuthenticationRequest)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
request
CUInt
result <- Ptr AuthenticationRequest -> IO CUInt
webkit_authentication_request_get_scheme Ptr AuthenticationRequest
request'
let result' :: AuthenticationScheme
result' = (Int -> AuthenticationScheme
forall a. Enum a => Int -> a
toEnum (Int -> AuthenticationScheme)
-> (CUInt -> Int) -> CUInt -> AuthenticationScheme
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
request
AuthenticationScheme -> IO AuthenticationScheme
forall (m :: * -> *) a. Monad m => a -> m a
return AuthenticationScheme
result'
#if defined(ENABLE_OVERLOADING)
data AuthenticationRequestGetSchemeMethodInfo
instance (signature ~ (m WebKit2.Enums.AuthenticationScheme), MonadIO m, IsAuthenticationRequest a) => O.OverloadedMethod AuthenticationRequestGetSchemeMethodInfo a signature where
overloadedMethod = authenticationRequestGetScheme
instance O.OverloadedMethodInfo AuthenticationRequestGetSchemeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.AuthenticationRequest.authenticationRequestGetScheme",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-AuthenticationRequest.html#v:authenticationRequestGetScheme"
})
#endif
foreign import ccall "webkit_authentication_request_get_security_origin" webkit_authentication_request_get_security_origin ::
Ptr AuthenticationRequest ->
IO (Ptr WebKit2.SecurityOrigin.SecurityOrigin)
authenticationRequestGetSecurityOrigin ::
(B.CallStack.HasCallStack, MonadIO m, IsAuthenticationRequest a) =>
a
-> m WebKit2.SecurityOrigin.SecurityOrigin
authenticationRequestGetSecurityOrigin :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAuthenticationRequest a) =>
a -> m SecurityOrigin
authenticationRequestGetSecurityOrigin a
request = IO SecurityOrigin -> m SecurityOrigin
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 AuthenticationRequest
request' <- a -> IO (Ptr AuthenticationRequest)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
request
Ptr SecurityOrigin
result <- Ptr AuthenticationRequest -> IO (Ptr SecurityOrigin)
webkit_authentication_request_get_security_origin Ptr AuthenticationRequest
request'
Text -> Ptr SecurityOrigin -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"authenticationRequestGetSecurityOrigin" 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
WebKit2.SecurityOrigin.SecurityOrigin) Ptr SecurityOrigin
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
request
SecurityOrigin -> IO SecurityOrigin
forall (m :: * -> *) a. Monad m => a -> m a
return SecurityOrigin
result'
#if defined(ENABLE_OVERLOADING)
data AuthenticationRequestGetSecurityOriginMethodInfo
instance (signature ~ (m WebKit2.SecurityOrigin.SecurityOrigin), MonadIO m, IsAuthenticationRequest a) => O.OverloadedMethod AuthenticationRequestGetSecurityOriginMethodInfo a signature where
overloadedMethod = authenticationRequestGetSecurityOrigin
instance O.OverloadedMethodInfo AuthenticationRequestGetSecurityOriginMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.AuthenticationRequest.authenticationRequestGetSecurityOrigin",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-AuthenticationRequest.html#v:authenticationRequestGetSecurityOrigin"
})
#endif
foreign import ccall "webkit_authentication_request_is_for_proxy" webkit_authentication_request_is_for_proxy ::
Ptr AuthenticationRequest ->
IO CInt
authenticationRequestIsForProxy ::
(B.CallStack.HasCallStack, MonadIO m, IsAuthenticationRequest a) =>
a
-> m Bool
authenticationRequestIsForProxy :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAuthenticationRequest a) =>
a -> m Bool
authenticationRequestIsForProxy a
request = 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 AuthenticationRequest
request' <- a -> IO (Ptr AuthenticationRequest)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
request
CInt
result <- Ptr AuthenticationRequest -> IO CInt
webkit_authentication_request_is_for_proxy Ptr AuthenticationRequest
request'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
request
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data AuthenticationRequestIsForProxyMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsAuthenticationRequest a) => O.OverloadedMethod AuthenticationRequestIsForProxyMethodInfo a signature where
overloadedMethod = authenticationRequestIsForProxy
instance O.OverloadedMethodInfo AuthenticationRequestIsForProxyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.AuthenticationRequest.authenticationRequestIsForProxy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-AuthenticationRequest.html#v:authenticationRequestIsForProxy"
})
#endif
foreign import ccall "webkit_authentication_request_is_retry" webkit_authentication_request_is_retry ::
Ptr AuthenticationRequest ->
IO CInt
authenticationRequestIsRetry ::
(B.CallStack.HasCallStack, MonadIO m, IsAuthenticationRequest a) =>
a
-> m Bool
authenticationRequestIsRetry :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAuthenticationRequest a) =>
a -> m Bool
authenticationRequestIsRetry a
request = 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 AuthenticationRequest
request' <- a -> IO (Ptr AuthenticationRequest)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
request
CInt
result <- Ptr AuthenticationRequest -> IO CInt
webkit_authentication_request_is_retry Ptr AuthenticationRequest
request'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
request
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data AuthenticationRequestIsRetryMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsAuthenticationRequest a) => O.OverloadedMethod AuthenticationRequestIsRetryMethodInfo a signature where
overloadedMethod = authenticationRequestIsRetry
instance O.OverloadedMethodInfo AuthenticationRequestIsRetryMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.AuthenticationRequest.authenticationRequestIsRetry",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-AuthenticationRequest.html#v:authenticationRequestIsRetry"
})
#endif
foreign import ccall "webkit_authentication_request_set_can_save_credentials" webkit_authentication_request_set_can_save_credentials ::
Ptr AuthenticationRequest ->
CInt ->
IO ()
authenticationRequestSetCanSaveCredentials ::
(B.CallStack.HasCallStack, MonadIO m, IsAuthenticationRequest a) =>
a
-> Bool
-> m ()
authenticationRequestSetCanSaveCredentials :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAuthenticationRequest a) =>
a -> Bool -> m ()
authenticationRequestSetCanSaveCredentials a
request Bool
enabled = 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 AuthenticationRequest
request' <- a -> IO (Ptr AuthenticationRequest)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
request
let enabled' :: CInt
enabled' = (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
enabled
Ptr AuthenticationRequest -> CInt -> IO ()
webkit_authentication_request_set_can_save_credentials Ptr AuthenticationRequest
request' CInt
enabled'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
request
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AuthenticationRequestSetCanSaveCredentialsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsAuthenticationRequest a) => O.OverloadedMethod AuthenticationRequestSetCanSaveCredentialsMethodInfo a signature where
overloadedMethod = authenticationRequestSetCanSaveCredentials
instance O.OverloadedMethodInfo AuthenticationRequestSetCanSaveCredentialsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.AuthenticationRequest.authenticationRequestSetCanSaveCredentials",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-AuthenticationRequest.html#v:authenticationRequestSetCanSaveCredentials"
})
#endif
foreign import ccall "webkit_authentication_request_set_proposed_credential" webkit_authentication_request_set_proposed_credential ::
Ptr AuthenticationRequest ->
Ptr WebKit2.Credential.Credential ->
IO ()
authenticationRequestSetProposedCredential ::
(B.CallStack.HasCallStack, MonadIO m, IsAuthenticationRequest a) =>
a
-> WebKit2.Credential.Credential
-> m ()
authenticationRequestSetProposedCredential :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsAuthenticationRequest a) =>
a -> Credential -> m ()
authenticationRequestSetProposedCredential a
request Credential
credential = 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 AuthenticationRequest
request' <- a -> IO (Ptr AuthenticationRequest)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
request
Ptr Credential
credential' <- Credential -> IO (Ptr Credential)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Credential
credential
Ptr AuthenticationRequest -> Ptr Credential -> IO ()
webkit_authentication_request_set_proposed_credential Ptr AuthenticationRequest
request' Ptr Credential
credential'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
request
AuthenticationRequestAuthenticatedCallback
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Credential
credential
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data AuthenticationRequestSetProposedCredentialMethodInfo
instance (signature ~ (WebKit2.Credential.Credential -> m ()), MonadIO m, IsAuthenticationRequest a) => O.OverloadedMethod AuthenticationRequestSetProposedCredentialMethodInfo a signature where
overloadedMethod = authenticationRequestSetProposedCredential
instance O.OverloadedMethodInfo AuthenticationRequestSetProposedCredentialMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.AuthenticationRequest.authenticationRequestSetProposedCredential",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.28/docs/GI-WebKit2-Objects-AuthenticationRequest.html#v:authenticationRequestSetProposedCredential"
})
#endif