{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2.Objects.NavigationPolicyDecision
(
NavigationPolicyDecision(..) ,
IsNavigationPolicyDecision ,
toNavigationPolicyDecision ,
#if defined(ENABLE_OVERLOADING)
ResolveNavigationPolicyDecisionMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
NavigationPolicyDecisionGetFrameNameMethodInfo,
#endif
navigationPolicyDecisionGetFrameName ,
#if defined(ENABLE_OVERLOADING)
NavigationPolicyDecisionGetModifiersMethodInfo,
#endif
navigationPolicyDecisionGetModifiers ,
#if defined(ENABLE_OVERLOADING)
NavigationPolicyDecisionGetMouseButtonMethodInfo,
#endif
navigationPolicyDecisionGetMouseButton ,
#if defined(ENABLE_OVERLOADING)
NavigationPolicyDecisionGetNavigationActionMethodInfo,
#endif
navigationPolicyDecisionGetNavigationAction,
#if defined(ENABLE_OVERLOADING)
NavigationPolicyDecisionGetNavigationTypeMethodInfo,
#endif
navigationPolicyDecisionGetNavigationType,
#if defined(ENABLE_OVERLOADING)
NavigationPolicyDecisionGetRequestMethodInfo,
#endif
navigationPolicyDecisionGetRequest ,
#if defined(ENABLE_OVERLOADING)
NavigationPolicyDecisionFrameNamePropertyInfo,
#endif
getNavigationPolicyDecisionFrameName ,
#if defined(ENABLE_OVERLOADING)
navigationPolicyDecisionFrameName ,
#endif
#if defined(ENABLE_OVERLOADING)
NavigationPolicyDecisionModifiersPropertyInfo,
#endif
getNavigationPolicyDecisionModifiers ,
#if defined(ENABLE_OVERLOADING)
navigationPolicyDecisionModifiers ,
#endif
#if defined(ENABLE_OVERLOADING)
NavigationPolicyDecisionMouseButtonPropertyInfo,
#endif
getNavigationPolicyDecisionMouseButton ,
#if defined(ENABLE_OVERLOADING)
navigationPolicyDecisionMouseButton ,
#endif
#if defined(ENABLE_OVERLOADING)
NavigationPolicyDecisionNavigationActionPropertyInfo,
#endif
getNavigationPolicyDecisionNavigationAction,
#if defined(ENABLE_OVERLOADING)
navigationPolicyDecisionNavigationAction,
#endif
#if defined(ENABLE_OVERLOADING)
NavigationPolicyDecisionNavigationTypePropertyInfo,
#endif
getNavigationPolicyDecisionNavigationType,
#if defined(ENABLE_OVERLOADING)
navigationPolicyDecisionNavigationType ,
#endif
#if defined(ENABLE_OVERLOADING)
NavigationPolicyDecisionRequestPropertyInfo,
#endif
getNavigationPolicyDecisionRequest ,
#if defined(ENABLE_OVERLOADING)
navigationPolicyDecisionRequest ,
#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.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
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.WebKit2.Enums as WebKit2.Enums
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.Structs.NavigationAction as WebKit2.NavigationAction
newtype NavigationPolicyDecision = NavigationPolicyDecision (SP.ManagedPtr NavigationPolicyDecision)
deriving (NavigationPolicyDecision -> NavigationPolicyDecision -> Bool
(NavigationPolicyDecision -> NavigationPolicyDecision -> Bool)
-> (NavigationPolicyDecision -> NavigationPolicyDecision -> Bool)
-> Eq NavigationPolicyDecision
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: NavigationPolicyDecision -> NavigationPolicyDecision -> Bool
== :: NavigationPolicyDecision -> NavigationPolicyDecision -> Bool
$c/= :: NavigationPolicyDecision -> NavigationPolicyDecision -> Bool
/= :: NavigationPolicyDecision -> NavigationPolicyDecision -> Bool
Eq)
instance SP.ManagedPtrNewtype NavigationPolicyDecision where
toManagedPtr :: NavigationPolicyDecision -> ManagedPtr NavigationPolicyDecision
toManagedPtr (NavigationPolicyDecision ManagedPtr NavigationPolicyDecision
p) = ManagedPtr NavigationPolicyDecision
p
foreign import ccall "webkit_navigation_policy_decision_get_type"
c_webkit_navigation_policy_decision_get_type :: IO B.Types.GType
instance B.Types.TypedObject NavigationPolicyDecision where
glibType :: IO GType
glibType = IO GType
c_webkit_navigation_policy_decision_get_type
instance B.Types.GObject NavigationPolicyDecision
class (SP.GObject o, O.IsDescendantOf NavigationPolicyDecision o) => IsNavigationPolicyDecision o
instance (SP.GObject o, O.IsDescendantOf NavigationPolicyDecision o) => IsNavigationPolicyDecision o
instance O.HasParentTypes NavigationPolicyDecision
type instance O.ParentTypes NavigationPolicyDecision = '[WebKit2.PolicyDecision.PolicyDecision, GObject.Object.Object]
toNavigationPolicyDecision :: (MIO.MonadIO m, IsNavigationPolicyDecision o) => o -> m NavigationPolicyDecision
toNavigationPolicyDecision :: forall (m :: * -> *) o.
(MonadIO m, IsNavigationPolicyDecision o) =>
o -> m NavigationPolicyDecision
toNavigationPolicyDecision = IO NavigationPolicyDecision -> m NavigationPolicyDecision
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO NavigationPolicyDecision -> m NavigationPolicyDecision)
-> (o -> IO NavigationPolicyDecision)
-> o
-> m NavigationPolicyDecision
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr NavigationPolicyDecision -> NavigationPolicyDecision)
-> o -> IO NavigationPolicyDecision
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr NavigationPolicyDecision -> NavigationPolicyDecision
NavigationPolicyDecision
instance B.GValue.IsGValue (Maybe NavigationPolicyDecision) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_navigation_policy_decision_get_type
gvalueSet_ :: Ptr GValue -> Maybe NavigationPolicyDecision -> IO ()
gvalueSet_ Ptr GValue
gv Maybe NavigationPolicyDecision
P.Nothing = Ptr GValue -> Ptr NavigationPolicyDecision -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr NavigationPolicyDecision
forall a. Ptr a
FP.nullPtr :: FP.Ptr NavigationPolicyDecision)
gvalueSet_ Ptr GValue
gv (P.Just NavigationPolicyDecision
obj) = NavigationPolicyDecision
-> (Ptr NavigationPolicyDecision -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr NavigationPolicyDecision
obj (Ptr GValue -> Ptr NavigationPolicyDecision -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe NavigationPolicyDecision)
gvalueGet_ Ptr GValue
gv = do
Ptr NavigationPolicyDecision
ptr <- Ptr GValue -> IO (Ptr NavigationPolicyDecision)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr NavigationPolicyDecision)
if Ptr NavigationPolicyDecision
ptr Ptr NavigationPolicyDecision
-> Ptr NavigationPolicyDecision -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr NavigationPolicyDecision
forall a. Ptr a
FP.nullPtr
then NavigationPolicyDecision -> Maybe NavigationPolicyDecision
forall a. a -> Maybe a
P.Just (NavigationPolicyDecision -> Maybe NavigationPolicyDecision)
-> IO NavigationPolicyDecision
-> IO (Maybe NavigationPolicyDecision)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr NavigationPolicyDecision -> NavigationPolicyDecision)
-> Ptr NavigationPolicyDecision -> IO NavigationPolicyDecision
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr NavigationPolicyDecision -> NavigationPolicyDecision
NavigationPolicyDecision Ptr NavigationPolicyDecision
ptr
else Maybe NavigationPolicyDecision
-> IO (Maybe NavigationPolicyDecision)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe NavigationPolicyDecision
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveNavigationPolicyDecisionMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveNavigationPolicyDecisionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveNavigationPolicyDecisionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveNavigationPolicyDecisionMethod "download" o = WebKit2.PolicyDecision.PolicyDecisionDownloadMethodInfo
ResolveNavigationPolicyDecisionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveNavigationPolicyDecisionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveNavigationPolicyDecisionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveNavigationPolicyDecisionMethod "ignore" o = WebKit2.PolicyDecision.PolicyDecisionIgnoreMethodInfo
ResolveNavigationPolicyDecisionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveNavigationPolicyDecisionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveNavigationPolicyDecisionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveNavigationPolicyDecisionMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveNavigationPolicyDecisionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveNavigationPolicyDecisionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveNavigationPolicyDecisionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveNavigationPolicyDecisionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveNavigationPolicyDecisionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveNavigationPolicyDecisionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveNavigationPolicyDecisionMethod "use" o = WebKit2.PolicyDecision.PolicyDecisionUseMethodInfo
ResolveNavigationPolicyDecisionMethod "useWithPolicies" o = WebKit2.PolicyDecision.PolicyDecisionUseWithPoliciesMethodInfo
ResolveNavigationPolicyDecisionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveNavigationPolicyDecisionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveNavigationPolicyDecisionMethod "getFrameName" o = NavigationPolicyDecisionGetFrameNameMethodInfo
ResolveNavigationPolicyDecisionMethod "getModifiers" o = NavigationPolicyDecisionGetModifiersMethodInfo
ResolveNavigationPolicyDecisionMethod "getMouseButton" o = NavigationPolicyDecisionGetMouseButtonMethodInfo
ResolveNavigationPolicyDecisionMethod "getNavigationAction" o = NavigationPolicyDecisionGetNavigationActionMethodInfo
ResolveNavigationPolicyDecisionMethod "getNavigationType" o = NavigationPolicyDecisionGetNavigationTypeMethodInfo
ResolveNavigationPolicyDecisionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveNavigationPolicyDecisionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveNavigationPolicyDecisionMethod "getRequest" o = NavigationPolicyDecisionGetRequestMethodInfo
ResolveNavigationPolicyDecisionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveNavigationPolicyDecisionMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveNavigationPolicyDecisionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveNavigationPolicyDecisionMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveNavigationPolicyDecisionMethod t NavigationPolicyDecision, O.OverloadedMethod info NavigationPolicyDecision p) => OL.IsLabel t (NavigationPolicyDecision -> 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 ~ ResolveNavigationPolicyDecisionMethod t NavigationPolicyDecision, O.OverloadedMethod info NavigationPolicyDecision p, R.HasField t NavigationPolicyDecision p) => R.HasField t NavigationPolicyDecision p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveNavigationPolicyDecisionMethod t NavigationPolicyDecision, O.OverloadedMethodInfo info NavigationPolicyDecision) => OL.IsLabel t (O.MethodProxy info NavigationPolicyDecision) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getNavigationPolicyDecisionFrameName :: (MonadIO m, IsNavigationPolicyDecision o) => o -> m (Maybe T.Text)
getNavigationPolicyDecisionFrameName :: forall (m :: * -> *) o.
(MonadIO m, IsNavigationPolicyDecision o) =>
o -> m (Maybe Text)
getNavigationPolicyDecisionFrameName o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"frame-name"
#if defined(ENABLE_OVERLOADING)
data NavigationPolicyDecisionFrameNamePropertyInfo
instance AttrInfo NavigationPolicyDecisionFrameNamePropertyInfo where
type AttrAllowedOps NavigationPolicyDecisionFrameNamePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint NavigationPolicyDecisionFrameNamePropertyInfo = IsNavigationPolicyDecision
type AttrSetTypeConstraint NavigationPolicyDecisionFrameNamePropertyInfo = (~) ()
type AttrTransferTypeConstraint NavigationPolicyDecisionFrameNamePropertyInfo = (~) ()
type AttrTransferType NavigationPolicyDecisionFrameNamePropertyInfo = ()
type AttrGetType NavigationPolicyDecisionFrameNamePropertyInfo = (Maybe T.Text)
type AttrLabel NavigationPolicyDecisionFrameNamePropertyInfo = "frame-name"
type AttrOrigin NavigationPolicyDecisionFrameNamePropertyInfo = NavigationPolicyDecision
attrGet = getNavigationPolicyDecisionFrameName
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.NavigationPolicyDecision.frameName"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.30/docs/GI-WebKit2-Objects-NavigationPolicyDecision.html#g:attr:frameName"
})
#endif
getNavigationPolicyDecisionModifiers :: (MonadIO m, IsNavigationPolicyDecision o) => o -> m Word32
getNavigationPolicyDecisionModifiers :: forall (m :: * -> *) o.
(MonadIO m, IsNavigationPolicyDecision o) =>
o -> m Word32
getNavigationPolicyDecisionModifiers o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"modifiers"
#if defined(ENABLE_OVERLOADING)
data NavigationPolicyDecisionModifiersPropertyInfo
instance AttrInfo NavigationPolicyDecisionModifiersPropertyInfo where
type AttrAllowedOps NavigationPolicyDecisionModifiersPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint NavigationPolicyDecisionModifiersPropertyInfo = IsNavigationPolicyDecision
type AttrSetTypeConstraint NavigationPolicyDecisionModifiersPropertyInfo = (~) ()
type AttrTransferTypeConstraint NavigationPolicyDecisionModifiersPropertyInfo = (~) ()
type AttrTransferType NavigationPolicyDecisionModifiersPropertyInfo = ()
type AttrGetType NavigationPolicyDecisionModifiersPropertyInfo = Word32
type AttrLabel NavigationPolicyDecisionModifiersPropertyInfo = "modifiers"
type AttrOrigin NavigationPolicyDecisionModifiersPropertyInfo = NavigationPolicyDecision
attrGet = getNavigationPolicyDecisionModifiers
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.NavigationPolicyDecision.modifiers"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.30/docs/GI-WebKit2-Objects-NavigationPolicyDecision.html#g:attr:modifiers"
})
#endif
getNavigationPolicyDecisionMouseButton :: (MonadIO m, IsNavigationPolicyDecision o) => o -> m Word32
getNavigationPolicyDecisionMouseButton :: forall (m :: * -> *) o.
(MonadIO m, IsNavigationPolicyDecision o) =>
o -> m Word32
getNavigationPolicyDecisionMouseButton o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"mouse-button"
#if defined(ENABLE_OVERLOADING)
data NavigationPolicyDecisionMouseButtonPropertyInfo
instance AttrInfo NavigationPolicyDecisionMouseButtonPropertyInfo where
type AttrAllowedOps NavigationPolicyDecisionMouseButtonPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint NavigationPolicyDecisionMouseButtonPropertyInfo = IsNavigationPolicyDecision
type AttrSetTypeConstraint NavigationPolicyDecisionMouseButtonPropertyInfo = (~) ()
type AttrTransferTypeConstraint NavigationPolicyDecisionMouseButtonPropertyInfo = (~) ()
type AttrTransferType NavigationPolicyDecisionMouseButtonPropertyInfo = ()
type AttrGetType NavigationPolicyDecisionMouseButtonPropertyInfo = Word32
type AttrLabel NavigationPolicyDecisionMouseButtonPropertyInfo = "mouse-button"
type AttrOrigin NavigationPolicyDecisionMouseButtonPropertyInfo = NavigationPolicyDecision
attrGet = getNavigationPolicyDecisionMouseButton
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.NavigationPolicyDecision.mouseButton"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.30/docs/GI-WebKit2-Objects-NavigationPolicyDecision.html#g:attr:mouseButton"
})
#endif
getNavigationPolicyDecisionNavigationAction :: (MonadIO m, IsNavigationPolicyDecision o) => o -> m WebKit2.NavigationAction.NavigationAction
getNavigationPolicyDecisionNavigationAction :: forall (m :: * -> *) o.
(MonadIO m, IsNavigationPolicyDecision o) =>
o -> m NavigationAction
getNavigationPolicyDecisionNavigationAction o
obj = IO NavigationAction -> m NavigationAction
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO NavigationAction -> m NavigationAction)
-> IO NavigationAction -> m NavigationAction
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe NavigationAction) -> IO NavigationAction
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getNavigationPolicyDecisionNavigationAction" (IO (Maybe NavigationAction) -> IO NavigationAction)
-> IO (Maybe NavigationAction) -> IO NavigationAction
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr NavigationAction -> NavigationAction)
-> IO (Maybe NavigationAction)
forall a b.
(GObject a, GBoxed b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyBoxed o
obj String
"navigation-action" ManagedPtr NavigationAction -> NavigationAction
WebKit2.NavigationAction.NavigationAction
#if defined(ENABLE_OVERLOADING)
data NavigationPolicyDecisionNavigationActionPropertyInfo
instance AttrInfo NavigationPolicyDecisionNavigationActionPropertyInfo where
type AttrAllowedOps NavigationPolicyDecisionNavigationActionPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint NavigationPolicyDecisionNavigationActionPropertyInfo = IsNavigationPolicyDecision
type AttrSetTypeConstraint NavigationPolicyDecisionNavigationActionPropertyInfo = (~) ()
type AttrTransferTypeConstraint NavigationPolicyDecisionNavigationActionPropertyInfo = (~) ()
type AttrTransferType NavigationPolicyDecisionNavigationActionPropertyInfo = ()
type AttrGetType NavigationPolicyDecisionNavigationActionPropertyInfo = WebKit2.NavigationAction.NavigationAction
type AttrLabel NavigationPolicyDecisionNavigationActionPropertyInfo = "navigation-action"
type AttrOrigin NavigationPolicyDecisionNavigationActionPropertyInfo = NavigationPolicyDecision
attrGet = getNavigationPolicyDecisionNavigationAction
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.NavigationPolicyDecision.navigationAction"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.30/docs/GI-WebKit2-Objects-NavigationPolicyDecision.html#g:attr:navigationAction"
})
#endif
getNavigationPolicyDecisionNavigationType :: (MonadIO m, IsNavigationPolicyDecision o) => o -> m WebKit2.Enums.NavigationType
getNavigationPolicyDecisionNavigationType :: forall (m :: * -> *) o.
(MonadIO m, IsNavigationPolicyDecision o) =>
o -> m NavigationType
getNavigationPolicyDecisionNavigationType o
obj = IO NavigationType -> m NavigationType
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO NavigationType -> m NavigationType)
-> IO NavigationType -> m NavigationType
forall a b. (a -> b) -> a -> b
$ o -> String -> IO NavigationType
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"navigation-type"
#if defined(ENABLE_OVERLOADING)
data NavigationPolicyDecisionNavigationTypePropertyInfo
instance AttrInfo NavigationPolicyDecisionNavigationTypePropertyInfo where
type AttrAllowedOps NavigationPolicyDecisionNavigationTypePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint NavigationPolicyDecisionNavigationTypePropertyInfo = IsNavigationPolicyDecision
type AttrSetTypeConstraint NavigationPolicyDecisionNavigationTypePropertyInfo = (~) ()
type AttrTransferTypeConstraint NavigationPolicyDecisionNavigationTypePropertyInfo = (~) ()
type AttrTransferType NavigationPolicyDecisionNavigationTypePropertyInfo = ()
type AttrGetType NavigationPolicyDecisionNavigationTypePropertyInfo = WebKit2.Enums.NavigationType
type AttrLabel NavigationPolicyDecisionNavigationTypePropertyInfo = "navigation-type"
type AttrOrigin NavigationPolicyDecisionNavigationTypePropertyInfo = NavigationPolicyDecision
attrGet = getNavigationPolicyDecisionNavigationType
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.NavigationPolicyDecision.navigationType"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.30/docs/GI-WebKit2-Objects-NavigationPolicyDecision.html#g:attr:navigationType"
})
#endif
getNavigationPolicyDecisionRequest :: (MonadIO m, IsNavigationPolicyDecision o) => o -> m WebKit2.URIRequest.URIRequest
getNavigationPolicyDecisionRequest :: forall (m :: * -> *) o.
(MonadIO m, IsNavigationPolicyDecision o) =>
o -> m URIRequest
getNavigationPolicyDecisionRequest 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
"getNavigationPolicyDecisionRequest" (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 NavigationPolicyDecisionRequestPropertyInfo
instance AttrInfo NavigationPolicyDecisionRequestPropertyInfo where
type AttrAllowedOps NavigationPolicyDecisionRequestPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint NavigationPolicyDecisionRequestPropertyInfo = IsNavigationPolicyDecision
type AttrSetTypeConstraint NavigationPolicyDecisionRequestPropertyInfo = (~) ()
type AttrTransferTypeConstraint NavigationPolicyDecisionRequestPropertyInfo = (~) ()
type AttrTransferType NavigationPolicyDecisionRequestPropertyInfo = ()
type AttrGetType NavigationPolicyDecisionRequestPropertyInfo = WebKit2.URIRequest.URIRequest
type AttrLabel NavigationPolicyDecisionRequestPropertyInfo = "request"
type AttrOrigin NavigationPolicyDecisionRequestPropertyInfo = NavigationPolicyDecision
attrGet = getNavigationPolicyDecisionRequest
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.NavigationPolicyDecision.request"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.30/docs/GI-WebKit2-Objects-NavigationPolicyDecision.html#g:attr:request"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList NavigationPolicyDecision
type instance O.AttributeList NavigationPolicyDecision = NavigationPolicyDecisionAttributeList
type NavigationPolicyDecisionAttributeList = ('[ '("frameName", NavigationPolicyDecisionFrameNamePropertyInfo), '("modifiers", NavigationPolicyDecisionModifiersPropertyInfo), '("mouseButton", NavigationPolicyDecisionMouseButtonPropertyInfo), '("navigationAction", NavigationPolicyDecisionNavigationActionPropertyInfo), '("navigationType", NavigationPolicyDecisionNavigationTypePropertyInfo), '("request", NavigationPolicyDecisionRequestPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
navigationPolicyDecisionFrameName :: AttrLabelProxy "frameName"
navigationPolicyDecisionFrameName = AttrLabelProxy
navigationPolicyDecisionModifiers :: AttrLabelProxy "modifiers"
navigationPolicyDecisionModifiers = AttrLabelProxy
navigationPolicyDecisionMouseButton :: AttrLabelProxy "mouseButton"
navigationPolicyDecisionMouseButton = AttrLabelProxy
navigationPolicyDecisionNavigationAction :: AttrLabelProxy "navigationAction"
navigationPolicyDecisionNavigationAction = AttrLabelProxy
navigationPolicyDecisionNavigationType :: AttrLabelProxy "navigationType"
navigationPolicyDecisionNavigationType = AttrLabelProxy
navigationPolicyDecisionRequest :: AttrLabelProxy "request"
navigationPolicyDecisionRequest = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList NavigationPolicyDecision = NavigationPolicyDecisionSignalList
type NavigationPolicyDecisionSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "webkit_navigation_policy_decision_get_frame_name" webkit_navigation_policy_decision_get_frame_name ::
Ptr NavigationPolicyDecision ->
IO CString
{-# DEPRECATED navigationPolicyDecisionGetFrameName ["(Since version 2.40)","Use 'GI.WebKit2.Objects.NavigationPolicyDecision.navigationPolicyDecisionGetNavigationAction' instead."] #-}
navigationPolicyDecisionGetFrameName ::
(B.CallStack.HasCallStack, MonadIO m, IsNavigationPolicyDecision a) =>
a
-> m (Maybe T.Text)
navigationPolicyDecisionGetFrameName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNavigationPolicyDecision a) =>
a -> m (Maybe Text)
navigationPolicyDecisionGetFrameName a
decision = 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 NavigationPolicyDecision
decision' <- a -> IO (Ptr NavigationPolicyDecision)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
decision
CString
result <- Ptr NavigationPolicyDecision -> IO CString
webkit_navigation_policy_decision_get_frame_name Ptr NavigationPolicyDecision
decision'
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''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
decision
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 NavigationPolicyDecisionGetFrameNameMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsNavigationPolicyDecision a) => O.OverloadedMethod NavigationPolicyDecisionGetFrameNameMethodInfo a signature where
overloadedMethod = navigationPolicyDecisionGetFrameName
instance O.OverloadedMethodInfo NavigationPolicyDecisionGetFrameNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.NavigationPolicyDecision.navigationPolicyDecisionGetFrameName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.30/docs/GI-WebKit2-Objects-NavigationPolicyDecision.html#v:navigationPolicyDecisionGetFrameName"
})
#endif
foreign import ccall "webkit_navigation_policy_decision_get_modifiers" webkit_navigation_policy_decision_get_modifiers ::
Ptr NavigationPolicyDecision ->
IO Word32
{-# DEPRECATED navigationPolicyDecisionGetModifiers ["(Since version 2.6)","Use 'GI.WebKit2.Objects.NavigationPolicyDecision.navigationPolicyDecisionGetNavigationAction' instead."] #-}
navigationPolicyDecisionGetModifiers ::
(B.CallStack.HasCallStack, MonadIO m, IsNavigationPolicyDecision a) =>
a
-> m Word32
navigationPolicyDecisionGetModifiers :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNavigationPolicyDecision a) =>
a -> m Word32
navigationPolicyDecisionGetModifiers a
decision = IO Word32 -> m Word32
forall a. IO a -> m a
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 NavigationPolicyDecision
decision' <- a -> IO (Ptr NavigationPolicyDecision)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
decision
Word32
result <- Ptr NavigationPolicyDecision -> IO Word32
webkit_navigation_policy_decision_get_modifiers Ptr NavigationPolicyDecision
decision'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
decision
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data NavigationPolicyDecisionGetModifiersMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsNavigationPolicyDecision a) => O.OverloadedMethod NavigationPolicyDecisionGetModifiersMethodInfo a signature where
overloadedMethod = navigationPolicyDecisionGetModifiers
instance O.OverloadedMethodInfo NavigationPolicyDecisionGetModifiersMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.NavigationPolicyDecision.navigationPolicyDecisionGetModifiers",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.30/docs/GI-WebKit2-Objects-NavigationPolicyDecision.html#v:navigationPolicyDecisionGetModifiers"
})
#endif
foreign import ccall "webkit_navigation_policy_decision_get_mouse_button" webkit_navigation_policy_decision_get_mouse_button ::
Ptr NavigationPolicyDecision ->
IO Word32
{-# DEPRECATED navigationPolicyDecisionGetMouseButton ["(Since version 2.6)","Use 'GI.WebKit2.Objects.NavigationPolicyDecision.navigationPolicyDecisionGetNavigationAction' instead."] #-}
navigationPolicyDecisionGetMouseButton ::
(B.CallStack.HasCallStack, MonadIO m, IsNavigationPolicyDecision a) =>
a
-> m Word32
navigationPolicyDecisionGetMouseButton :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNavigationPolicyDecision a) =>
a -> m Word32
navigationPolicyDecisionGetMouseButton a
decision = IO Word32 -> m Word32
forall a. IO a -> m a
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 NavigationPolicyDecision
decision' <- a -> IO (Ptr NavigationPolicyDecision)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
decision
Word32
result <- Ptr NavigationPolicyDecision -> IO Word32
webkit_navigation_policy_decision_get_mouse_button Ptr NavigationPolicyDecision
decision'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
decision
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data NavigationPolicyDecisionGetMouseButtonMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsNavigationPolicyDecision a) => O.OverloadedMethod NavigationPolicyDecisionGetMouseButtonMethodInfo a signature where
overloadedMethod = navigationPolicyDecisionGetMouseButton
instance O.OverloadedMethodInfo NavigationPolicyDecisionGetMouseButtonMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.NavigationPolicyDecision.navigationPolicyDecisionGetMouseButton",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.30/docs/GI-WebKit2-Objects-NavigationPolicyDecision.html#v:navigationPolicyDecisionGetMouseButton"
})
#endif
foreign import ccall "webkit_navigation_policy_decision_get_navigation_action" webkit_navigation_policy_decision_get_navigation_action ::
Ptr NavigationPolicyDecision ->
IO (Ptr WebKit2.NavigationAction.NavigationAction)
navigationPolicyDecisionGetNavigationAction ::
(B.CallStack.HasCallStack, MonadIO m, IsNavigationPolicyDecision a) =>
a
-> m WebKit2.NavigationAction.NavigationAction
navigationPolicyDecisionGetNavigationAction :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNavigationPolicyDecision a) =>
a -> m NavigationAction
navigationPolicyDecisionGetNavigationAction a
decision = IO NavigationAction -> m NavigationAction
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO NavigationAction -> m NavigationAction)
-> IO NavigationAction -> m NavigationAction
forall a b. (a -> b) -> a -> b
$ do
Ptr NavigationPolicyDecision
decision' <- a -> IO (Ptr NavigationPolicyDecision)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
decision
Ptr NavigationAction
result <- Ptr NavigationPolicyDecision -> IO (Ptr NavigationAction)
webkit_navigation_policy_decision_get_navigation_action Ptr NavigationPolicyDecision
decision'
Text -> Ptr NavigationAction -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"navigationPolicyDecisionGetNavigationAction" Ptr NavigationAction
result
NavigationAction
result' <- ((ManagedPtr NavigationAction -> NavigationAction)
-> Ptr NavigationAction -> IO NavigationAction
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr NavigationAction -> NavigationAction
WebKit2.NavigationAction.NavigationAction) Ptr NavigationAction
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
decision
NavigationAction -> IO NavigationAction
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return NavigationAction
result'
#if defined(ENABLE_OVERLOADING)
data NavigationPolicyDecisionGetNavigationActionMethodInfo
instance (signature ~ (m WebKit2.NavigationAction.NavigationAction), MonadIO m, IsNavigationPolicyDecision a) => O.OverloadedMethod NavigationPolicyDecisionGetNavigationActionMethodInfo a signature where
overloadedMethod = navigationPolicyDecisionGetNavigationAction
instance O.OverloadedMethodInfo NavigationPolicyDecisionGetNavigationActionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.NavigationPolicyDecision.navigationPolicyDecisionGetNavigationAction",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.30/docs/GI-WebKit2-Objects-NavigationPolicyDecision.html#v:navigationPolicyDecisionGetNavigationAction"
})
#endif
foreign import ccall "webkit_navigation_policy_decision_get_navigation_type" webkit_navigation_policy_decision_get_navigation_type ::
Ptr NavigationPolicyDecision ->
IO CUInt
{-# DEPRECATED navigationPolicyDecisionGetNavigationType ["(Since version 2.6)","Use 'GI.WebKit2.Objects.NavigationPolicyDecision.navigationPolicyDecisionGetNavigationAction' instead."] #-}
navigationPolicyDecisionGetNavigationType ::
(B.CallStack.HasCallStack, MonadIO m, IsNavigationPolicyDecision a) =>
a
-> m WebKit2.Enums.NavigationType
navigationPolicyDecisionGetNavigationType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNavigationPolicyDecision a) =>
a -> m NavigationType
navigationPolicyDecisionGetNavigationType a
decision = IO NavigationType -> m NavigationType
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO NavigationType -> m NavigationType)
-> IO NavigationType -> m NavigationType
forall a b. (a -> b) -> a -> b
$ do
Ptr NavigationPolicyDecision
decision' <- a -> IO (Ptr NavigationPolicyDecision)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
decision
CUInt
result <- Ptr NavigationPolicyDecision -> IO CUInt
webkit_navigation_policy_decision_get_navigation_type Ptr NavigationPolicyDecision
decision'
let result' :: NavigationType
result' = (Int -> NavigationType
forall a. Enum a => Int -> a
toEnum (Int -> NavigationType)
-> (CUInt -> Int) -> CUInt -> NavigationType
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
decision
NavigationType -> IO NavigationType
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return NavigationType
result'
#if defined(ENABLE_OVERLOADING)
data NavigationPolicyDecisionGetNavigationTypeMethodInfo
instance (signature ~ (m WebKit2.Enums.NavigationType), MonadIO m, IsNavigationPolicyDecision a) => O.OverloadedMethod NavigationPolicyDecisionGetNavigationTypeMethodInfo a signature where
overloadedMethod = navigationPolicyDecisionGetNavigationType
instance O.OverloadedMethodInfo NavigationPolicyDecisionGetNavigationTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.NavigationPolicyDecision.navigationPolicyDecisionGetNavigationType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.30/docs/GI-WebKit2-Objects-NavigationPolicyDecision.html#v:navigationPolicyDecisionGetNavigationType"
})
#endif
foreign import ccall "webkit_navigation_policy_decision_get_request" webkit_navigation_policy_decision_get_request ::
Ptr NavigationPolicyDecision ->
IO (Ptr WebKit2.URIRequest.URIRequest)
{-# DEPRECATED navigationPolicyDecisionGetRequest ["(Since version 2.6)","Use 'GI.WebKit2.Objects.NavigationPolicyDecision.navigationPolicyDecisionGetNavigationAction' instead."] #-}
navigationPolicyDecisionGetRequest ::
(B.CallStack.HasCallStack, MonadIO m, IsNavigationPolicyDecision a) =>
a
-> m WebKit2.URIRequest.URIRequest
navigationPolicyDecisionGetRequest :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsNavigationPolicyDecision a) =>
a -> m URIRequest
navigationPolicyDecisionGetRequest 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 NavigationPolicyDecision
decision' <- a -> IO (Ptr NavigationPolicyDecision)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
decision
Ptr URIRequest
result <- Ptr NavigationPolicyDecision -> IO (Ptr URIRequest)
webkit_navigation_policy_decision_get_request Ptr NavigationPolicyDecision
decision'
Text -> Ptr URIRequest -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"navigationPolicyDecisionGetRequest" 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 NavigationPolicyDecisionGetRequestMethodInfo
instance (signature ~ (m WebKit2.URIRequest.URIRequest), MonadIO m, IsNavigationPolicyDecision a) => O.OverloadedMethod NavigationPolicyDecisionGetRequestMethodInfo a signature where
overloadedMethod = navigationPolicyDecisionGetRequest
instance O.OverloadedMethodInfo NavigationPolicyDecisionGetRequestMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.NavigationPolicyDecision.navigationPolicyDecisionGetRequest",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.30/docs/GI-WebKit2-Objects-NavigationPolicyDecision.html#v:navigationPolicyDecisionGetRequest"
})
#endif