{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2.Objects.URISchemeResponse
(
URISchemeResponse(..) ,
IsURISchemeResponse ,
toURISchemeResponse ,
#if defined(ENABLE_OVERLOADING)
ResolveURISchemeResponseMethod ,
#endif
uRISchemeResponseNew ,
#if defined(ENABLE_OVERLOADING)
URISchemeResponseSetContentTypeMethodInfo,
#endif
uRISchemeResponseSetContentType ,
#if defined(ENABLE_OVERLOADING)
URISchemeResponseSetHttpHeadersMethodInfo,
#endif
uRISchemeResponseSetHttpHeaders ,
#if defined(ENABLE_OVERLOADING)
URISchemeResponseSetStatusMethodInfo ,
#endif
uRISchemeResponseSetStatus ,
#if defined(ENABLE_OVERLOADING)
URISchemeResponseStreamPropertyInfo ,
#endif
constructURISchemeResponseStream ,
#if defined(ENABLE_OVERLOADING)
uRISchemeResponseStream ,
#endif
#if defined(ENABLE_OVERLOADING)
URISchemeResponseStreamLengthPropertyInfo,
#endif
constructURISchemeResponseStreamLength ,
#if defined(ENABLE_OVERLOADING)
uRISchemeResponseStreamLength ,
#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 qualified GI.Gio.Objects.InputStream as Gio.InputStream
import qualified GI.Soup.Structs.MessageHeaders as Soup.MessageHeaders
newtype URISchemeResponse = URISchemeResponse (SP.ManagedPtr URISchemeResponse)
deriving (URISchemeResponse -> URISchemeResponse -> Bool
(URISchemeResponse -> URISchemeResponse -> Bool)
-> (URISchemeResponse -> URISchemeResponse -> Bool)
-> Eq URISchemeResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: URISchemeResponse -> URISchemeResponse -> Bool
== :: URISchemeResponse -> URISchemeResponse -> Bool
$c/= :: URISchemeResponse -> URISchemeResponse -> Bool
/= :: URISchemeResponse -> URISchemeResponse -> Bool
Eq)
instance SP.ManagedPtrNewtype URISchemeResponse where
toManagedPtr :: URISchemeResponse -> ManagedPtr URISchemeResponse
toManagedPtr (URISchemeResponse ManagedPtr URISchemeResponse
p) = ManagedPtr URISchemeResponse
p
foreign import ccall "webkit_uri_scheme_response_get_type"
c_webkit_uri_scheme_response_get_type :: IO B.Types.GType
instance B.Types.TypedObject URISchemeResponse where
glibType :: IO GType
glibType = IO GType
c_webkit_uri_scheme_response_get_type
instance B.Types.GObject URISchemeResponse
class (SP.GObject o, O.IsDescendantOf URISchemeResponse o) => IsURISchemeResponse o
instance (SP.GObject o, O.IsDescendantOf URISchemeResponse o) => IsURISchemeResponse o
instance O.HasParentTypes URISchemeResponse
type instance O.ParentTypes URISchemeResponse = '[GObject.Object.Object]
toURISchemeResponse :: (MIO.MonadIO m, IsURISchemeResponse o) => o -> m URISchemeResponse
toURISchemeResponse :: forall (m :: * -> *) o.
(MonadIO m, IsURISchemeResponse o) =>
o -> m URISchemeResponse
toURISchemeResponse = IO URISchemeResponse -> m URISchemeResponse
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO URISchemeResponse -> m URISchemeResponse)
-> (o -> IO URISchemeResponse) -> o -> m URISchemeResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr URISchemeResponse -> URISchemeResponse)
-> o -> IO URISchemeResponse
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr URISchemeResponse -> URISchemeResponse
URISchemeResponse
instance B.GValue.IsGValue (Maybe URISchemeResponse) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_uri_scheme_response_get_type
gvalueSet_ :: Ptr GValue -> Maybe URISchemeResponse -> IO ()
gvalueSet_ Ptr GValue
gv Maybe URISchemeResponse
P.Nothing = Ptr GValue -> Ptr URISchemeResponse -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr URISchemeResponse
forall a. Ptr a
FP.nullPtr :: FP.Ptr URISchemeResponse)
gvalueSet_ Ptr GValue
gv (P.Just URISchemeResponse
obj) = URISchemeResponse -> (Ptr URISchemeResponse -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr URISchemeResponse
obj (Ptr GValue -> Ptr URISchemeResponse -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe URISchemeResponse)
gvalueGet_ Ptr GValue
gv = do
Ptr URISchemeResponse
ptr <- Ptr GValue -> IO (Ptr URISchemeResponse)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr URISchemeResponse)
if Ptr URISchemeResponse
ptr Ptr URISchemeResponse -> Ptr URISchemeResponse -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr URISchemeResponse
forall a. Ptr a
FP.nullPtr
then URISchemeResponse -> Maybe URISchemeResponse
forall a. a -> Maybe a
P.Just (URISchemeResponse -> Maybe URISchemeResponse)
-> IO URISchemeResponse -> IO (Maybe URISchemeResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr URISchemeResponse -> URISchemeResponse)
-> Ptr URISchemeResponse -> IO URISchemeResponse
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr URISchemeResponse -> URISchemeResponse
URISchemeResponse Ptr URISchemeResponse
ptr
else Maybe URISchemeResponse -> IO (Maybe URISchemeResponse)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe URISchemeResponse
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveURISchemeResponseMethod (t :: Symbol) (o :: *) :: * where
ResolveURISchemeResponseMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveURISchemeResponseMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveURISchemeResponseMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveURISchemeResponseMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveURISchemeResponseMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveURISchemeResponseMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveURISchemeResponseMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveURISchemeResponseMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveURISchemeResponseMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveURISchemeResponseMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveURISchemeResponseMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveURISchemeResponseMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveURISchemeResponseMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveURISchemeResponseMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveURISchemeResponseMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveURISchemeResponseMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveURISchemeResponseMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveURISchemeResponseMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveURISchemeResponseMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveURISchemeResponseMethod "setContentType" o = URISchemeResponseSetContentTypeMethodInfo
ResolveURISchemeResponseMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveURISchemeResponseMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveURISchemeResponseMethod "setHttpHeaders" o = URISchemeResponseSetHttpHeadersMethodInfo
ResolveURISchemeResponseMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveURISchemeResponseMethod "setStatus" o = URISchemeResponseSetStatusMethodInfo
ResolveURISchemeResponseMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveURISchemeResponseMethod t URISchemeResponse, O.OverloadedMethod info URISchemeResponse p) => OL.IsLabel t (URISchemeResponse -> 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 ~ ResolveURISchemeResponseMethod t URISchemeResponse, O.OverloadedMethod info URISchemeResponse p, R.HasField t URISchemeResponse p) => R.HasField t URISchemeResponse p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveURISchemeResponseMethod t URISchemeResponse, O.OverloadedMethodInfo info URISchemeResponse) => OL.IsLabel t (O.MethodProxy info URISchemeResponse) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
constructURISchemeResponseStream :: (IsURISchemeResponse o, MIO.MonadIO m, Gio.InputStream.IsInputStream a) => a -> m (GValueConstruct o)
constructURISchemeResponseStream :: forall o (m :: * -> *) a.
(IsURISchemeResponse o, MonadIO m, IsInputStream a) =>
a -> m (GValueConstruct o)
constructURISchemeResponseStream a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"stream" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data URISchemeResponseStreamPropertyInfo
instance AttrInfo URISchemeResponseStreamPropertyInfo where
type AttrAllowedOps URISchemeResponseStreamPropertyInfo = '[ 'AttrConstruct, 'AttrClear]
type AttrBaseTypeConstraint URISchemeResponseStreamPropertyInfo = IsURISchemeResponse
type AttrSetTypeConstraint URISchemeResponseStreamPropertyInfo = Gio.InputStream.IsInputStream
type AttrTransferTypeConstraint URISchemeResponseStreamPropertyInfo = Gio.InputStream.IsInputStream
type AttrTransferType URISchemeResponseStreamPropertyInfo = Gio.InputStream.InputStream
type AttrGetType URISchemeResponseStreamPropertyInfo = ()
type AttrLabel URISchemeResponseStreamPropertyInfo = "stream"
type AttrOrigin URISchemeResponseStreamPropertyInfo = URISchemeResponse
attrGet = undefined
attrSet = undefined
attrTransfer _ v = do
unsafeCastTo Gio.InputStream.InputStream v
attrConstruct = constructURISchemeResponseStream
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.URISchemeResponse.stream"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-URISchemeResponse.html#g:attr:stream"
})
#endif
constructURISchemeResponseStreamLength :: (IsURISchemeResponse o, MIO.MonadIO m) => Int64 -> m (GValueConstruct o)
constructURISchemeResponseStreamLength :: forall o (m :: * -> *).
(IsURISchemeResponse o, MonadIO m) =>
Int64 -> m (GValueConstruct o)
constructURISchemeResponseStreamLength Int64
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int64 -> IO (GValueConstruct o)
forall o. String -> Int64 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt64 String
"stream-length" Int64
val
#if defined(ENABLE_OVERLOADING)
data URISchemeResponseStreamLengthPropertyInfo
instance AttrInfo URISchemeResponseStreamLengthPropertyInfo where
type AttrAllowedOps URISchemeResponseStreamLengthPropertyInfo = '[ 'AttrConstruct]
type AttrBaseTypeConstraint URISchemeResponseStreamLengthPropertyInfo = IsURISchemeResponse
type AttrSetTypeConstraint URISchemeResponseStreamLengthPropertyInfo = (~) Int64
type AttrTransferTypeConstraint URISchemeResponseStreamLengthPropertyInfo = (~) Int64
type AttrTransferType URISchemeResponseStreamLengthPropertyInfo = Int64
type AttrGetType URISchemeResponseStreamLengthPropertyInfo = ()
type AttrLabel URISchemeResponseStreamLengthPropertyInfo = "stream-length"
type AttrOrigin URISchemeResponseStreamLengthPropertyInfo = URISchemeResponse
attrGet = undefined
attrSet = undefined
attrTransfer _ v = do
return v
attrConstruct = constructURISchemeResponseStreamLength
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.URISchemeResponse.streamLength"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-URISchemeResponse.html#g:attr:streamLength"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList URISchemeResponse
type instance O.AttributeList URISchemeResponse = URISchemeResponseAttributeList
type URISchemeResponseAttributeList = ('[ '("stream", URISchemeResponseStreamPropertyInfo), '("streamLength", URISchemeResponseStreamLengthPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
uRISchemeResponseStream :: AttrLabelProxy "stream"
uRISchemeResponseStream = AttrLabelProxy
uRISchemeResponseStreamLength :: AttrLabelProxy "streamLength"
uRISchemeResponseStreamLength = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList URISchemeResponse = URISchemeResponseSignalList
type URISchemeResponseSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_uri_scheme_response_new" webkit_uri_scheme_response_new ::
Ptr Gio.InputStream.InputStream ->
Int64 ->
IO (Ptr URISchemeResponse)
uRISchemeResponseNew ::
(B.CallStack.HasCallStack, MonadIO m, Gio.InputStream.IsInputStream a) =>
a
-> Int64
-> m URISchemeResponse
uRISchemeResponseNew :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsInputStream a) =>
a -> Int64 -> m URISchemeResponse
uRISchemeResponseNew a
inputStream Int64
streamLength = IO URISchemeResponse -> m URISchemeResponse
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO URISchemeResponse -> m URISchemeResponse)
-> IO URISchemeResponse -> m URISchemeResponse
forall a b. (a -> b) -> a -> b
$ do
Ptr InputStream
inputStream' <- a -> IO (Ptr InputStream)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
inputStream
Ptr URISchemeResponse
result <- Ptr InputStream -> Int64 -> IO (Ptr URISchemeResponse)
webkit_uri_scheme_response_new Ptr InputStream
inputStream' Int64
streamLength
Text -> Ptr URISchemeResponse -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"uRISchemeResponseNew" Ptr URISchemeResponse
result
URISchemeResponse
result' <- ((ManagedPtr URISchemeResponse -> URISchemeResponse)
-> Ptr URISchemeResponse -> IO URISchemeResponse
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr URISchemeResponse -> URISchemeResponse
URISchemeResponse) Ptr URISchemeResponse
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
inputStream
URISchemeResponse -> IO URISchemeResponse
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return URISchemeResponse
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "webkit_uri_scheme_response_set_content_type" webkit_uri_scheme_response_set_content_type ::
Ptr URISchemeResponse ->
CString ->
IO ()
uRISchemeResponseSetContentType ::
(B.CallStack.HasCallStack, MonadIO m, IsURISchemeResponse a) =>
a
-> T.Text
-> m ()
uRISchemeResponseSetContentType :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsURISchemeResponse a) =>
a -> Text -> m ()
uRISchemeResponseSetContentType a
response Text
contentType = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr URISchemeResponse
response' <- a -> IO (Ptr URISchemeResponse)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
response
CString
contentType' <- Text -> IO CString
textToCString Text
contentType
Ptr URISchemeResponse -> CString -> IO ()
webkit_uri_scheme_response_set_content_type Ptr URISchemeResponse
response' CString
contentType'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
response
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
contentType'
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data URISchemeResponseSetContentTypeMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsURISchemeResponse a) => O.OverloadedMethod URISchemeResponseSetContentTypeMethodInfo a signature where
overloadedMethod = uRISchemeResponseSetContentType
instance O.OverloadedMethodInfo URISchemeResponseSetContentTypeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.URISchemeResponse.uRISchemeResponseSetContentType",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-URISchemeResponse.html#v:uRISchemeResponseSetContentType"
})
#endif
foreign import ccall "webkit_uri_scheme_response_set_http_headers" ::
Ptr URISchemeResponse ->
Ptr Soup.MessageHeaders.MessageHeaders ->
IO ()
uRISchemeResponseSetHttpHeaders ::
(B.CallStack.HasCallStack, MonadIO m, IsURISchemeResponse a) =>
a
-> Soup.MessageHeaders.MessageHeaders
-> m ()
a
response MessageHeaders
headers = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr URISchemeResponse
response' <- a -> IO (Ptr URISchemeResponse)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
response
Ptr MessageHeaders
headers' <- MessageHeaders -> IO (Ptr MessageHeaders)
forall a. (HasCallStack, GBoxed a) => a -> IO (Ptr a)
B.ManagedPtr.disownBoxed MessageHeaders
headers
Ptr URISchemeResponse -> Ptr MessageHeaders -> IO ()
webkit_uri_scheme_response_set_http_headers Ptr URISchemeResponse
response' Ptr MessageHeaders
headers'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
response
MessageHeaders -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr MessageHeaders
headers
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data URISchemeResponseSetHttpHeadersMethodInfo
instance (signature ~ (Soup.MessageHeaders.MessageHeaders -> m ()), MonadIO m, IsURISchemeResponse a) => O.OverloadedMethod URISchemeResponseSetHttpHeadersMethodInfo a signature where
overloadedMethod = uRISchemeResponseSetHttpHeaders
instance O.OverloadedMethodInfo URISchemeResponseSetHttpHeadersMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.URISchemeResponse.uRISchemeResponseSetHttpHeaders",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-URISchemeResponse.html#v:uRISchemeResponseSetHttpHeaders"
})
#endif
foreign import ccall "webkit_uri_scheme_response_set_status" webkit_uri_scheme_response_set_status ::
Ptr URISchemeResponse ->
Word32 ->
CString ->
IO ()
uRISchemeResponseSetStatus ::
(B.CallStack.HasCallStack, MonadIO m, IsURISchemeResponse a) =>
a
-> Word32
-> Maybe (T.Text)
-> m ()
uRISchemeResponseSetStatus :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsURISchemeResponse a) =>
a -> Word32 -> Maybe Text -> m ()
uRISchemeResponseSetStatus a
response Word32
statusCode Maybe Text
reasonPhrase = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr URISchemeResponse
response' <- a -> IO (Ptr URISchemeResponse)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
response
CString
maybeReasonPhrase <- case Maybe Text
reasonPhrase of
Maybe Text
Nothing -> CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jReasonPhrase -> do
CString
jReasonPhrase' <- Text -> IO CString
textToCString Text
jReasonPhrase
CString -> IO CString
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jReasonPhrase'
Ptr URISchemeResponse -> Word32 -> CString -> IO ()
webkit_uri_scheme_response_set_status Ptr URISchemeResponse
response' Word32
statusCode CString
maybeReasonPhrase
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
response
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeReasonPhrase
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data URISchemeResponseSetStatusMethodInfo
instance (signature ~ (Word32 -> Maybe (T.Text) -> m ()), MonadIO m, IsURISchemeResponse a) => O.OverloadedMethod URISchemeResponseSetStatusMethodInfo a signature where
overloadedMethod = uRISchemeResponseSetStatus
instance O.OverloadedMethodInfo URISchemeResponseSetStatusMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.WebKit2.Objects.URISchemeResponse.uRISchemeResponseSetStatus",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-webkit2-4.0.29/docs/GI-WebKit2-Objects-URISchemeResponse.html#v:uRISchemeResponseSetStatus"
})
#endif