module GI.Soup.Objects.Session
(
Session(..) ,
IsSession ,
toSession ,
noSession ,
SessionAbortMethodInfo ,
sessionAbort ,
SessionAddFeatureMethodInfo ,
sessionAddFeature ,
SessionAddFeatureByTypeMethodInfo ,
sessionAddFeatureByType ,
SessionCancelMessageMethodInfo ,
sessionCancelMessage ,
SessionGetAsyncContextMethodInfo ,
sessionGetAsyncContext ,
SessionGetFeatureMethodInfo ,
sessionGetFeature ,
SessionGetFeatureForMessageMethodInfo ,
sessionGetFeatureForMessage ,
SessionGetFeaturesMethodInfo ,
sessionGetFeatures ,
SessionHasFeatureMethodInfo ,
sessionHasFeature ,
sessionNew ,
SessionPauseMessageMethodInfo ,
sessionPauseMessage ,
SessionPrefetchDnsMethodInfo ,
sessionPrefetchDns ,
SessionPrepareForUriMethodInfo ,
sessionPrepareForUri ,
SessionQueueMessageMethodInfo ,
sessionQueueMessage ,
SessionRedirectMessageMethodInfo ,
sessionRedirectMessage ,
SessionRemoveFeatureMethodInfo ,
sessionRemoveFeature ,
SessionRemoveFeatureByTypeMethodInfo ,
sessionRemoveFeatureByType ,
SessionRequestMethodInfo ,
sessionRequest ,
SessionRequestHttpMethodInfo ,
sessionRequestHttp ,
SessionRequestHttpUriMethodInfo ,
sessionRequestHttpUri ,
SessionRequestUriMethodInfo ,
sessionRequestUri ,
SessionRequeueMessageMethodInfo ,
sessionRequeueMessage ,
SessionSendMethodInfo ,
sessionSend ,
SessionSendAsyncMethodInfo ,
sessionSendAsync ,
SessionSendFinishMethodInfo ,
sessionSendFinish ,
SessionSendMessageMethodInfo ,
sessionSendMessage ,
SessionStealConnectionMethodInfo ,
sessionStealConnection ,
SessionUnpauseMessageMethodInfo ,
sessionUnpauseMessage ,
SessionWebsocketConnectAsyncMethodInfo ,
sessionWebsocketConnectAsync ,
SessionWebsocketConnectFinishMethodInfo ,
sessionWebsocketConnectFinish ,
SessionWouldRedirectMethodInfo ,
sessionWouldRedirect ,
SessionAcceptLanguagePropertyInfo ,
clearSessionAcceptLanguage ,
constructSessionAcceptLanguage ,
getSessionAcceptLanguage ,
sessionAcceptLanguage ,
setSessionAcceptLanguage ,
SessionAcceptLanguageAutoPropertyInfo ,
constructSessionAcceptLanguageAuto ,
getSessionAcceptLanguageAuto ,
sessionAcceptLanguageAuto ,
setSessionAcceptLanguageAuto ,
SessionAsyncContextPropertyInfo ,
constructSessionAsyncContext ,
getSessionAsyncContext ,
sessionAsyncContext ,
SessionHttpAliasesPropertyInfo ,
clearSessionHttpAliases ,
constructSessionHttpAliases ,
getSessionHttpAliases ,
sessionHttpAliases ,
setSessionHttpAliases ,
SessionHttpsAliasesPropertyInfo ,
clearSessionHttpsAliases ,
constructSessionHttpsAliases ,
getSessionHttpsAliases ,
sessionHttpsAliases ,
setSessionHttpsAliases ,
SessionIdleTimeoutPropertyInfo ,
constructSessionIdleTimeout ,
getSessionIdleTimeout ,
sessionIdleTimeout ,
setSessionIdleTimeout ,
SessionLocalAddressPropertyInfo ,
constructSessionLocalAddress ,
getSessionLocalAddress ,
sessionLocalAddress ,
SessionMaxConnsPropertyInfo ,
constructSessionMaxConns ,
getSessionMaxConns ,
sessionMaxConns ,
setSessionMaxConns ,
SessionMaxConnsPerHostPropertyInfo ,
constructSessionMaxConnsPerHost ,
getSessionMaxConnsPerHost ,
sessionMaxConnsPerHost ,
setSessionMaxConnsPerHost ,
SessionProxyResolverPropertyInfo ,
clearSessionProxyResolver ,
constructSessionProxyResolver ,
getSessionProxyResolver ,
sessionProxyResolver ,
setSessionProxyResolver ,
SessionProxyUriPropertyInfo ,
clearSessionProxyUri ,
constructSessionProxyUri ,
getSessionProxyUri ,
sessionProxyUri ,
setSessionProxyUri ,
SessionSslCaFilePropertyInfo ,
clearSessionSslCaFile ,
constructSessionSslCaFile ,
getSessionSslCaFile ,
sessionSslCaFile ,
setSessionSslCaFile ,
SessionSslStrictPropertyInfo ,
constructSessionSslStrict ,
getSessionSslStrict ,
sessionSslStrict ,
setSessionSslStrict ,
SessionSslUseSystemCaFilePropertyInfo ,
constructSessionSslUseSystemCaFile ,
getSessionSslUseSystemCaFile ,
sessionSslUseSystemCaFile ,
setSessionSslUseSystemCaFile ,
SessionTimeoutPropertyInfo ,
constructSessionTimeout ,
getSessionTimeout ,
sessionTimeout ,
setSessionTimeout ,
SessionTlsDatabasePropertyInfo ,
clearSessionTlsDatabase ,
constructSessionTlsDatabase ,
getSessionTlsDatabase ,
sessionTlsDatabase ,
setSessionTlsDatabase ,
SessionTlsInteractionPropertyInfo ,
clearSessionTlsInteraction ,
constructSessionTlsInteraction ,
getSessionTlsInteraction ,
sessionTlsInteraction ,
setSessionTlsInteraction ,
SessionUseNtlmPropertyInfo ,
constructSessionUseNtlm ,
getSessionUseNtlm ,
sessionUseNtlm ,
setSessionUseNtlm ,
SessionUseThreadContextPropertyInfo ,
constructSessionUseThreadContext ,
getSessionUseThreadContext ,
sessionUseThreadContext ,
setSessionUseThreadContext ,
SessionUserAgentPropertyInfo ,
clearSessionUserAgent ,
constructSessionUserAgent ,
getSessionUserAgent ,
sessionUserAgent ,
setSessionUserAgent ,
C_SessionAuthenticateCallback ,
SessionAuthenticateCallback ,
SessionAuthenticateSignalInfo ,
afterSessionAuthenticate ,
genClosure_SessionAuthenticate ,
mk_SessionAuthenticateCallback ,
noSessionAuthenticateCallback ,
onSessionAuthenticate ,
wrap_SessionAuthenticateCallback ,
C_SessionConnectionCreatedCallback ,
SessionConnectionCreatedCallback ,
SessionConnectionCreatedSignalInfo ,
afterSessionConnectionCreated ,
genClosure_SessionConnectionCreated ,
mk_SessionConnectionCreatedCallback ,
noSessionConnectionCreatedCallback ,
onSessionConnectionCreated ,
wrap_SessionConnectionCreatedCallback ,
C_SessionRequestQueuedCallback ,
SessionRequestQueuedCallback ,
SessionRequestQueuedSignalInfo ,
afterSessionRequestQueued ,
genClosure_SessionRequestQueued ,
mk_SessionRequestQueuedCallback ,
noSessionRequestQueuedCallback ,
onSessionRequestQueued ,
wrap_SessionRequestQueuedCallback ,
C_SessionRequestStartedCallback ,
SessionRequestStartedCallback ,
SessionRequestStartedSignalInfo ,
afterSessionRequestStarted ,
genClosure_SessionRequestStarted ,
mk_SessionRequestStartedCallback ,
noSessionRequestStartedCallback ,
onSessionRequestStarted ,
wrap_SessionRequestStartedCallback ,
C_SessionRequestUnqueuedCallback ,
SessionRequestUnqueuedCallback ,
SessionRequestUnqueuedSignalInfo ,
afterSessionRequestUnqueued ,
genClosure_SessionRequestUnqueued ,
mk_SessionRequestUnqueuedCallback ,
noSessionRequestUnqueuedCallback ,
onSessionRequestUnqueued ,
wrap_SessionRequestUnqueuedCallback ,
C_SessionTunnelingCallback ,
SessionTunnelingCallback ,
SessionTunnelingSignalInfo ,
afterSessionTunneling ,
genClosure_SessionTunneling ,
mk_SessionTunnelingCallback ,
noSessionTunnelingCallback ,
onSessionTunneling ,
wrap_SessionTunnelingCallback ,
) 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.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
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 GI.GLib.Structs.MainContext as GLib.MainContext
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Callbacks as Gio.Callbacks
import qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult
import qualified GI.Gio.Interfaces.ProxyResolver as Gio.ProxyResolver
import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable
import qualified GI.Gio.Objects.IOStream as Gio.IOStream
import qualified GI.Gio.Objects.InputStream as Gio.InputStream
import qualified GI.Gio.Objects.TlsDatabase as Gio.TlsDatabase
import qualified GI.Gio.Objects.TlsInteraction as Gio.TlsInteraction
import qualified GI.Soup.Callbacks as Soup.Callbacks
import qualified GI.Soup.Interfaces.SessionFeature as Soup.SessionFeature
import qualified GI.Soup.Objects.Address as Soup.Address
import qualified GI.Soup.Objects.Auth as Soup.Auth
import qualified GI.Soup.Objects.Message as Soup.Message
import qualified GI.Soup.Objects.Request as Soup.Request
import qualified GI.Soup.Objects.RequestHTTP as Soup.RequestHTTP
import qualified GI.Soup.Objects.Socket as Soup.Socket
import qualified GI.Soup.Objects.WebsocketConnection as Soup.WebsocketConnection
import qualified GI.Soup.Structs.URI as Soup.URI
newtype Session = Session (ManagedPtr Session)
foreign import ccall "soup_session_get_type"
c_soup_session_get_type :: IO GType
instance GObject Session where
gobjectType _ = c_soup_session_get_type
class GObject o => IsSession o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError Session a) =>
IsSession a
#endif
instance IsSession Session
instance GObject.Object.IsObject Session
toSession :: IsSession o => o -> IO Session
toSession = unsafeCastTo Session
noSession :: Maybe Session
noSession = Nothing
type family ResolveSessionMethod (t :: Symbol) (o :: *) :: * where
ResolveSessionMethod "abort" o = SessionAbortMethodInfo
ResolveSessionMethod "addFeature" o = SessionAddFeatureMethodInfo
ResolveSessionMethod "addFeatureByType" o = SessionAddFeatureByTypeMethodInfo
ResolveSessionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveSessionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveSessionMethod "cancelMessage" o = SessionCancelMessageMethodInfo
ResolveSessionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveSessionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveSessionMethod "hasFeature" o = SessionHasFeatureMethodInfo
ResolveSessionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveSessionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveSessionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveSessionMethod "pauseMessage" o = SessionPauseMessageMethodInfo
ResolveSessionMethod "prefetchDns" o = SessionPrefetchDnsMethodInfo
ResolveSessionMethod "prepareForUri" o = SessionPrepareForUriMethodInfo
ResolveSessionMethod "queueMessage" o = SessionQueueMessageMethodInfo
ResolveSessionMethod "redirectMessage" o = SessionRedirectMessageMethodInfo
ResolveSessionMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveSessionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveSessionMethod "removeFeature" o = SessionRemoveFeatureMethodInfo
ResolveSessionMethod "removeFeatureByType" o = SessionRemoveFeatureByTypeMethodInfo
ResolveSessionMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveSessionMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveSessionMethod "request" o = SessionRequestMethodInfo
ResolveSessionMethod "requestHttp" o = SessionRequestHttpMethodInfo
ResolveSessionMethod "requestHttpUri" o = SessionRequestHttpUriMethodInfo
ResolveSessionMethod "requestUri" o = SessionRequestUriMethodInfo
ResolveSessionMethod "requeueMessage" o = SessionRequeueMessageMethodInfo
ResolveSessionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveSessionMethod "send" o = SessionSendMethodInfo
ResolveSessionMethod "sendAsync" o = SessionSendAsyncMethodInfo
ResolveSessionMethod "sendFinish" o = SessionSendFinishMethodInfo
ResolveSessionMethod "sendMessage" o = SessionSendMessageMethodInfo
ResolveSessionMethod "stealConnection" o = SessionStealConnectionMethodInfo
ResolveSessionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveSessionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveSessionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveSessionMethod "unpauseMessage" o = SessionUnpauseMessageMethodInfo
ResolveSessionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveSessionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveSessionMethod "websocketConnectAsync" o = SessionWebsocketConnectAsyncMethodInfo
ResolveSessionMethod "websocketConnectFinish" o = SessionWebsocketConnectFinishMethodInfo
ResolveSessionMethod "wouldRedirect" o = SessionWouldRedirectMethodInfo
ResolveSessionMethod "getAsyncContext" o = SessionGetAsyncContextMethodInfo
ResolveSessionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveSessionMethod "getFeature" o = SessionGetFeatureMethodInfo
ResolveSessionMethod "getFeatureForMessage" o = SessionGetFeatureForMessageMethodInfo
ResolveSessionMethod "getFeatures" o = SessionGetFeaturesMethodInfo
ResolveSessionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveSessionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveSessionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveSessionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveSessionMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveSessionMethod t Session, O.MethodInfo info Session p) => O.IsLabelProxy t (Session -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveSessionMethod t Session, O.MethodInfo info Session p) => O.IsLabel t (Session -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
type SessionAuthenticateCallback =
Soup.Message.Message ->
Soup.Auth.Auth ->
Bool ->
IO ()
noSessionAuthenticateCallback :: Maybe SessionAuthenticateCallback
noSessionAuthenticateCallback = Nothing
type C_SessionAuthenticateCallback =
Ptr () ->
Ptr Soup.Message.Message ->
Ptr Soup.Auth.Auth ->
CInt ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_SessionAuthenticateCallback :: C_SessionAuthenticateCallback -> IO (FunPtr C_SessionAuthenticateCallback)
genClosure_SessionAuthenticate :: SessionAuthenticateCallback -> IO Closure
genClosure_SessionAuthenticate cb = do
let cb' = wrap_SessionAuthenticateCallback cb
mk_SessionAuthenticateCallback cb' >>= newCClosure
wrap_SessionAuthenticateCallback ::
SessionAuthenticateCallback ->
Ptr () ->
Ptr Soup.Message.Message ->
Ptr Soup.Auth.Auth ->
CInt ->
Ptr () ->
IO ()
wrap_SessionAuthenticateCallback _cb _ msg auth retrying _ = do
msg' <- (newObject Soup.Message.Message) msg
auth' <- (newObject Soup.Auth.Auth) auth
let retrying' = (/= 0) retrying
_cb msg' auth' retrying'
onSessionAuthenticate :: (GObject a, MonadIO m) => a -> SessionAuthenticateCallback -> m SignalHandlerId
onSessionAuthenticate obj cb = liftIO $ connectSessionAuthenticate obj cb SignalConnectBefore
afterSessionAuthenticate :: (GObject a, MonadIO m) => a -> SessionAuthenticateCallback -> m SignalHandlerId
afterSessionAuthenticate obj cb = connectSessionAuthenticate obj cb SignalConnectAfter
connectSessionAuthenticate :: (GObject a, MonadIO m) =>
a -> SessionAuthenticateCallback -> SignalConnectMode -> m SignalHandlerId
connectSessionAuthenticate obj cb after = liftIO $ do
let cb' = wrap_SessionAuthenticateCallback cb
cb'' <- mk_SessionAuthenticateCallback cb'
connectSignalFunPtr obj "authenticate" cb'' after
type SessionConnectionCreatedCallback =
GObject.Object.Object ->
IO ()
noSessionConnectionCreatedCallback :: Maybe SessionConnectionCreatedCallback
noSessionConnectionCreatedCallback = Nothing
type C_SessionConnectionCreatedCallback =
Ptr () ->
Ptr GObject.Object.Object ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_SessionConnectionCreatedCallback :: C_SessionConnectionCreatedCallback -> IO (FunPtr C_SessionConnectionCreatedCallback)
genClosure_SessionConnectionCreated :: SessionConnectionCreatedCallback -> IO Closure
genClosure_SessionConnectionCreated cb = do
let cb' = wrap_SessionConnectionCreatedCallback cb
mk_SessionConnectionCreatedCallback cb' >>= newCClosure
wrap_SessionConnectionCreatedCallback ::
SessionConnectionCreatedCallback ->
Ptr () ->
Ptr GObject.Object.Object ->
Ptr () ->
IO ()
wrap_SessionConnectionCreatedCallback _cb _ connection _ = do
connection' <- (newObject GObject.Object.Object) connection
_cb connection'
onSessionConnectionCreated :: (GObject a, MonadIO m) => a -> SessionConnectionCreatedCallback -> m SignalHandlerId
onSessionConnectionCreated obj cb = liftIO $ connectSessionConnectionCreated obj cb SignalConnectBefore
afterSessionConnectionCreated :: (GObject a, MonadIO m) => a -> SessionConnectionCreatedCallback -> m SignalHandlerId
afterSessionConnectionCreated obj cb = connectSessionConnectionCreated obj cb SignalConnectAfter
connectSessionConnectionCreated :: (GObject a, MonadIO m) =>
a -> SessionConnectionCreatedCallback -> SignalConnectMode -> m SignalHandlerId
connectSessionConnectionCreated obj cb after = liftIO $ do
let cb' = wrap_SessionConnectionCreatedCallback cb
cb'' <- mk_SessionConnectionCreatedCallback cb'
connectSignalFunPtr obj "connection-created" cb'' after
type SessionRequestQueuedCallback =
Soup.Message.Message ->
IO ()
noSessionRequestQueuedCallback :: Maybe SessionRequestQueuedCallback
noSessionRequestQueuedCallback = Nothing
type C_SessionRequestQueuedCallback =
Ptr () ->
Ptr Soup.Message.Message ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_SessionRequestQueuedCallback :: C_SessionRequestQueuedCallback -> IO (FunPtr C_SessionRequestQueuedCallback)
genClosure_SessionRequestQueued :: SessionRequestQueuedCallback -> IO Closure
genClosure_SessionRequestQueued cb = do
let cb' = wrap_SessionRequestQueuedCallback cb
mk_SessionRequestQueuedCallback cb' >>= newCClosure
wrap_SessionRequestQueuedCallback ::
SessionRequestQueuedCallback ->
Ptr () ->
Ptr Soup.Message.Message ->
Ptr () ->
IO ()
wrap_SessionRequestQueuedCallback _cb _ msg _ = do
msg' <- (newObject Soup.Message.Message) msg
_cb msg'
onSessionRequestQueued :: (GObject a, MonadIO m) => a -> SessionRequestQueuedCallback -> m SignalHandlerId
onSessionRequestQueued obj cb = liftIO $ connectSessionRequestQueued obj cb SignalConnectBefore
afterSessionRequestQueued :: (GObject a, MonadIO m) => a -> SessionRequestQueuedCallback -> m SignalHandlerId
afterSessionRequestQueued obj cb = connectSessionRequestQueued obj cb SignalConnectAfter
connectSessionRequestQueued :: (GObject a, MonadIO m) =>
a -> SessionRequestQueuedCallback -> SignalConnectMode -> m SignalHandlerId
connectSessionRequestQueued obj cb after = liftIO $ do
let cb' = wrap_SessionRequestQueuedCallback cb
cb'' <- mk_SessionRequestQueuedCallback cb'
connectSignalFunPtr obj "request-queued" cb'' after
type SessionRequestStartedCallback =
Soup.Message.Message ->
Soup.Socket.Socket ->
IO ()
noSessionRequestStartedCallback :: Maybe SessionRequestStartedCallback
noSessionRequestStartedCallback = Nothing
type C_SessionRequestStartedCallback =
Ptr () ->
Ptr Soup.Message.Message ->
Ptr Soup.Socket.Socket ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_SessionRequestStartedCallback :: C_SessionRequestStartedCallback -> IO (FunPtr C_SessionRequestStartedCallback)
genClosure_SessionRequestStarted :: SessionRequestStartedCallback -> IO Closure
genClosure_SessionRequestStarted cb = do
let cb' = wrap_SessionRequestStartedCallback cb
mk_SessionRequestStartedCallback cb' >>= newCClosure
wrap_SessionRequestStartedCallback ::
SessionRequestStartedCallback ->
Ptr () ->
Ptr Soup.Message.Message ->
Ptr Soup.Socket.Socket ->
Ptr () ->
IO ()
wrap_SessionRequestStartedCallback _cb _ msg socket _ = do
msg' <- (newObject Soup.Message.Message) msg
socket' <- (newObject Soup.Socket.Socket) socket
_cb msg' socket'
onSessionRequestStarted :: (GObject a, MonadIO m) => a -> SessionRequestStartedCallback -> m SignalHandlerId
onSessionRequestStarted obj cb = liftIO $ connectSessionRequestStarted obj cb SignalConnectBefore
afterSessionRequestStarted :: (GObject a, MonadIO m) => a -> SessionRequestStartedCallback -> m SignalHandlerId
afterSessionRequestStarted obj cb = connectSessionRequestStarted obj cb SignalConnectAfter
connectSessionRequestStarted :: (GObject a, MonadIO m) =>
a -> SessionRequestStartedCallback -> SignalConnectMode -> m SignalHandlerId
connectSessionRequestStarted obj cb after = liftIO $ do
let cb' = wrap_SessionRequestStartedCallback cb
cb'' <- mk_SessionRequestStartedCallback cb'
connectSignalFunPtr obj "request-started" cb'' after
type SessionRequestUnqueuedCallback =
Soup.Message.Message ->
IO ()
noSessionRequestUnqueuedCallback :: Maybe SessionRequestUnqueuedCallback
noSessionRequestUnqueuedCallback = Nothing
type C_SessionRequestUnqueuedCallback =
Ptr () ->
Ptr Soup.Message.Message ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_SessionRequestUnqueuedCallback :: C_SessionRequestUnqueuedCallback -> IO (FunPtr C_SessionRequestUnqueuedCallback)
genClosure_SessionRequestUnqueued :: SessionRequestUnqueuedCallback -> IO Closure
genClosure_SessionRequestUnqueued cb = do
let cb' = wrap_SessionRequestUnqueuedCallback cb
mk_SessionRequestUnqueuedCallback cb' >>= newCClosure
wrap_SessionRequestUnqueuedCallback ::
SessionRequestUnqueuedCallback ->
Ptr () ->
Ptr Soup.Message.Message ->
Ptr () ->
IO ()
wrap_SessionRequestUnqueuedCallback _cb _ msg _ = do
msg' <- (newObject Soup.Message.Message) msg
_cb msg'
onSessionRequestUnqueued :: (GObject a, MonadIO m) => a -> SessionRequestUnqueuedCallback -> m SignalHandlerId
onSessionRequestUnqueued obj cb = liftIO $ connectSessionRequestUnqueued obj cb SignalConnectBefore
afterSessionRequestUnqueued :: (GObject a, MonadIO m) => a -> SessionRequestUnqueuedCallback -> m SignalHandlerId
afterSessionRequestUnqueued obj cb = connectSessionRequestUnqueued obj cb SignalConnectAfter
connectSessionRequestUnqueued :: (GObject a, MonadIO m) =>
a -> SessionRequestUnqueuedCallback -> SignalConnectMode -> m SignalHandlerId
connectSessionRequestUnqueued obj cb after = liftIO $ do
let cb' = wrap_SessionRequestUnqueuedCallback cb
cb'' <- mk_SessionRequestUnqueuedCallback cb'
connectSignalFunPtr obj "request-unqueued" cb'' after
type SessionTunnelingCallback =
GObject.Object.Object ->
IO ()
noSessionTunnelingCallback :: Maybe SessionTunnelingCallback
noSessionTunnelingCallback = Nothing
type C_SessionTunnelingCallback =
Ptr () ->
Ptr GObject.Object.Object ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_SessionTunnelingCallback :: C_SessionTunnelingCallback -> IO (FunPtr C_SessionTunnelingCallback)
genClosure_SessionTunneling :: SessionTunnelingCallback -> IO Closure
genClosure_SessionTunneling cb = do
let cb' = wrap_SessionTunnelingCallback cb
mk_SessionTunnelingCallback cb' >>= newCClosure
wrap_SessionTunnelingCallback ::
SessionTunnelingCallback ->
Ptr () ->
Ptr GObject.Object.Object ->
Ptr () ->
IO ()
wrap_SessionTunnelingCallback _cb _ connection _ = do
connection' <- (newObject GObject.Object.Object) connection
_cb connection'
onSessionTunneling :: (GObject a, MonadIO m) => a -> SessionTunnelingCallback -> m SignalHandlerId
onSessionTunneling obj cb = liftIO $ connectSessionTunneling obj cb SignalConnectBefore
afterSessionTunneling :: (GObject a, MonadIO m) => a -> SessionTunnelingCallback -> m SignalHandlerId
afterSessionTunneling obj cb = connectSessionTunneling obj cb SignalConnectAfter
connectSessionTunneling :: (GObject a, MonadIO m) =>
a -> SessionTunnelingCallback -> SignalConnectMode -> m SignalHandlerId
connectSessionTunneling obj cb after = liftIO $ do
let cb' = wrap_SessionTunnelingCallback cb
cb'' <- mk_SessionTunnelingCallback cb'
connectSignalFunPtr obj "tunneling" cb'' after
getSessionAcceptLanguage :: (MonadIO m, IsSession o) => o -> m (Maybe T.Text)
getSessionAcceptLanguage obj = liftIO $ getObjectPropertyString obj "accept-language"
setSessionAcceptLanguage :: (MonadIO m, IsSession o) => o -> T.Text -> m ()
setSessionAcceptLanguage obj val = liftIO $ setObjectPropertyString obj "accept-language" (Just val)
constructSessionAcceptLanguage :: (IsSession o) => T.Text -> IO (GValueConstruct o)
constructSessionAcceptLanguage val = constructObjectPropertyString "accept-language" (Just val)
clearSessionAcceptLanguage :: (MonadIO m, IsSession o) => o -> m ()
clearSessionAcceptLanguage obj = liftIO $ setObjectPropertyString obj "accept-language" (Nothing :: Maybe T.Text)
data SessionAcceptLanguagePropertyInfo
instance AttrInfo SessionAcceptLanguagePropertyInfo where
type AttrAllowedOps SessionAcceptLanguagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint SessionAcceptLanguagePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint SessionAcceptLanguagePropertyInfo = IsSession
type AttrGetType SessionAcceptLanguagePropertyInfo = (Maybe T.Text)
type AttrLabel SessionAcceptLanguagePropertyInfo = "accept-language"
type AttrOrigin SessionAcceptLanguagePropertyInfo = Session
attrGet _ = getSessionAcceptLanguage
attrSet _ = setSessionAcceptLanguage
attrConstruct _ = constructSessionAcceptLanguage
attrClear _ = clearSessionAcceptLanguage
getSessionAcceptLanguageAuto :: (MonadIO m, IsSession o) => o -> m Bool
getSessionAcceptLanguageAuto obj = liftIO $ getObjectPropertyBool obj "accept-language-auto"
setSessionAcceptLanguageAuto :: (MonadIO m, IsSession o) => o -> Bool -> m ()
setSessionAcceptLanguageAuto obj val = liftIO $ setObjectPropertyBool obj "accept-language-auto" val
constructSessionAcceptLanguageAuto :: (IsSession o) => Bool -> IO (GValueConstruct o)
constructSessionAcceptLanguageAuto val = constructObjectPropertyBool "accept-language-auto" val
data SessionAcceptLanguageAutoPropertyInfo
instance AttrInfo SessionAcceptLanguageAutoPropertyInfo where
type AttrAllowedOps SessionAcceptLanguageAutoPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SessionAcceptLanguageAutoPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SessionAcceptLanguageAutoPropertyInfo = IsSession
type AttrGetType SessionAcceptLanguageAutoPropertyInfo = Bool
type AttrLabel SessionAcceptLanguageAutoPropertyInfo = "accept-language-auto"
type AttrOrigin SessionAcceptLanguageAutoPropertyInfo = Session
attrGet _ = getSessionAcceptLanguageAuto
attrSet _ = setSessionAcceptLanguageAuto
attrConstruct _ = constructSessionAcceptLanguageAuto
attrClear _ = undefined
getSessionAsyncContext :: (MonadIO m, IsSession o) => o -> m (Ptr ())
getSessionAsyncContext obj = liftIO $ getObjectPropertyPtr obj "async-context"
constructSessionAsyncContext :: (IsSession o) => Ptr () -> IO (GValueConstruct o)
constructSessionAsyncContext val = constructObjectPropertyPtr "async-context" val
data SessionAsyncContextPropertyInfo
instance AttrInfo SessionAsyncContextPropertyInfo where
type AttrAllowedOps SessionAsyncContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SessionAsyncContextPropertyInfo = (~) (Ptr ())
type AttrBaseTypeConstraint SessionAsyncContextPropertyInfo = IsSession
type AttrGetType SessionAsyncContextPropertyInfo = (Ptr ())
type AttrLabel SessionAsyncContextPropertyInfo = "async-context"
type AttrOrigin SessionAsyncContextPropertyInfo = Session
attrGet _ = getSessionAsyncContext
attrSet _ = undefined
attrConstruct _ = constructSessionAsyncContext
attrClear _ = undefined
getSessionHttpAliases :: (MonadIO m, IsSession o) => o -> m (Maybe [T.Text])
getSessionHttpAliases obj = liftIO $ getObjectPropertyStringArray obj "http-aliases"
setSessionHttpAliases :: (MonadIO m, IsSession o) => o -> [T.Text] -> m ()
setSessionHttpAliases obj val = liftIO $ setObjectPropertyStringArray obj "http-aliases" (Just val)
constructSessionHttpAliases :: (IsSession o) => [T.Text] -> IO (GValueConstruct o)
constructSessionHttpAliases val = constructObjectPropertyStringArray "http-aliases" (Just val)
clearSessionHttpAliases :: (MonadIO m, IsSession o) => o -> m ()
clearSessionHttpAliases obj = liftIO $ setObjectPropertyStringArray obj "http-aliases" (Nothing :: Maybe [T.Text])
data SessionHttpAliasesPropertyInfo
instance AttrInfo SessionHttpAliasesPropertyInfo where
type AttrAllowedOps SessionHttpAliasesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint SessionHttpAliasesPropertyInfo = (~) [T.Text]
type AttrBaseTypeConstraint SessionHttpAliasesPropertyInfo = IsSession
type AttrGetType SessionHttpAliasesPropertyInfo = (Maybe [T.Text])
type AttrLabel SessionHttpAliasesPropertyInfo = "http-aliases"
type AttrOrigin SessionHttpAliasesPropertyInfo = Session
attrGet _ = getSessionHttpAliases
attrSet _ = setSessionHttpAliases
attrConstruct _ = constructSessionHttpAliases
attrClear _ = clearSessionHttpAliases
getSessionHttpsAliases :: (MonadIO m, IsSession o) => o -> m (Maybe [T.Text])
getSessionHttpsAliases obj = liftIO $ getObjectPropertyStringArray obj "https-aliases"
setSessionHttpsAliases :: (MonadIO m, IsSession o) => o -> [T.Text] -> m ()
setSessionHttpsAliases obj val = liftIO $ setObjectPropertyStringArray obj "https-aliases" (Just val)
constructSessionHttpsAliases :: (IsSession o) => [T.Text] -> IO (GValueConstruct o)
constructSessionHttpsAliases val = constructObjectPropertyStringArray "https-aliases" (Just val)
clearSessionHttpsAliases :: (MonadIO m, IsSession o) => o -> m ()
clearSessionHttpsAliases obj = liftIO $ setObjectPropertyStringArray obj "https-aliases" (Nothing :: Maybe [T.Text])
data SessionHttpsAliasesPropertyInfo
instance AttrInfo SessionHttpsAliasesPropertyInfo where
type AttrAllowedOps SessionHttpsAliasesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint SessionHttpsAliasesPropertyInfo = (~) [T.Text]
type AttrBaseTypeConstraint SessionHttpsAliasesPropertyInfo = IsSession
type AttrGetType SessionHttpsAliasesPropertyInfo = (Maybe [T.Text])
type AttrLabel SessionHttpsAliasesPropertyInfo = "https-aliases"
type AttrOrigin SessionHttpsAliasesPropertyInfo = Session
attrGet _ = getSessionHttpsAliases
attrSet _ = setSessionHttpsAliases
attrConstruct _ = constructSessionHttpsAliases
attrClear _ = clearSessionHttpsAliases
getSessionIdleTimeout :: (MonadIO m, IsSession o) => o -> m Word32
getSessionIdleTimeout obj = liftIO $ getObjectPropertyUInt32 obj "idle-timeout"
setSessionIdleTimeout :: (MonadIO m, IsSession o) => o -> Word32 -> m ()
setSessionIdleTimeout obj val = liftIO $ setObjectPropertyUInt32 obj "idle-timeout" val
constructSessionIdleTimeout :: (IsSession o) => Word32 -> IO (GValueConstruct o)
constructSessionIdleTimeout val = constructObjectPropertyUInt32 "idle-timeout" val
data SessionIdleTimeoutPropertyInfo
instance AttrInfo SessionIdleTimeoutPropertyInfo where
type AttrAllowedOps SessionIdleTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SessionIdleTimeoutPropertyInfo = (~) Word32
type AttrBaseTypeConstraint SessionIdleTimeoutPropertyInfo = IsSession
type AttrGetType SessionIdleTimeoutPropertyInfo = Word32
type AttrLabel SessionIdleTimeoutPropertyInfo = "idle-timeout"
type AttrOrigin SessionIdleTimeoutPropertyInfo = Session
attrGet _ = getSessionIdleTimeout
attrSet _ = setSessionIdleTimeout
attrConstruct _ = constructSessionIdleTimeout
attrClear _ = undefined
getSessionLocalAddress :: (MonadIO m, IsSession o) => o -> m (Maybe Soup.Address.Address)
getSessionLocalAddress obj = liftIO $ getObjectPropertyObject obj "local-address" Soup.Address.Address
constructSessionLocalAddress :: (IsSession o, Soup.Address.IsAddress a) => a -> IO (GValueConstruct o)
constructSessionLocalAddress val = constructObjectPropertyObject "local-address" (Just val)
data SessionLocalAddressPropertyInfo
instance AttrInfo SessionLocalAddressPropertyInfo where
type AttrAllowedOps SessionLocalAddressPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint SessionLocalAddressPropertyInfo = Soup.Address.IsAddress
type AttrBaseTypeConstraint SessionLocalAddressPropertyInfo = IsSession
type AttrGetType SessionLocalAddressPropertyInfo = (Maybe Soup.Address.Address)
type AttrLabel SessionLocalAddressPropertyInfo = "local-address"
type AttrOrigin SessionLocalAddressPropertyInfo = Session
attrGet _ = getSessionLocalAddress
attrSet _ = undefined
attrConstruct _ = constructSessionLocalAddress
attrClear _ = undefined
getSessionMaxConns :: (MonadIO m, IsSession o) => o -> m Int32
getSessionMaxConns obj = liftIO $ getObjectPropertyInt32 obj "max-conns"
setSessionMaxConns :: (MonadIO m, IsSession o) => o -> Int32 -> m ()
setSessionMaxConns obj val = liftIO $ setObjectPropertyInt32 obj "max-conns" val
constructSessionMaxConns :: (IsSession o) => Int32 -> IO (GValueConstruct o)
constructSessionMaxConns val = constructObjectPropertyInt32 "max-conns" val
data SessionMaxConnsPropertyInfo
instance AttrInfo SessionMaxConnsPropertyInfo where
type AttrAllowedOps SessionMaxConnsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SessionMaxConnsPropertyInfo = (~) Int32
type AttrBaseTypeConstraint SessionMaxConnsPropertyInfo = IsSession
type AttrGetType SessionMaxConnsPropertyInfo = Int32
type AttrLabel SessionMaxConnsPropertyInfo = "max-conns"
type AttrOrigin SessionMaxConnsPropertyInfo = Session
attrGet _ = getSessionMaxConns
attrSet _ = setSessionMaxConns
attrConstruct _ = constructSessionMaxConns
attrClear _ = undefined
getSessionMaxConnsPerHost :: (MonadIO m, IsSession o) => o -> m Int32
getSessionMaxConnsPerHost obj = liftIO $ getObjectPropertyInt32 obj "max-conns-per-host"
setSessionMaxConnsPerHost :: (MonadIO m, IsSession o) => o -> Int32 -> m ()
setSessionMaxConnsPerHost obj val = liftIO $ setObjectPropertyInt32 obj "max-conns-per-host" val
constructSessionMaxConnsPerHost :: (IsSession o) => Int32 -> IO (GValueConstruct o)
constructSessionMaxConnsPerHost val = constructObjectPropertyInt32 "max-conns-per-host" val
data SessionMaxConnsPerHostPropertyInfo
instance AttrInfo SessionMaxConnsPerHostPropertyInfo where
type AttrAllowedOps SessionMaxConnsPerHostPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SessionMaxConnsPerHostPropertyInfo = (~) Int32
type AttrBaseTypeConstraint SessionMaxConnsPerHostPropertyInfo = IsSession
type AttrGetType SessionMaxConnsPerHostPropertyInfo = Int32
type AttrLabel SessionMaxConnsPerHostPropertyInfo = "max-conns-per-host"
type AttrOrigin SessionMaxConnsPerHostPropertyInfo = Session
attrGet _ = getSessionMaxConnsPerHost
attrSet _ = setSessionMaxConnsPerHost
attrConstruct _ = constructSessionMaxConnsPerHost
attrClear _ = undefined
getSessionProxyResolver :: (MonadIO m, IsSession o) => o -> m (Maybe Gio.ProxyResolver.ProxyResolver)
getSessionProxyResolver obj = liftIO $ getObjectPropertyObject obj "proxy-resolver" Gio.ProxyResolver.ProxyResolver
setSessionProxyResolver :: (MonadIO m, IsSession o, Gio.ProxyResolver.IsProxyResolver a) => o -> a -> m ()
setSessionProxyResolver obj val = liftIO $ setObjectPropertyObject obj "proxy-resolver" (Just val)
constructSessionProxyResolver :: (IsSession o, Gio.ProxyResolver.IsProxyResolver a) => a -> IO (GValueConstruct o)
constructSessionProxyResolver val = constructObjectPropertyObject "proxy-resolver" (Just val)
clearSessionProxyResolver :: (MonadIO m, IsSession o) => o -> m ()
clearSessionProxyResolver obj = liftIO $ setObjectPropertyObject obj "proxy-resolver" (Nothing :: Maybe Gio.ProxyResolver.ProxyResolver)
data SessionProxyResolverPropertyInfo
instance AttrInfo SessionProxyResolverPropertyInfo where
type AttrAllowedOps SessionProxyResolverPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint SessionProxyResolverPropertyInfo = Gio.ProxyResolver.IsProxyResolver
type AttrBaseTypeConstraint SessionProxyResolverPropertyInfo = IsSession
type AttrGetType SessionProxyResolverPropertyInfo = (Maybe Gio.ProxyResolver.ProxyResolver)
type AttrLabel SessionProxyResolverPropertyInfo = "proxy-resolver"
type AttrOrigin SessionProxyResolverPropertyInfo = Session
attrGet _ = getSessionProxyResolver
attrSet _ = setSessionProxyResolver
attrConstruct _ = constructSessionProxyResolver
attrClear _ = clearSessionProxyResolver
getSessionProxyUri :: (MonadIO m, IsSession o) => o -> m (Maybe Soup.URI.URI)
getSessionProxyUri obj = liftIO $ getObjectPropertyBoxed obj "proxy-uri" Soup.URI.URI
setSessionProxyUri :: (MonadIO m, IsSession o) => o -> Soup.URI.URI -> m ()
setSessionProxyUri obj val = liftIO $ setObjectPropertyBoxed obj "proxy-uri" (Just val)
constructSessionProxyUri :: (IsSession o) => Soup.URI.URI -> IO (GValueConstruct o)
constructSessionProxyUri val = constructObjectPropertyBoxed "proxy-uri" (Just val)
clearSessionProxyUri :: (MonadIO m, IsSession o) => o -> m ()
clearSessionProxyUri obj = liftIO $ setObjectPropertyBoxed obj "proxy-uri" (Nothing :: Maybe Soup.URI.URI)
data SessionProxyUriPropertyInfo
instance AttrInfo SessionProxyUriPropertyInfo where
type AttrAllowedOps SessionProxyUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint SessionProxyUriPropertyInfo = (~) Soup.URI.URI
type AttrBaseTypeConstraint SessionProxyUriPropertyInfo = IsSession
type AttrGetType SessionProxyUriPropertyInfo = (Maybe Soup.URI.URI)
type AttrLabel SessionProxyUriPropertyInfo = "proxy-uri"
type AttrOrigin SessionProxyUriPropertyInfo = Session
attrGet _ = getSessionProxyUri
attrSet _ = setSessionProxyUri
attrConstruct _ = constructSessionProxyUri
attrClear _ = clearSessionProxyUri
getSessionSslCaFile :: (MonadIO m, IsSession o) => o -> m (Maybe T.Text)
getSessionSslCaFile obj = liftIO $ getObjectPropertyString obj "ssl-ca-file"
setSessionSslCaFile :: (MonadIO m, IsSession o) => o -> T.Text -> m ()
setSessionSslCaFile obj val = liftIO $ setObjectPropertyString obj "ssl-ca-file" (Just val)
constructSessionSslCaFile :: (IsSession o) => T.Text -> IO (GValueConstruct o)
constructSessionSslCaFile val = constructObjectPropertyString "ssl-ca-file" (Just val)
clearSessionSslCaFile :: (MonadIO m, IsSession o) => o -> m ()
clearSessionSslCaFile obj = liftIO $ setObjectPropertyString obj "ssl-ca-file" (Nothing :: Maybe T.Text)
data SessionSslCaFilePropertyInfo
instance AttrInfo SessionSslCaFilePropertyInfo where
type AttrAllowedOps SessionSslCaFilePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint SessionSslCaFilePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint SessionSslCaFilePropertyInfo = IsSession
type AttrGetType SessionSslCaFilePropertyInfo = (Maybe T.Text)
type AttrLabel SessionSslCaFilePropertyInfo = "ssl-ca-file"
type AttrOrigin SessionSslCaFilePropertyInfo = Session
attrGet _ = getSessionSslCaFile
attrSet _ = setSessionSslCaFile
attrConstruct _ = constructSessionSslCaFile
attrClear _ = clearSessionSslCaFile
getSessionSslStrict :: (MonadIO m, IsSession o) => o -> m Bool
getSessionSslStrict obj = liftIO $ getObjectPropertyBool obj "ssl-strict"
setSessionSslStrict :: (MonadIO m, IsSession o) => o -> Bool -> m ()
setSessionSslStrict obj val = liftIO $ setObjectPropertyBool obj "ssl-strict" val
constructSessionSslStrict :: (IsSession o) => Bool -> IO (GValueConstruct o)
constructSessionSslStrict val = constructObjectPropertyBool "ssl-strict" val
data SessionSslStrictPropertyInfo
instance AttrInfo SessionSslStrictPropertyInfo where
type AttrAllowedOps SessionSslStrictPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SessionSslStrictPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SessionSslStrictPropertyInfo = IsSession
type AttrGetType SessionSslStrictPropertyInfo = Bool
type AttrLabel SessionSslStrictPropertyInfo = "ssl-strict"
type AttrOrigin SessionSslStrictPropertyInfo = Session
attrGet _ = getSessionSslStrict
attrSet _ = setSessionSslStrict
attrConstruct _ = constructSessionSslStrict
attrClear _ = undefined
getSessionSslUseSystemCaFile :: (MonadIO m, IsSession o) => o -> m Bool
getSessionSslUseSystemCaFile obj = liftIO $ getObjectPropertyBool obj "ssl-use-system-ca-file"
setSessionSslUseSystemCaFile :: (MonadIO m, IsSession o) => o -> Bool -> m ()
setSessionSslUseSystemCaFile obj val = liftIO $ setObjectPropertyBool obj "ssl-use-system-ca-file" val
constructSessionSslUseSystemCaFile :: (IsSession o) => Bool -> IO (GValueConstruct o)
constructSessionSslUseSystemCaFile val = constructObjectPropertyBool "ssl-use-system-ca-file" val
data SessionSslUseSystemCaFilePropertyInfo
instance AttrInfo SessionSslUseSystemCaFilePropertyInfo where
type AttrAllowedOps SessionSslUseSystemCaFilePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SessionSslUseSystemCaFilePropertyInfo = (~) Bool
type AttrBaseTypeConstraint SessionSslUseSystemCaFilePropertyInfo = IsSession
type AttrGetType SessionSslUseSystemCaFilePropertyInfo = Bool
type AttrLabel SessionSslUseSystemCaFilePropertyInfo = "ssl-use-system-ca-file"
type AttrOrigin SessionSslUseSystemCaFilePropertyInfo = Session
attrGet _ = getSessionSslUseSystemCaFile
attrSet _ = setSessionSslUseSystemCaFile
attrConstruct _ = constructSessionSslUseSystemCaFile
attrClear _ = undefined
getSessionTimeout :: (MonadIO m, IsSession o) => o -> m Word32
getSessionTimeout obj = liftIO $ getObjectPropertyUInt32 obj "timeout"
setSessionTimeout :: (MonadIO m, IsSession o) => o -> Word32 -> m ()
setSessionTimeout obj val = liftIO $ setObjectPropertyUInt32 obj "timeout" val
constructSessionTimeout :: (IsSession o) => Word32 -> IO (GValueConstruct o)
constructSessionTimeout val = constructObjectPropertyUInt32 "timeout" val
data SessionTimeoutPropertyInfo
instance AttrInfo SessionTimeoutPropertyInfo where
type AttrAllowedOps SessionTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SessionTimeoutPropertyInfo = (~) Word32
type AttrBaseTypeConstraint SessionTimeoutPropertyInfo = IsSession
type AttrGetType SessionTimeoutPropertyInfo = Word32
type AttrLabel SessionTimeoutPropertyInfo = "timeout"
type AttrOrigin SessionTimeoutPropertyInfo = Session
attrGet _ = getSessionTimeout
attrSet _ = setSessionTimeout
attrConstruct _ = constructSessionTimeout
attrClear _ = undefined
getSessionTlsDatabase :: (MonadIO m, IsSession o) => o -> m (Maybe Gio.TlsDatabase.TlsDatabase)
getSessionTlsDatabase obj = liftIO $ getObjectPropertyObject obj "tls-database" Gio.TlsDatabase.TlsDatabase
setSessionTlsDatabase :: (MonadIO m, IsSession o, Gio.TlsDatabase.IsTlsDatabase a) => o -> a -> m ()
setSessionTlsDatabase obj val = liftIO $ setObjectPropertyObject obj "tls-database" (Just val)
constructSessionTlsDatabase :: (IsSession o, Gio.TlsDatabase.IsTlsDatabase a) => a -> IO (GValueConstruct o)
constructSessionTlsDatabase val = constructObjectPropertyObject "tls-database" (Just val)
clearSessionTlsDatabase :: (MonadIO m, IsSession o) => o -> m ()
clearSessionTlsDatabase obj = liftIO $ setObjectPropertyObject obj "tls-database" (Nothing :: Maybe Gio.TlsDatabase.TlsDatabase)
data SessionTlsDatabasePropertyInfo
instance AttrInfo SessionTlsDatabasePropertyInfo where
type AttrAllowedOps SessionTlsDatabasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint SessionTlsDatabasePropertyInfo = Gio.TlsDatabase.IsTlsDatabase
type AttrBaseTypeConstraint SessionTlsDatabasePropertyInfo = IsSession
type AttrGetType SessionTlsDatabasePropertyInfo = (Maybe Gio.TlsDatabase.TlsDatabase)
type AttrLabel SessionTlsDatabasePropertyInfo = "tls-database"
type AttrOrigin SessionTlsDatabasePropertyInfo = Session
attrGet _ = getSessionTlsDatabase
attrSet _ = setSessionTlsDatabase
attrConstruct _ = constructSessionTlsDatabase
attrClear _ = clearSessionTlsDatabase
getSessionTlsInteraction :: (MonadIO m, IsSession o) => o -> m (Maybe Gio.TlsInteraction.TlsInteraction)
getSessionTlsInteraction obj = liftIO $ getObjectPropertyObject obj "tls-interaction" Gio.TlsInteraction.TlsInteraction
setSessionTlsInteraction :: (MonadIO m, IsSession o, Gio.TlsInteraction.IsTlsInteraction a) => o -> a -> m ()
setSessionTlsInteraction obj val = liftIO $ setObjectPropertyObject obj "tls-interaction" (Just val)
constructSessionTlsInteraction :: (IsSession o, Gio.TlsInteraction.IsTlsInteraction a) => a -> IO (GValueConstruct o)
constructSessionTlsInteraction val = constructObjectPropertyObject "tls-interaction" (Just val)
clearSessionTlsInteraction :: (MonadIO m, IsSession o) => o -> m ()
clearSessionTlsInteraction obj = liftIO $ setObjectPropertyObject obj "tls-interaction" (Nothing :: Maybe Gio.TlsInteraction.TlsInteraction)
data SessionTlsInteractionPropertyInfo
instance AttrInfo SessionTlsInteractionPropertyInfo where
type AttrAllowedOps SessionTlsInteractionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint SessionTlsInteractionPropertyInfo = Gio.TlsInteraction.IsTlsInteraction
type AttrBaseTypeConstraint SessionTlsInteractionPropertyInfo = IsSession
type AttrGetType SessionTlsInteractionPropertyInfo = (Maybe Gio.TlsInteraction.TlsInteraction)
type AttrLabel SessionTlsInteractionPropertyInfo = "tls-interaction"
type AttrOrigin SessionTlsInteractionPropertyInfo = Session
attrGet _ = getSessionTlsInteraction
attrSet _ = setSessionTlsInteraction
attrConstruct _ = constructSessionTlsInteraction
attrClear _ = clearSessionTlsInteraction
getSessionUseNtlm :: (MonadIO m, IsSession o) => o -> m Bool
getSessionUseNtlm obj = liftIO $ getObjectPropertyBool obj "use-ntlm"
setSessionUseNtlm :: (MonadIO m, IsSession o) => o -> Bool -> m ()
setSessionUseNtlm obj val = liftIO $ setObjectPropertyBool obj "use-ntlm" val
constructSessionUseNtlm :: (IsSession o) => Bool -> IO (GValueConstruct o)
constructSessionUseNtlm val = constructObjectPropertyBool "use-ntlm" val
data SessionUseNtlmPropertyInfo
instance AttrInfo SessionUseNtlmPropertyInfo where
type AttrAllowedOps SessionUseNtlmPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SessionUseNtlmPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SessionUseNtlmPropertyInfo = IsSession
type AttrGetType SessionUseNtlmPropertyInfo = Bool
type AttrLabel SessionUseNtlmPropertyInfo = "use-ntlm"
type AttrOrigin SessionUseNtlmPropertyInfo = Session
attrGet _ = getSessionUseNtlm
attrSet _ = setSessionUseNtlm
attrConstruct _ = constructSessionUseNtlm
attrClear _ = undefined
getSessionUseThreadContext :: (MonadIO m, IsSession o) => o -> m Bool
getSessionUseThreadContext obj = liftIO $ getObjectPropertyBool obj "use-thread-context"
setSessionUseThreadContext :: (MonadIO m, IsSession o) => o -> Bool -> m ()
setSessionUseThreadContext obj val = liftIO $ setObjectPropertyBool obj "use-thread-context" val
constructSessionUseThreadContext :: (IsSession o) => Bool -> IO (GValueConstruct o)
constructSessionUseThreadContext val = constructObjectPropertyBool "use-thread-context" val
data SessionUseThreadContextPropertyInfo
instance AttrInfo SessionUseThreadContextPropertyInfo where
type AttrAllowedOps SessionUseThreadContextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint SessionUseThreadContextPropertyInfo = (~) Bool
type AttrBaseTypeConstraint SessionUseThreadContextPropertyInfo = IsSession
type AttrGetType SessionUseThreadContextPropertyInfo = Bool
type AttrLabel SessionUseThreadContextPropertyInfo = "use-thread-context"
type AttrOrigin SessionUseThreadContextPropertyInfo = Session
attrGet _ = getSessionUseThreadContext
attrSet _ = setSessionUseThreadContext
attrConstruct _ = constructSessionUseThreadContext
attrClear _ = undefined
getSessionUserAgent :: (MonadIO m, IsSession o) => o -> m (Maybe T.Text)
getSessionUserAgent obj = liftIO $ getObjectPropertyString obj "user-agent"
setSessionUserAgent :: (MonadIO m, IsSession o) => o -> T.Text -> m ()
setSessionUserAgent obj val = liftIO $ setObjectPropertyString obj "user-agent" (Just val)
constructSessionUserAgent :: (IsSession o) => T.Text -> IO (GValueConstruct o)
constructSessionUserAgent val = constructObjectPropertyString "user-agent" (Just val)
clearSessionUserAgent :: (MonadIO m, IsSession o) => o -> m ()
clearSessionUserAgent obj = liftIO $ setObjectPropertyString obj "user-agent" (Nothing :: Maybe T.Text)
data SessionUserAgentPropertyInfo
instance AttrInfo SessionUserAgentPropertyInfo where
type AttrAllowedOps SessionUserAgentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint SessionUserAgentPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint SessionUserAgentPropertyInfo = IsSession
type AttrGetType SessionUserAgentPropertyInfo = (Maybe T.Text)
type AttrLabel SessionUserAgentPropertyInfo = "user-agent"
type AttrOrigin SessionUserAgentPropertyInfo = Session
attrGet _ = getSessionUserAgent
attrSet _ = setSessionUserAgent
attrConstruct _ = constructSessionUserAgent
attrClear _ = clearSessionUserAgent
instance O.HasAttributeList Session
type instance O.AttributeList Session = SessionAttributeList
type SessionAttributeList = ('[ '("acceptLanguage", SessionAcceptLanguagePropertyInfo), '("acceptLanguageAuto", SessionAcceptLanguageAutoPropertyInfo), '("asyncContext", SessionAsyncContextPropertyInfo), '("httpAliases", SessionHttpAliasesPropertyInfo), '("httpsAliases", SessionHttpsAliasesPropertyInfo), '("idleTimeout", SessionIdleTimeoutPropertyInfo), '("localAddress", SessionLocalAddressPropertyInfo), '("maxConns", SessionMaxConnsPropertyInfo), '("maxConnsPerHost", SessionMaxConnsPerHostPropertyInfo), '("proxyResolver", SessionProxyResolverPropertyInfo), '("proxyUri", SessionProxyUriPropertyInfo), '("sslCaFile", SessionSslCaFilePropertyInfo), '("sslStrict", SessionSslStrictPropertyInfo), '("sslUseSystemCaFile", SessionSslUseSystemCaFilePropertyInfo), '("timeout", SessionTimeoutPropertyInfo), '("tlsDatabase", SessionTlsDatabasePropertyInfo), '("tlsInteraction", SessionTlsInteractionPropertyInfo), '("useNtlm", SessionUseNtlmPropertyInfo), '("useThreadContext", SessionUseThreadContextPropertyInfo), '("userAgent", SessionUserAgentPropertyInfo)] :: [(Symbol, *)])
sessionAcceptLanguage :: AttrLabelProxy "acceptLanguage"
sessionAcceptLanguage = AttrLabelProxy
sessionAcceptLanguageAuto :: AttrLabelProxy "acceptLanguageAuto"
sessionAcceptLanguageAuto = AttrLabelProxy
sessionAsyncContext :: AttrLabelProxy "asyncContext"
sessionAsyncContext = AttrLabelProxy
sessionHttpAliases :: AttrLabelProxy "httpAliases"
sessionHttpAliases = AttrLabelProxy
sessionHttpsAliases :: AttrLabelProxy "httpsAliases"
sessionHttpsAliases = AttrLabelProxy
sessionIdleTimeout :: AttrLabelProxy "idleTimeout"
sessionIdleTimeout = AttrLabelProxy
sessionLocalAddress :: AttrLabelProxy "localAddress"
sessionLocalAddress = AttrLabelProxy
sessionMaxConns :: AttrLabelProxy "maxConns"
sessionMaxConns = AttrLabelProxy
sessionMaxConnsPerHost :: AttrLabelProxy "maxConnsPerHost"
sessionMaxConnsPerHost = AttrLabelProxy
sessionProxyResolver :: AttrLabelProxy "proxyResolver"
sessionProxyResolver = AttrLabelProxy
sessionProxyUri :: AttrLabelProxy "proxyUri"
sessionProxyUri = AttrLabelProxy
sessionSslCaFile :: AttrLabelProxy "sslCaFile"
sessionSslCaFile = AttrLabelProxy
sessionSslStrict :: AttrLabelProxy "sslStrict"
sessionSslStrict = AttrLabelProxy
sessionSslUseSystemCaFile :: AttrLabelProxy "sslUseSystemCaFile"
sessionSslUseSystemCaFile = AttrLabelProxy
sessionTimeout :: AttrLabelProxy "timeout"
sessionTimeout = AttrLabelProxy
sessionTlsDatabase :: AttrLabelProxy "tlsDatabase"
sessionTlsDatabase = AttrLabelProxy
sessionTlsInteraction :: AttrLabelProxy "tlsInteraction"
sessionTlsInteraction = AttrLabelProxy
sessionUseNtlm :: AttrLabelProxy "useNtlm"
sessionUseNtlm = AttrLabelProxy
sessionUseThreadContext :: AttrLabelProxy "useThreadContext"
sessionUseThreadContext = AttrLabelProxy
sessionUserAgent :: AttrLabelProxy "userAgent"
sessionUserAgent = AttrLabelProxy
data SessionAuthenticateSignalInfo
instance SignalInfo SessionAuthenticateSignalInfo where
type HaskellCallbackType SessionAuthenticateSignalInfo = SessionAuthenticateCallback
connectSignal _ = connectSessionAuthenticate
data SessionConnectionCreatedSignalInfo
instance SignalInfo SessionConnectionCreatedSignalInfo where
type HaskellCallbackType SessionConnectionCreatedSignalInfo = SessionConnectionCreatedCallback
connectSignal _ = connectSessionConnectionCreated
data SessionRequestQueuedSignalInfo
instance SignalInfo SessionRequestQueuedSignalInfo where
type HaskellCallbackType SessionRequestQueuedSignalInfo = SessionRequestQueuedCallback
connectSignal _ = connectSessionRequestQueued
data SessionRequestStartedSignalInfo
instance SignalInfo SessionRequestStartedSignalInfo where
type HaskellCallbackType SessionRequestStartedSignalInfo = SessionRequestStartedCallback
connectSignal _ = connectSessionRequestStarted
data SessionRequestUnqueuedSignalInfo
instance SignalInfo SessionRequestUnqueuedSignalInfo where
type HaskellCallbackType SessionRequestUnqueuedSignalInfo = SessionRequestUnqueuedCallback
connectSignal _ = connectSessionRequestUnqueued
data SessionTunnelingSignalInfo
instance SignalInfo SessionTunnelingSignalInfo where
type HaskellCallbackType SessionTunnelingSignalInfo = SessionTunnelingCallback
connectSignal _ = connectSessionTunneling
type instance O.SignalList Session = SessionSignalList
type SessionSignalList = ('[ '("authenticate", SessionAuthenticateSignalInfo), '("connectionCreated", SessionConnectionCreatedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("requestQueued", SessionRequestQueuedSignalInfo), '("requestStarted", SessionRequestStartedSignalInfo), '("requestUnqueued", SessionRequestUnqueuedSignalInfo), '("tunneling", SessionTunnelingSignalInfo)] :: [(Symbol, *)])
foreign import ccall "soup_session_new" soup_session_new ::
IO (Ptr Session)
sessionNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Session
sessionNew = liftIO $ do
result <- soup_session_new
checkUnexpectedReturnNULL "sessionNew" result
result' <- (wrapObject Session) result
return result'
foreign import ccall "soup_session_abort" soup_session_abort ::
Ptr Session ->
IO ()
sessionAbort ::
(B.CallStack.HasCallStack, MonadIO m, IsSession a) =>
a
-> m ()
sessionAbort session = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
soup_session_abort session'
touchManagedPtr session
return ()
data SessionAbortMethodInfo
instance (signature ~ (m ()), MonadIO m, IsSession a) => O.MethodInfo SessionAbortMethodInfo a signature where
overloadedMethod _ = sessionAbort
foreign import ccall "soup_session_add_feature" soup_session_add_feature ::
Ptr Session ->
Ptr Soup.SessionFeature.SessionFeature ->
IO ()
sessionAddFeature ::
(B.CallStack.HasCallStack, MonadIO m, IsSession a, Soup.SessionFeature.IsSessionFeature b) =>
a
-> b
-> m ()
sessionAddFeature session feature = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
feature' <- unsafeManagedPtrCastPtr feature
soup_session_add_feature session' feature'
touchManagedPtr session
touchManagedPtr feature
return ()
data SessionAddFeatureMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsSession a, Soup.SessionFeature.IsSessionFeature b) => O.MethodInfo SessionAddFeatureMethodInfo a signature where
overloadedMethod _ = sessionAddFeature
foreign import ccall "soup_session_add_feature_by_type" soup_session_add_feature_by_type ::
Ptr Session ->
CGType ->
IO ()
sessionAddFeatureByType ::
(B.CallStack.HasCallStack, MonadIO m, IsSession a) =>
a
-> GType
-> m ()
sessionAddFeatureByType session featureType = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
let featureType' = gtypeToCGType featureType
soup_session_add_feature_by_type session' featureType'
touchManagedPtr session
return ()
data SessionAddFeatureByTypeMethodInfo
instance (signature ~ (GType -> m ()), MonadIO m, IsSession a) => O.MethodInfo SessionAddFeatureByTypeMethodInfo a signature where
overloadedMethod _ = sessionAddFeatureByType
foreign import ccall "soup_session_cancel_message" soup_session_cancel_message ::
Ptr Session ->
Ptr Soup.Message.Message ->
Word32 ->
IO ()
sessionCancelMessage ::
(B.CallStack.HasCallStack, MonadIO m, IsSession a, Soup.Message.IsMessage b) =>
a
-> b
-> Word32
-> m ()
sessionCancelMessage session msg statusCode = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
msg' <- unsafeManagedPtrCastPtr msg
soup_session_cancel_message session' msg' statusCode
touchManagedPtr session
touchManagedPtr msg
return ()
data SessionCancelMessageMethodInfo
instance (signature ~ (b -> Word32 -> m ()), MonadIO m, IsSession a, Soup.Message.IsMessage b) => O.MethodInfo SessionCancelMessageMethodInfo a signature where
overloadedMethod _ = sessionCancelMessage
foreign import ccall "soup_session_get_async_context" soup_session_get_async_context ::
Ptr Session ->
IO (Ptr GLib.MainContext.MainContext)
sessionGetAsyncContext ::
(B.CallStack.HasCallStack, MonadIO m, IsSession a) =>
a
-> m (Maybe GLib.MainContext.MainContext)
sessionGetAsyncContext session = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
result <- soup_session_get_async_context session'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newBoxed GLib.MainContext.MainContext) result'
return result''
touchManagedPtr session
return maybeResult
data SessionGetAsyncContextMethodInfo
instance (signature ~ (m (Maybe GLib.MainContext.MainContext)), MonadIO m, IsSession a) => O.MethodInfo SessionGetAsyncContextMethodInfo a signature where
overloadedMethod _ = sessionGetAsyncContext
foreign import ccall "soup_session_get_feature" soup_session_get_feature ::
Ptr Session ->
CGType ->
IO (Ptr Soup.SessionFeature.SessionFeature)
sessionGetFeature ::
(B.CallStack.HasCallStack, MonadIO m, IsSession a) =>
a
-> GType
-> m (Maybe Soup.SessionFeature.SessionFeature)
sessionGetFeature session featureType = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
let featureType' = gtypeToCGType featureType
result <- soup_session_get_feature session' featureType'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject Soup.SessionFeature.SessionFeature) result'
return result''
touchManagedPtr session
return maybeResult
data SessionGetFeatureMethodInfo
instance (signature ~ (GType -> m (Maybe Soup.SessionFeature.SessionFeature)), MonadIO m, IsSession a) => O.MethodInfo SessionGetFeatureMethodInfo a signature where
overloadedMethod _ = sessionGetFeature
foreign import ccall "soup_session_get_feature_for_message" soup_session_get_feature_for_message ::
Ptr Session ->
CGType ->
Ptr Soup.Message.Message ->
IO (Ptr Soup.SessionFeature.SessionFeature)
sessionGetFeatureForMessage ::
(B.CallStack.HasCallStack, MonadIO m, IsSession a, Soup.Message.IsMessage b) =>
a
-> GType
-> b
-> m (Maybe Soup.SessionFeature.SessionFeature)
sessionGetFeatureForMessage session featureType msg = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
let featureType' = gtypeToCGType featureType
msg' <- unsafeManagedPtrCastPtr msg
result <- soup_session_get_feature_for_message session' featureType' msg'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject Soup.SessionFeature.SessionFeature) result'
return result''
touchManagedPtr session
touchManagedPtr msg
return maybeResult
data SessionGetFeatureForMessageMethodInfo
instance (signature ~ (GType -> b -> m (Maybe Soup.SessionFeature.SessionFeature)), MonadIO m, IsSession a, Soup.Message.IsMessage b) => O.MethodInfo SessionGetFeatureForMessageMethodInfo a signature where
overloadedMethod _ = sessionGetFeatureForMessage
foreign import ccall "soup_session_get_features" soup_session_get_features ::
Ptr Session ->
CGType ->
IO (Ptr (GSList (Ptr Soup.SessionFeature.SessionFeature)))
sessionGetFeatures ::
(B.CallStack.HasCallStack, MonadIO m, IsSession a) =>
a
-> GType
-> m [Soup.SessionFeature.SessionFeature]
sessionGetFeatures session featureType = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
let featureType' = gtypeToCGType featureType
result <- soup_session_get_features session' featureType'
result' <- unpackGSList result
result'' <- mapM (newObject Soup.SessionFeature.SessionFeature) result'
g_slist_free result
touchManagedPtr session
return result''
data SessionGetFeaturesMethodInfo
instance (signature ~ (GType -> m [Soup.SessionFeature.SessionFeature]), MonadIO m, IsSession a) => O.MethodInfo SessionGetFeaturesMethodInfo a signature where
overloadedMethod _ = sessionGetFeatures
foreign import ccall "soup_session_has_feature" soup_session_has_feature ::
Ptr Session ->
CGType ->
IO CInt
sessionHasFeature ::
(B.CallStack.HasCallStack, MonadIO m, IsSession a) =>
a
-> GType
-> m Bool
sessionHasFeature session featureType = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
let featureType' = gtypeToCGType featureType
result <- soup_session_has_feature session' featureType'
let result' = (/= 0) result
touchManagedPtr session
return result'
data SessionHasFeatureMethodInfo
instance (signature ~ (GType -> m Bool), MonadIO m, IsSession a) => O.MethodInfo SessionHasFeatureMethodInfo a signature where
overloadedMethod _ = sessionHasFeature
foreign import ccall "soup_session_pause_message" soup_session_pause_message ::
Ptr Session ->
Ptr Soup.Message.Message ->
IO ()
sessionPauseMessage ::
(B.CallStack.HasCallStack, MonadIO m, IsSession a, Soup.Message.IsMessage b) =>
a
-> b
-> m ()
sessionPauseMessage session msg = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
msg' <- unsafeManagedPtrCastPtr msg
soup_session_pause_message session' msg'
touchManagedPtr session
touchManagedPtr msg
return ()
data SessionPauseMessageMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsSession a, Soup.Message.IsMessage b) => O.MethodInfo SessionPauseMessageMethodInfo a signature where
overloadedMethod _ = sessionPauseMessage
foreign import ccall "soup_session_prefetch_dns" soup_session_prefetch_dns ::
Ptr Session ->
CString ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Soup.Callbacks.C_AddressCallback ->
Ptr () ->
IO ()
sessionPrefetchDns ::
(B.CallStack.HasCallStack, MonadIO m, IsSession a, Gio.Cancellable.IsCancellable b) =>
a
-> T.Text
-> Maybe (b)
-> Maybe (Soup.Callbacks.AddressCallback)
-> m ()
sessionPrefetchDns session hostname cancellable callback = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
hostname' <- textToCString hostname
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
jCancellable' <- unsafeManagedPtrCastPtr jCancellable
return jCancellable'
ptrcallback <- callocMem :: IO (Ptr (FunPtr Soup.Callbacks.C_AddressCallback))
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
jCallback' <- Soup.Callbacks.mk_AddressCallback (Soup.Callbacks.wrap_AddressCallback (Just ptrcallback) (Soup.Callbacks.drop_closures_AddressCallback jCallback))
poke ptrcallback jCallback'
return jCallback'
let userData = nullPtr
soup_session_prefetch_dns session' hostname' maybeCancellable maybeCallback userData
touchManagedPtr session
whenJust cancellable touchManagedPtr
freeMem hostname'
return ()
data SessionPrefetchDnsMethodInfo
instance (signature ~ (T.Text -> Maybe (b) -> Maybe (Soup.Callbacks.AddressCallback) -> m ()), MonadIO m, IsSession a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SessionPrefetchDnsMethodInfo a signature where
overloadedMethod _ = sessionPrefetchDns
foreign import ccall "soup_session_prepare_for_uri" soup_session_prepare_for_uri ::
Ptr Session ->
Ptr Soup.URI.URI ->
IO ()
sessionPrepareForUri ::
(B.CallStack.HasCallStack, MonadIO m, IsSession a) =>
a
-> Soup.URI.URI
-> m ()
sessionPrepareForUri session uri = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
uri' <- unsafeManagedPtrGetPtr uri
soup_session_prepare_for_uri session' uri'
touchManagedPtr session
touchManagedPtr uri
return ()
data SessionPrepareForUriMethodInfo
instance (signature ~ (Soup.URI.URI -> m ()), MonadIO m, IsSession a) => O.MethodInfo SessionPrepareForUriMethodInfo a signature where
overloadedMethod _ = sessionPrepareForUri
foreign import ccall "soup_session_queue_message" soup_session_queue_message ::
Ptr Session ->
Ptr Soup.Message.Message ->
FunPtr Soup.Callbacks.C_SessionCallback ->
Ptr () ->
IO ()
sessionQueueMessage ::
(B.CallStack.HasCallStack, MonadIO m, IsSession a, Soup.Message.IsMessage b) =>
a
-> b
-> Maybe (Soup.Callbacks.SessionCallback)
-> m ()
sessionQueueMessage session msg callback = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
msg' <- B.ManagedPtr.disownObject msg
ptrcallback <- callocMem :: IO (Ptr (FunPtr Soup.Callbacks.C_SessionCallback))
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
jCallback' <- Soup.Callbacks.mk_SessionCallback (Soup.Callbacks.wrap_SessionCallback (Just ptrcallback) (Soup.Callbacks.drop_closures_SessionCallback jCallback))
poke ptrcallback jCallback'
return jCallback'
let userData = nullPtr
soup_session_queue_message session' msg' maybeCallback userData
touchManagedPtr session
touchManagedPtr msg
return ()
data SessionQueueMessageMethodInfo
instance (signature ~ (b -> Maybe (Soup.Callbacks.SessionCallback) -> m ()), MonadIO m, IsSession a, Soup.Message.IsMessage b) => O.MethodInfo SessionQueueMessageMethodInfo a signature where
overloadedMethod _ = sessionQueueMessage
foreign import ccall "soup_session_redirect_message" soup_session_redirect_message ::
Ptr Session ->
Ptr Soup.Message.Message ->
IO CInt
sessionRedirectMessage ::
(B.CallStack.HasCallStack, MonadIO m, IsSession a, Soup.Message.IsMessage b) =>
a
-> b
-> m Bool
sessionRedirectMessage session msg = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
msg' <- unsafeManagedPtrCastPtr msg
result <- soup_session_redirect_message session' msg'
let result' = (/= 0) result
touchManagedPtr session
touchManagedPtr msg
return result'
data SessionRedirectMessageMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsSession a, Soup.Message.IsMessage b) => O.MethodInfo SessionRedirectMessageMethodInfo a signature where
overloadedMethod _ = sessionRedirectMessage
foreign import ccall "soup_session_remove_feature" soup_session_remove_feature ::
Ptr Session ->
Ptr Soup.SessionFeature.SessionFeature ->
IO ()
sessionRemoveFeature ::
(B.CallStack.HasCallStack, MonadIO m, IsSession a, Soup.SessionFeature.IsSessionFeature b) =>
a
-> b
-> m ()
sessionRemoveFeature session feature = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
feature' <- unsafeManagedPtrCastPtr feature
soup_session_remove_feature session' feature'
touchManagedPtr session
touchManagedPtr feature
return ()
data SessionRemoveFeatureMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsSession a, Soup.SessionFeature.IsSessionFeature b) => O.MethodInfo SessionRemoveFeatureMethodInfo a signature where
overloadedMethod _ = sessionRemoveFeature
foreign import ccall "soup_session_remove_feature_by_type" soup_session_remove_feature_by_type ::
Ptr Session ->
CGType ->
IO ()
sessionRemoveFeatureByType ::
(B.CallStack.HasCallStack, MonadIO m, IsSession a) =>
a
-> GType
-> m ()
sessionRemoveFeatureByType session featureType = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
let featureType' = gtypeToCGType featureType
soup_session_remove_feature_by_type session' featureType'
touchManagedPtr session
return ()
data SessionRemoveFeatureByTypeMethodInfo
instance (signature ~ (GType -> m ()), MonadIO m, IsSession a) => O.MethodInfo SessionRemoveFeatureByTypeMethodInfo a signature where
overloadedMethod _ = sessionRemoveFeatureByType
foreign import ccall "soup_session_request" soup_session_request ::
Ptr Session ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr Soup.Request.Request)
sessionRequest ::
(B.CallStack.HasCallStack, MonadIO m, IsSession a) =>
a
-> T.Text
-> m Soup.Request.Request
sessionRequest session uriString = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
uriString' <- textToCString uriString
onException (do
result <- propagateGError $ soup_session_request session' uriString'
checkUnexpectedReturnNULL "sessionRequest" result
result' <- (wrapObject Soup.Request.Request) result
touchManagedPtr session
freeMem uriString'
return result'
) (do
freeMem uriString'
)
data SessionRequestMethodInfo
instance (signature ~ (T.Text -> m Soup.Request.Request), MonadIO m, IsSession a) => O.MethodInfo SessionRequestMethodInfo a signature where
overloadedMethod _ = sessionRequest
foreign import ccall "soup_session_request_http" soup_session_request_http ::
Ptr Session ->
CString ->
CString ->
Ptr (Ptr GError) ->
IO (Ptr Soup.RequestHTTP.RequestHTTP)
sessionRequestHttp ::
(B.CallStack.HasCallStack, MonadIO m, IsSession a) =>
a
-> T.Text
-> T.Text
-> m Soup.RequestHTTP.RequestHTTP
sessionRequestHttp session method uriString = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
method' <- textToCString method
uriString' <- textToCString uriString
onException (do
result <- propagateGError $ soup_session_request_http session' method' uriString'
checkUnexpectedReturnNULL "sessionRequestHttp" result
result' <- (wrapObject Soup.RequestHTTP.RequestHTTP) result
touchManagedPtr session
freeMem method'
freeMem uriString'
return result'
) (do
freeMem method'
freeMem uriString'
)
data SessionRequestHttpMethodInfo
instance (signature ~ (T.Text -> T.Text -> m Soup.RequestHTTP.RequestHTTP), MonadIO m, IsSession a) => O.MethodInfo SessionRequestHttpMethodInfo a signature where
overloadedMethod _ = sessionRequestHttp
foreign import ccall "soup_session_request_http_uri" soup_session_request_http_uri ::
Ptr Session ->
CString ->
Ptr Soup.URI.URI ->
Ptr (Ptr GError) ->
IO (Ptr Soup.RequestHTTP.RequestHTTP)
sessionRequestHttpUri ::
(B.CallStack.HasCallStack, MonadIO m, IsSession a) =>
a
-> T.Text
-> Soup.URI.URI
-> m Soup.RequestHTTP.RequestHTTP
sessionRequestHttpUri session method uri = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
method' <- textToCString method
uri' <- unsafeManagedPtrGetPtr uri
onException (do
result <- propagateGError $ soup_session_request_http_uri session' method' uri'
checkUnexpectedReturnNULL "sessionRequestHttpUri" result
result' <- (wrapObject Soup.RequestHTTP.RequestHTTP) result
touchManagedPtr session
touchManagedPtr uri
freeMem method'
return result'
) (do
freeMem method'
)
data SessionRequestHttpUriMethodInfo
instance (signature ~ (T.Text -> Soup.URI.URI -> m Soup.RequestHTTP.RequestHTTP), MonadIO m, IsSession a) => O.MethodInfo SessionRequestHttpUriMethodInfo a signature where
overloadedMethod _ = sessionRequestHttpUri
foreign import ccall "soup_session_request_uri" soup_session_request_uri ::
Ptr Session ->
Ptr Soup.URI.URI ->
Ptr (Ptr GError) ->
IO (Ptr Soup.Request.Request)
sessionRequestUri ::
(B.CallStack.HasCallStack, MonadIO m, IsSession a) =>
a
-> Soup.URI.URI
-> m Soup.Request.Request
sessionRequestUri session uri = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
uri' <- unsafeManagedPtrGetPtr uri
onException (do
result <- propagateGError $ soup_session_request_uri session' uri'
checkUnexpectedReturnNULL "sessionRequestUri" result
result' <- (wrapObject Soup.Request.Request) result
touchManagedPtr session
touchManagedPtr uri
return result'
) (do
return ()
)
data SessionRequestUriMethodInfo
instance (signature ~ (Soup.URI.URI -> m Soup.Request.Request), MonadIO m, IsSession a) => O.MethodInfo SessionRequestUriMethodInfo a signature where
overloadedMethod _ = sessionRequestUri
foreign import ccall "soup_session_requeue_message" soup_session_requeue_message ::
Ptr Session ->
Ptr Soup.Message.Message ->
IO ()
sessionRequeueMessage ::
(B.CallStack.HasCallStack, MonadIO m, IsSession a, Soup.Message.IsMessage b) =>
a
-> b
-> m ()
sessionRequeueMessage session msg = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
msg' <- unsafeManagedPtrCastPtr msg
soup_session_requeue_message session' msg'
touchManagedPtr session
touchManagedPtr msg
return ()
data SessionRequeueMessageMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsSession a, Soup.Message.IsMessage b) => O.MethodInfo SessionRequeueMessageMethodInfo a signature where
overloadedMethod _ = sessionRequeueMessage
foreign import ccall "soup_session_send" soup_session_send ::
Ptr Session ->
Ptr Soup.Message.Message ->
Ptr Gio.Cancellable.Cancellable ->
Ptr (Ptr GError) ->
IO (Ptr Gio.InputStream.InputStream)
sessionSend ::
(B.CallStack.HasCallStack, MonadIO m, IsSession a, Soup.Message.IsMessage b, Gio.Cancellable.IsCancellable c) =>
a
-> b
-> Maybe (c)
-> m Gio.InputStream.InputStream
sessionSend session msg cancellable = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
msg' <- unsafeManagedPtrCastPtr msg
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
jCancellable' <- unsafeManagedPtrCastPtr jCancellable
return jCancellable'
onException (do
result <- propagateGError $ soup_session_send session' msg' maybeCancellable
checkUnexpectedReturnNULL "sessionSend" result
result' <- (wrapObject Gio.InputStream.InputStream) result
touchManagedPtr session
touchManagedPtr msg
whenJust cancellable touchManagedPtr
return result'
) (do
return ()
)
data SessionSendMethodInfo
instance (signature ~ (b -> Maybe (c) -> m Gio.InputStream.InputStream), MonadIO m, IsSession a, Soup.Message.IsMessage b, Gio.Cancellable.IsCancellable c) => O.MethodInfo SessionSendMethodInfo a signature where
overloadedMethod _ = sessionSend
foreign import ccall "soup_session_send_async" soup_session_send_async ::
Ptr Session ->
Ptr Soup.Message.Message ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
sessionSendAsync ::
(B.CallStack.HasCallStack, MonadIO m, IsSession a, Soup.Message.IsMessage b, Gio.Cancellable.IsCancellable c) =>
a
-> b
-> Maybe (c)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
sessionSendAsync session msg cancellable callback = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
msg' <- unsafeManagedPtrCastPtr msg
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
jCancellable' <- unsafeManagedPtrCastPtr jCancellable
return jCancellable'
ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
jCallback' <- Gio.Callbacks.mk_AsyncReadyCallback (Gio.Callbacks.wrap_AsyncReadyCallback (Just ptrcallback) (Gio.Callbacks.drop_closures_AsyncReadyCallback jCallback))
poke ptrcallback jCallback'
return jCallback'
let userData = nullPtr
soup_session_send_async session' msg' maybeCancellable maybeCallback userData
touchManagedPtr session
touchManagedPtr msg
whenJust cancellable touchManagedPtr
return ()
data SessionSendAsyncMethodInfo
instance (signature ~ (b -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsSession a, Soup.Message.IsMessage b, Gio.Cancellable.IsCancellable c) => O.MethodInfo SessionSendAsyncMethodInfo a signature where
overloadedMethod _ = sessionSendAsync
foreign import ccall "soup_session_send_finish" soup_session_send_finish ::
Ptr Session ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr Gio.InputStream.InputStream)
sessionSendFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsSession a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m Gio.InputStream.InputStream
sessionSendFinish session result_ = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
result_' <- unsafeManagedPtrCastPtr result_
onException (do
result <- propagateGError $ soup_session_send_finish session' result_'
checkUnexpectedReturnNULL "sessionSendFinish" result
result' <- (wrapObject Gio.InputStream.InputStream) result
touchManagedPtr session
touchManagedPtr result_
return result'
) (do
return ()
)
data SessionSendFinishMethodInfo
instance (signature ~ (b -> m Gio.InputStream.InputStream), MonadIO m, IsSession a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo SessionSendFinishMethodInfo a signature where
overloadedMethod _ = sessionSendFinish
foreign import ccall "soup_session_send_message" soup_session_send_message ::
Ptr Session ->
Ptr Soup.Message.Message ->
IO Word32
sessionSendMessage ::
(B.CallStack.HasCallStack, MonadIO m, IsSession a, Soup.Message.IsMessage b) =>
a
-> b
-> m Word32
sessionSendMessage session msg = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
msg' <- unsafeManagedPtrCastPtr msg
result <- soup_session_send_message session' msg'
touchManagedPtr session
touchManagedPtr msg
return result
data SessionSendMessageMethodInfo
instance (signature ~ (b -> m Word32), MonadIO m, IsSession a, Soup.Message.IsMessage b) => O.MethodInfo SessionSendMessageMethodInfo a signature where
overloadedMethod _ = sessionSendMessage
foreign import ccall "soup_session_steal_connection" soup_session_steal_connection ::
Ptr Session ->
Ptr Soup.Message.Message ->
IO (Ptr Gio.IOStream.IOStream)
sessionStealConnection ::
(B.CallStack.HasCallStack, MonadIO m, IsSession a, Soup.Message.IsMessage b) =>
a
-> b
-> m Gio.IOStream.IOStream
sessionStealConnection session msg = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
msg' <- unsafeManagedPtrCastPtr msg
result <- soup_session_steal_connection session' msg'
checkUnexpectedReturnNULL "sessionStealConnection" result
result' <- (wrapObject Gio.IOStream.IOStream) result
touchManagedPtr session
touchManagedPtr msg
return result'
data SessionStealConnectionMethodInfo
instance (signature ~ (b -> m Gio.IOStream.IOStream), MonadIO m, IsSession a, Soup.Message.IsMessage b) => O.MethodInfo SessionStealConnectionMethodInfo a signature where
overloadedMethod _ = sessionStealConnection
foreign import ccall "soup_session_unpause_message" soup_session_unpause_message ::
Ptr Session ->
Ptr Soup.Message.Message ->
IO ()
sessionUnpauseMessage ::
(B.CallStack.HasCallStack, MonadIO m, IsSession a, Soup.Message.IsMessage b) =>
a
-> b
-> m ()
sessionUnpauseMessage session msg = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
msg' <- unsafeManagedPtrCastPtr msg
soup_session_unpause_message session' msg'
touchManagedPtr session
touchManagedPtr msg
return ()
data SessionUnpauseMessageMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsSession a, Soup.Message.IsMessage b) => O.MethodInfo SessionUnpauseMessageMethodInfo a signature where
overloadedMethod _ = sessionUnpauseMessage
foreign import ccall "soup_session_websocket_connect_async" soup_session_websocket_connect_async ::
Ptr Session ->
Ptr Soup.Message.Message ->
CString ->
Ptr CString ->
Ptr Gio.Cancellable.Cancellable ->
FunPtr Gio.Callbacks.C_AsyncReadyCallback ->
Ptr () ->
IO ()
sessionWebsocketConnectAsync ::
(B.CallStack.HasCallStack, MonadIO m, IsSession a, Soup.Message.IsMessage b, Gio.Cancellable.IsCancellable c) =>
a
-> b
-> Maybe (T.Text)
-> Maybe ([T.Text])
-> Maybe (c)
-> Maybe (Gio.Callbacks.AsyncReadyCallback)
-> m ()
sessionWebsocketConnectAsync session msg origin protocols cancellable callback = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
msg' <- unsafeManagedPtrCastPtr msg
maybeOrigin <- case origin of
Nothing -> return nullPtr
Just jOrigin -> do
jOrigin' <- textToCString jOrigin
return jOrigin'
maybeProtocols <- case protocols of
Nothing -> return nullPtr
Just jProtocols -> do
jProtocols' <- packZeroTerminatedUTF8CArray jProtocols
return jProtocols'
maybeCancellable <- case cancellable of
Nothing -> return nullPtr
Just jCancellable -> do
jCancellable' <- unsafeManagedPtrCastPtr jCancellable
return jCancellable'
ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))
maybeCallback <- case callback of
Nothing -> return (castPtrToFunPtr nullPtr)
Just jCallback -> do
jCallback' <- Gio.Callbacks.mk_AsyncReadyCallback (Gio.Callbacks.wrap_AsyncReadyCallback (Just ptrcallback) (Gio.Callbacks.drop_closures_AsyncReadyCallback jCallback))
poke ptrcallback jCallback'
return jCallback'
let userData = nullPtr
soup_session_websocket_connect_async session' msg' maybeOrigin maybeProtocols maybeCancellable maybeCallback userData
touchManagedPtr session
touchManagedPtr msg
whenJust cancellable touchManagedPtr
freeMem maybeOrigin
mapZeroTerminatedCArray freeMem maybeProtocols
freeMem maybeProtocols
return ()
data SessionWebsocketConnectAsyncMethodInfo
instance (signature ~ (b -> Maybe (T.Text) -> Maybe ([T.Text]) -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsSession a, Soup.Message.IsMessage b, Gio.Cancellable.IsCancellable c) => O.MethodInfo SessionWebsocketConnectAsyncMethodInfo a signature where
overloadedMethod _ = sessionWebsocketConnectAsync
foreign import ccall "soup_session_websocket_connect_finish" soup_session_websocket_connect_finish ::
Ptr Session ->
Ptr Gio.AsyncResult.AsyncResult ->
Ptr (Ptr GError) ->
IO (Ptr Soup.WebsocketConnection.WebsocketConnection)
sessionWebsocketConnectFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsSession a, Gio.AsyncResult.IsAsyncResult b) =>
a
-> b
-> m Soup.WebsocketConnection.WebsocketConnection
sessionWebsocketConnectFinish session result_ = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
result_' <- unsafeManagedPtrCastPtr result_
onException (do
result <- propagateGError $ soup_session_websocket_connect_finish session' result_'
checkUnexpectedReturnNULL "sessionWebsocketConnectFinish" result
result' <- (wrapObject Soup.WebsocketConnection.WebsocketConnection) result
touchManagedPtr session
touchManagedPtr result_
return result'
) (do
return ()
)
data SessionWebsocketConnectFinishMethodInfo
instance (signature ~ (b -> m Soup.WebsocketConnection.WebsocketConnection), MonadIO m, IsSession a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo SessionWebsocketConnectFinishMethodInfo a signature where
overloadedMethod _ = sessionWebsocketConnectFinish
foreign import ccall "soup_session_would_redirect" soup_session_would_redirect ::
Ptr Session ->
Ptr Soup.Message.Message ->
IO CInt
sessionWouldRedirect ::
(B.CallStack.HasCallStack, MonadIO m, IsSession a, Soup.Message.IsMessage b) =>
a
-> b
-> m Bool
sessionWouldRedirect session msg = liftIO $ do
session' <- unsafeManagedPtrCastPtr session
msg' <- unsafeManagedPtrCastPtr msg
result <- soup_session_would_redirect session' msg'
let result' = (/= 0) result
touchManagedPtr session
touchManagedPtr msg
return result'
data SessionWouldRedirectMethodInfo
instance (signature ~ (b -> m Bool), MonadIO m, IsSession a, Soup.Message.IsMessage b) => O.MethodInfo SessionWouldRedirectMethodInfo a signature where
overloadedMethod _ = sessionWouldRedirect