#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2.Callbacks
(
C_URISchemeRequestCallback ,
URISchemeRequestCallback ,
URISchemeRequestCallback_WithClosures ,
drop_closures_URISchemeRequestCallback ,
dynamic_URISchemeRequestCallback ,
genClosure_URISchemeRequestCallback ,
mk_URISchemeRequestCallback ,
noURISchemeRequestCallback ,
noURISchemeRequestCallback_WithClosures ,
wrap_URISchemeRequestCallback ,
) 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.ManagedPtr as B.ManagedPtr
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 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 {-# SOURCE #-} qualified GI.WebKit2.Objects.URISchemeRequest as WebKit2.URISchemeRequest
type C_URISchemeRequestCallback =
Ptr WebKit2.URISchemeRequest.URISchemeRequest ->
Ptr () ->
IO ()
foreign import ccall "dynamic" __dynamic_C_URISchemeRequestCallback :: FunPtr C_URISchemeRequestCallback -> C_URISchemeRequestCallback
dynamic_URISchemeRequestCallback ::
(B.CallStack.HasCallStack, MonadIO m, WebKit2.URISchemeRequest.IsURISchemeRequest a) =>
FunPtr C_URISchemeRequestCallback
-> a
-> Ptr ()
-> m ()
dynamic_URISchemeRequestCallback :: FunPtr C_URISchemeRequestCallback -> a -> Ptr () -> m ()
dynamic_URISchemeRequestCallback __funPtr :: FunPtr C_URISchemeRequestCallback
__funPtr request :: a
request userData :: Ptr ()
userData = 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 URISchemeRequest
request' <- a -> IO (Ptr URISchemeRequest)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
request
(FunPtr C_URISchemeRequestCallback -> C_URISchemeRequestCallback
__dynamic_C_URISchemeRequestCallback FunPtr C_URISchemeRequestCallback
__funPtr) Ptr URISchemeRequest
request' Ptr ()
userData
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
request
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "wrapper"
mk_URISchemeRequestCallback :: C_URISchemeRequestCallback -> IO (FunPtr C_URISchemeRequestCallback)
type URISchemeRequestCallback =
WebKit2.URISchemeRequest.URISchemeRequest
-> IO ()
noURISchemeRequestCallback :: Maybe URISchemeRequestCallback
noURISchemeRequestCallback :: Maybe URISchemeRequestCallback
noURISchemeRequestCallback = Maybe URISchemeRequestCallback
forall a. Maybe a
Nothing
type URISchemeRequestCallback_WithClosures =
WebKit2.URISchemeRequest.URISchemeRequest
-> Ptr ()
-> IO ()
noURISchemeRequestCallback_WithClosures :: Maybe URISchemeRequestCallback_WithClosures
noURISchemeRequestCallback_WithClosures :: Maybe URISchemeRequestCallback_WithClosures
noURISchemeRequestCallback_WithClosures = Maybe URISchemeRequestCallback_WithClosures
forall a. Maybe a
Nothing
drop_closures_URISchemeRequestCallback :: URISchemeRequestCallback -> URISchemeRequestCallback_WithClosures
drop_closures_URISchemeRequestCallback :: URISchemeRequestCallback -> URISchemeRequestCallback_WithClosures
drop_closures_URISchemeRequestCallback _f :: URISchemeRequestCallback
_f request :: URISchemeRequest
request _ = URISchemeRequestCallback
_f URISchemeRequest
request
genClosure_URISchemeRequestCallback :: MonadIO m => URISchemeRequestCallback -> m (GClosure C_URISchemeRequestCallback)
genClosure_URISchemeRequestCallback :: URISchemeRequestCallback -> m (GClosure C_URISchemeRequestCallback)
genClosure_URISchemeRequestCallback cb :: URISchemeRequestCallback
cb = IO (GClosure C_URISchemeRequestCallback)
-> m (GClosure C_URISchemeRequestCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_URISchemeRequestCallback)
-> m (GClosure C_URISchemeRequestCallback))
-> IO (GClosure C_URISchemeRequestCallback)
-> m (GClosure C_URISchemeRequestCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: URISchemeRequestCallback_WithClosures
cb' = URISchemeRequestCallback -> URISchemeRequestCallback_WithClosures
drop_closures_URISchemeRequestCallback URISchemeRequestCallback
cb
let cb'' :: C_URISchemeRequestCallback
cb'' = Maybe (Ptr (FunPtr C_URISchemeRequestCallback))
-> URISchemeRequestCallback_WithClosures
-> C_URISchemeRequestCallback
wrap_URISchemeRequestCallback Maybe (Ptr (FunPtr C_URISchemeRequestCallback))
forall a. Maybe a
Nothing URISchemeRequestCallback_WithClosures
cb'
C_URISchemeRequestCallback
-> IO (FunPtr C_URISchemeRequestCallback)
mk_URISchemeRequestCallback C_URISchemeRequestCallback
cb'' IO (FunPtr C_URISchemeRequestCallback)
-> (FunPtr C_URISchemeRequestCallback
-> IO (GClosure C_URISchemeRequestCallback))
-> IO (GClosure C_URISchemeRequestCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_URISchemeRequestCallback
-> IO (GClosure C_URISchemeRequestCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_URISchemeRequestCallback ::
Maybe (Ptr (FunPtr C_URISchemeRequestCallback)) ->
URISchemeRequestCallback_WithClosures ->
C_URISchemeRequestCallback
wrap_URISchemeRequestCallback :: Maybe (Ptr (FunPtr C_URISchemeRequestCallback))
-> URISchemeRequestCallback_WithClosures
-> C_URISchemeRequestCallback
wrap_URISchemeRequestCallback funptrptr :: Maybe (Ptr (FunPtr C_URISchemeRequestCallback))
funptrptr _cb :: URISchemeRequestCallback_WithClosures
_cb request :: Ptr URISchemeRequest
request userData :: Ptr ()
userData = do
URISchemeRequest
request' <- ((ManagedPtr URISchemeRequest -> URISchemeRequest)
-> Ptr URISchemeRequest -> IO URISchemeRequest
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr URISchemeRequest -> URISchemeRequest
WebKit2.URISchemeRequest.URISchemeRequest) Ptr URISchemeRequest
request
URISchemeRequestCallback_WithClosures
_cb URISchemeRequest
request' Ptr ()
userData
Maybe (Ptr (FunPtr C_URISchemeRequestCallback)) -> IO ()
forall a. Maybe (Ptr (FunPtr a)) -> IO ()
maybeReleaseFunPtr Maybe (Ptr (FunPtr C_URISchemeRequestCallback))
funptrptr