{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2.Objects.ResponsePolicyDecision
(
ResponsePolicyDecision(..) ,
IsResponsePolicyDecision ,
toResponsePolicyDecision ,
#if defined(ENABLE_OVERLOADING)
ResolveResponsePolicyDecisionMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ResponsePolicyDecisionGetRequestMethodInfo,
#endif
responsePolicyDecisionGetRequest ,
#if defined(ENABLE_OVERLOADING)
ResponsePolicyDecisionGetResponseMethodInfo,
#endif
responsePolicyDecisionGetResponse ,
#if defined(ENABLE_OVERLOADING)
ResponsePolicyDecisionIsMimeTypeSupportedMethodInfo,
#endif
responsePolicyDecisionIsMimeTypeSupported,
#if defined(ENABLE_OVERLOADING)
ResponsePolicyDecisionRequestPropertyInfo,
#endif
getResponsePolicyDecisionRequest ,
#if defined(ENABLE_OVERLOADING)
responsePolicyDecisionRequest ,
#endif
#if defined(ENABLE_OVERLOADING)
ResponsePolicyDecisionResponsePropertyInfo,
#endif
getResponsePolicyDecisionResponse ,
#if defined(ENABLE_OVERLOADING)
responsePolicyDecisionResponse ,
#endif
) 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.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 {-# SOURCE #-} qualified GI.WebKit2.Objects.PolicyDecision as WebKit2.PolicyDecision
import {-# SOURCE #-} qualified GI.WebKit2.Objects.URIRequest as WebKit2.URIRequest
import {-# SOURCE #-} qualified GI.WebKit2.Objects.URIResponse as WebKit2.URIResponse
newtype ResponsePolicyDecision = ResponsePolicyDecision (SP.ManagedPtr ResponsePolicyDecision)
deriving (ResponsePolicyDecision -> ResponsePolicyDecision -> Bool
(ResponsePolicyDecision -> ResponsePolicyDecision -> Bool)
-> (ResponsePolicyDecision -> ResponsePolicyDecision -> Bool)
-> Eq ResponsePolicyDecision
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ResponsePolicyDecision -> ResponsePolicyDecision -> Bool
== :: ResponsePolicyDecision -> ResponsePolicyDecision -> Bool
$c/= :: ResponsePolicyDecision -> ResponsePolicyDecision -> Bool
/= :: ResponsePolicyDecision -> ResponsePolicyDecision -> Bool
Eq)
instance SP.ManagedPtrNewtype ResponsePolicyDecision where
toManagedPtr :: ResponsePolicyDecision -> ManagedPtr ResponsePolicyDecision
toManagedPtr (ResponsePolicyDecision ManagedPtr ResponsePolicyDecision
p) = ManagedPtr ResponsePolicyDecision
p
foreign import ccall "webkit_response_policy_decision_get_type"
c_webkit_response_policy_decision_get_type :: IO B.Types.GType
instance B.Types.TypedObject ResponsePolicyDecision where
glibType :: IO GType
glibType = IO GType
c_webkit_response_policy_decision_get_type
instance B.Types.GObject ResponsePolicyDecision
class (SP.GObject o, O.IsDescendantOf ResponsePolicyDecision o) => IsResponsePolicyDecision o
instance (SP.GObject o, O.IsDescendantOf ResponsePolicyDecision o) => IsResponsePolicyDecision o
instance O.HasParentTypes ResponsePolicyDecision
type instance O.ParentTypes ResponsePolicyDecision = '[WebKit2.PolicyDecision.PolicyDecision, GObject.Object.Object]
toResponsePolicyDecision :: (MIO.MonadIO m, IsResponsePolicyDecision o) => o -> m ResponsePolicyDecision
toResponsePolicyDecision :: forall (m :: * -> *) o.
(MonadIO m, IsResponsePolicyDecision o) =>
o -> m ResponsePolicyDecision
toResponsePolicyDecision = IO ResponsePolicyDecision -> m ResponsePolicyDecision
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO ResponsePolicyDecision -> m ResponsePolicyDecision)
-> (o -> IO ResponsePolicyDecision)
-> o
-> m ResponsePolicyDecision
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr ResponsePolicyDecision -> ResponsePolicyDecision)
-> o -> IO ResponsePolicyDecision
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr ResponsePolicyDecision -> ResponsePolicyDecision
ResponsePolicyDecision
instance B.GValue.IsGValue (Maybe ResponsePolicyDecision) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_response_policy_decision_get_type
gvalueSet_ :: Ptr GValue -> Maybe ResponsePolicyDecision -> IO ()
gvalueSet_ Ptr GValue
gv Maybe ResponsePolicyDecision
P.Nothing = Ptr GValue -> Ptr ResponsePolicyDecision -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr ResponsePolicyDecision
forall a. Ptr a
FP.nullPtr :: FP.Ptr ResponsePolicyDecision)
gvalueSet_ Ptr GValue
gv (P.Just ResponsePolicyDecision
obj) = ResponsePolicyDecision
-> (Ptr ResponsePolicyDecision -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ResponsePolicyDecision
obj (Ptr GValue -> Ptr ResponsePolicyDecision -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe ResponsePolicyDecision)
gvalueGet_ Ptr GValue
gv = do
Ptr ResponsePolicyDecision
ptr <- Ptr GValue -> IO (Ptr ResponsePolicyDecision)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr ResponsePolicyDecision)
if Ptr ResponsePolicyDecision
ptr Ptr ResponsePolicyDecision -> Ptr ResponsePolicyDecision -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr ResponsePolicyDecision
forall a. Ptr a
FP.nullPtr
then ResponsePolicyDecision -> Maybe ResponsePolicyDecision
forall a. a -> Maybe a
P.Just (ResponsePolicyDecision -> Maybe ResponsePolicyDecision)
-> IO ResponsePolicyDecision -> IO (Maybe ResponsePolicyDecision)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr ResponsePolicyDecision -> ResponsePolicyDecision)
-> Ptr ResponsePolicyDecision -> IO ResponsePolicyDecision
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr ResponsePolicyDecision -> ResponsePolicyDecision
ResponsePolicyDecision Ptr ResponsePolicyDecision
ptr
else Maybe ResponsePolicyDecision -> IO (Maybe ResponsePolicyDecision)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ResponsePolicyDecision
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveResponsePolicyDecisionMethod (t :: Symbol) (o :: *) :: * where
ResolveResponsePolicyDecisionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveResponsePolicyDecisionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveResponsePolicyDecisionMethod "download" o = WebKit2.PolicyDecision.PolicyDecisionDownloadMethodInfo
ResolveResponsePolicyDecisionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveResponsePolicyDecisionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveResponsePolicyDecisionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveResponsePolicyDecisionMethod "ignore" o = WebKit2.PolicyDecision.PolicyDecisionIgnoreMethodInfo
ResolveResponsePolicyDecisionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveResponsePolicyDecisionMethod "isMimeTypeSupported" o = ResponsePolicyDecisionIsMimeTypeSupportedMethodInfo
ResolveResponsePolicyDecisionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveResponsePolicyDecisionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveResponsePolicyDecisionMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveResponsePolicyDecisionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveResponsePolicyDecisionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveResponsePolicyDecisionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveResponsePolicyDecisionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveResponsePolicyDecisionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveResponsePolicyDecisionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveResponsePolicyDecisionMethod "use" o = WebKit2.PolicyDecision.PolicyDecisionUseMethodInfo
ResolveResponsePolicyDecisionMethod "useWithPolicies" o = WebKit2.PolicyDecision.PolicyDecisionUseWithPoliciesMethodInfo
ResolveResponsePolicyDecisionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveResponsePolicyDecisionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveResponsePolicyDecisionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveResponsePolicyDecisionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveResponsePolicyDecisionMethod "getRequest" o = ResponsePolicyDecisionGetRequestMethodInfo
ResolveResponsePolicyDecisionMethod "getResponse" o = ResponsePolicyDecisionGetResponseMethodInfo
ResolveResponsePolicyDecisionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveResponsePolicyDecisionMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveResponsePolicyDecisionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveResponsePolicyDecisionMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveResponsePolicyDecisionMethod t ResponsePolicyDecision, O.OverloadedMethod info ResponsePolicyDecision p) => OL.IsLabel t (ResponsePolicyDecision -> 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 ~ ResolveResponsePolicyDecisionMethod t ResponsePolicyDecision, O.OverloadedMethod info ResponsePolicyDecision p, R.HasField t ResponsePolicyDecision p) => R.HasField t ResponsePolicyDecision p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveResponsePolicyDecisionMethod t ResponsePolicyDecision, O.OverloadedMethodInfo info ResponsePolicyDecision) => OL.IsLabel t (O.MethodProxy info ResponsePolicyDecision) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getResponsePolicyDecisionRequest :: (MonadIO m, IsResponsePolicyDecision o) => o -> m WebKit2.URIRequest.URIRequest
getResponsePolicyDecisionRequest :: forall (m :: * -> *) o.
(MonadIO m, IsResponsePolicyDecision o) =>
o -> m URIRequest
getResponsePolicyDecisionRequest o
obj = IO URIRequest -> m URIRequest
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO URIRequest -> m URIRequest) -> IO URIRequest -> m URIRequest
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe URIRequest) -> IO URIRequest
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getResponsePolicyDecisionRequest" (IO (Maybe URIRequest) -> IO URIRequest)
-> IO (Maybe URIRequest) -> IO URIRequest
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr URIRequest -> URIRequest)
-> IO (Maybe URIRequest)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"request" ManagedPtr URIRequest -> URIRequest
WebKit2.URIRequest.URIRequest
#if defined(ENABLE_OVERLOADING)
data ResponsePolicyDecisionRequestPropertyInfo
instance AttrInfo ResponsePolicyDecisionRequestPropertyInfo where
type AttrAllowedOps ResponsePolicyDecisionRequestPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ResponsePolicyDecisionRequestPropertyInfo = IsResponsePolicyDecision
type AttrSetTypeConstraint ResponsePolicyDecisionRequestPropertyInfo = (~) ()
type AttrTransferTypeConstraint ResponsePolicyDecisionRequestPropertyInfo = (~) ()
type AttrTransferType ResponsePolicyDecisionRequestPropertyInfo = ()
type AttrGetType ResponsePolicyDecisionRequestPropertyInfo = WebKit2.URIRequest.URIRequest
type AttrLabel ResponsePolicyDecisionRequestPropertyInfo = "request"
type AttrOrigin ResponsePolicyDecisionRequestPropertyInfo = ResponsePolicyDecision
attrGet = getResponsePolicyDecisionRequest
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.ResponsePolicyDecision.request"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-ResponsePolicyDecision.html#g:attr:request"
})
#endif
getResponsePolicyDecisionResponse :: (MonadIO m, IsResponsePolicyDecision o) => o -> m WebKit2.URIResponse.URIResponse
getResponsePolicyDecisionResponse :: forall (m :: * -> *) o.
(MonadIO m, IsResponsePolicyDecision o) =>
o -> m URIResponse
getResponsePolicyDecisionResponse o
obj = IO URIResponse -> m URIResponse
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO URIResponse -> m URIResponse)
-> IO URIResponse -> m URIResponse
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe URIResponse) -> IO URIResponse
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getResponsePolicyDecisionResponse" (IO (Maybe URIResponse) -> IO URIResponse)
-> IO (Maybe URIResponse) -> IO URIResponse
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr URIResponse -> URIResponse)
-> IO (Maybe URIResponse)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"response" ManagedPtr URIResponse -> URIResponse
WebKit2.URIResponse.URIResponse
#if defined(ENABLE_OVERLOADING)
data ResponsePolicyDecisionResponsePropertyInfo
instance AttrInfo ResponsePolicyDecisionResponsePropertyInfo where
type AttrAllowedOps ResponsePolicyDecisionResponsePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ResponsePolicyDecisionResponsePropertyInfo = IsResponsePolicyDecision
type AttrSetTypeConstraint ResponsePolicyDecisionResponsePropertyInfo = (~) ()
type AttrTransferTypeConstraint ResponsePolicyDecisionResponsePropertyInfo = (~) ()
type AttrTransferType ResponsePolicyDecisionResponsePropertyInfo = ()
type AttrGetType ResponsePolicyDecisionResponsePropertyInfo = WebKit2.URIResponse.URIResponse
type AttrLabel ResponsePolicyDecisionResponsePropertyInfo = "response"
type AttrOrigin ResponsePolicyDecisionResponsePropertyInfo = ResponsePolicyDecision
attrGet = getResponsePolicyDecisionResponse
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.ResponsePolicyDecision.response"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-ResponsePolicyDecision.html#g:attr:response"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ResponsePolicyDecision
type instance O.AttributeList ResponsePolicyDecision = ResponsePolicyDecisionAttributeList
type ResponsePolicyDecisionAttributeList = ('[ '("request", ResponsePolicyDecisionRequestPropertyInfo), '("response", ResponsePolicyDecisionResponsePropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
responsePolicyDecisionRequest :: AttrLabelProxy "request"
responsePolicyDecisionRequest = AttrLabelProxy
responsePolicyDecisionResponse :: AttrLabelProxy "response"
responsePolicyDecisionResponse = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList ResponsePolicyDecision = ResponsePolicyDecisionSignalList
type ResponsePolicyDecisionSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_response_policy_decision_get_request" webkit_response_policy_decision_get_request ::
Ptr ResponsePolicyDecision ->
IO (Ptr WebKit2.URIRequest.URIRequest)
responsePolicyDecisionGetRequest ::
(B.CallStack.HasCallStack, MonadIO m, IsResponsePolicyDecision a) =>
a
-> m WebKit2.URIRequest.URIRequest
responsePolicyDecisionGetRequest :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsResponsePolicyDecision a) =>
a -> m URIRequest
responsePolicyDecisionGetRequest a
decision = IO URIRequest -> m URIRequest
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO URIRequest -> m URIRequest) -> IO URIRequest -> m URIRequest
forall a b. (a -> b) -> a -> b
$ do
Ptr ResponsePolicyDecision
decision' <- a -> IO (Ptr ResponsePolicyDecision)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
decision
Ptr URIRequest
result <- Ptr ResponsePolicyDecision -> IO (Ptr URIRequest)
webkit_response_policy_decision_get_request Ptr ResponsePolicyDecision
decision'
Text -> Ptr URIRequest -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"responsePolicyDecisionGetRequest" Ptr URIRequest
result
URIRequest
result' <- ((ManagedPtr URIRequest -> URIRequest)
-> Ptr URIRequest -> IO URIRequest
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr URIRequest -> URIRequest
WebKit2.URIRequest.URIRequest) Ptr URIRequest
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
decision
URIRequest -> IO URIRequest
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return URIRequest
result'
#if defined(ENABLE_OVERLOADING)
data ResponsePolicyDecisionGetRequestMethodInfo
instance (signature ~ (m WebKit2.URIRequest.URIRequest), MonadIO m, IsResponsePolicyDecision a) => O.OverloadedMethod ResponsePolicyDecisionGetRequestMethodInfo a signature where
overloadedMethod = responsePolicyDecisionGetRequest
instance O.OverloadedMethodInfo ResponsePolicyDecisionGetRequestMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.ResponsePolicyDecision.responsePolicyDecisionGetRequest",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-ResponsePolicyDecision.html#v:responsePolicyDecisionGetRequest"
})
#endif
foreign import ccall "webkit_response_policy_decision_get_response" webkit_response_policy_decision_get_response ::
Ptr ResponsePolicyDecision ->
IO (Ptr WebKit2.URIResponse.URIResponse)
responsePolicyDecisionGetResponse ::
(B.CallStack.HasCallStack, MonadIO m, IsResponsePolicyDecision a) =>
a
-> m WebKit2.URIResponse.URIResponse
responsePolicyDecisionGetResponse :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsResponsePolicyDecision a) =>
a -> m URIResponse
responsePolicyDecisionGetResponse a
decision = IO URIResponse -> m URIResponse
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO URIResponse -> m URIResponse)
-> IO URIResponse -> m URIResponse
forall a b. (a -> b) -> a -> b
$ do
Ptr ResponsePolicyDecision
decision' <- a -> IO (Ptr ResponsePolicyDecision)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
decision
Ptr URIResponse
result <- Ptr ResponsePolicyDecision -> IO (Ptr URIResponse)
webkit_response_policy_decision_get_response Ptr ResponsePolicyDecision
decision'
Text -> Ptr URIResponse -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"responsePolicyDecisionGetResponse" Ptr URIResponse
result
URIResponse
result' <- ((ManagedPtr URIResponse -> URIResponse)
-> Ptr URIResponse -> IO URIResponse
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr URIResponse -> URIResponse
WebKit2.URIResponse.URIResponse) Ptr URIResponse
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
decision
URIResponse -> IO URIResponse
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return URIResponse
result'
#if defined(ENABLE_OVERLOADING)
data ResponsePolicyDecisionGetResponseMethodInfo
instance (signature ~ (m WebKit2.URIResponse.URIResponse), MonadIO m, IsResponsePolicyDecision a) => O.OverloadedMethod ResponsePolicyDecisionGetResponseMethodInfo a signature where
overloadedMethod = responsePolicyDecisionGetResponse
instance O.OverloadedMethodInfo ResponsePolicyDecisionGetResponseMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.ResponsePolicyDecision.responsePolicyDecisionGetResponse",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-ResponsePolicyDecision.html#v:responsePolicyDecisionGetResponse"
})
#endif
foreign import ccall "webkit_response_policy_decision_is_mime_type_supported" webkit_response_policy_decision_is_mime_type_supported ::
Ptr ResponsePolicyDecision ->
IO CInt
responsePolicyDecisionIsMimeTypeSupported ::
(B.CallStack.HasCallStack, MonadIO m, IsResponsePolicyDecision a) =>
a
-> m Bool
responsePolicyDecisionIsMimeTypeSupported :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsResponsePolicyDecision a) =>
a -> m Bool
responsePolicyDecisionIsMimeTypeSupported a
decision = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr ResponsePolicyDecision
decision' <- a -> IO (Ptr ResponsePolicyDecision)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
decision
CInt
result <- Ptr ResponsePolicyDecision -> IO CInt
webkit_response_policy_decision_is_mime_type_supported Ptr ResponsePolicyDecision
decision'
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
decision
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ResponsePolicyDecisionIsMimeTypeSupportedMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsResponsePolicyDecision a) => O.OverloadedMethod ResponsePolicyDecisionIsMimeTypeSupportedMethodInfo a signature where
overloadedMethod = responsePolicyDecisionIsMimeTypeSupported
instance O.OverloadedMethodInfo ResponsePolicyDecisionIsMimeTypeSupportedMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.ResponsePolicyDecision.responsePolicyDecisionIsMimeTypeSupported",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-ResponsePolicyDecision.html#v:responsePolicyDecisionIsMimeTypeSupported"
})
#endif