packages feed

gi-soup 0.2.52.15 → 2.4.1

raw patch · 107 files changed

+34/−30894 lines, 107 filesdep ~gi-giodep ~gi-glibdep ~gi-gobjectbuild-type:Customsetup-changed

Dependency ranges changed: gi-gio, gi-glib, gi-gobject, transformers

Files

− GI/Soup.hs 
@@ -1,46 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup-    (     module GI.Soup.Callbacks                ,-    module GI.Soup.Constants                ,-    module GI.Soup.Enums                    ,-    module GI.Soup.Flags                    ,-    module GI.Soup.Functions                ,-    module GI.Soup.Interfaces               ,-    module GI.Soup.Objects                  ,-    module GI.Soup.Structs                  ,----    module Data.GI.Base                     ,---    ) where--import GI.Soup.Callbacks-import GI.Soup.Constants-import GI.Soup.Enums-import GI.Soup.Flags-import GI.Soup.Functions-import GI.Soup.Interfaces-import GI.Soup.Objects-import GI.Soup.Structs--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks--import Data.GI.Base-
− GI/Soup/Callbacks.hs 
@@ -1,762 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Callbacks-    ( -- -- * Signals--- ** AddressCallback-    AddressCallback                         ,-    AddressCallbackC                        ,-    addressCallbackClosure                  ,-    addressCallbackWrapper                  ,-    mkAddressCallback                       ,-    noAddressCallback                       ,----- ** AuthDomainBasicAuthCallback-    AuthDomainBasicAuthCallback             ,-    AuthDomainBasicAuthCallbackC            ,-    authDomainBasicAuthCallbackClosure      ,-    authDomainBasicAuthCallbackWrapper      ,-    mkAuthDomainBasicAuthCallback           ,-    noAuthDomainBasicAuthCallback           ,----- ** AuthDomainDigestAuthCallback-    AuthDomainDigestAuthCallback            ,-    AuthDomainDigestAuthCallbackC           ,-    authDomainDigestAuthCallbackClosure     ,-    authDomainDigestAuthCallbackWrapper     ,-    mkAuthDomainDigestAuthCallback          ,-    noAuthDomainDigestAuthCallback          ,----- ** AuthDomainFilter-    AuthDomainFilter                        ,-    AuthDomainFilterC                       ,-    authDomainFilterClosure                 ,-    authDomainFilterWrapper                 ,-    mkAuthDomainFilter                      ,-    noAuthDomainFilter                      ,----- ** AuthDomainGenericAuthCallback-    AuthDomainGenericAuthCallback           ,-    AuthDomainGenericAuthCallbackC          ,-    authDomainGenericAuthCallbackClosure    ,-    authDomainGenericAuthCallbackWrapper    ,-    mkAuthDomainGenericAuthCallback         ,-    noAuthDomainGenericAuthCallback         ,----- ** ChunkAllocator-    ChunkAllocator                          ,-    ChunkAllocatorC                         ,-    chunkAllocatorClosure                   ,-    chunkAllocatorWrapper                   ,-    mkChunkAllocator                        ,-    noChunkAllocator                        ,----- ** LoggerFilter-    LoggerFilter                            ,-    LoggerFilterC                           ,-    loggerFilterClosure                     ,-    loggerFilterWrapper                     ,-    mkLoggerFilter                          ,-    noLoggerFilter                          ,----- ** LoggerPrinter-    LoggerPrinter                           ,-    LoggerPrinterC                          ,-    loggerPrinterClosure                    ,-    loggerPrinterWrapper                    ,-    mkLoggerPrinter                         ,-    noLoggerPrinter                         ,----- ** MessageHeadersForeachFunc-    MessageHeadersForeachFunc               ,-    MessageHeadersForeachFuncC              ,-    messageHeadersForeachFuncClosure        ,-    messageHeadersForeachFuncWrapper        ,-    mkMessageHeadersForeachFunc             ,-    noMessageHeadersForeachFunc             ,----- ** PasswordManagerCallback-    PasswordManagerCallback                 ,-    PasswordManagerCallbackC                ,-    mkPasswordManagerCallback               ,-    noPasswordManagerCallback               ,-    passwordManagerCallbackClosure          ,-    passwordManagerCallbackWrapper          ,----- ** ProxyURIResolverCallback-    ProxyURIResolverCallback                ,-    ProxyURIResolverCallbackC               ,-    mkProxyURIResolverCallback              ,-    noProxyURIResolverCallback              ,-    proxyURIResolverCallbackClosure         ,-    proxyURIResolverCallbackWrapper         ,----- ** ServerCallback-    ServerCallback                          ,-    ServerCallbackC                         ,-    mkServerCallback                        ,-    noServerCallback                        ,-    serverCallbackClosure                   ,-    serverCallbackWrapper                   ,----- ** ServerWebsocketCallback-    ServerWebsocketCallback                 ,-    ServerWebsocketCallbackC                ,-    mkServerWebsocketCallback               ,-    noServerWebsocketCallback               ,-    serverWebsocketCallbackClosure          ,-    serverWebsocketCallbackWrapper          ,----- ** SessionCallback-    SessionCallback                         ,-    SessionCallbackC                        ,-    mkSessionCallback                       ,-    noSessionCallback                       ,-    sessionCallbackClosure                  ,-    sessionCallbackWrapper                  ,----- ** SocketCallback-    SocketCallback                          ,-    SocketCallbackC                         ,-    mkSocketCallback                        ,-    noSocketCallback                        ,-    socketCallbackClosure                   ,-    socketCallbackWrapper                   ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types----- callback SocketCallback-socketCallbackClosure :: SocketCallback -> IO Closure-socketCallbackClosure cb = newCClosure =<< mkSocketCallback wrapped-    where wrapped = socketCallbackWrapper Nothing cb--type SocketCallbackC =-    Ptr Socket ->-    Word32 ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkSocketCallback :: SocketCallbackC -> IO (FunPtr SocketCallbackC)--type SocketCallback =-    Socket ->-    Word32 ->-    IO ()--noSocketCallback :: Maybe SocketCallback-noSocketCallback = Nothing--socketCallbackWrapper ::-    Maybe (Ptr (FunPtr (SocketCallbackC))) ->-    SocketCallback ->-    Ptr Socket ->-    Word32 ->-    Ptr () ->-    IO ()-socketCallbackWrapper funptrptr _cb sock status _ = do-    sock' <- (newObject Socket) sock-    _cb  sock' status-    maybeReleaseFunPtr funptrptr---- callback SessionCallback-sessionCallbackClosure :: SessionCallback -> IO Closure-sessionCallbackClosure cb = newCClosure =<< mkSessionCallback wrapped-    where wrapped = sessionCallbackWrapper Nothing cb--type SessionCallbackC =-    Ptr Session ->-    Ptr Message ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkSessionCallback :: SessionCallbackC -> IO (FunPtr SessionCallbackC)--type SessionCallback =-    Session ->-    Message ->-    IO ()--noSessionCallback :: Maybe SessionCallback-noSessionCallback = Nothing--sessionCallbackWrapper ::-    Maybe (Ptr (FunPtr (SessionCallbackC))) ->-    SessionCallback ->-    Ptr Session ->-    Ptr Message ->-    Ptr () ->-    IO ()-sessionCallbackWrapper funptrptr _cb session msg _ = do-    session' <- (newObject Session) session-    msg' <- (newObject Message) msg-    _cb  session' msg'-    maybeReleaseFunPtr funptrptr---- callback ServerWebsocketCallback-serverWebsocketCallbackClosure :: ServerWebsocketCallback -> IO Closure-serverWebsocketCallbackClosure cb = newCClosure =<< mkServerWebsocketCallback wrapped-    where wrapped = serverWebsocketCallbackWrapper Nothing cb--type ServerWebsocketCallbackC =-    Ptr Server ->-    Ptr WebsocketConnection ->-    CString ->-    Ptr ClientContext ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkServerWebsocketCallback :: ServerWebsocketCallbackC -> IO (FunPtr ServerWebsocketCallbackC)--type ServerWebsocketCallback =-    Server ->-    WebsocketConnection ->-    T.Text ->-    ClientContext ->-    IO ()--noServerWebsocketCallback :: Maybe ServerWebsocketCallback-noServerWebsocketCallback = Nothing--serverWebsocketCallbackWrapper ::-    Maybe (Ptr (FunPtr (ServerWebsocketCallbackC))) ->-    ServerWebsocketCallback ->-    Ptr Server ->-    Ptr WebsocketConnection ->-    CString ->-    Ptr ClientContext ->-    Ptr () ->-    IO ()-serverWebsocketCallbackWrapper funptrptr _cb server connection path client _ = do-    server' <- (newObject Server) server-    connection' <- (newObject WebsocketConnection) connection-    path' <- cstringToText path-    client' <- (newBoxed ClientContext) client-    _cb  server' connection' path' client'-    maybeReleaseFunPtr funptrptr---- callback ServerCallback-serverCallbackClosure :: ServerCallback -> IO Closure-serverCallbackClosure cb = newCClosure =<< mkServerCallback wrapped-    where wrapped = serverCallbackWrapper Nothing cb--type ServerCallbackC =-    Ptr Server ->-    Ptr Message ->-    CString ->-    Ptr (GHashTable CString CString) ->-    Ptr ClientContext ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkServerCallback :: ServerCallbackC -> IO (FunPtr ServerCallbackC)--type ServerCallback =-    Server ->-    Message ->-    T.Text ->-    Maybe (Map.Map T.Text T.Text) ->-    ClientContext ->-    IO ()--noServerCallback :: Maybe ServerCallback-noServerCallback = Nothing--serverCallbackWrapper ::-    Maybe (Ptr (FunPtr (ServerCallbackC))) ->-    ServerCallback ->-    Ptr Server ->-    Ptr Message ->-    CString ->-    Ptr (GHashTable CString CString) ->-    Ptr ClientContext ->-    Ptr () ->-    IO ()-serverCallbackWrapper funptrptr _cb server msg path query client _ = do-    server' <- (newObject Server) server-    msg' <- (newObject Message) msg-    path' <- cstringToText path-    maybeQuery <--        if query == nullPtr-        then return Nothing-        else do-            query' <- unpackGHashTable query-            let query'' = mapFirst cstringUnpackPtr query'-            query''' <- mapFirstA cstringToText query''-            let query'''' = mapSecond cstringUnpackPtr query'''-            query''''' <- mapSecondA cstringToText query''''-            let query'''''' = Map.fromList query'''''-            return $ Just query''''''-    client' <- (newBoxed ClientContext) client-    _cb  server' msg' path' maybeQuery client'-    maybeReleaseFunPtr funptrptr---- callback ProxyURIResolverCallback-proxyURIResolverCallbackClosure :: ProxyURIResolverCallback -> IO Closure-proxyURIResolverCallbackClosure cb = newCClosure =<< mkProxyURIResolverCallback wrapped-    where wrapped = proxyURIResolverCallbackWrapper Nothing cb--type ProxyURIResolverCallbackC =-    Ptr ProxyURIResolver ->-    Word32 ->-    Ptr URI ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkProxyURIResolverCallback :: ProxyURIResolverCallbackC -> IO (FunPtr ProxyURIResolverCallbackC)--type ProxyURIResolverCallback =-    ProxyURIResolver ->-    Word32 ->-    URI ->-    IO ()--noProxyURIResolverCallback :: Maybe ProxyURIResolverCallback-noProxyURIResolverCallback = Nothing--proxyURIResolverCallbackWrapper ::-    Maybe (Ptr (FunPtr (ProxyURIResolverCallbackC))) ->-    ProxyURIResolverCallback ->-    Ptr ProxyURIResolver ->-    Word32 ->-    Ptr URI ->-    Ptr () ->-    IO ()-proxyURIResolverCallbackWrapper funptrptr _cb resolver status proxyUri _ = do-    resolver' <- (newObject ProxyURIResolver) resolver-    proxyUri' <- (newBoxed URI) proxyUri-    _cb  resolver' status proxyUri'-    maybeReleaseFunPtr funptrptr---- callback PasswordManagerCallback-passwordManagerCallbackClosure :: PasswordManagerCallback -> IO Closure-passwordManagerCallbackClosure cb = newCClosure =<< mkPasswordManagerCallback wrapped-    where wrapped = passwordManagerCallbackWrapper Nothing cb--type PasswordManagerCallbackC =-    Ptr PasswordManager ->-    Ptr Message ->-    Ptr Auth ->-    CInt ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkPasswordManagerCallback :: PasswordManagerCallbackC -> IO (FunPtr PasswordManagerCallbackC)--type PasswordManagerCallback =-    PasswordManager ->-    Message ->-    Auth ->-    Bool ->-    IO ()--noPasswordManagerCallback :: Maybe PasswordManagerCallback-noPasswordManagerCallback = Nothing--passwordManagerCallbackWrapper ::-    Maybe (Ptr (FunPtr (PasswordManagerCallbackC))) ->-    PasswordManagerCallback ->-    Ptr PasswordManager ->-    Ptr Message ->-    Ptr Auth ->-    CInt ->-    Ptr () ->-    IO ()-passwordManagerCallbackWrapper funptrptr _cb passwordManager msg auth retrying _ = do-    passwordManager' <- (newObject PasswordManager) passwordManager-    msg' <- (newObject Message) msg-    auth' <- (newObject Auth) auth-    let retrying' = (/= 0) retrying-    _cb  passwordManager' msg' auth' retrying'-    maybeReleaseFunPtr funptrptr---- callback MessageHeadersForeachFunc-messageHeadersForeachFuncClosure :: MessageHeadersForeachFunc -> IO Closure-messageHeadersForeachFuncClosure cb = newCClosure =<< mkMessageHeadersForeachFunc wrapped-    where wrapped = messageHeadersForeachFuncWrapper Nothing cb--type MessageHeadersForeachFuncC =-    CString ->-    CString ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkMessageHeadersForeachFunc :: MessageHeadersForeachFuncC -> IO (FunPtr MessageHeadersForeachFuncC)--type MessageHeadersForeachFunc =-    T.Text ->-    T.Text ->-    IO ()--noMessageHeadersForeachFunc :: Maybe MessageHeadersForeachFunc-noMessageHeadersForeachFunc = Nothing--messageHeadersForeachFuncWrapper ::-    Maybe (Ptr (FunPtr (MessageHeadersForeachFuncC))) ->-    MessageHeadersForeachFunc ->-    CString ->-    CString ->-    Ptr () ->-    IO ()-messageHeadersForeachFuncWrapper funptrptr _cb name value _ = do-    name' <- cstringToText name-    value' <- cstringToText value-    _cb  name' value'-    maybeReleaseFunPtr funptrptr---- callback LoggerPrinter-loggerPrinterClosure :: LoggerPrinter -> IO Closure-loggerPrinterClosure cb = newCClosure =<< mkLoggerPrinter wrapped-    where wrapped = loggerPrinterWrapper Nothing cb--type LoggerPrinterC =-    Ptr Logger ->-    CUInt ->-    Int8 ->-    CString ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkLoggerPrinter :: LoggerPrinterC -> IO (FunPtr LoggerPrinterC)--type LoggerPrinter =-    Logger ->-    LoggerLogLevel ->-    Int8 ->-    T.Text ->-    IO ()--noLoggerPrinter :: Maybe LoggerPrinter-noLoggerPrinter = Nothing--loggerPrinterWrapper ::-    Maybe (Ptr (FunPtr (LoggerPrinterC))) ->-    LoggerPrinter ->-    Ptr Logger ->-    CUInt ->-    Int8 ->-    CString ->-    Ptr () ->-    IO ()-loggerPrinterWrapper funptrptr _cb logger level direction data_ _ = do-    logger' <- (newObject Logger) logger-    let level' = (toEnum . fromIntegral) level-    data_' <- cstringToText data_-    _cb  logger' level' direction data_'-    maybeReleaseFunPtr funptrptr---- callback LoggerFilter-loggerFilterClosure :: LoggerFilter -> IO Closure-loggerFilterClosure cb = newCClosure =<< mkLoggerFilter wrapped-    where wrapped = loggerFilterWrapper Nothing cb--type LoggerFilterC =-    Ptr Logger ->-    Ptr Message ->-    Ptr () ->-    IO CUInt--foreign import ccall "wrapper"-    mkLoggerFilter :: LoggerFilterC -> IO (FunPtr LoggerFilterC)--type LoggerFilter =-    Logger ->-    Message ->-    IO LoggerLogLevel--noLoggerFilter :: Maybe LoggerFilter-noLoggerFilter = Nothing--loggerFilterWrapper ::-    Maybe (Ptr (FunPtr (LoggerFilterC))) ->-    LoggerFilter ->-    Ptr Logger ->-    Ptr Message ->-    Ptr () ->-    IO CUInt-loggerFilterWrapper funptrptr _cb logger msg _ = do-    logger' <- (newObject Logger) logger-    msg' <- (newObject Message) msg-    result <- _cb  logger' msg'-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback ChunkAllocator-chunkAllocatorClosure :: ChunkAllocator -> IO Closure-chunkAllocatorClosure cb = newCClosure =<< mkChunkAllocator wrapped-    where wrapped = chunkAllocatorWrapper Nothing cb--type ChunkAllocatorC =-    Ptr Message ->-    Word64 ->-    Ptr () ->-    IO (Ptr Buffer)--foreign import ccall "wrapper"-    mkChunkAllocator :: ChunkAllocatorC -> IO (FunPtr ChunkAllocatorC)--type ChunkAllocator =-    Message ->-    Word64 ->-    IO (Maybe Buffer)--noChunkAllocator :: Maybe ChunkAllocator-noChunkAllocator = Nothing--chunkAllocatorWrapper ::-    Maybe (Ptr (FunPtr (ChunkAllocatorC))) ->-    ChunkAllocator ->-    Ptr Message ->-    Word64 ->-    Ptr () ->-    IO (Ptr Buffer)-chunkAllocatorWrapper funptrptr _cb msg maxLen _ = do-    msg' <- (newObject Message) msg-    result <- _cb  msg' maxLen-    maybeReleaseFunPtr funptrptr-    maybeM nullPtr result $ \result' -> do-        result'' <- copyBoxed result'-        return result''---- callback AuthDomainGenericAuthCallback-authDomainGenericAuthCallbackClosure :: AuthDomainGenericAuthCallback -> IO Closure-authDomainGenericAuthCallbackClosure cb = newCClosure =<< mkAuthDomainGenericAuthCallback wrapped-    where wrapped = authDomainGenericAuthCallbackWrapper Nothing cb--type AuthDomainGenericAuthCallbackC =-    Ptr AuthDomain ->-    Ptr Message ->-    CString ->-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkAuthDomainGenericAuthCallback :: AuthDomainGenericAuthCallbackC -> IO (FunPtr AuthDomainGenericAuthCallbackC)--type AuthDomainGenericAuthCallback =-    AuthDomain ->-    Message ->-    T.Text ->-    IO Bool--noAuthDomainGenericAuthCallback :: Maybe AuthDomainGenericAuthCallback-noAuthDomainGenericAuthCallback = Nothing--authDomainGenericAuthCallbackWrapper ::-    Maybe (Ptr (FunPtr (AuthDomainGenericAuthCallbackC))) ->-    AuthDomainGenericAuthCallback ->-    Ptr AuthDomain ->-    Ptr Message ->-    CString ->-    Ptr () ->-    IO CInt-authDomainGenericAuthCallbackWrapper funptrptr _cb domain msg username _ = do-    domain' <- (newObject AuthDomain) domain-    msg' <- (newObject Message) msg-    username' <- cstringToText username-    result <- _cb  domain' msg' username'-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback AuthDomainFilter-authDomainFilterClosure :: AuthDomainFilter -> IO Closure-authDomainFilterClosure cb = newCClosure =<< mkAuthDomainFilter wrapped-    where wrapped = authDomainFilterWrapper Nothing cb--type AuthDomainFilterC =-    Ptr AuthDomain ->-    Ptr Message ->-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkAuthDomainFilter :: AuthDomainFilterC -> IO (FunPtr AuthDomainFilterC)--type AuthDomainFilter =-    AuthDomain ->-    Message ->-    IO Bool--noAuthDomainFilter :: Maybe AuthDomainFilter-noAuthDomainFilter = Nothing--authDomainFilterWrapper ::-    Maybe (Ptr (FunPtr (AuthDomainFilterC))) ->-    AuthDomainFilter ->-    Ptr AuthDomain ->-    Ptr Message ->-    Ptr () ->-    IO CInt-authDomainFilterWrapper funptrptr _cb domain msg _ = do-    domain' <- (newObject AuthDomain) domain-    msg' <- (newObject Message) msg-    result <- _cb  domain' msg'-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback AuthDomainDigestAuthCallback-authDomainDigestAuthCallbackClosure :: AuthDomainDigestAuthCallback -> IO Closure-authDomainDigestAuthCallbackClosure cb = newCClosure =<< mkAuthDomainDigestAuthCallback wrapped-    where wrapped = authDomainDigestAuthCallbackWrapper Nothing cb--type AuthDomainDigestAuthCallbackC =-    Ptr AuthDomain ->-    Ptr Message ->-    CString ->-    Ptr () ->-    IO CString--foreign import ccall "wrapper"-    mkAuthDomainDigestAuthCallback :: AuthDomainDigestAuthCallbackC -> IO (FunPtr AuthDomainDigestAuthCallbackC)--type AuthDomainDigestAuthCallback =-    AuthDomain ->-    Message ->-    T.Text ->-    IO (Maybe T.Text)--noAuthDomainDigestAuthCallback :: Maybe AuthDomainDigestAuthCallback-noAuthDomainDigestAuthCallback = Nothing--authDomainDigestAuthCallbackWrapper ::-    Maybe (Ptr (FunPtr (AuthDomainDigestAuthCallbackC))) ->-    AuthDomainDigestAuthCallback ->-    Ptr AuthDomain ->-    Ptr Message ->-    CString ->-    Ptr () ->-    IO CString-authDomainDigestAuthCallbackWrapper funptrptr _cb domain msg username _ = do-    domain' <- (newObject AuthDomain) domain-    msg' <- (newObject Message) msg-    username' <- cstringToText username-    result <- _cb  domain' msg' username'-    maybeReleaseFunPtr funptrptr-    maybeM nullPtr result $ \result' -> do-        result'' <- textToCString result'-        return result''---- callback AuthDomainBasicAuthCallback-authDomainBasicAuthCallbackClosure :: AuthDomainBasicAuthCallback -> IO Closure-authDomainBasicAuthCallbackClosure cb = newCClosure =<< mkAuthDomainBasicAuthCallback wrapped-    where wrapped = authDomainBasicAuthCallbackWrapper Nothing cb--type AuthDomainBasicAuthCallbackC =-    Ptr AuthDomain ->-    Ptr Message ->-    CString ->-    CString ->-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkAuthDomainBasicAuthCallback :: AuthDomainBasicAuthCallbackC -> IO (FunPtr AuthDomainBasicAuthCallbackC)--type AuthDomainBasicAuthCallback =-    AuthDomain ->-    Message ->-    T.Text ->-    T.Text ->-    IO Bool--noAuthDomainBasicAuthCallback :: Maybe AuthDomainBasicAuthCallback-noAuthDomainBasicAuthCallback = Nothing--authDomainBasicAuthCallbackWrapper ::-    Maybe (Ptr (FunPtr (AuthDomainBasicAuthCallbackC))) ->-    AuthDomainBasicAuthCallback ->-    Ptr AuthDomain ->-    Ptr Message ->-    CString ->-    CString ->-    Ptr () ->-    IO CInt-authDomainBasicAuthCallbackWrapper funptrptr _cb domain msg username password _ = do-    domain' <- (newObject AuthDomain) domain-    msg' <- (newObject Message) msg-    username' <- cstringToText username-    password' <- cstringToText password-    result <- _cb  domain' msg' username' password'-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback AddressCallback-addressCallbackClosure :: AddressCallback -> IO Closure-addressCallbackClosure cb = newCClosure =<< mkAddressCallback wrapped-    where wrapped = addressCallbackWrapper Nothing cb--type AddressCallbackC =-    Ptr Address ->-    Word32 ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkAddressCallback :: AddressCallbackC -> IO (FunPtr AddressCallbackC)--type AddressCallback =-    Address ->-    Word32 ->-    IO ()--noAddressCallback :: Maybe AddressCallback-noAddressCallback = Nothing--addressCallbackWrapper ::-    Maybe (Ptr (FunPtr (AddressCallbackC))) ->-    AddressCallback ->-    Ptr Address ->-    Word32 ->-    Ptr () ->-    IO ()-addressCallbackWrapper funptrptr _cb addr status _ = do-    addr' <- (newObject Address) addr-    _cb  addr' status-    maybeReleaseFunPtr funptrptr--
− GI/Soup/Constants.hs 
@@ -1,601 +0,0 @@-{-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-}---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Constants-    ( -    pattern XMLRPC_OLD_H                    ,-    pattern XMLRPC_H                        ,-    pattern VALUE_UTILS_H                   ,-    pattern URI_H                           ,-    pattern TYPES_H                         ,-    pattern STATUS_H                        ,-    pattern SOCKET_USE_THREAD_CONTEXT       ,-    pattern SOCKET_TRUSTED_CERTIFICATE      ,-    pattern SOCKET_TLS_ERRORS               ,-    pattern SOCKET_TLS_CERTIFICATE          ,-    pattern SOCKET_TIMEOUT                  ,-    pattern SOCKET_SSL_STRICT               ,-    pattern SOCKET_SSL_FALLBACK             ,-    pattern SOCKET_SSL_CREDENTIALS          ,-    pattern SOCKET_REMOTE_ADDRESS           ,-    pattern SOCKET_LOCAL_ADDRESS            ,-    pattern SOCKET_IS_SERVER                ,-    pattern SOCKET_H                        ,-    pattern SOCKET_FLAG_NONBLOCKING         ,-    pattern SOCKET_ASYNC_CONTEXT            ,-    pattern SESSION_USE_THREAD_CONTEXT      ,-    pattern SESSION_USE_NTLM                ,-    pattern SESSION_USER_AGENT              ,-    pattern SESSION_TLS_INTERACTION         ,-    pattern SESSION_TLS_DATABASE            ,-    pattern SESSION_TIMEOUT                 ,-    pattern SESSION_SYNC_H                  ,-    pattern SESSION_SSL_USE_SYSTEM_CA_FILE  ,-    pattern SESSION_SSL_STRICT              ,-    pattern SESSION_SSL_CA_FILE             ,-    pattern SESSION_PROXY_URI               ,-    pattern SESSION_PROXY_RESOLVER          ,-    pattern SESSION_MAX_CONNS_PER_HOST      ,-    pattern SESSION_MAX_CONNS               ,-    pattern SESSION_LOCAL_ADDRESS           ,-    pattern SESSION_IDLE_TIMEOUT            ,-    pattern SESSION_HTTP_ALIASES            ,-    pattern SESSION_HTTPS_ALIASES           ,-    pattern SESSION_H                       ,-    pattern SESSION_FEATURE_H               ,-    pattern SESSION_ASYNC_H                 ,-    pattern SESSION_ASYNC_CONTEXT           ,-    pattern SESSION_ACCEPT_LANGUAGE_AUTO    ,-    pattern SESSION_ACCEPT_LANGUAGE         ,-    pattern SERVER_TLS_CERTIFICATE          ,-    pattern SERVER_SSL_KEY_FILE             ,-    pattern SERVER_SSL_CERT_FILE            ,-    pattern SERVER_SERVER_HEADER            ,-    pattern SERVER_RAW_PATHS                ,-    pattern SERVER_PORT                     ,-    pattern SERVER_INTERFACE                ,-    pattern SERVER_HTTP_ALIASES             ,-    pattern SERVER_HTTPS_ALIASES            ,-    pattern SERVER_H                        ,-    pattern SERVER_ASYNC_CONTEXT            ,-    pattern REQUEST_URI                     ,-    pattern REQUEST_SESSION                 ,-    pattern REQUEST_HTTP_H                  ,-    pattern REQUEST_H                       ,-    pattern REQUEST_FILE_H                  ,-    pattern REQUEST_DATA_H                  ,-    pattern REQUESTER_H                     ,-    pattern PROXY_URI_RESOLVER_H            ,-    pattern PROXY_RESOLVER_DEFAULT_H        ,-    pattern PASSWORD_MANAGER_H              ,-    pattern MULTIPART_INPUT_STREAM_H        ,-    pattern MULTIPART_H                     ,-    pattern MISC_H                          ,-    pattern METHOD_H                        ,-    pattern MESSAGE_URI                     ,-    pattern MESSAGE_TLS_ERRORS              ,-    pattern MESSAGE_TLS_CERTIFICATE         ,-    pattern MESSAGE_STATUS_CODE             ,-    pattern MESSAGE_SERVER_SIDE             ,-    pattern MESSAGE_RESPONSE_HEADERS        ,-    pattern MESSAGE_RESPONSE_BODY_DATA      ,-    pattern MESSAGE_RESPONSE_BODY           ,-    pattern MESSAGE_REQUEST_HEADERS         ,-    pattern MESSAGE_REQUEST_BODY_DATA       ,-    pattern MESSAGE_REQUEST_BODY            ,-    pattern MESSAGE_REASON_PHRASE           ,-    pattern MESSAGE_PRIORITY                ,-    pattern MESSAGE_METHOD                  ,-    pattern MESSAGE_HTTP_VERSION            ,-    pattern MESSAGE_HEADERS_H               ,-    pattern MESSAGE_H                       ,-    pattern MESSAGE_FLAGS                   ,-    pattern MESSAGE_FIRST_PARTY             ,-    pattern MESSAGE_BODY_H                  ,-    pattern LOGGER_H                        ,-    pattern HEADERS_H                       ,-    pattern FORM_MIME_TYPE_URLENCODED       ,-    pattern FORM_MIME_TYPE_MULTIPART        ,-    pattern FORM_H                          ,-    pattern DATE_H                          ,-    pattern COOKIE_MAX_AGE_ONE_YEAR         ,-    pattern COOKIE_MAX_AGE_ONE_WEEK         ,-    pattern COOKIE_MAX_AGE_ONE_HOUR         ,-    pattern COOKIE_MAX_AGE_ONE_DAY          ,-    pattern COOKIE_JAR_TEXT_H               ,-    pattern COOKIE_JAR_TEXT_FILENAME        ,-    pattern COOKIE_JAR_READ_ONLY            ,-    pattern COOKIE_JAR_H                    ,-    pattern COOKIE_JAR_DB_H                 ,-    pattern COOKIE_JAR_DB_FILENAME          ,-    pattern COOKIE_JAR_ACCEPT_POLICY        ,-    pattern COOKIE_H                        ,-    pattern CONTENT_SNIFFER_H               ,-    pattern CONTENT_DECODER_H               ,-    pattern CHAR_URI_SUB_DELIMS             ,-    pattern CHAR_URI_PERCENT_ENCODED        ,-    pattern CHAR_URI_GEN_DELIMS             ,-    pattern CHAR_HTTP_SEPARATOR             ,-    pattern CHAR_HTTP_CTL                   ,-    pattern CACHE_H                         ,-    pattern AUTH_SCHEME_NAME                ,-    pattern AUTH_REALM                      ,-    pattern AUTH_MANAGER_H                  ,-    pattern AUTH_IS_FOR_PROXY               ,-    pattern AUTH_IS_AUTHENTICATED           ,-    pattern AUTH_HOST                       ,-    pattern AUTH_H                          ,-    pattern AUTH_DOMAIN_REMOVE_PATH         ,-    pattern AUTH_DOMAIN_REALM               ,-    pattern AUTH_DOMAIN_PROXY               ,-    pattern AUTH_DOMAIN_H                   ,-    pattern AUTH_DOMAIN_GENERIC_AUTH_DATA   ,-    pattern AUTH_DOMAIN_GENERIC_AUTH_CALLBACK,-    pattern AUTH_DOMAIN_FILTER_DATA         ,-    pattern AUTH_DOMAIN_FILTER              ,-    pattern AUTH_DOMAIN_DIGEST_H            ,-    pattern AUTH_DOMAIN_DIGEST_AUTH_DATA    ,-    pattern AUTH_DOMAIN_DIGEST_AUTH_CALLBACK,-    pattern AUTH_DOMAIN_BASIC_H             ,-    pattern AUTH_DOMAIN_BASIC_AUTH_DATA     ,-    pattern AUTH_DOMAIN_BASIC_AUTH_CALLBACK ,-    pattern AUTH_DOMAIN_ADD_PATH            ,-    pattern ADDRESS_SOCKADDR                ,-    pattern ADDRESS_PROTOCOL                ,-    pattern ADDRESS_PORT                    ,-    pattern ADDRESS_PHYSICAL                ,-    pattern ADDRESS_NAME                    ,-    pattern ADDRESS_FAMILY                  ,-    pattern ADDRESS_ANY_PORT                ,--    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks---pattern XMLRPC_OLD_H = 1 :: Int32---pattern XMLRPC_H = 1 :: Int32---pattern VALUE_UTILS_H = 1 :: Int32---pattern URI_H = 1 :: Int32---pattern TYPES_H = 1 :: Int32---pattern STATUS_H = 1 :: Int32---pattern SOCKET_USE_THREAD_CONTEXT = "use-thread-context" :: T.Text---pattern SOCKET_TRUSTED_CERTIFICATE = "trusted-certificate" :: T.Text---pattern SOCKET_TLS_ERRORS = "tls-errors" :: T.Text---pattern SOCKET_TLS_CERTIFICATE = "tls-certificate" :: T.Text---pattern SOCKET_TIMEOUT = "timeout" :: T.Text---pattern SOCKET_SSL_STRICT = "ssl-strict" :: T.Text---pattern SOCKET_SSL_FALLBACK = "ssl-fallback" :: T.Text---pattern SOCKET_SSL_CREDENTIALS = "ssl-creds" :: T.Text---pattern SOCKET_REMOTE_ADDRESS = "remote-address" :: T.Text---pattern SOCKET_LOCAL_ADDRESS = "local-address" :: T.Text---pattern SOCKET_IS_SERVER = "is-server" :: T.Text---pattern SOCKET_H = 1 :: Int32---pattern SOCKET_FLAG_NONBLOCKING = "non-blocking" :: T.Text---pattern SOCKET_ASYNC_CONTEXT = "async-context" :: T.Text---pattern SESSION_USE_THREAD_CONTEXT = "use-thread-context" :: T.Text---pattern SESSION_USE_NTLM = "use-ntlm" :: T.Text---pattern SESSION_USER_AGENT = "user-agent" :: T.Text---pattern SESSION_TLS_INTERACTION = "tls-interaction" :: T.Text---pattern SESSION_TLS_DATABASE = "tls-database" :: T.Text---pattern SESSION_TIMEOUT = "timeout" :: T.Text---pattern SESSION_SYNC_H = 1 :: Int32---pattern SESSION_SSL_USE_SYSTEM_CA_FILE = "ssl-use-system-ca-file" :: T.Text---pattern SESSION_SSL_STRICT = "ssl-strict" :: T.Text---pattern SESSION_SSL_CA_FILE = "ssl-ca-file" :: T.Text---pattern SESSION_PROXY_URI = "proxy-uri" :: T.Text---pattern SESSION_PROXY_RESOLVER = "proxy-resolver" :: T.Text---pattern SESSION_MAX_CONNS_PER_HOST = "max-conns-per-host" :: T.Text---pattern SESSION_MAX_CONNS = "max-conns" :: T.Text---pattern SESSION_LOCAL_ADDRESS = "local-address" :: T.Text---pattern SESSION_IDLE_TIMEOUT = "idle-timeout" :: T.Text---pattern SESSION_HTTP_ALIASES = "http-aliases" :: T.Text---pattern SESSION_HTTPS_ALIASES = "https-aliases" :: T.Text---pattern SESSION_H = 1 :: Int32---pattern SESSION_FEATURE_H = 1 :: Int32---pattern SESSION_ASYNC_H = 1 :: Int32---pattern SESSION_ASYNC_CONTEXT = "async-context" :: T.Text---pattern SESSION_ACCEPT_LANGUAGE_AUTO = "accept-language-auto" :: T.Text---pattern SESSION_ACCEPT_LANGUAGE = "accept-language" :: T.Text---pattern SERVER_TLS_CERTIFICATE = "tls-certificate" :: T.Text--{-# DEPRECATED SERVER_SSL_KEY_FILE ["use #SoupServer:tls-certificate or","soup_server_set_ssl_certificate()."]#-}-pattern SERVER_SSL_KEY_FILE = "ssl-key-file" :: T.Text--{-# DEPRECATED SERVER_SSL_CERT_FILE ["use #SoupServer:tls-certificate or","soup_server_set_ssl_certificate()."]#-}-pattern SERVER_SSL_CERT_FILE = "ssl-cert-file" :: T.Text---pattern SERVER_SERVER_HEADER = "server-header" :: T.Text---pattern SERVER_RAW_PATHS = "raw-paths" :: T.Text--{-# DEPRECATED SERVER_PORT ["#SoupServers can listen on multiple interfaces","at once now. Use soup_server_listen(), etc, to listen on a","port, and soup_server_get_uris() to see what ports are","being listened on."]#-}-pattern SERVER_PORT = "port" :: T.Text--{-# DEPRECATED SERVER_INTERFACE ["#SoupServers can listen on multiple interfaces","at once now. Use soup_server_listen(), etc, to listen on an","interface, and soup_server_get_uris() to see what addresses","are being listened on."]#-}-pattern SERVER_INTERFACE = "interface" :: T.Text---pattern SERVER_HTTP_ALIASES = "http-aliases" :: T.Text---pattern SERVER_HTTPS_ALIASES = "https-aliases" :: T.Text---pattern SERVER_H = 1 :: Int32--{-# DEPRECATED SERVER_ASYNC_CONTEXT ["The new API uses the thread-default #GMainContext","rather than having an explicitly-specified one."]#-}-pattern SERVER_ASYNC_CONTEXT = "async-context" :: T.Text---pattern REQUEST_URI = "uri" :: T.Text---pattern REQUEST_SESSION = "session" :: T.Text---pattern REQUEST_HTTP_H = 1 :: Int32---pattern REQUEST_H = 1 :: Int32---pattern REQUEST_FILE_H = 1 :: Int32---pattern REQUEST_DATA_H = 1 :: Int32---pattern REQUESTER_H = 1 :: Int32---pattern PROXY_URI_RESOLVER_H = 1 :: Int32---pattern PROXY_RESOLVER_DEFAULT_H = 1 :: Int32---pattern PASSWORD_MANAGER_H = 1 :: Int32---pattern MULTIPART_INPUT_STREAM_H = 1 :: Int32---pattern MULTIPART_H = 1 :: Int32---pattern MISC_H = 1 :: Int32---pattern METHOD_H = 1 :: Int32---pattern MESSAGE_URI = "uri" :: T.Text---pattern MESSAGE_TLS_ERRORS = "tls-errors" :: T.Text---pattern MESSAGE_TLS_CERTIFICATE = "tls-certificate" :: T.Text---pattern MESSAGE_STATUS_CODE = "status-code" :: T.Text---pattern MESSAGE_SERVER_SIDE = "server-side" :: T.Text---pattern MESSAGE_RESPONSE_HEADERS = "response-headers" :: T.Text---pattern MESSAGE_RESPONSE_BODY_DATA = "response-body-data" :: T.Text---pattern MESSAGE_RESPONSE_BODY = "response-body" :: T.Text---pattern MESSAGE_REQUEST_HEADERS = "request-headers" :: T.Text---pattern MESSAGE_REQUEST_BODY_DATA = "request-body-data" :: T.Text---pattern MESSAGE_REQUEST_BODY = "request-body" :: T.Text---pattern MESSAGE_REASON_PHRASE = "reason-phrase" :: T.Text---pattern MESSAGE_PRIORITY = "priority" :: T.Text---pattern MESSAGE_METHOD = "method" :: T.Text---pattern MESSAGE_HTTP_VERSION = "http-version" :: T.Text---pattern MESSAGE_HEADERS_H = 1 :: Int32---pattern MESSAGE_H = 1 :: Int32---pattern MESSAGE_FLAGS = "flags" :: T.Text---pattern MESSAGE_FIRST_PARTY = "first-party" :: T.Text---pattern MESSAGE_BODY_H = 1 :: Int32---pattern LOGGER_H = 1 :: Int32---pattern HEADERS_H = 1 :: Int32---pattern FORM_MIME_TYPE_URLENCODED = "application/x-www-form-urlencoded" :: T.Text---pattern FORM_MIME_TYPE_MULTIPART = "multipart/form-data" :: T.Text---pattern FORM_H = 1 :: Int32---pattern DATE_H = 1 :: Int32---pattern COOKIE_MAX_AGE_ONE_YEAR = 0 :: Int32---pattern COOKIE_MAX_AGE_ONE_WEEK = 0 :: Int32---pattern COOKIE_MAX_AGE_ONE_HOUR = 3600 :: Int32---pattern COOKIE_MAX_AGE_ONE_DAY = 0 :: Int32---pattern COOKIE_JAR_TEXT_H = 1 :: Int32---pattern COOKIE_JAR_TEXT_FILENAME = "filename" :: T.Text---pattern COOKIE_JAR_READ_ONLY = "read-only" :: T.Text---pattern COOKIE_JAR_H = 1 :: Int32---pattern COOKIE_JAR_DB_H = 1 :: Int32---pattern COOKIE_JAR_DB_FILENAME = "filename" :: T.Text---pattern COOKIE_JAR_ACCEPT_POLICY = "accept-policy" :: T.Text---pattern COOKIE_H = 1 :: Int32---pattern CONTENT_SNIFFER_H = 1 :: Int32---pattern CONTENT_DECODER_H = 1 :: Int32---pattern CHAR_URI_SUB_DELIMS = 4 :: Int32---pattern CHAR_URI_PERCENT_ENCODED = 1 :: Int32---pattern CHAR_URI_GEN_DELIMS = 2 :: Int32---pattern CHAR_HTTP_SEPARATOR = 8 :: Int32---pattern CHAR_HTTP_CTL = 16 :: Int32---pattern CACHE_H = 1 :: Int32---pattern AUTH_SCHEME_NAME = "scheme-name" :: T.Text---pattern AUTH_REALM = "realm" :: T.Text---pattern AUTH_MANAGER_H = 1 :: Int32---pattern AUTH_IS_FOR_PROXY = "is-for-proxy" :: T.Text---pattern AUTH_IS_AUTHENTICATED = "is-authenticated" :: T.Text---pattern AUTH_HOST = "host" :: T.Text---pattern AUTH_H = 1 :: Int32---pattern AUTH_DOMAIN_REMOVE_PATH = "remove-path" :: T.Text---pattern AUTH_DOMAIN_REALM = "realm" :: T.Text---pattern AUTH_DOMAIN_PROXY = "proxy" :: T.Text---pattern AUTH_DOMAIN_H = 1 :: Int32---pattern AUTH_DOMAIN_GENERIC_AUTH_DATA = "generic-auth-data" :: T.Text---pattern AUTH_DOMAIN_GENERIC_AUTH_CALLBACK = "generic-auth-callback" :: T.Text---pattern AUTH_DOMAIN_FILTER_DATA = "filter-data" :: T.Text---pattern AUTH_DOMAIN_FILTER = "filter" :: T.Text---pattern AUTH_DOMAIN_DIGEST_H = 1 :: Int32---pattern AUTH_DOMAIN_DIGEST_AUTH_DATA = "auth-data" :: T.Text---pattern AUTH_DOMAIN_DIGEST_AUTH_CALLBACK = "auth-callback" :: T.Text---pattern AUTH_DOMAIN_BASIC_H = 1 :: Int32---pattern AUTH_DOMAIN_BASIC_AUTH_DATA = "auth-data" :: T.Text---pattern AUTH_DOMAIN_BASIC_AUTH_CALLBACK = "auth-callback" :: T.Text---pattern AUTH_DOMAIN_ADD_PATH = "add-path" :: T.Text---pattern ADDRESS_SOCKADDR = "sockaddr" :: T.Text---pattern ADDRESS_PROTOCOL = "protocol" :: T.Text---pattern ADDRESS_PORT = "port" :: T.Text---pattern ADDRESS_PHYSICAL = "physical" :: T.Text---pattern ADDRESS_NAME = "name" :: T.Text---pattern ADDRESS_FAMILY = "family" :: T.Text---pattern ADDRESS_ANY_PORT = 0 :: Int32--
− GI/Soup/Enums.hs 
@@ -1,1210 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Enums-    ( -    catchXMLRPCError                        ,-    handleXMLRPCError                       ,-    catchTLDError                           ,-    handleTLDError                          ,-    catchRequesterError                     ,-    handleRequesterError                    ,-    catchRequestError                       ,-    handleRequestError                      ,---- * Exported types-    XMLRPCFault(..)                         ,-    XMLRPCError(..)                         ,-    WebsocketState(..)                      ,-    WebsocketError(..)                      ,-    WebsocketDataType(..)                   ,-    WebsocketConnectionType(..)             ,-    WebsocketCloseCode(..)                  ,-    TLDError(..)                            ,-    Status(..)                              ,-    SocketIOStatus(..)                      ,-    RequesterError(..)                      ,-    RequestError(..)                        ,-    MessagePriority(..)                     ,-    MessageHeadersType(..)                  ,-    MemoryUse(..)                           ,-    LoggerLogLevel(..)                      ,-    KnownStatusCode(..)                     ,-    HTTPVersion(..)                         ,-    Encoding(..)                            ,-    DateFormat(..)                          ,-    CookieJarAcceptPolicy(..)               ,-    ConnectionState(..)                     ,-    CacheType(..)                           ,-    CacheResponse(..)                       ,-    AddressFamily(..)                       ,---    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map------- Enum XMLRPCFault--data XMLRPCFault = -      XMLRPCFaultParseErrorNotWellFormed-    | XMLRPCFaultParseErrorUnsupportedEncoding-    | XMLRPCFaultParseErrorInvalidCharacterForEncoding-    | XMLRPCFaultServerErrorInvalidXmlRpc-    | XMLRPCFaultServerErrorRequestedMethodNotFound-    | XMLRPCFaultServerErrorInvalidMethodParameters-    | XMLRPCFaultServerErrorInternalXmlRpcError-    | XMLRPCFaultApplicationError-    | XMLRPCFaultSystemError-    | XMLRPCFaultTransportError-    | AnotherXMLRPCFault Int-    deriving (Show, Eq)--instance Enum XMLRPCFault where-    fromEnum XMLRPCFaultParseErrorNotWellFormed = -32700-    fromEnum XMLRPCFaultParseErrorUnsupportedEncoding = -32701-    fromEnum XMLRPCFaultParseErrorInvalidCharacterForEncoding = -32702-    fromEnum XMLRPCFaultServerErrorInvalidXmlRpc = -32600-    fromEnum XMLRPCFaultServerErrorRequestedMethodNotFound = -32601-    fromEnum XMLRPCFaultServerErrorInvalidMethodParameters = -32602-    fromEnum XMLRPCFaultServerErrorInternalXmlRpcError = -32603-    fromEnum XMLRPCFaultApplicationError = -32500-    fromEnum XMLRPCFaultSystemError = -32400-    fromEnum XMLRPCFaultTransportError = -32300-    fromEnum (AnotherXMLRPCFault k) = k--    toEnum -32702 = XMLRPCFaultParseErrorInvalidCharacterForEncoding-    toEnum -32701 = XMLRPCFaultParseErrorUnsupportedEncoding-    toEnum -32700 = XMLRPCFaultParseErrorNotWellFormed-    toEnum -32603 = XMLRPCFaultServerErrorInternalXmlRpcError-    toEnum -32602 = XMLRPCFaultServerErrorInvalidMethodParameters-    toEnum -32601 = XMLRPCFaultServerErrorRequestedMethodNotFound-    toEnum -32600 = XMLRPCFaultServerErrorInvalidXmlRpc-    toEnum -32500 = XMLRPCFaultApplicationError-    toEnum -32400 = XMLRPCFaultSystemError-    toEnum -32300 = XMLRPCFaultTransportError-    toEnum k = AnotherXMLRPCFault k--foreign import ccall "soup_xmlrpc_fault_get_type" c_soup_xmlrpc_fault_get_type :: -    IO GType--instance BoxedEnum XMLRPCFault where-    boxedEnumType _ = c_soup_xmlrpc_fault_get_type---- Enum XMLRPCError--data XMLRPCError = -      XMLRPCErrorArguments-    | XMLRPCErrorRetval-    | AnotherXMLRPCError Int-    deriving (Show, Eq)--instance Enum XMLRPCError where-    fromEnum XMLRPCErrorArguments = 0-    fromEnum XMLRPCErrorRetval = 1-    fromEnum (AnotherXMLRPCError k) = k--    toEnum 0 = XMLRPCErrorArguments-    toEnum 1 = XMLRPCErrorRetval-    toEnum k = AnotherXMLRPCError k--instance GErrorClass XMLRPCError where-    gerrorClassDomain _ = "soup_xmlrpc_error_quark"--catchXMLRPCError ::-    IO a ->-    (XMLRPCError -> GErrorMessage -> IO a) ->-    IO a-catchXMLRPCError = catchGErrorJustDomain--handleXMLRPCError ::-    (XMLRPCError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleXMLRPCError = handleGErrorJustDomain--foreign import ccall "soup_xmlrpc_error_get_type" c_soup_xmlrpc_error_get_type :: -    IO GType--instance BoxedEnum XMLRPCError where-    boxedEnumType _ = c_soup_xmlrpc_error_get_type---- Enum WebsocketState--data WebsocketState = -      WebsocketStateOpen-    | WebsocketStateClosing-    | WebsocketStateClosed-    | AnotherWebsocketState Int-    deriving (Show, Eq)--instance Enum WebsocketState where-    fromEnum WebsocketStateOpen = 1-    fromEnum WebsocketStateClosing = 2-    fromEnum WebsocketStateClosed = 3-    fromEnum (AnotherWebsocketState k) = k--    toEnum 1 = WebsocketStateOpen-    toEnum 2 = WebsocketStateClosing-    toEnum 3 = WebsocketStateClosed-    toEnum k = AnotherWebsocketState k--foreign import ccall "soup_websocket_state_get_type" c_soup_websocket_state_get_type :: -    IO GType--instance BoxedEnum WebsocketState where-    boxedEnumType _ = c_soup_websocket_state_get_type---- Enum WebsocketError--data WebsocketError = -      WebsocketErrorFailed-    | WebsocketErrorNotWebsocket-    | WebsocketErrorBadHandshake-    | WebsocketErrorBadOrigin-    | AnotherWebsocketError Int-    deriving (Show, Eq)--instance Enum WebsocketError where-    fromEnum WebsocketErrorFailed = 0-    fromEnum WebsocketErrorNotWebsocket = 1-    fromEnum WebsocketErrorBadHandshake = 2-    fromEnum WebsocketErrorBadOrigin = 3-    fromEnum (AnotherWebsocketError k) = k--    toEnum 0 = WebsocketErrorFailed-    toEnum 1 = WebsocketErrorNotWebsocket-    toEnum 2 = WebsocketErrorBadHandshake-    toEnum 3 = WebsocketErrorBadOrigin-    toEnum k = AnotherWebsocketError k--foreign import ccall "soup_websocket_error_get_type" c_soup_websocket_error_get_type :: -    IO GType--instance BoxedEnum WebsocketError where-    boxedEnumType _ = c_soup_websocket_error_get_type---- Enum WebsocketDataType--data WebsocketDataType = -      WebsocketDataTypeText-    | WebsocketDataTypeBinary-    | AnotherWebsocketDataType Int-    deriving (Show, Eq)--instance Enum WebsocketDataType where-    fromEnum WebsocketDataTypeText = 1-    fromEnum WebsocketDataTypeBinary = 2-    fromEnum (AnotherWebsocketDataType k) = k--    toEnum 1 = WebsocketDataTypeText-    toEnum 2 = WebsocketDataTypeBinary-    toEnum k = AnotherWebsocketDataType k--foreign import ccall "soup_websocket_data_type_get_type" c_soup_websocket_data_type_get_type :: -    IO GType--instance BoxedEnum WebsocketDataType where-    boxedEnumType _ = c_soup_websocket_data_type_get_type---- Enum WebsocketConnectionType--data WebsocketConnectionType = -      WebsocketConnectionTypeUnknown-    | WebsocketConnectionTypeClient-    | WebsocketConnectionTypeServer-    | AnotherWebsocketConnectionType Int-    deriving (Show, Eq)--instance Enum WebsocketConnectionType where-    fromEnum WebsocketConnectionTypeUnknown = 0-    fromEnum WebsocketConnectionTypeClient = 1-    fromEnum WebsocketConnectionTypeServer = 2-    fromEnum (AnotherWebsocketConnectionType k) = k--    toEnum 0 = WebsocketConnectionTypeUnknown-    toEnum 1 = WebsocketConnectionTypeClient-    toEnum 2 = WebsocketConnectionTypeServer-    toEnum k = AnotherWebsocketConnectionType k--foreign import ccall "soup_websocket_connection_type_get_type" c_soup_websocket_connection_type_get_type :: -    IO GType--instance BoxedEnum WebsocketConnectionType where-    boxedEnumType _ = c_soup_websocket_connection_type_get_type---- Enum WebsocketCloseCode--data WebsocketCloseCode = -      WebsocketCloseCodeNormal-    | WebsocketCloseCodeGoingAway-    | WebsocketCloseCodeProtocolError-    | WebsocketCloseCodeUnsupportedData-    | WebsocketCloseCodeNoStatus-    | WebsocketCloseCodeAbnormal-    | WebsocketCloseCodeBadData-    | WebsocketCloseCodePolicyViolation-    | WebsocketCloseCodeTooBig-    | WebsocketCloseCodeNoExtension-    | WebsocketCloseCodeServerError-    | WebsocketCloseCodeTlsHandshake-    | AnotherWebsocketCloseCode Int-    deriving (Show, Eq)--instance Enum WebsocketCloseCode where-    fromEnum WebsocketCloseCodeNormal = 1000-    fromEnum WebsocketCloseCodeGoingAway = 1001-    fromEnum WebsocketCloseCodeProtocolError = 1002-    fromEnum WebsocketCloseCodeUnsupportedData = 1003-    fromEnum WebsocketCloseCodeNoStatus = 1005-    fromEnum WebsocketCloseCodeAbnormal = 1006-    fromEnum WebsocketCloseCodeBadData = 1007-    fromEnum WebsocketCloseCodePolicyViolation = 1008-    fromEnum WebsocketCloseCodeTooBig = 1009-    fromEnum WebsocketCloseCodeNoExtension = 1010-    fromEnum WebsocketCloseCodeServerError = 1011-    fromEnum WebsocketCloseCodeTlsHandshake = 1015-    fromEnum (AnotherWebsocketCloseCode k) = k--    toEnum 1000 = WebsocketCloseCodeNormal-    toEnum 1001 = WebsocketCloseCodeGoingAway-    toEnum 1002 = WebsocketCloseCodeProtocolError-    toEnum 1003 = WebsocketCloseCodeUnsupportedData-    toEnum 1005 = WebsocketCloseCodeNoStatus-    toEnum 1006 = WebsocketCloseCodeAbnormal-    toEnum 1007 = WebsocketCloseCodeBadData-    toEnum 1008 = WebsocketCloseCodePolicyViolation-    toEnum 1009 = WebsocketCloseCodeTooBig-    toEnum 1010 = WebsocketCloseCodeNoExtension-    toEnum 1011 = WebsocketCloseCodeServerError-    toEnum 1015 = WebsocketCloseCodeTlsHandshake-    toEnum k = AnotherWebsocketCloseCode k--foreign import ccall "soup_websocket_close_code_get_type" c_soup_websocket_close_code_get_type :: -    IO GType--instance BoxedEnum WebsocketCloseCode where-    boxedEnumType _ = c_soup_websocket_close_code_get_type---- Enum TLDError--data TLDError = -      TLDErrorInvalidHostname-    | TLDErrorIsIpAddress-    | TLDErrorNotEnoughDomains-    | TLDErrorNoBaseDomain-    | AnotherTLDError Int-    deriving (Show, Eq)--instance Enum TLDError where-    fromEnum TLDErrorInvalidHostname = 0-    fromEnum TLDErrorIsIpAddress = 1-    fromEnum TLDErrorNotEnoughDomains = 2-    fromEnum TLDErrorNoBaseDomain = 3-    fromEnum (AnotherTLDError k) = k--    toEnum 0 = TLDErrorInvalidHostname-    toEnum 1 = TLDErrorIsIpAddress-    toEnum 2 = TLDErrorNotEnoughDomains-    toEnum 3 = TLDErrorNoBaseDomain-    toEnum k = AnotherTLDError k--instance GErrorClass TLDError where-    gerrorClassDomain _ = "soup_tld_error_quark"--catchTLDError ::-    IO a ->-    (TLDError -> GErrorMessage -> IO a) ->-    IO a-catchTLDError = catchGErrorJustDomain--handleTLDError ::-    (TLDError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleTLDError = handleGErrorJustDomain--foreign import ccall "soup_tld_error_get_type" c_soup_tld_error_get_type :: -    IO GType--instance BoxedEnum TLDError where-    boxedEnumType _ = c_soup_tld_error_get_type---- Enum Status--data Status = -      StatusNone-    | StatusCancelled-    | StatusCantResolve-    | StatusCantResolveProxy-    | StatusCantConnect-    | StatusCantConnectProxy-    | StatusSslFailed-    | StatusIoError-    | StatusMalformed-    | StatusTryAgain-    | StatusTooManyRedirects-    | StatusTlsFailed-    | StatusContinue-    | StatusSwitchingProtocols-    | StatusProcessing-    | StatusOk-    | StatusCreated-    | StatusAccepted-    | StatusNonAuthoritative-    | StatusNoContent-    | StatusResetContent-    | StatusPartialContent-    | StatusMultiStatus-    | StatusMultipleChoices-    | StatusMovedPermanently-    | StatusFound-    | StatusMovedTemporarily-    | StatusSeeOther-    | StatusNotModified-    | StatusUseProxy-    | StatusNotAppearingInThisProtocol-    | StatusTemporaryRedirect-    | StatusBadRequest-    | StatusUnauthorized-    | StatusPaymentRequired-    | StatusForbidden-    | StatusNotFound-    | StatusMethodNotAllowed-    | StatusNotAcceptable-    | StatusProxyAuthenticationRequired-    | StatusProxyUnauthorized-    | StatusRequestTimeout-    | StatusConflict-    | StatusGone-    | StatusLengthRequired-    | StatusPreconditionFailed-    | StatusRequestEntityTooLarge-    | StatusRequestUriTooLong-    | StatusUnsupportedMediaType-    | StatusRequestedRangeNotSatisfiable-    | StatusInvalidRange-    | StatusExpectationFailed-    | StatusUnprocessableEntity-    | StatusLocked-    | StatusFailedDependency-    | StatusInternalServerError-    | StatusNotImplemented-    | StatusBadGateway-    | StatusServiceUnavailable-    | StatusGatewayTimeout-    | StatusHttpVersionNotSupported-    | StatusInsufficientStorage-    | StatusNotExtended-    | AnotherStatus Int-    deriving (Show, Eq)--instance Enum Status where-    fromEnum StatusNone = 0-    fromEnum StatusCancelled = 1-    fromEnum StatusCantResolve = 2-    fromEnum StatusCantResolveProxy = 3-    fromEnum StatusCantConnect = 4-    fromEnum StatusCantConnectProxy = 5-    fromEnum StatusSslFailed = 6-    fromEnum StatusIoError = 7-    fromEnum StatusMalformed = 8-    fromEnum StatusTryAgain = 9-    fromEnum StatusTooManyRedirects = 10-    fromEnum StatusTlsFailed = 11-    fromEnum StatusContinue = 100-    fromEnum StatusSwitchingProtocols = 101-    fromEnum StatusProcessing = 102-    fromEnum StatusOk = 200-    fromEnum StatusCreated = 201-    fromEnum StatusAccepted = 202-    fromEnum StatusNonAuthoritative = 203-    fromEnum StatusNoContent = 204-    fromEnum StatusResetContent = 205-    fromEnum StatusPartialContent = 206-    fromEnum StatusMultiStatus = 207-    fromEnum StatusMultipleChoices = 300-    fromEnum StatusMovedPermanently = 301-    fromEnum StatusFound = 302-    fromEnum StatusMovedTemporarily = 302-    fromEnum StatusSeeOther = 303-    fromEnum StatusNotModified = 304-    fromEnum StatusUseProxy = 305-    fromEnum StatusNotAppearingInThisProtocol = 306-    fromEnum StatusTemporaryRedirect = 307-    fromEnum StatusBadRequest = 400-    fromEnum StatusUnauthorized = 401-    fromEnum StatusPaymentRequired = 402-    fromEnum StatusForbidden = 403-    fromEnum StatusNotFound = 404-    fromEnum StatusMethodNotAllowed = 405-    fromEnum StatusNotAcceptable = 406-    fromEnum StatusProxyAuthenticationRequired = 407-    fromEnum StatusProxyUnauthorized = 407-    fromEnum StatusRequestTimeout = 408-    fromEnum StatusConflict = 409-    fromEnum StatusGone = 410-    fromEnum StatusLengthRequired = 411-    fromEnum StatusPreconditionFailed = 412-    fromEnum StatusRequestEntityTooLarge = 413-    fromEnum StatusRequestUriTooLong = 414-    fromEnum StatusUnsupportedMediaType = 415-    fromEnum StatusRequestedRangeNotSatisfiable = 416-    fromEnum StatusInvalidRange = 416-    fromEnum StatusExpectationFailed = 417-    fromEnum StatusUnprocessableEntity = 422-    fromEnum StatusLocked = 423-    fromEnum StatusFailedDependency = 424-    fromEnum StatusInternalServerError = 500-    fromEnum StatusNotImplemented = 501-    fromEnum StatusBadGateway = 502-    fromEnum StatusServiceUnavailable = 503-    fromEnum StatusGatewayTimeout = 504-    fromEnum StatusHttpVersionNotSupported = 505-    fromEnum StatusInsufficientStorage = 507-    fromEnum StatusNotExtended = 510-    fromEnum (AnotherStatus k) = k--    toEnum 0 = StatusNone-    toEnum 1 = StatusCancelled-    toEnum 2 = StatusCantResolve-    toEnum 3 = StatusCantResolveProxy-    toEnum 4 = StatusCantConnect-    toEnum 5 = StatusCantConnectProxy-    toEnum 6 = StatusSslFailed-    toEnum 7 = StatusIoError-    toEnum 8 = StatusMalformed-    toEnum 9 = StatusTryAgain-    toEnum 10 = StatusTooManyRedirects-    toEnum 11 = StatusTlsFailed-    toEnum 100 = StatusContinue-    toEnum 101 = StatusSwitchingProtocols-    toEnum 102 = StatusProcessing-    toEnum 200 = StatusOk-    toEnum 201 = StatusCreated-    toEnum 202 = StatusAccepted-    toEnum 203 = StatusNonAuthoritative-    toEnum 204 = StatusNoContent-    toEnum 205 = StatusResetContent-    toEnum 206 = StatusPartialContent-    toEnum 207 = StatusMultiStatus-    toEnum 300 = StatusMultipleChoices-    toEnum 301 = StatusMovedPermanently-    toEnum 302 = StatusFound-    toEnum 303 = StatusSeeOther-    toEnum 304 = StatusNotModified-    toEnum 305 = StatusUseProxy-    toEnum 306 = StatusNotAppearingInThisProtocol-    toEnum 307 = StatusTemporaryRedirect-    toEnum 400 = StatusBadRequest-    toEnum 401 = StatusUnauthorized-    toEnum 402 = StatusPaymentRequired-    toEnum 403 = StatusForbidden-    toEnum 404 = StatusNotFound-    toEnum 405 = StatusMethodNotAllowed-    toEnum 406 = StatusNotAcceptable-    toEnum 407 = StatusProxyAuthenticationRequired-    toEnum 408 = StatusRequestTimeout-    toEnum 409 = StatusConflict-    toEnum 410 = StatusGone-    toEnum 411 = StatusLengthRequired-    toEnum 412 = StatusPreconditionFailed-    toEnum 413 = StatusRequestEntityTooLarge-    toEnum 414 = StatusRequestUriTooLong-    toEnum 415 = StatusUnsupportedMediaType-    toEnum 416 = StatusRequestedRangeNotSatisfiable-    toEnum 417 = StatusExpectationFailed-    toEnum 422 = StatusUnprocessableEntity-    toEnum 423 = StatusLocked-    toEnum 424 = StatusFailedDependency-    toEnum 500 = StatusInternalServerError-    toEnum 501 = StatusNotImplemented-    toEnum 502 = StatusBadGateway-    toEnum 503 = StatusServiceUnavailable-    toEnum 504 = StatusGatewayTimeout-    toEnum 505 = StatusHttpVersionNotSupported-    toEnum 507 = StatusInsufficientStorage-    toEnum 510 = StatusNotExtended-    toEnum k = AnotherStatus k--foreign import ccall "soup_status_get_type" c_soup_status_get_type :: -    IO GType--instance BoxedEnum Status where-    boxedEnumType _ = c_soup_status_get_type---- Enum SocketIOStatus--data SocketIOStatus = -      SocketIOStatusOk-    | SocketIOStatusWouldBlock-    | SocketIOStatusEof-    | SocketIOStatusError-    | AnotherSocketIOStatus Int-    deriving (Show, Eq)--instance Enum SocketIOStatus where-    fromEnum SocketIOStatusOk = 0-    fromEnum SocketIOStatusWouldBlock = 1-    fromEnum SocketIOStatusEof = 2-    fromEnum SocketIOStatusError = 3-    fromEnum (AnotherSocketIOStatus k) = k--    toEnum 0 = SocketIOStatusOk-    toEnum 1 = SocketIOStatusWouldBlock-    toEnum 2 = SocketIOStatusEof-    toEnum 3 = SocketIOStatusError-    toEnum k = AnotherSocketIOStatus k--foreign import ccall "soup_socket_io_status_get_type" c_soup_socket_io_status_get_type :: -    IO GType--instance BoxedEnum SocketIOStatus where-    boxedEnumType _ = c_soup_socket_io_status_get_type---- Enum RequesterError--data RequesterError = -      RequesterErrorBadUri-    | RequesterErrorUnsupportedUriScheme-    | AnotherRequesterError Int-    deriving (Show, Eq)--instance Enum RequesterError where-    fromEnum RequesterErrorBadUri = 0-    fromEnum RequesterErrorUnsupportedUriScheme = 1-    fromEnum (AnotherRequesterError k) = k--    toEnum 0 = RequesterErrorBadUri-    toEnum 1 = RequesterErrorUnsupportedUriScheme-    toEnum k = AnotherRequesterError k--instance GErrorClass RequesterError where-    gerrorClassDomain _ = "soup_requester_error_quark"--catchRequesterError ::-    IO a ->-    (RequesterError -> GErrorMessage -> IO a) ->-    IO a-catchRequesterError = catchGErrorJustDomain--handleRequesterError ::-    (RequesterError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleRequesterError = handleGErrorJustDomain--foreign import ccall "soup_requester_error_get_type" c_soup_requester_error_get_type :: -    IO GType--instance BoxedEnum RequesterError where-    boxedEnumType _ = c_soup_requester_error_get_type---- Enum RequestError--data RequestError = -      RequestErrorBadUri-    | RequestErrorUnsupportedUriScheme-    | RequestErrorParsing-    | RequestErrorEncoding-    | AnotherRequestError Int-    deriving (Show, Eq)--instance Enum RequestError where-    fromEnum RequestErrorBadUri = 0-    fromEnum RequestErrorUnsupportedUriScheme = 1-    fromEnum RequestErrorParsing = 2-    fromEnum RequestErrorEncoding = 3-    fromEnum (AnotherRequestError k) = k--    toEnum 0 = RequestErrorBadUri-    toEnum 1 = RequestErrorUnsupportedUriScheme-    toEnum 2 = RequestErrorParsing-    toEnum 3 = RequestErrorEncoding-    toEnum k = AnotherRequestError k--instance GErrorClass RequestError where-    gerrorClassDomain _ = "soup_request_error_quark"--catchRequestError ::-    IO a ->-    (RequestError -> GErrorMessage -> IO a) ->-    IO a-catchRequestError = catchGErrorJustDomain--handleRequestError ::-    (RequestError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleRequestError = handleGErrorJustDomain--foreign import ccall "soup_request_error_get_type" c_soup_request_error_get_type :: -    IO GType--instance BoxedEnum RequestError where-    boxedEnumType _ = c_soup_request_error_get_type---- Enum MessagePriority--data MessagePriority = -      MessagePriorityVeryLow-    | MessagePriorityLow-    | MessagePriorityNormal-    | MessagePriorityHigh-    | MessagePriorityVeryHigh-    | AnotherMessagePriority Int-    deriving (Show, Eq)--instance Enum MessagePriority where-    fromEnum MessagePriorityVeryLow = 0-    fromEnum MessagePriorityLow = 1-    fromEnum MessagePriorityNormal = 2-    fromEnum MessagePriorityHigh = 3-    fromEnum MessagePriorityVeryHigh = 4-    fromEnum (AnotherMessagePriority k) = k--    toEnum 0 = MessagePriorityVeryLow-    toEnum 1 = MessagePriorityLow-    toEnum 2 = MessagePriorityNormal-    toEnum 3 = MessagePriorityHigh-    toEnum 4 = MessagePriorityVeryHigh-    toEnum k = AnotherMessagePriority k--foreign import ccall "soup_message_priority_get_type" c_soup_message_priority_get_type :: -    IO GType--instance BoxedEnum MessagePriority where-    boxedEnumType _ = c_soup_message_priority_get_type---- Enum MessageHeadersType--data MessageHeadersType = -      MessageHeadersTypeRequest-    | MessageHeadersTypeResponse-    | MessageHeadersTypeMultipart-    | AnotherMessageHeadersType Int-    deriving (Show, Eq)--instance Enum MessageHeadersType where-    fromEnum MessageHeadersTypeRequest = 0-    fromEnum MessageHeadersTypeResponse = 1-    fromEnum MessageHeadersTypeMultipart = 2-    fromEnum (AnotherMessageHeadersType k) = k--    toEnum 0 = MessageHeadersTypeRequest-    toEnum 1 = MessageHeadersTypeResponse-    toEnum 2 = MessageHeadersTypeMultipart-    toEnum k = AnotherMessageHeadersType k--foreign import ccall "soup_message_headers_type_get_type" c_soup_message_headers_type_get_type :: -    IO GType--instance BoxedEnum MessageHeadersType where-    boxedEnumType _ = c_soup_message_headers_type_get_type---- Enum MemoryUse--data MemoryUse = -      MemoryUseStatic-    | MemoryUseTake-    | MemoryUseCopy-    | MemoryUseTemporary-    | AnotherMemoryUse Int-    deriving (Show, Eq)--instance Enum MemoryUse where-    fromEnum MemoryUseStatic = 0-    fromEnum MemoryUseTake = 1-    fromEnum MemoryUseCopy = 2-    fromEnum MemoryUseTemporary = 3-    fromEnum (AnotherMemoryUse k) = k--    toEnum 0 = MemoryUseStatic-    toEnum 1 = MemoryUseTake-    toEnum 2 = MemoryUseCopy-    toEnum 3 = MemoryUseTemporary-    toEnum k = AnotherMemoryUse k--foreign import ccall "soup_memory_use_get_type" c_soup_memory_use_get_type :: -    IO GType--instance BoxedEnum MemoryUse where-    boxedEnumType _ = c_soup_memory_use_get_type---- Enum LoggerLogLevel--data LoggerLogLevel = -      LoggerLogLevelNone-    | LoggerLogLevelMinimal-    | LoggerLogLevelHeaders-    | LoggerLogLevelBody-    | AnotherLoggerLogLevel Int-    deriving (Show, Eq)--instance Enum LoggerLogLevel where-    fromEnum LoggerLogLevelNone = 0-    fromEnum LoggerLogLevelMinimal = 1-    fromEnum LoggerLogLevelHeaders = 2-    fromEnum LoggerLogLevelBody = 3-    fromEnum (AnotherLoggerLogLevel k) = k--    toEnum 0 = LoggerLogLevelNone-    toEnum 1 = LoggerLogLevelMinimal-    toEnum 2 = LoggerLogLevelHeaders-    toEnum 3 = LoggerLogLevelBody-    toEnum k = AnotherLoggerLogLevel k--foreign import ccall "soup_logger_log_level_get_type" c_soup_logger_log_level_get_type :: -    IO GType--instance BoxedEnum LoggerLogLevel where-    boxedEnumType _ = c_soup_logger_log_level_get_type---- Enum KnownStatusCode--data KnownStatusCode = -      KnownStatusCodeNone-    | KnownStatusCodeCancelled-    | KnownStatusCodeCantResolve-    | KnownStatusCodeCantResolveProxy-    | KnownStatusCodeCantConnect-    | KnownStatusCodeCantConnectProxy-    | KnownStatusCodeSslFailed-    | KnownStatusCodeIoError-    | KnownStatusCodeMalformed-    | KnownStatusCodeTryAgain-    | KnownStatusCodeTooManyRedirects-    | KnownStatusCodeTlsFailed-    | KnownStatusCodeContinue-    | KnownStatusCodeSwitchingProtocols-    | KnownStatusCodeProcessing-    | KnownStatusCodeOk-    | KnownStatusCodeCreated-    | KnownStatusCodeAccepted-    | KnownStatusCodeNonAuthoritative-    | KnownStatusCodeNoContent-    | KnownStatusCodeResetContent-    | KnownStatusCodePartialContent-    | KnownStatusCodeMultiStatus-    | KnownStatusCodeMultipleChoices-    | KnownStatusCodeMovedPermanently-    | KnownStatusCodeFound-    | KnownStatusCodeMovedTemporarily-    | KnownStatusCodeSeeOther-    | KnownStatusCodeNotModified-    | KnownStatusCodeUseProxy-    | KnownStatusCodeNotAppearingInThisProtocol-    | KnownStatusCodeTemporaryRedirect-    | KnownStatusCodeBadRequest-    | KnownStatusCodeUnauthorized-    | KnownStatusCodePaymentRequired-    | KnownStatusCodeForbidden-    | KnownStatusCodeNotFound-    | KnownStatusCodeMethodNotAllowed-    | KnownStatusCodeNotAcceptable-    | KnownStatusCodeProxyAuthenticationRequired-    | KnownStatusCodeProxyUnauthorized-    | KnownStatusCodeRequestTimeout-    | KnownStatusCodeConflict-    | KnownStatusCodeGone-    | KnownStatusCodeLengthRequired-    | KnownStatusCodePreconditionFailed-    | KnownStatusCodeRequestEntityTooLarge-    | KnownStatusCodeRequestUriTooLong-    | KnownStatusCodeUnsupportedMediaType-    | KnownStatusCodeRequestedRangeNotSatisfiable-    | KnownStatusCodeInvalidRange-    | KnownStatusCodeExpectationFailed-    | KnownStatusCodeUnprocessableEntity-    | KnownStatusCodeLocked-    | KnownStatusCodeFailedDependency-    | KnownStatusCodeInternalServerError-    | KnownStatusCodeNotImplemented-    | KnownStatusCodeBadGateway-    | KnownStatusCodeServiceUnavailable-    | KnownStatusCodeGatewayTimeout-    | KnownStatusCodeHttpVersionNotSupported-    | KnownStatusCodeInsufficientStorage-    | KnownStatusCodeNotExtended-    | AnotherKnownStatusCode Int-    deriving (Show, Eq)--instance Enum KnownStatusCode where-    fromEnum KnownStatusCodeNone = 0-    fromEnum KnownStatusCodeCancelled = 1-    fromEnum KnownStatusCodeCantResolve = 2-    fromEnum KnownStatusCodeCantResolveProxy = 3-    fromEnum KnownStatusCodeCantConnect = 4-    fromEnum KnownStatusCodeCantConnectProxy = 5-    fromEnum KnownStatusCodeSslFailed = 6-    fromEnum KnownStatusCodeIoError = 7-    fromEnum KnownStatusCodeMalformed = 8-    fromEnum KnownStatusCodeTryAgain = 9-    fromEnum KnownStatusCodeTooManyRedirects = 10-    fromEnum KnownStatusCodeTlsFailed = 11-    fromEnum KnownStatusCodeContinue = 100-    fromEnum KnownStatusCodeSwitchingProtocols = 101-    fromEnum KnownStatusCodeProcessing = 102-    fromEnum KnownStatusCodeOk = 200-    fromEnum KnownStatusCodeCreated = 201-    fromEnum KnownStatusCodeAccepted = 202-    fromEnum KnownStatusCodeNonAuthoritative = 203-    fromEnum KnownStatusCodeNoContent = 204-    fromEnum KnownStatusCodeResetContent = 205-    fromEnum KnownStatusCodePartialContent = 206-    fromEnum KnownStatusCodeMultiStatus = 207-    fromEnum KnownStatusCodeMultipleChoices = 300-    fromEnum KnownStatusCodeMovedPermanently = 301-    fromEnum KnownStatusCodeFound = 302-    fromEnum KnownStatusCodeMovedTemporarily = 302-    fromEnum KnownStatusCodeSeeOther = 303-    fromEnum KnownStatusCodeNotModified = 304-    fromEnum KnownStatusCodeUseProxy = 305-    fromEnum KnownStatusCodeNotAppearingInThisProtocol = 306-    fromEnum KnownStatusCodeTemporaryRedirect = 307-    fromEnum KnownStatusCodeBadRequest = 400-    fromEnum KnownStatusCodeUnauthorized = 401-    fromEnum KnownStatusCodePaymentRequired = 402-    fromEnum KnownStatusCodeForbidden = 403-    fromEnum KnownStatusCodeNotFound = 404-    fromEnum KnownStatusCodeMethodNotAllowed = 405-    fromEnum KnownStatusCodeNotAcceptable = 406-    fromEnum KnownStatusCodeProxyAuthenticationRequired = 407-    fromEnum KnownStatusCodeProxyUnauthorized = 407-    fromEnum KnownStatusCodeRequestTimeout = 408-    fromEnum KnownStatusCodeConflict = 409-    fromEnum KnownStatusCodeGone = 410-    fromEnum KnownStatusCodeLengthRequired = 411-    fromEnum KnownStatusCodePreconditionFailed = 412-    fromEnum KnownStatusCodeRequestEntityTooLarge = 413-    fromEnum KnownStatusCodeRequestUriTooLong = 414-    fromEnum KnownStatusCodeUnsupportedMediaType = 415-    fromEnum KnownStatusCodeRequestedRangeNotSatisfiable = 416-    fromEnum KnownStatusCodeInvalidRange = 416-    fromEnum KnownStatusCodeExpectationFailed = 417-    fromEnum KnownStatusCodeUnprocessableEntity = 422-    fromEnum KnownStatusCodeLocked = 423-    fromEnum KnownStatusCodeFailedDependency = 424-    fromEnum KnownStatusCodeInternalServerError = 500-    fromEnum KnownStatusCodeNotImplemented = 501-    fromEnum KnownStatusCodeBadGateway = 502-    fromEnum KnownStatusCodeServiceUnavailable = 503-    fromEnum KnownStatusCodeGatewayTimeout = 504-    fromEnum KnownStatusCodeHttpVersionNotSupported = 505-    fromEnum KnownStatusCodeInsufficientStorage = 507-    fromEnum KnownStatusCodeNotExtended = 510-    fromEnum (AnotherKnownStatusCode k) = k--    toEnum 0 = KnownStatusCodeNone-    toEnum 1 = KnownStatusCodeCancelled-    toEnum 2 = KnownStatusCodeCantResolve-    toEnum 3 = KnownStatusCodeCantResolveProxy-    toEnum 4 = KnownStatusCodeCantConnect-    toEnum 5 = KnownStatusCodeCantConnectProxy-    toEnum 6 = KnownStatusCodeSslFailed-    toEnum 7 = KnownStatusCodeIoError-    toEnum 8 = KnownStatusCodeMalformed-    toEnum 9 = KnownStatusCodeTryAgain-    toEnum 10 = KnownStatusCodeTooManyRedirects-    toEnum 11 = KnownStatusCodeTlsFailed-    toEnum 100 = KnownStatusCodeContinue-    toEnum 101 = KnownStatusCodeSwitchingProtocols-    toEnum 102 = KnownStatusCodeProcessing-    toEnum 200 = KnownStatusCodeOk-    toEnum 201 = KnownStatusCodeCreated-    toEnum 202 = KnownStatusCodeAccepted-    toEnum 203 = KnownStatusCodeNonAuthoritative-    toEnum 204 = KnownStatusCodeNoContent-    toEnum 205 = KnownStatusCodeResetContent-    toEnum 206 = KnownStatusCodePartialContent-    toEnum 207 = KnownStatusCodeMultiStatus-    toEnum 300 = KnownStatusCodeMultipleChoices-    toEnum 301 = KnownStatusCodeMovedPermanently-    toEnum 302 = KnownStatusCodeFound-    toEnum 303 = KnownStatusCodeSeeOther-    toEnum 304 = KnownStatusCodeNotModified-    toEnum 305 = KnownStatusCodeUseProxy-    toEnum 306 = KnownStatusCodeNotAppearingInThisProtocol-    toEnum 307 = KnownStatusCodeTemporaryRedirect-    toEnum 400 = KnownStatusCodeBadRequest-    toEnum 401 = KnownStatusCodeUnauthorized-    toEnum 402 = KnownStatusCodePaymentRequired-    toEnum 403 = KnownStatusCodeForbidden-    toEnum 404 = KnownStatusCodeNotFound-    toEnum 405 = KnownStatusCodeMethodNotAllowed-    toEnum 406 = KnownStatusCodeNotAcceptable-    toEnum 407 = KnownStatusCodeProxyAuthenticationRequired-    toEnum 408 = KnownStatusCodeRequestTimeout-    toEnum 409 = KnownStatusCodeConflict-    toEnum 410 = KnownStatusCodeGone-    toEnum 411 = KnownStatusCodeLengthRequired-    toEnum 412 = KnownStatusCodePreconditionFailed-    toEnum 413 = KnownStatusCodeRequestEntityTooLarge-    toEnum 414 = KnownStatusCodeRequestUriTooLong-    toEnum 415 = KnownStatusCodeUnsupportedMediaType-    toEnum 416 = KnownStatusCodeRequestedRangeNotSatisfiable-    toEnum 417 = KnownStatusCodeExpectationFailed-    toEnum 422 = KnownStatusCodeUnprocessableEntity-    toEnum 423 = KnownStatusCodeLocked-    toEnum 424 = KnownStatusCodeFailedDependency-    toEnum 500 = KnownStatusCodeInternalServerError-    toEnum 501 = KnownStatusCodeNotImplemented-    toEnum 502 = KnownStatusCodeBadGateway-    toEnum 503 = KnownStatusCodeServiceUnavailable-    toEnum 504 = KnownStatusCodeGatewayTimeout-    toEnum 505 = KnownStatusCodeHttpVersionNotSupported-    toEnum 507 = KnownStatusCodeInsufficientStorage-    toEnum 510 = KnownStatusCodeNotExtended-    toEnum k = AnotherKnownStatusCode k--foreign import ccall "soup_known_status_code_get_type" c_soup_known_status_code_get_type :: -    IO GType--instance BoxedEnum KnownStatusCode where-    boxedEnumType _ = c_soup_known_status_code_get_type---- Enum HTTPVersion--data HTTPVersion = -      HTTPVersionHttp10-    | HTTPVersionHttp11-    | AnotherHTTPVersion Int-    deriving (Show, Eq)--instance Enum HTTPVersion where-    fromEnum HTTPVersionHttp10 = 0-    fromEnum HTTPVersionHttp11 = 1-    fromEnum (AnotherHTTPVersion k) = k--    toEnum 0 = HTTPVersionHttp10-    toEnum 1 = HTTPVersionHttp11-    toEnum k = AnotherHTTPVersion k--foreign import ccall "soup_http_version_get_type" c_soup_http_version_get_type :: -    IO GType--instance BoxedEnum HTTPVersion where-    boxedEnumType _ = c_soup_http_version_get_type---- Enum Encoding--data Encoding = -      EncodingUnrecognized-    | EncodingNone-    | EncodingContentLength-    | EncodingEof-    | EncodingChunked-    | EncodingByteranges-    | AnotherEncoding Int-    deriving (Show, Eq)--instance Enum Encoding where-    fromEnum EncodingUnrecognized = 0-    fromEnum EncodingNone = 1-    fromEnum EncodingContentLength = 2-    fromEnum EncodingEof = 3-    fromEnum EncodingChunked = 4-    fromEnum EncodingByteranges = 5-    fromEnum (AnotherEncoding k) = k--    toEnum 0 = EncodingUnrecognized-    toEnum 1 = EncodingNone-    toEnum 2 = EncodingContentLength-    toEnum 3 = EncodingEof-    toEnum 4 = EncodingChunked-    toEnum 5 = EncodingByteranges-    toEnum k = AnotherEncoding k--foreign import ccall "soup_encoding_get_type" c_soup_encoding_get_type :: -    IO GType--instance BoxedEnum Encoding where-    boxedEnumType _ = c_soup_encoding_get_type---- Enum DateFormat--data DateFormat = -      DateFormatHttp-    | DateFormatCookie-    | DateFormatRfc2822-    | DateFormatIso8601Compact-    | DateFormatIso8601Full-    | DateFormatIso8601-    | DateFormatIso8601Xmlrpc-    | AnotherDateFormat Int-    deriving (Show, Eq)--instance Enum DateFormat where-    fromEnum DateFormatHttp = 1-    fromEnum DateFormatCookie = 2-    fromEnum DateFormatRfc2822 = 3-    fromEnum DateFormatIso8601Compact = 4-    fromEnum DateFormatIso8601Full = 5-    fromEnum DateFormatIso8601 = 5-    fromEnum DateFormatIso8601Xmlrpc = 6-    fromEnum (AnotherDateFormat k) = k--    toEnum 1 = DateFormatHttp-    toEnum 2 = DateFormatCookie-    toEnum 3 = DateFormatRfc2822-    toEnum 4 = DateFormatIso8601Compact-    toEnum 5 = DateFormatIso8601Full-    toEnum 6 = DateFormatIso8601Xmlrpc-    toEnum k = AnotherDateFormat k--foreign import ccall "soup_date_format_get_type" c_soup_date_format_get_type :: -    IO GType--instance BoxedEnum DateFormat where-    boxedEnumType _ = c_soup_date_format_get_type---- Enum CookieJarAcceptPolicy--data CookieJarAcceptPolicy = -      CookieJarAcceptPolicyAlways-    | CookieJarAcceptPolicyNever-    | CookieJarAcceptPolicyNoThirdParty-    | AnotherCookieJarAcceptPolicy Int-    deriving (Show, Eq)--instance Enum CookieJarAcceptPolicy where-    fromEnum CookieJarAcceptPolicyAlways = 0-    fromEnum CookieJarAcceptPolicyNever = 1-    fromEnum CookieJarAcceptPolicyNoThirdParty = 2-    fromEnum (AnotherCookieJarAcceptPolicy k) = k--    toEnum 0 = CookieJarAcceptPolicyAlways-    toEnum 1 = CookieJarAcceptPolicyNever-    toEnum 2 = CookieJarAcceptPolicyNoThirdParty-    toEnum k = AnotherCookieJarAcceptPolicy k--foreign import ccall "soup_cookie_jar_accept_policy_get_type" c_soup_cookie_jar_accept_policy_get_type :: -    IO GType--instance BoxedEnum CookieJarAcceptPolicy where-    boxedEnumType _ = c_soup_cookie_jar_accept_policy_get_type---- Enum ConnectionState--data ConnectionState = -      ConnectionStateNew-    | ConnectionStateConnecting-    | ConnectionStateIdle-    | ConnectionStateInUse-    | ConnectionStateRemoteDisconnected-    | ConnectionStateDisconnected-    | AnotherConnectionState Int-    deriving (Show, Eq)--instance Enum ConnectionState where-    fromEnum ConnectionStateNew = 0-    fromEnum ConnectionStateConnecting = 1-    fromEnum ConnectionStateIdle = 2-    fromEnum ConnectionStateInUse = 3-    fromEnum ConnectionStateRemoteDisconnected = 4-    fromEnum ConnectionStateDisconnected = 5-    fromEnum (AnotherConnectionState k) = k--    toEnum 0 = ConnectionStateNew-    toEnum 1 = ConnectionStateConnecting-    toEnum 2 = ConnectionStateIdle-    toEnum 3 = ConnectionStateInUse-    toEnum 4 = ConnectionStateRemoteDisconnected-    toEnum 5 = ConnectionStateDisconnected-    toEnum k = AnotherConnectionState k--foreign import ccall "soup_connection_state_get_type" c_soup_connection_state_get_type :: -    IO GType--instance BoxedEnum ConnectionState where-    boxedEnumType _ = c_soup_connection_state_get_type---- Enum CacheType--data CacheType = -      CacheTypeSingleUser-    | CacheTypeShared-    | AnotherCacheType Int-    deriving (Show, Eq)--instance Enum CacheType where-    fromEnum CacheTypeSingleUser = 0-    fromEnum CacheTypeShared = 1-    fromEnum (AnotherCacheType k) = k--    toEnum 0 = CacheTypeSingleUser-    toEnum 1 = CacheTypeShared-    toEnum k = AnotherCacheType k--foreign import ccall "soup_cache_type_get_type" c_soup_cache_type_get_type :: -    IO GType--instance BoxedEnum CacheType where-    boxedEnumType _ = c_soup_cache_type_get_type---- Enum CacheResponse--data CacheResponse = -      CacheResponseFresh-    | CacheResponseNeedsValidation-    | CacheResponseStale-    | AnotherCacheResponse Int-    deriving (Show, Eq)--instance Enum CacheResponse where-    fromEnum CacheResponseFresh = 0-    fromEnum CacheResponseNeedsValidation = 1-    fromEnum CacheResponseStale = 2-    fromEnum (AnotherCacheResponse k) = k--    toEnum 0 = CacheResponseFresh-    toEnum 1 = CacheResponseNeedsValidation-    toEnum 2 = CacheResponseStale-    toEnum k = AnotherCacheResponse k--foreign import ccall "soup_cache_response_get_type" c_soup_cache_response_get_type :: -    IO GType--instance BoxedEnum CacheResponse where-    boxedEnumType _ = c_soup_cache_response_get_type---- Enum AddressFamily--data AddressFamily = -      AddressFamilyInvalid-    | AddressFamilyIpv4-    | AddressFamilyIpv6-    | AnotherAddressFamily Int-    deriving (Show, Eq)--instance Enum AddressFamily where-    fromEnum AddressFamilyInvalid = -1-    fromEnum AddressFamilyIpv4 = 2-    fromEnum AddressFamilyIpv6 = 10-    fromEnum (AnotherAddressFamily k) = k--    toEnum -1 = AddressFamilyInvalid-    toEnum 2 = AddressFamilyIpv4-    toEnum 10 = AddressFamilyIpv6-    toEnum k = AnotherAddressFamily k--foreign import ccall "soup_address_family_get_type" c_soup_address_family_get_type :: -    IO GType--instance BoxedEnum AddressFamily where-    boxedEnumType _ = c_soup_address_family_get_type--
− GI/Soup/Flags.hs 
@@ -1,158 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Flags-    ( ---- * Exported types-    ServerListenOptions(..)                 ,-    MessageFlags(..)                        ,-    Expectation(..)                         ,-    Cacheability(..)                        ,---    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map------- Flags ServerListenOptions--data ServerListenOptions = -      ServerListenOptionsHttps-    | ServerListenOptionsIpv4Only-    | ServerListenOptionsIpv6Only-    | AnotherServerListenOptions Int-    deriving (Show, Eq)--instance Enum ServerListenOptions where-    fromEnum ServerListenOptionsHttps = 1-    fromEnum ServerListenOptionsIpv4Only = 2-    fromEnum ServerListenOptionsIpv6Only = 4-    fromEnum (AnotherServerListenOptions k) = k--    toEnum 1 = ServerListenOptionsHttps-    toEnum 2 = ServerListenOptionsIpv4Only-    toEnum 4 = ServerListenOptionsIpv6Only-    toEnum k = AnotherServerListenOptions k--foreign import ccall "soup_server_listen_options_get_type" c_soup_server_listen_options_get_type :: -    IO GType--instance BoxedFlags ServerListenOptions where-    boxedFlagsType _ = c_soup_server_listen_options_get_type--instance IsGFlag ServerListenOptions---- Flags MessageFlags--data MessageFlags = -      MessageFlagsNoRedirect-    | MessageFlagsCanRebuild-    | MessageFlagsOverwriteChunks-    | MessageFlagsContentDecoded-    | MessageFlagsCertificateTrusted-    | MessageFlagsNewConnection-    | MessageFlagsIdempotent-    | MessageFlagsIgnoreConnectionLimits-    | AnotherMessageFlags Int-    deriving (Show, Eq)--instance Enum MessageFlags where-    fromEnum MessageFlagsNoRedirect = 2-    fromEnum MessageFlagsCanRebuild = 4-    fromEnum MessageFlagsOverwriteChunks = 8-    fromEnum MessageFlagsContentDecoded = 16-    fromEnum MessageFlagsCertificateTrusted = 32-    fromEnum MessageFlagsNewConnection = 64-    fromEnum MessageFlagsIdempotent = 128-    fromEnum MessageFlagsIgnoreConnectionLimits = 256-    fromEnum (AnotherMessageFlags k) = k--    toEnum 2 = MessageFlagsNoRedirect-    toEnum 4 = MessageFlagsCanRebuild-    toEnum 8 = MessageFlagsOverwriteChunks-    toEnum 16 = MessageFlagsContentDecoded-    toEnum 32 = MessageFlagsCertificateTrusted-    toEnum 64 = MessageFlagsNewConnection-    toEnum 128 = MessageFlagsIdempotent-    toEnum 256 = MessageFlagsIgnoreConnectionLimits-    toEnum k = AnotherMessageFlags k--foreign import ccall "soup_message_flags_get_type" c_soup_message_flags_get_type :: -    IO GType--instance BoxedFlags MessageFlags where-    boxedFlagsType _ = c_soup_message_flags_get_type--instance IsGFlag MessageFlags---- Flags Expectation--data Expectation = -      ExpectationUnrecognized-    | ExpectationContinue-    | AnotherExpectation Int-    deriving (Show, Eq)--instance Enum Expectation where-    fromEnum ExpectationUnrecognized = 1-    fromEnum ExpectationContinue = 2-    fromEnum (AnotherExpectation k) = k--    toEnum 1 = ExpectationUnrecognized-    toEnum 2 = ExpectationContinue-    toEnum k = AnotherExpectation k--foreign import ccall "soup_expectation_get_type" c_soup_expectation_get_type :: -    IO GType--instance BoxedFlags Expectation where-    boxedFlagsType _ = c_soup_expectation_get_type--instance IsGFlag Expectation---- Flags Cacheability--data Cacheability = -      CacheabilityCacheable-    | CacheabilityUncacheable-    | CacheabilityInvalidates-    | CacheabilityValidates-    | AnotherCacheability Int-    deriving (Show, Eq)--instance Enum Cacheability where-    fromEnum CacheabilityCacheable = 1-    fromEnum CacheabilityUncacheable = 2-    fromEnum CacheabilityInvalidates = 4-    fromEnum CacheabilityValidates = 8-    fromEnum (AnotherCacheability k) = k--    toEnum 1 = CacheabilityCacheable-    toEnum 2 = CacheabilityUncacheable-    toEnum 4 = CacheabilityInvalidates-    toEnum 8 = CacheabilityValidates-    toEnum k = AnotherCacheability k--foreign import ccall "soup_cacheability_get_type" c_soup_cacheability_get_type :: -    IO GType--instance BoxedFlags Cacheability where-    boxedFlagsType _ = c_soup_cacheability_get_type--instance IsGFlag Cacheability--
− GI/Soup/Functions.hs 
@@ -1,1697 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Functions-    ( -- -- * Methods--- ** cookiesFromRequest-    cookiesFromRequest                      ,----- ** cookiesFromResponse-    cookiesFromResponse                     ,----- ** cookiesToCookieHeader-    cookiesToCookieHeader                   ,----- ** cookiesToRequest-    cookiesToRequest                        ,----- ** cookiesToResponse-    cookiesToResponse                       ,----- ** formDecode-    formDecode                              ,----- ** formDecodeMultipart-    formDecodeMultipart                     ,----- ** formEncodeDatalist-    formEncodeDatalist                      ,----- ** formEncodeHash-    formEncodeHash                          ,----- ** formRequestNewFromDatalist-    formRequestNewFromDatalist              ,----- ** formRequestNewFromHash-    formRequestNewFromHash                  ,----- ** formRequestNewFromMultipart-    formRequestNewFromMultipart             ,----- ** headerContains-    headerContains                          ,----- ** headerFreeParamList-    headerFreeParamList                     ,----- ** headerGStringAppendParam-    headerGStringAppendParam                ,----- ** headerGStringAppendParamQuoted-    headerGStringAppendParamQuoted          ,----- ** headerParseList-    headerParseList                         ,----- ** headerParseParamList-    headerParseParamList                    ,----- ** headerParseQualityList-    headerParseQualityList                  ,----- ** headerParseSemiParamList-    headerParseSemiParamList                ,----- ** headersParse-    headersParse                            ,----- ** headersParseRequest-    headersParseRequest                     ,----- ** headersParseResponse-    headersParseResponse                    ,----- ** headersParseStatusLine-    headersParseStatusLine                  ,----- ** httpErrorQuark-    httpErrorQuark                          ,----- ** strCaseEqual-    strCaseEqual                            ,----- ** strCaseHash-    strCaseHash                             ,----- ** tldDomainIsPublicSuffix-    tldDomainIsPublicSuffix                 ,----- ** tldGetBaseDomain-    tldGetBaseDomain                        ,----- ** valueArrayNew-    valueArrayNew                           ,----- ** websocketClientPrepareHandshake-    websocketClientPrepareHandshake         ,----- ** websocketClientVerifyHandshake-    websocketClientVerifyHandshake          ,----- ** websocketServerCheckHandshake-    websocketServerCheckHandshake           ,----- ** websocketServerProcessHandshake-    websocketServerProcessHandshake         ,----- ** xmlrpcBuildMethodCall-    xmlrpcBuildMethodCall                   ,----- ** xmlrpcBuildMethodResponse-    xmlrpcBuildMethodResponse               ,----- ** xmlrpcBuildRequest-    xmlrpcBuildRequest                      ,----- ** xmlrpcBuildResponse-    xmlrpcBuildResponse                     ,----- ** xmlrpcMessageNew-    xmlrpcMessageNew                        ,----- ** xmlrpcMessageSetResponse-    xmlrpcMessageSetResponse                ,----- ** xmlrpcParseMethodCall-    xmlrpcParseMethodCall                   ,----- ** xmlrpcParseMethodResponse-    xmlrpcParseMethodResponse               ,----- ** xmlrpcParseRequest-    xmlrpcParseRequest                      ,----- ** xmlrpcParseResponse-    xmlrpcParseResponse                     ,----- ** xmlrpcVariantGetDatetime-    xmlrpcVariantGetDatetime                ,----- ** xmlrpcVariantNewDatetime-    xmlrpcVariantNewDatetime                ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject---- function soup_xmlrpc_variant_new_datetime--- Args : [Arg {argCName = "date", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : False--- Skip return : False--foreign import ccall "soup_xmlrpc_variant_new_datetime" soup_xmlrpc_variant_new_datetime :: -    Ptr Date ->                             -- date : TInterface "Soup" "Date"-    IO (Ptr GVariant)---xmlrpcVariantNewDatetime ::-    (MonadIO m) =>-    Date                                    -- date-    -> m GVariant                           -- result-xmlrpcVariantNewDatetime date = liftIO $ do-    let date' = unsafeManagedPtrGetPtr date-    result <- soup_xmlrpc_variant_new_datetime date'-    checkUnexpectedReturnNULL "soup_xmlrpc_variant_new_datetime" result-    result' <- wrapGVariantPtr result-    touchManagedPtr date-    return result'----- function soup_xmlrpc_variant_get_datetime--- Args : [Arg {argCName = "variant", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Date")--- throws : True--- Skip return : False--foreign import ccall "soup_xmlrpc_variant_get_datetime" soup_xmlrpc_variant_get_datetime :: -    Ptr GVariant ->                         -- variant : TVariant-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Date)---xmlrpcVariantGetDatetime ::-    (MonadIO m) =>-    GVariant                                -- variant-    -> m Date                               -- result-xmlrpcVariantGetDatetime variant = liftIO $ do-    let variant' = unsafeManagedPtrGetPtr variant-    onException (do-        result <- propagateGError $ soup_xmlrpc_variant_get_datetime variant'-        checkUnexpectedReturnNULL "soup_xmlrpc_variant_get_datetime" result-        result' <- (wrapBoxed Date) result-        return result'-     ) (do-        return ()-     )----- function soup_xmlrpc_parse_response--- Args : [Arg {argCName = "method_response", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "signature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : True--- Skip return : False--foreign import ccall "soup_xmlrpc_parse_response" soup_xmlrpc_parse_response :: -    CString ->                              -- method_response : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt-    CString ->                              -- signature : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GVariant)---xmlrpcParseResponse ::-    (MonadIO m) =>-    T.Text                                  -- methodResponse-    -> Int32                                -- length_-    -> Maybe (T.Text)                       -- signature-    -> m GVariant                           -- result-xmlrpcParseResponse methodResponse length_ signature = liftIO $ do-    methodResponse' <- textToCString methodResponse-    maybeSignature <- case signature of-        Nothing -> return nullPtr-        Just jSignature -> do-            jSignature' <- textToCString jSignature-            return jSignature'-    onException (do-        result <- propagateGError $ soup_xmlrpc_parse_response methodResponse' length_ maybeSignature-        checkUnexpectedReturnNULL "soup_xmlrpc_parse_response" result-        result' <- wrapGVariantPtr result-        freeMem methodResponse'-        freeMem maybeSignature-        return result'-     ) (do-        freeMem methodResponse'-        freeMem maybeSignature-     )----- function soup_xmlrpc_parse_request--- Args : [Arg {argCName = "method_call", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TInterface "Soup" "XMLRPCParams", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : True--- Skip return : False--foreign import ccall "soup_xmlrpc_parse_request" soup_xmlrpc_parse_request :: -    CString ->                              -- method_call : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt-    Ptr (Ptr XMLRPCParams) ->               -- params : TInterface "Soup" "XMLRPCParams"-    Ptr (Ptr GError) ->                     -- error-    IO CString---xmlrpcParseRequest ::-    (MonadIO m) =>-    T.Text                                  -- methodCall-    -> Int32                                -- length_-    -> m (T.Text,XMLRPCParams)              -- result-xmlrpcParseRequest methodCall length_ = liftIO $ do-    methodCall' <- textToCString methodCall-    params <- allocMem :: IO (Ptr (Ptr XMLRPCParams))-    onException (do-        result <- propagateGError $ soup_xmlrpc_parse_request methodCall' length_ params-        checkUnexpectedReturnNULL "soup_xmlrpc_parse_request" result-        result' <- cstringToText result-        freeMem result-        params' <- peek params-        params'' <- (wrapPtr XMLRPCParams) params'-        freeMem methodCall'-        freeMem params-        return (result', params'')-     ) (do-        freeMem methodCall'-        freeMem params-     )----- function soup_xmlrpc_parse_method_response--- Args : [Arg {argCName = "method_response", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "soup_xmlrpc_parse_method_response" soup_xmlrpc_parse_method_response :: -    CString ->                              -- method_response : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt-    Ptr GValue ->                           -- value : TInterface "GObject" "Value"-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{-# DEPRECATED xmlrpcParseMethodResponse ["Use soup_xmlrpc_parse_response() instead."]#-}-xmlrpcParseMethodResponse ::-    (MonadIO m) =>-    T.Text                                  -- methodResponse-    -> Int32                                -- length_-    -> m (GValue)                           -- result-xmlrpcParseMethodResponse methodResponse length_ = liftIO $ do-    methodResponse' <- textToCString methodResponse-    value <- callocBoxedBytes 24 :: IO (Ptr GValue)-    onException (do-        _ <- propagateGError $ soup_xmlrpc_parse_method_response methodResponse' length_ value-        value' <- (wrapBoxed GValue) value-        freeMem methodResponse'-        return value'-     ) (do-        freeMem methodResponse'-        freeMem value-     )----- function soup_xmlrpc_parse_method_call--- Args : [Arg {argCName = "method_call", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "params", argType = TInterface "GObject" "ValueArray", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_xmlrpc_parse_method_call" soup_xmlrpc_parse_method_call :: -    CString ->                              -- method_call : TBasicType TUTF8-    Int32 ->                                -- length : TBasicType TInt-    Ptr CString ->                          -- method_name : TBasicType TUTF8-    Ptr GObject.ValueArray ->               -- params : TInterface "GObject" "ValueArray"-    IO CInt--{-# DEPRECATED xmlrpcParseMethodCall ["Use soup_xmlrpc_parse_request_full() instead."]#-}-xmlrpcParseMethodCall ::-    (MonadIO m) =>-    T.Text                                  -- methodCall-    -> Int32                                -- length_-    -> m (Bool,T.Text,GObject.ValueArray)   -- result-xmlrpcParseMethodCall methodCall length_ = liftIO $ do-    methodCall' <- textToCString methodCall-    methodName <- allocMem :: IO (Ptr CString)-    params <- callocBoxedBytes 24 :: IO (Ptr GObject.ValueArray)-    result <- soup_xmlrpc_parse_method_call methodCall' length_ methodName params-    let result' = (/= 0) result-    methodName' <- peek methodName-    methodName'' <- cstringToText methodName'-    freeMem methodName'-    params' <- (wrapBoxed GObject.ValueArray) params-    freeMem methodCall'-    freeMem methodName-    return (result', methodName'', params')----- function soup_xmlrpc_message_set_response--- Args : [Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "soup_xmlrpc_message_set_response" soup_xmlrpc_message_set_response :: -    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    Ptr GVariant ->                         -- value : TVariant-    Ptr (Ptr GError) ->                     -- error-    IO CInt---xmlrpcMessageSetResponse ::-    (MonadIO m, MessageK a) =>-    a                                       -- msg-    -> GVariant                             -- value-    -> m ()                                 -- result-xmlrpcMessageSetResponse msg value = liftIO $ do-    let msg' = unsafeManagedPtrCastPtr msg-    let value' = unsafeManagedPtrGetPtr value-    onException (do-        _ <- propagateGError $ soup_xmlrpc_message_set_response msg' value'-        touchManagedPtr msg-        return ()-     ) (do-        return ()-     )----- function soup_xmlrpc_message_new--- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Message")--- throws : True--- Skip return : False--foreign import ccall "soup_xmlrpc_message_new" soup_xmlrpc_message_new :: -    CString ->                              -- uri : TBasicType TUTF8-    CString ->                              -- method_name : TBasicType TUTF8-    Ptr GVariant ->                         -- params : TVariant-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Message)---xmlrpcMessageNew ::-    (MonadIO m) =>-    T.Text                                  -- uri-    -> T.Text                               -- methodName-    -> GVariant                             -- params-    -> m Message                            -- result-xmlrpcMessageNew uri methodName params = liftIO $ do-    uri' <- textToCString uri-    methodName' <- textToCString methodName-    let params' = unsafeManagedPtrGetPtr params-    onException (do-        result <- propagateGError $ soup_xmlrpc_message_new uri' methodName' params'-        checkUnexpectedReturnNULL "soup_xmlrpc_message_new" result-        result' <- (wrapObject Message) result-        freeMem uri'-        freeMem methodName'-        return result'-     ) (do-        freeMem uri'-        freeMem methodName'-     )----- function soup_xmlrpc_build_response--- Args : [Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : True--- Skip return : False--foreign import ccall "soup_xmlrpc_build_response" soup_xmlrpc_build_response :: -    Ptr GVariant ->                         -- value : TVariant-    Ptr (Ptr GError) ->                     -- error-    IO CString---xmlrpcBuildResponse ::-    (MonadIO m) =>-    GVariant                                -- value-    -> m T.Text                             -- result-xmlrpcBuildResponse value = liftIO $ do-    let value' = unsafeManagedPtrGetPtr value-    onException (do-        result <- propagateGError $ soup_xmlrpc_build_response value'-        checkUnexpectedReturnNULL "soup_xmlrpc_build_response" result-        result' <- cstringToText result-        freeMem result-        return result'-     ) (do-        return ()-     )----- function soup_xmlrpc_build_request--- Args : [Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TVariant, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : True--- Skip return : False--foreign import ccall "soup_xmlrpc_build_request" soup_xmlrpc_build_request :: -    CString ->                              -- method_name : TBasicType TUTF8-    Ptr GVariant ->                         -- params : TVariant-    Ptr (Ptr GError) ->                     -- error-    IO CString---xmlrpcBuildRequest ::-    (MonadIO m) =>-    T.Text                                  -- methodName-    -> GVariant                             -- params-    -> m T.Text                             -- result-xmlrpcBuildRequest methodName params = liftIO $ do-    methodName' <- textToCString methodName-    let params' = unsafeManagedPtrGetPtr params-    onException (do-        result <- propagateGError $ soup_xmlrpc_build_request methodName' params'-        checkUnexpectedReturnNULL "soup_xmlrpc_build_request" result-        result' <- cstringToText result-        freeMem result-        freeMem methodName'-        return result'-     ) (do-        freeMem methodName'-     )----- function soup_xmlrpc_build_method_response--- Args : [Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_xmlrpc_build_method_response" soup_xmlrpc_build_method_response :: -    Ptr GValue ->                           -- value : TInterface "GObject" "Value"-    IO CString--{-# DEPRECATED xmlrpcBuildMethodResponse ["Use soup_xmlrpc_build_response() instead."]#-}-xmlrpcBuildMethodResponse ::-    (MonadIO m) =>-    GValue                                  -- value-    -> m (Maybe T.Text)                     -- result-xmlrpcBuildMethodResponse value = liftIO $ do-    let value' = unsafeManagedPtrGetPtr value-    result <- soup_xmlrpc_build_method_response value'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        freeMem result'-        return result''-    touchManagedPtr value-    return maybeResult----- function soup_xmlrpc_build_method_call--- Args : [Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TCArray False (-1) 2 (TInterface "GObject" "Value"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_params", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_params", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_xmlrpc_build_method_call" soup_xmlrpc_build_method_call :: -    CString ->                              -- method_name : TBasicType TUTF8-    Ptr GValue ->                           -- params : TCArray False (-1) 2 (TInterface "GObject" "Value")-    Int32 ->                                -- n_params : TBasicType TInt-    IO CString--{-# DEPRECATED xmlrpcBuildMethodCall ["Use soup_xmlrpc_build_request() instead."]#-}-xmlrpcBuildMethodCall ::-    (MonadIO m) =>-    T.Text                                  -- methodName-    -> [GValue]                             -- params-    -> m (Maybe T.Text)                     -- result-xmlrpcBuildMethodCall methodName params = liftIO $ do-    let nParams = fromIntegral $ length params-    methodName' <- textToCString methodName-    let params' = map unsafeManagedPtrGetPtr params-    params'' <- packBlockArray 24 params'-    result <- soup_xmlrpc_build_method_call methodName' params'' nParams-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        freeMem result'-        return result''-    mapM_ touchManagedPtr params-    freeMem methodName'-    freeMem params''-    return maybeResult----- function soup_websocket_server_process_handshake--- Args : [Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expected_origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_server_process_handshake" soup_websocket_server_process_handshake :: -    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    CString ->                              -- expected_origin : TBasicType TUTF8-    Ptr CString ->                          -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8)-    IO CInt---websocketServerProcessHandshake ::-    (MonadIO m, MessageK a) =>-    a                                       -- msg-    -> Maybe (T.Text)                       -- expectedOrigin-    -> Maybe ([T.Text])                     -- protocols-    -> m Bool                               -- result-websocketServerProcessHandshake msg expectedOrigin protocols = liftIO $ do-    let msg' = unsafeManagedPtrCastPtr msg-    maybeExpectedOrigin <- case expectedOrigin of-        Nothing -> return nullPtr-        Just jExpectedOrigin -> do-            jExpectedOrigin' <- textToCString jExpectedOrigin-            return jExpectedOrigin'-    maybeProtocols <- case protocols of-        Nothing -> return nullPtr-        Just jProtocols -> do-            jProtocols' <- packZeroTerminatedUTF8CArray jProtocols-            return jProtocols'-    result <- soup_websocket_server_process_handshake msg' maybeExpectedOrigin maybeProtocols-    let result' = (/= 0) result-    touchManagedPtr msg-    freeMem maybeExpectedOrigin-    mapZeroTerminatedCArray freeMem maybeProtocols-    freeMem maybeProtocols-    return result'----- function soup_websocket_server_check_handshake--- Args : [Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "soup_websocket_server_check_handshake" soup_websocket_server_check_handshake :: -    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    CString ->                              -- origin : TBasicType TUTF8-    Ptr CString ->                          -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8)-    Ptr (Ptr GError) ->                     -- error-    IO CInt---websocketServerCheckHandshake ::-    (MonadIO m, MessageK a) =>-    a                                       -- msg-    -> Maybe (T.Text)                       -- origin-    -> Maybe ([T.Text])                     -- protocols-    -> m ()                                 -- result-websocketServerCheckHandshake msg origin protocols = liftIO $ do-    let 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'-    onException (do-        _ <- propagateGError $ soup_websocket_server_check_handshake msg' maybeOrigin maybeProtocols-        touchManagedPtr msg-        freeMem maybeOrigin-        mapZeroTerminatedCArray freeMem maybeProtocols-        freeMem maybeProtocols-        return ()-     ) (do-        freeMem maybeOrigin-        mapZeroTerminatedCArray freeMem maybeProtocols-        freeMem maybeProtocols-     )----- function soup_websocket_client_verify_handshake--- Args : [Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "soup_websocket_client_verify_handshake" soup_websocket_client_verify_handshake :: -    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---websocketClientVerifyHandshake ::-    (MonadIO m, MessageK a) =>-    a                                       -- msg-    -> m ()                                 -- result-websocketClientVerifyHandshake msg = liftIO $ do-    let msg' = unsafeManagedPtrCastPtr msg-    onException (do-        _ <- propagateGError $ soup_websocket_client_verify_handshake msg'-        touchManagedPtr msg-        return ()-     ) (do-        return ()-     )----- function soup_websocket_client_prepare_handshake--- Args : [Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_client_prepare_handshake" soup_websocket_client_prepare_handshake :: -    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    CString ->                              -- origin : TBasicType TUTF8-    Ptr CString ->                          -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8)-    IO ()---websocketClientPrepareHandshake ::-    (MonadIO m, MessageK a) =>-    a                                       -- msg-    -> Maybe (T.Text)                       -- origin-    -> Maybe ([T.Text])                     -- protocols-    -> m ()                                 -- result-websocketClientPrepareHandshake msg origin protocols = liftIO $ do-    let 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'-    soup_websocket_client_prepare_handshake msg' maybeOrigin maybeProtocols-    touchManagedPtr msg-    freeMem maybeOrigin-    mapZeroTerminatedCArray freeMem maybeProtocols-    freeMem maybeProtocols-    return ()----- function soup_value_hash_new--- XXX Could not generate function soup_value_hash_new--- Error was : Not implemented: "GHashTable element of type TInterface \"GObject\" \"Value\" unsupported."---- function soup_value_hash_insert_value--- XXX Could not generate function soup_value_hash_insert_value--- Error was : Not implemented: "GHashTable element of type TInterface \"GObject\" \"Value\" unsupported."---- function soup_value_array_new--- Args : []--- Lengths : []--- returnType : Just (TInterface "GObject" "ValueArray")--- throws : False--- Skip return : False--foreign import ccall "soup_value_array_new" soup_value_array_new :: -    IO (Ptr GObject.ValueArray)--{-# DEPRECATED valueArrayNew ["Use #GVariant API instead."]#-}-valueArrayNew ::-    (MonadIO m) =>-    m GObject.ValueArray                    -- result-valueArrayNew  = liftIO $ do-    result <- soup_value_array_new-    checkUnexpectedReturnNULL "soup_value_array_new" result-    result' <- (wrapBoxed GObject.ValueArray) result-    return result'----- function soup_tld_get_base_domain--- Args : [Arg {argCName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : True--- Skip return : False--foreign import ccall "soup_tld_get_base_domain" soup_tld_get_base_domain :: -    CString ->                              -- hostname : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CString---tldGetBaseDomain ::-    (MonadIO m) =>-    T.Text                                  -- hostname-    -> m T.Text                             -- result-tldGetBaseDomain hostname = liftIO $ do-    hostname' <- textToCString hostname-    onException (do-        result <- propagateGError $ soup_tld_get_base_domain hostname'-        checkUnexpectedReturnNULL "soup_tld_get_base_domain" result-        result' <- cstringToText result-        freeMem hostname'-        return result'-     ) (do-        freeMem hostname'-     )----- function soup_tld_domain_is_public_suffix--- Args : [Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_tld_domain_is_public_suffix" soup_tld_domain_is_public_suffix :: -    CString ->                              -- domain : TBasicType TUTF8-    IO CInt---tldDomainIsPublicSuffix ::-    (MonadIO m) =>-    T.Text                                  -- domain-    -> m Bool                               -- result-tldDomainIsPublicSuffix domain = liftIO $ do-    domain' <- textToCString domain-    result <- soup_tld_domain_is_public_suffix domain'-    let result' = (/= 0) result-    freeMem domain'-    return result'----- function soup_str_case_hash--- Args : [Arg {argCName = "key", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "soup_str_case_hash" soup_str_case_hash :: -    Ptr () ->                               -- key : TBasicType TPtr-    IO Word32---strCaseHash ::-    (MonadIO m) =>-    Ptr ()                                  -- key-    -> m Word32                             -- result-strCaseHash key = liftIO $ do-    result <- soup_str_case_hash key-    return result----- function soup_str_case_equal--- Args : [Arg {argCName = "v1", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "v2", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_str_case_equal" soup_str_case_equal :: -    Ptr () ->                               -- v1 : TBasicType TPtr-    Ptr () ->                               -- v2 : TBasicType TPtr-    IO CInt---strCaseEqual ::-    (MonadIO m) =>-    Ptr ()                                  -- v1-    -> Ptr ()                               -- v2-    -> m Bool                               -- result-strCaseEqual v1 v2 = liftIO $ do-    result <- soup_str_case_equal v1 v2-    let result' = (/= 0) result-    return result'----- function soup_http_error_quark--- Args : []--- Lengths : []--- returnType : Just (TBasicType TUInt32)--- throws : False--- Skip return : False--foreign import ccall "soup_http_error_quark" soup_http_error_quark :: -    IO Word32---httpErrorQuark ::-    (MonadIO m) =>-    m Word32                                -- result-httpErrorQuark  = liftIO $ do-    result <- soup_http_error_quark-    return result----- function soup_headers_parse_status_line--- Args : [Arg {argCName = "status_line", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ver", argType = TInterface "Soup" "HTTPVersion", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "status_code", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "reason_phrase", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_headers_parse_status_line" soup_headers_parse_status_line :: -    CString ->                              -- status_line : TBasicType TUTF8-    Ptr CUInt ->                            -- ver : TInterface "Soup" "HTTPVersion"-    Ptr Word32 ->                           -- status_code : TBasicType TUInt-    Ptr CString ->                          -- reason_phrase : TBasicType TUTF8-    IO CInt---headersParseStatusLine ::-    (MonadIO m) =>-    T.Text                                  -- statusLine-    -> m (Bool,HTTPVersion,Word32,T.Text)   -- result-headersParseStatusLine statusLine = liftIO $ do-    statusLine' <- textToCString statusLine-    ver <- allocMem :: IO (Ptr CUInt)-    statusCode <- allocMem :: IO (Ptr Word32)-    reasonPhrase <- allocMem :: IO (Ptr CString)-    result <- soup_headers_parse_status_line statusLine' ver statusCode reasonPhrase-    let result' = (/= 0) result-    ver' <- peek ver-    let ver'' = (toEnum . fromIntegral) ver'-    statusCode' <- peek statusCode-    reasonPhrase' <- peek reasonPhrase-    reasonPhrase'' <- cstringToText reasonPhrase'-    freeMem reasonPhrase'-    freeMem statusLine'-    freeMem ver-    freeMem statusCode-    freeMem reasonPhrase-    return (result', ver'', statusCode', reasonPhrase'')----- function soup_headers_parse_response--- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ver", argType = TInterface "Soup" "HTTPVersion", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "status_code", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "reason_phrase", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_headers_parse_response" soup_headers_parse_response :: -    CString ->                              -- str : TBasicType TUTF8-    Int32 ->                                -- len : TBasicType TInt-    Ptr MessageHeaders ->                   -- headers : TInterface "Soup" "MessageHeaders"-    Ptr CUInt ->                            -- ver : TInterface "Soup" "HTTPVersion"-    Ptr Word32 ->                           -- status_code : TBasicType TUInt-    Ptr CString ->                          -- reason_phrase : TBasicType TUTF8-    IO CInt---headersParseResponse ::-    (MonadIO m) =>-    T.Text                                  -- str-    -> Int32                                -- len-    -> MessageHeaders                       -- headers-    -> m (Bool,HTTPVersion,Word32,T.Text)   -- result-headersParseResponse str len headers = liftIO $ do-    str' <- textToCString str-    let headers' = unsafeManagedPtrGetPtr headers-    ver <- allocMem :: IO (Ptr CUInt)-    statusCode <- allocMem :: IO (Ptr Word32)-    reasonPhrase <- allocMem :: IO (Ptr CString)-    result <- soup_headers_parse_response str' len headers' ver statusCode reasonPhrase-    let result' = (/= 0) result-    ver' <- peek ver-    let ver'' = (toEnum . fromIntegral) ver'-    statusCode' <- peek statusCode-    reasonPhrase' <- peek reasonPhrase-    reasonPhrase'' <- cstringToText reasonPhrase'-    freeMem reasonPhrase'-    touchManagedPtr headers-    freeMem str'-    freeMem ver-    freeMem statusCode-    freeMem reasonPhrase-    return (result', ver'', statusCode', reasonPhrase'')----- function soup_headers_parse_request--- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "req_headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "req_method", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "req_path", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ver", argType = TInterface "Soup" "HTTPVersion", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "soup_headers_parse_request" soup_headers_parse_request :: -    CString ->                              -- str : TBasicType TUTF8-    Int32 ->                                -- len : TBasicType TInt-    Ptr MessageHeaders ->                   -- req_headers : TInterface "Soup" "MessageHeaders"-    Ptr CString ->                          -- req_method : TBasicType TUTF8-    Ptr CString ->                          -- req_path : TBasicType TUTF8-    Ptr CUInt ->                            -- ver : TInterface "Soup" "HTTPVersion"-    IO Word32---headersParseRequest ::-    (MonadIO m) =>-    T.Text                                  -- str-    -> Int32                                -- len-    -> MessageHeaders                       -- reqHeaders-    -> m (Word32,T.Text,T.Text,HTTPVersion) -- result-headersParseRequest str len reqHeaders = liftIO $ do-    str' <- textToCString str-    let reqHeaders' = unsafeManagedPtrGetPtr reqHeaders-    reqMethod <- allocMem :: IO (Ptr CString)-    reqPath <- allocMem :: IO (Ptr CString)-    ver <- allocMem :: IO (Ptr CUInt)-    result <- soup_headers_parse_request str' len reqHeaders' reqMethod reqPath ver-    reqMethod' <- peek reqMethod-    reqMethod'' <- cstringToText reqMethod'-    freeMem reqMethod'-    reqPath' <- peek reqPath-    reqPath'' <- cstringToText reqPath'-    freeMem reqPath'-    ver' <- peek ver-    let ver'' = (toEnum . fromIntegral) ver'-    touchManagedPtr reqHeaders-    freeMem str'-    freeMem reqMethod-    freeMem reqPath-    freeMem ver-    return (result, reqMethod'', reqPath'', ver'')----- function soup_headers_parse--- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_headers_parse" soup_headers_parse :: -    CString ->                              -- str : TBasicType TUTF8-    Int32 ->                                -- len : TBasicType TInt-    Ptr MessageHeaders ->                   -- dest : TInterface "Soup" "MessageHeaders"-    IO CInt---headersParse ::-    (MonadIO m) =>-    T.Text                                  -- str-    -> Int32                                -- len-    -> MessageHeaders                       -- dest-    -> m Bool                               -- result-headersParse str len dest = liftIO $ do-    str' <- textToCString str-    let dest' = unsafeManagedPtrGetPtr dest-    result <- soup_headers_parse str' len dest'-    let result' = (/= 0) result-    touchManagedPtr dest-    freeMem str'-    return result'----- function soup_header_parse_semi_param_list--- Args : [Arg {argCName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGHash (TBasicType TUTF8) (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "soup_header_parse_semi_param_list" soup_header_parse_semi_param_list :: -    CString ->                              -- header : TBasicType TUTF8-    IO (Ptr (GHashTable CString CString))---headerParseSemiParamList ::-    (MonadIO m) =>-    T.Text                                  -- header-    -> m (Map.Map T.Text T.Text)            -- result-headerParseSemiParamList header = liftIO $ do-    header' <- textToCString header-    result <- soup_header_parse_semi_param_list header'-    checkUnexpectedReturnNULL "soup_header_parse_semi_param_list" result-    result' <- unpackGHashTable result-    let result'' = mapFirst cstringUnpackPtr result'-    result''' <- mapFirstA cstringToText result''-    let result'''' = mapSecond cstringUnpackPtr result'''-    result''''' <- mapSecondA cstringToText result''''-    let result'''''' = Map.fromList result'''''-    unrefGHashTable result-    freeMem header'-    return result''''''----- function soup_header_parse_quality_list--- Args : [Arg {argCName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unacceptable", argType = TGSList (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TGSList (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "soup_header_parse_quality_list" soup_header_parse_quality_list :: -    CString ->                              -- header : TBasicType TUTF8-    Ptr (Ptr (GSList CString)) ->           -- unacceptable : TGSList (TBasicType TUTF8)-    IO (Ptr (GSList CString))---headerParseQualityList ::-    (MonadIO m) =>-    T.Text                                  -- header-    -> m ([T.Text],[T.Text])                -- result-headerParseQualityList header = liftIO $ do-    header' <- textToCString header-    unacceptable <- allocMem :: IO (Ptr (Ptr (GSList CString)))-    result <- soup_header_parse_quality_list header' unacceptable-    result' <- unpackGSList result-    result'' <- mapM cstringToText result'-    mapGSList freeMem result-    g_slist_free result-    unacceptable' <- peek unacceptable-    unacceptable'' <- unpackGSList unacceptable'-    unacceptable''' <- mapM cstringToText unacceptable''-    mapGSList freeMem unacceptable'-    g_slist_free unacceptable'-    freeMem header'-    freeMem unacceptable-    return (result'', unacceptable''')----- function soup_header_parse_param_list--- Args : [Arg {argCName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGHash (TBasicType TUTF8) (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "soup_header_parse_param_list" soup_header_parse_param_list :: -    CString ->                              -- header : TBasicType TUTF8-    IO (Ptr (GHashTable CString CString))---headerParseParamList ::-    (MonadIO m) =>-    T.Text                                  -- header-    -> m (Map.Map T.Text T.Text)            -- result-headerParseParamList header = liftIO $ do-    header' <- textToCString header-    result <- soup_header_parse_param_list header'-    checkUnexpectedReturnNULL "soup_header_parse_param_list" result-    result' <- unpackGHashTable result-    let result'' = mapFirst cstringUnpackPtr result'-    result''' <- mapFirstA cstringToText result''-    let result'''' = mapSecond cstringUnpackPtr result'''-    result''''' <- mapSecondA cstringToText result''''-    let result'''''' = Map.fromList result'''''-    unrefGHashTable result-    freeMem header'-    return result''''''----- function soup_header_parse_list--- Args : [Arg {argCName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGSList (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "soup_header_parse_list" soup_header_parse_list :: -    CString ->                              -- header : TBasicType TUTF8-    IO (Ptr (GSList CString))---headerParseList ::-    (MonadIO m) =>-    T.Text                                  -- header-    -> m [T.Text]                           -- result-headerParseList header = liftIO $ do-    header' <- textToCString header-    result <- soup_header_parse_list header'-    result' <- unpackGSList result-    result'' <- mapM cstringToText result'-    mapGSList freeMem result-    g_slist_free result-    freeMem header'-    return result''----- function soup_header_g_string_append_param_quoted--- Args : [Arg {argCName = "string", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_header_g_string_append_param_quoted" soup_header_g_string_append_param_quoted :: -    Ptr GLib.String ->                      -- string : TInterface "GLib" "String"-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- value : TBasicType TUTF8-    IO ()---headerGStringAppendParamQuoted ::-    (MonadIO m) =>-    GLib.String                             -- string-    -> T.Text                               -- name-    -> T.Text                               -- value-    -> m ()                                 -- result-headerGStringAppendParamQuoted string name value = liftIO $ do-    let string' = unsafeManagedPtrGetPtr string-    name' <- textToCString name-    value' <- textToCString value-    soup_header_g_string_append_param_quoted string' name' value'-    touchManagedPtr string-    freeMem name'-    freeMem value'-    return ()----- function soup_header_g_string_append_param--- Args : [Arg {argCName = "string", argType = TInterface "GLib" "String", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_header_g_string_append_param" soup_header_g_string_append_param :: -    Ptr GLib.String ->                      -- string : TInterface "GLib" "String"-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- value : TBasicType TUTF8-    IO ()---headerGStringAppendParam ::-    (MonadIO m) =>-    GLib.String                             -- string-    -> T.Text                               -- name-    -> T.Text                               -- value-    -> m ()                                 -- result-headerGStringAppendParam string name value = liftIO $ do-    let string' = unsafeManagedPtrGetPtr string-    name' <- textToCString name-    value' <- textToCString value-    soup_header_g_string_append_param string' name' value'-    touchManagedPtr string-    freeMem name'-    freeMem value'-    return ()----- function soup_header_free_param_list--- Args : [Arg {argCName = "param_list", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_header_free_param_list" soup_header_free_param_list :: -    Ptr (GHashTable CString CString) ->     -- param_list : TGHash (TBasicType TUTF8) (TBasicType TUTF8)-    IO ()---headerFreeParamList ::-    (MonadIO m) =>-    Map.Map T.Text T.Text                   -- paramList-    -> m ()                                 -- result-headerFreeParamList paramList = liftIO $ do-    let paramList' = Map.toList paramList-    paramList'' <- mapFirstA textToCString paramList'-    paramList''' <- mapSecondA textToCString paramList''-    let paramList'''' = mapFirst cstringPackPtr paramList'''-    let paramList''''' = mapSecond cstringPackPtr paramList''''-    paramList'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) paramList'''''-    soup_header_free_param_list paramList''''''-    unrefGHashTable paramList''''''-    return ()----- function soup_header_contains--- Args : [Arg {argCName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "token", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_header_contains" soup_header_contains :: -    CString ->                              -- header : TBasicType TUTF8-    CString ->                              -- token : TBasicType TUTF8-    IO CInt---headerContains ::-    (MonadIO m) =>-    T.Text                                  -- header-    -> T.Text                               -- token-    -> m Bool                               -- result-headerContains header token = liftIO $ do-    header' <- textToCString header-    token' <- textToCString token-    result <- soup_header_contains header' token'-    let result' = (/= 0) result-    freeMem header'-    freeMem token'-    return result'----- function soup_form_request_new_from_multipart--- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "multipart", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Message")--- throws : False--- Skip return : False--foreign import ccall "soup_form_request_new_from_multipart" soup_form_request_new_from_multipart :: -    CString ->                              -- uri : TBasicType TUTF8-    Ptr Multipart ->                        -- multipart : TInterface "Soup" "Multipart"-    IO (Ptr Message)---formRequestNewFromMultipart ::-    (MonadIO m) =>-    T.Text                                  -- uri-    -> Multipart                            -- multipart-    -> m Message                            -- result-formRequestNewFromMultipart uri multipart = liftIO $ do-    uri' <- textToCString uri-    let multipart' = unsafeManagedPtrGetPtr multipart-    result <- soup_form_request_new_from_multipart uri' multipart'-    checkUnexpectedReturnNULL "soup_form_request_new_from_multipart" result-    result' <- (wrapObject Message) result-    touchManagedPtr multipart-    freeMem uri'-    return result'----- function soup_form_request_new_from_hash--- Args : [Arg {argCName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "form_data_set", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Message")--- throws : False--- Skip return : False--foreign import ccall "soup_form_request_new_from_hash" soup_form_request_new_from_hash :: -    CString ->                              -- method : TBasicType TUTF8-    CString ->                              -- uri : TBasicType TUTF8-    Ptr (GHashTable CString CString) ->     -- form_data_set : TGHash (TBasicType TUTF8) (TBasicType TUTF8)-    IO (Ptr Message)---formRequestNewFromHash ::-    (MonadIO m) =>-    T.Text                                  -- method-    -> T.Text                               -- uri-    -> Map.Map T.Text T.Text                -- formDataSet-    -> m Message                            -- result-formRequestNewFromHash method uri formDataSet = liftIO $ do-    method' <- textToCString method-    uri' <- textToCString uri-    let formDataSet' = Map.toList formDataSet-    formDataSet'' <- mapFirstA textToCString formDataSet'-    formDataSet''' <- mapSecondA textToCString formDataSet''-    let formDataSet'''' = mapFirst cstringPackPtr formDataSet'''-    let formDataSet''''' = mapSecond cstringPackPtr formDataSet''''-    formDataSet'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) formDataSet'''''-    result <- soup_form_request_new_from_hash method' uri' formDataSet''''''-    checkUnexpectedReturnNULL "soup_form_request_new_from_hash" result-    result' <- (wrapObject Message) result-    freeMem method'-    freeMem uri'-    unrefGHashTable formDataSet''''''-    return result'----- function soup_form_request_new_from_datalist--- Args : [Arg {argCName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "form_data_set", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Message")--- throws : False--- Skip return : False--foreign import ccall "soup_form_request_new_from_datalist" soup_form_request_new_from_datalist :: -    CString ->                              -- method : TBasicType TUTF8-    CString ->                              -- uri : TBasicType TUTF8-    Ptr GLib.Data ->                        -- form_data_set : TInterface "GLib" "Data"-    IO (Ptr Message)---formRequestNewFromDatalist ::-    (MonadIO m) =>-    T.Text                                  -- method-    -> T.Text                               -- uri-    -> GLib.Data                            -- formDataSet-    -> m Message                            -- result-formRequestNewFromDatalist method uri formDataSet = liftIO $ do-    method' <- textToCString method-    uri' <- textToCString uri-    let formDataSet' = unsafeManagedPtrGetPtr formDataSet-    result <- soup_form_request_new_from_datalist method' uri' formDataSet'-    checkUnexpectedReturnNULL "soup_form_request_new_from_datalist" result-    result' <- (wrapObject Message) result-    touchManagedPtr formDataSet-    freeMem method'-    freeMem uri'-    return result'----- function soup_form_encode_hash--- Args : [Arg {argCName = "form_data_set", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_form_encode_hash" soup_form_encode_hash :: -    Ptr (GHashTable CString CString) ->     -- form_data_set : TGHash (TBasicType TUTF8) (TBasicType TUTF8)-    IO CString---formEncodeHash ::-    (MonadIO m) =>-    Map.Map T.Text T.Text                   -- formDataSet-    -> m T.Text                             -- result-formEncodeHash formDataSet = liftIO $ do-    let formDataSet' = Map.toList formDataSet-    formDataSet'' <- mapFirstA textToCString formDataSet'-    formDataSet''' <- mapSecondA textToCString formDataSet''-    let formDataSet'''' = mapFirst cstringPackPtr formDataSet'''-    let formDataSet''''' = mapSecond cstringPackPtr formDataSet''''-    formDataSet'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) formDataSet'''''-    result <- soup_form_encode_hash formDataSet''''''-    checkUnexpectedReturnNULL "soup_form_encode_hash" result-    result' <- cstringToText result-    freeMem result-    unrefGHashTable formDataSet''''''-    return result'----- function soup_form_encode_datalist--- Args : [Arg {argCName = "form_data_set", argType = TInterface "GLib" "Data", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_form_encode_datalist" soup_form_encode_datalist :: -    Ptr GLib.Data ->                        -- form_data_set : TInterface "GLib" "Data"-    IO CString---formEncodeDatalist ::-    (MonadIO m) =>-    GLib.Data                               -- formDataSet-    -> m T.Text                             -- result-formEncodeDatalist formDataSet = liftIO $ do-    let formDataSet' = unsafeManagedPtrGetPtr formDataSet-    result <- soup_form_encode_datalist formDataSet'-    checkUnexpectedReturnNULL "soup_form_encode_datalist" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr formDataSet-    return result'----- function soup_form_decode_multipart--- Args : [Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "file_control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "file", argType = TInterface "Soup" "Buffer", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TGHash (TBasicType TUTF8) (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "soup_form_decode_multipart" soup_form_decode_multipart :: -    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    CString ->                              -- file_control_name : TBasicType TUTF8-    Ptr CString ->                          -- filename : TBasicType TUTF8-    Ptr CString ->                          -- content_type : TBasicType TUTF8-    Ptr Buffer ->                           -- file : TInterface "Soup" "Buffer"-    IO (Ptr (GHashTable CString CString))---formDecodeMultipart ::-    (MonadIO m, MessageK a) =>-    a                                       -- msg-    -> Maybe (T.Text)                       -- fileControlName-    -> m ((Maybe (Map.Map T.Text T.Text)),T.Text,T.Text,Buffer)-- result-formDecodeMultipart msg fileControlName = liftIO $ do-    let msg' = unsafeManagedPtrCastPtr msg-    maybeFileControlName <- case fileControlName of-        Nothing -> return nullPtr-        Just jFileControlName -> do-            jFileControlName' <- textToCString jFileControlName-            return jFileControlName'-    filename <- allocMem :: IO (Ptr CString)-    contentType <- allocMem :: IO (Ptr CString)-    file <- callocBoxedBytes 16 :: IO (Ptr Buffer)-    result <- soup_form_decode_multipart msg' maybeFileControlName filename contentType file-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- unpackGHashTable result'-        let result''' = mapFirst cstringUnpackPtr result''-        result'''' <- mapFirstA cstringToText result'''-        let result''''' = mapSecond cstringUnpackPtr result''''-        result'''''' <- mapSecondA cstringToText result'''''-        let result''''''' = Map.fromList result''''''-        unrefGHashTable result'-        return result'''''''-    filename' <- peek filename-    filename'' <- cstringToText filename'-    freeMem filename'-    contentType' <- peek contentType-    contentType'' <- cstringToText contentType'-    freeMem contentType'-    file' <- (wrapBoxed Buffer) file-    touchManagedPtr msg-    freeMem maybeFileControlName-    freeMem filename-    freeMem contentType-    return (maybeResult, filename'', contentType'', file')----- function soup_form_decode--- Args : [Arg {argCName = "encoded_form", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGHash (TBasicType TUTF8) (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "soup_form_decode" soup_form_decode :: -    CString ->                              -- encoded_form : TBasicType TUTF8-    IO (Ptr (GHashTable CString CString))---formDecode ::-    (MonadIO m) =>-    T.Text                                  -- encodedForm-    -> m (Map.Map T.Text T.Text)            -- result-formDecode encodedForm = liftIO $ do-    encodedForm' <- textToCString encodedForm-    result <- soup_form_decode encodedForm'-    checkUnexpectedReturnNULL "soup_form_decode" result-    result' <- unpackGHashTable result-    let result'' = mapFirst cstringUnpackPtr result'-    result''' <- mapFirstA cstringToText result''-    let result'''' = mapSecond cstringUnpackPtr result'''-    result''''' <- mapSecondA cstringToText result''''-    let result'''''' = Map.fromList result'''''-    unrefGHashTable result-    freeMem encodedForm'-    return result''''''----- function soup_cookies_to_response--- Args : [Arg {argCName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_cookies_to_response" soup_cookies_to_response :: -    Ptr (GSList (Ptr Cookie)) ->            -- cookies : TGSList (TInterface "Soup" "Cookie")-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO ()---cookiesToResponse ::-    (MonadIO m, MessageK a) =>-    [Cookie]                                -- cookies-    -> a                                    -- msg-    -> m ()                                 -- result-cookiesToResponse cookies msg = liftIO $ do-    let cookies' = map unsafeManagedPtrGetPtr cookies-    cookies'' <- packGSList cookies'-    let msg' = unsafeManagedPtrCastPtr msg-    soup_cookies_to_response cookies'' msg'-    mapM_ touchManagedPtr cookies-    touchManagedPtr msg-    g_slist_free cookies''-    return ()----- function soup_cookies_to_request--- Args : [Arg {argCName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_cookies_to_request" soup_cookies_to_request :: -    Ptr (GSList (Ptr Cookie)) ->            -- cookies : TGSList (TInterface "Soup" "Cookie")-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO ()---cookiesToRequest ::-    (MonadIO m, MessageK a) =>-    [Cookie]                                -- cookies-    -> a                                    -- msg-    -> m ()                                 -- result-cookiesToRequest cookies msg = liftIO $ do-    let cookies' = map unsafeManagedPtrGetPtr cookies-    cookies'' <- packGSList cookies'-    let msg' = unsafeManagedPtrCastPtr msg-    soup_cookies_to_request cookies'' msg'-    mapM_ touchManagedPtr cookies-    touchManagedPtr msg-    g_slist_free cookies''-    return ()----- function soup_cookies_to_cookie_header--- Args : [Arg {argCName = "cookies", argType = TGSList (TInterface "Soup" "Cookie"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_cookies_to_cookie_header" soup_cookies_to_cookie_header :: -    Ptr (GSList (Ptr Cookie)) ->            -- cookies : TGSList (TInterface "Soup" "Cookie")-    IO CString---cookiesToCookieHeader ::-    (MonadIO m) =>-    [Cookie]                                -- cookies-    -> m T.Text                             -- result-cookiesToCookieHeader cookies = liftIO $ do-    let cookies' = map unsafeManagedPtrGetPtr cookies-    cookies'' <- packGSList cookies'-    result <- soup_cookies_to_cookie_header cookies''-    checkUnexpectedReturnNULL "soup_cookies_to_cookie_header" result-    result' <- cstringToText result-    freeMem result-    mapM_ touchManagedPtr cookies-    g_slist_free cookies''-    return result'----- function soup_cookies_from_response--- Args : [Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGSList (TInterface "Soup" "Cookie"))--- throws : False--- Skip return : False--foreign import ccall "soup_cookies_from_response" soup_cookies_from_response :: -    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO (Ptr (GSList (Ptr Cookie)))---cookiesFromResponse ::-    (MonadIO m, MessageK a) =>-    a                                       -- msg-    -> m [Cookie]                           -- result-cookiesFromResponse msg = liftIO $ do-    let msg' = unsafeManagedPtrCastPtr msg-    result <- soup_cookies_from_response msg'-    result' <- unpackGSList result-    result'' <- mapM (wrapBoxed Cookie) result'-    g_slist_free result-    touchManagedPtr msg-    return result''----- function soup_cookies_from_request--- Args : [Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGSList (TInterface "Soup" "Cookie"))--- throws : False--- Skip return : False--foreign import ccall "soup_cookies_from_request" soup_cookies_from_request :: -    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO (Ptr (GSList (Ptr Cookie)))---cookiesFromRequest ::-    (MonadIO m, MessageK a) =>-    a                                       -- msg-    -> m [Cookie]                           -- result-cookiesFromRequest msg = liftIO $ do-    let msg' = unsafeManagedPtrCastPtr msg-    result <- soup_cookies_from_request msg'-    result' <- unpackGSList result-    result'' <- mapM (wrapBoxed Cookie) result'-    g_slist_free result-    touchManagedPtr msg-    return result''---
− GI/Soup/Interfaces.hs 
@@ -1,31 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Interfaces-    (     module GI.Soup.Interfaces.PasswordManager,-    module GI.Soup.Interfaces.ProxyURIResolver,-    module GI.Soup.Interfaces.SessionFeature,---    ) where--import GI.Soup.Interfaces.PasswordManager-import GI.Soup.Interfaces.ProxyURIResolver-import GI.Soup.Interfaces.SessionFeature--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks--
− GI/Soup/Interfaces/PasswordManager.hs 
@@ -1,216 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Interfaces.PasswordManager-    ( ---- * Exported types-    PasswordManager(..)                     ,-    noPasswordManager                       ,-    PasswordManagerK                        ,-    toPasswordManager                       ,--- -- * Methods--- ** passwordManagerGetPasswordsAsync-    PasswordManagerGetPasswordsAsyncMethodInfo,-    passwordManagerGetPasswordsAsync        ,----- ** passwordManagerGetPasswordsSync-    PasswordManagerGetPasswordsSyncMethodInfo,-    passwordManagerGetPasswordsSync         ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject-import qualified GI.Gio as Gio---- interface PasswordManager --newtype PasswordManager = PasswordManager (ForeignPtr PasswordManager)-noPasswordManager :: Maybe PasswordManager-noPasswordManager = Nothing--type family ResolvePasswordManagerMethod (t :: Symbol) (o :: *) :: * where-    ResolvePasswordManagerMethod "addFeature" o = SessionFeatureAddFeatureMethodInfo-    ResolvePasswordManagerMethod "attach" o = SessionFeatureAttachMethodInfo-    ResolvePasswordManagerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolvePasswordManagerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolvePasswordManagerMethod "detach" o = SessionFeatureDetachMethodInfo-    ResolvePasswordManagerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolvePasswordManagerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolvePasswordManagerMethod "hasFeature" o = SessionFeatureHasFeatureMethodInfo-    ResolvePasswordManagerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolvePasswordManagerMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolvePasswordManagerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolvePasswordManagerMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolvePasswordManagerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolvePasswordManagerMethod "removeFeature" o = SessionFeatureRemoveFeatureMethodInfo-    ResolvePasswordManagerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolvePasswordManagerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolvePasswordManagerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolvePasswordManagerMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolvePasswordManagerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolvePasswordManagerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolvePasswordManagerMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolvePasswordManagerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolvePasswordManagerMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolvePasswordManagerMethod "getPasswordsAsync" o = PasswordManagerGetPasswordsAsyncMethodInfo-    ResolvePasswordManagerMethod "getPasswordsSync" o = PasswordManagerGetPasswordsSyncMethodInfo-    ResolvePasswordManagerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolvePasswordManagerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolvePasswordManagerMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolvePasswordManagerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolvePasswordManagerMethod l o = MethodResolutionFailed l o--instance (info ~ ResolvePasswordManagerMethod t PasswordManager, MethodInfo info PasswordManager p) => IsLabelProxy t (PasswordManager -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolvePasswordManagerMethod t PasswordManager, MethodInfo info PasswordManager p) => IsLabel t (PasswordManager -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList PasswordManager = PasswordManagerAttributeList-type PasswordManagerAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList PasswordManager = PasswordManagerSignalList-type PasswordManagerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "soup_password_manager_get_type"-    c_soup_password_manager_get_type :: IO GType--type instance ParentTypes PasswordManager = PasswordManagerParentTypes-type PasswordManagerParentTypes = '[SessionFeature, GObject.Object]--instance GObject PasswordManager where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_password_manager_get_type-    --class GObject o => PasswordManagerK o-instance (GObject o, IsDescendantOf PasswordManager o) => PasswordManagerK o--toPasswordManager :: PasswordManagerK o => o -> IO PasswordManager-toPasswordManager = unsafeCastTo PasswordManager---- method PasswordManager::get_passwords_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "PasswordManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "retrying", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Soup" "PasswordManagerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_password_manager_get_passwords_async" soup_password_manager_get_passwords_async :: -    Ptr PasswordManager ->                  -- _obj : TInterface "Soup" "PasswordManager"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    Ptr Auth ->                             -- auth : TInterface "Soup" "Auth"-    CInt ->                                 -- retrying : TBasicType TBoolean-    Ptr GLib.MainContext ->                 -- async_context : TInterface "GLib" "MainContext"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr PasswordManagerCallbackC ->      -- callback : TInterface "Soup" "PasswordManagerCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---passwordManagerGetPasswordsAsync ::-    (MonadIO m, PasswordManagerK a, MessageK b, AuthK c, Gio.CancellableK d) =>-    a                                       -- _obj-    -> b                                    -- msg-    -> c                                    -- auth-    -> Bool                                 -- retrying-    -> GLib.MainContext                     -- asyncContext-    -> Maybe (d)                            -- cancellable-    -> PasswordManagerCallback              -- callback-    -> m ()                                 -- result-passwordManagerGetPasswordsAsync _obj msg auth retrying asyncContext cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    let auth' = unsafeManagedPtrCastPtr auth-    let retrying' = (fromIntegral . fromEnum) retrying-    let asyncContext' = unsafeManagedPtrGetPtr asyncContext-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr PasswordManagerCallbackC))-    callback' <- mkPasswordManagerCallback (passwordManagerCallbackWrapper (Just ptrcallback) callback)-    poke ptrcallback callback'-    let userData = nullPtr-    soup_password_manager_get_passwords_async _obj' msg' auth' retrying' asyncContext' maybeCancellable callback' userData-    touchManagedPtr _obj-    touchManagedPtr msg-    touchManagedPtr auth-    touchManagedPtr asyncContext-    whenJust cancellable touchManagedPtr-    return ()--data PasswordManagerGetPasswordsAsyncMethodInfo-instance (signature ~ (b -> c -> Bool -> GLib.MainContext -> Maybe (d) -> PasswordManagerCallback -> m ()), MonadIO m, PasswordManagerK a, MessageK b, AuthK c, Gio.CancellableK d) => MethodInfo PasswordManagerGetPasswordsAsyncMethodInfo a signature where-    overloadedMethod _ = passwordManagerGetPasswordsAsync---- method PasswordManager::get_passwords_sync--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "PasswordManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_password_manager_get_passwords_sync" soup_password_manager_get_passwords_sync :: -    Ptr PasswordManager ->                  -- _obj : TInterface "Soup" "PasswordManager"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    Ptr Auth ->                             -- auth : TInterface "Soup" "Auth"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    IO ()---passwordManagerGetPasswordsSync ::-    (MonadIO m, PasswordManagerK a, MessageK b, AuthK c, Gio.CancellableK d) =>-    a                                       -- _obj-    -> b                                    -- msg-    -> c                                    -- auth-    -> Maybe (d)                            -- cancellable-    -> m ()                                 -- result-passwordManagerGetPasswordsSync _obj msg auth cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    let auth' = unsafeManagedPtrCastPtr auth-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    soup_password_manager_get_passwords_sync _obj' msg' auth' maybeCancellable-    touchManagedPtr _obj-    touchManagedPtr msg-    touchManagedPtr auth-    whenJust cancellable touchManagedPtr-    return ()--data PasswordManagerGetPasswordsSyncMethodInfo-instance (signature ~ (b -> c -> Maybe (d) -> m ()), MonadIO m, PasswordManagerK a, MessageK b, AuthK c, Gio.CancellableK d) => MethodInfo PasswordManagerGetPasswordsSyncMethodInfo a signature where-    overloadedMethod _ = passwordManagerGetPasswordsSync--
− GI/Soup/Interfaces/PasswordManager.hs-boot 
@@ -1,15 +0,0 @@-module GI.Soup.Interfaces.PasswordManager where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype PasswordManager = PasswordManager (ForeignPtr PasswordManager)-instance GObject PasswordManager where-class GObject o => PasswordManagerK o-instance (GObject o, IsDescendantOf PasswordManager o) => PasswordManagerK o-data PasswordManagerGetPasswordsAsyncMethodInfo-data PasswordManagerGetPasswordsSyncMethodInfo
− GI/Soup/Interfaces/ProxyURIResolver.hs 
@@ -1,212 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Interfaces.ProxyURIResolver-    ( ---- * Exported types-    ProxyURIResolver(..)                    ,-    noProxyURIResolver                      ,-    ProxyURIResolverK                       ,-    toProxyURIResolver                      ,--- -- * Methods--- ** proxyURIResolverGetProxyUriAsync-    ProxyURIResolverGetProxyUriAsyncMethodInfo,-    proxyURIResolverGetProxyUriAsync        ,----- ** proxyURIResolverGetProxyUriSync-    ProxyURIResolverGetProxyUriSyncMethodInfo,-    proxyURIResolverGetProxyUriSync         ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject-import qualified GI.Gio as Gio---- interface ProxyURIResolver --newtype ProxyURIResolver = ProxyURIResolver (ForeignPtr ProxyURIResolver)-noProxyURIResolver :: Maybe ProxyURIResolver-noProxyURIResolver = Nothing--type family ResolveProxyURIResolverMethod (t :: Symbol) (o :: *) :: * where-    ResolveProxyURIResolverMethod "addFeature" o = SessionFeatureAddFeatureMethodInfo-    ResolveProxyURIResolverMethod "attach" o = SessionFeatureAttachMethodInfo-    ResolveProxyURIResolverMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveProxyURIResolverMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveProxyURIResolverMethod "detach" o = SessionFeatureDetachMethodInfo-    ResolveProxyURIResolverMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveProxyURIResolverMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveProxyURIResolverMethod "hasFeature" o = SessionFeatureHasFeatureMethodInfo-    ResolveProxyURIResolverMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveProxyURIResolverMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveProxyURIResolverMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveProxyURIResolverMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveProxyURIResolverMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveProxyURIResolverMethod "removeFeature" o = SessionFeatureRemoveFeatureMethodInfo-    ResolveProxyURIResolverMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveProxyURIResolverMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveProxyURIResolverMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveProxyURIResolverMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveProxyURIResolverMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveProxyURIResolverMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveProxyURIResolverMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveProxyURIResolverMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveProxyURIResolverMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveProxyURIResolverMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveProxyURIResolverMethod "getProxyUriAsync" o = ProxyURIResolverGetProxyUriAsyncMethodInfo-    ResolveProxyURIResolverMethod "getProxyUriSync" o = ProxyURIResolverGetProxyUriSyncMethodInfo-    ResolveProxyURIResolverMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveProxyURIResolverMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveProxyURIResolverMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveProxyURIResolverMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveProxyURIResolverMethod t ProxyURIResolver, MethodInfo info ProxyURIResolver p) => IsLabelProxy t (ProxyURIResolver -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveProxyURIResolverMethod t ProxyURIResolver, MethodInfo info ProxyURIResolver p) => IsLabel t (ProxyURIResolver -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList ProxyURIResolver = ProxyURIResolverAttributeList-type ProxyURIResolverAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList ProxyURIResolver = ProxyURIResolverSignalList-type ProxyURIResolverSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "soup_proxy_uri_resolver_get_type"-    c_soup_proxy_uri_resolver_get_type :: IO GType--type instance ParentTypes ProxyURIResolver = ProxyURIResolverParentTypes-type ProxyURIResolverParentTypes = '[SessionFeature, GObject.Object]--instance GObject ProxyURIResolver where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_proxy_uri_resolver_get_type-    --class GObject o => ProxyURIResolverK o-instance (GObject o, IsDescendantOf ProxyURIResolver o) => ProxyURIResolverK o--toProxyURIResolver :: ProxyURIResolverK o => o -> IO ProxyURIResolver-toProxyURIResolver = unsafeCastTo ProxyURIResolver---- method ProxyURIResolver::get_proxy_uri_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "ProxyURIResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Soup" "ProxyURIResolverCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_proxy_uri_resolver_get_proxy_uri_async" soup_proxy_uri_resolver_get_proxy_uri_async :: -    Ptr ProxyURIResolver ->                 -- _obj : TInterface "Soup" "ProxyURIResolver"-    Ptr URI ->                              -- uri : TInterface "Soup" "URI"-    Ptr GLib.MainContext ->                 -- async_context : TInterface "GLib" "MainContext"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr ProxyURIResolverCallbackC ->     -- callback : TInterface "Soup" "ProxyURIResolverCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()--{-# DEPRECATED proxyURIResolverGetProxyUriAsync ["#SoupProxyURIResolver is deprecated in favor of","#GProxyResolver"]#-}-proxyURIResolverGetProxyUriAsync ::-    (MonadIO m, ProxyURIResolverK a, Gio.CancellableK b) =>-    a                                       -- _obj-    -> URI                                  -- uri-    -> Maybe (GLib.MainContext)             -- asyncContext-    -> Maybe (b)                            -- cancellable-    -> ProxyURIResolverCallback             -- callback-    -> m ()                                 -- result-proxyURIResolverGetProxyUriAsync _obj uri asyncContext cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let uri' = unsafeManagedPtrGetPtr uri-    maybeAsyncContext <- case asyncContext of-        Nothing -> return nullPtr-        Just jAsyncContext -> do-            let jAsyncContext' = unsafeManagedPtrGetPtr jAsyncContext-            return jAsyncContext'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr ProxyURIResolverCallbackC))-    callback' <- mkProxyURIResolverCallback (proxyURIResolverCallbackWrapper (Just ptrcallback) callback)-    poke ptrcallback callback'-    let userData = nullPtr-    soup_proxy_uri_resolver_get_proxy_uri_async _obj' uri' maybeAsyncContext maybeCancellable callback' userData-    touchManagedPtr _obj-    touchManagedPtr uri-    whenJust asyncContext touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--data ProxyURIResolverGetProxyUriAsyncMethodInfo-instance (signature ~ (URI -> Maybe (GLib.MainContext) -> Maybe (b) -> ProxyURIResolverCallback -> m ()), MonadIO m, ProxyURIResolverK a, Gio.CancellableK b) => MethodInfo ProxyURIResolverGetProxyUriAsyncMethodInfo a signature where-    overloadedMethod _ = proxyURIResolverGetProxyUriAsync---- method ProxyURIResolver::get_proxy_uri_sync--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "ProxyURIResolver", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "proxy_uri", argType = TInterface "Soup" "URI", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "soup_proxy_uri_resolver_get_proxy_uri_sync" soup_proxy_uri_resolver_get_proxy_uri_sync :: -    Ptr ProxyURIResolver ->                 -- _obj : TInterface "Soup" "ProxyURIResolver"-    Ptr URI ->                              -- uri : TInterface "Soup" "URI"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    Ptr URI ->                              -- proxy_uri : TInterface "Soup" "URI"-    IO Word32--{-# DEPRECATED proxyURIResolverGetProxyUriSync ["#SoupProxyURIResolver is deprecated in favor of","#GProxyResolver"]#-}-proxyURIResolverGetProxyUriSync ::-    (MonadIO m, ProxyURIResolverK a, Gio.CancellableK b) =>-    a                                       -- _obj-    -> URI                                  -- uri-    -> Maybe (b)                            -- cancellable-    -> m (Word32,URI)                       -- result-proxyURIResolverGetProxyUriSync _obj uri cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let uri' = unsafeManagedPtrGetPtr uri-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    proxyUri <- callocBoxedBytes 64 :: IO (Ptr URI)-    result <- soup_proxy_uri_resolver_get_proxy_uri_sync _obj' uri' maybeCancellable proxyUri-    proxyUri' <- (wrapBoxed URI) proxyUri-    touchManagedPtr _obj-    touchManagedPtr uri-    whenJust cancellable touchManagedPtr-    return (result, proxyUri')--data ProxyURIResolverGetProxyUriSyncMethodInfo-instance (signature ~ (URI -> Maybe (b) -> m (Word32,URI)), MonadIO m, ProxyURIResolverK a, Gio.CancellableK b) => MethodInfo ProxyURIResolverGetProxyUriSyncMethodInfo a signature where-    overloadedMethod _ = proxyURIResolverGetProxyUriSync--
− GI/Soup/Interfaces/ProxyURIResolver.hs-boot 
@@ -1,15 +0,0 @@-module GI.Soup.Interfaces.ProxyURIResolver where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ProxyURIResolver = ProxyURIResolver (ForeignPtr ProxyURIResolver)-instance GObject ProxyURIResolver where-class GObject o => ProxyURIResolverK o-instance (GObject o, IsDescendantOf ProxyURIResolver o) => ProxyURIResolverK o-data ProxyURIResolverGetProxyUriAsyncMethodInfo-data ProxyURIResolverGetProxyUriSyncMethodInfo
− GI/Soup/Interfaces/SessionFeature.hs 
@@ -1,282 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Interfaces.SessionFeature-    ( ---- * Exported types-    SessionFeature(..)                      ,-    noSessionFeature                        ,-    SessionFeatureK                         ,-    toSessionFeature                        ,--- -- * Methods--- ** sessionFeatureAddFeature-    SessionFeatureAddFeatureMethodInfo      ,-    sessionFeatureAddFeature                ,----- ** sessionFeatureAttach-    SessionFeatureAttachMethodInfo          ,-    sessionFeatureAttach                    ,----- ** sessionFeatureDetach-    SessionFeatureDetachMethodInfo          ,-    sessionFeatureDetach                    ,----- ** sessionFeatureHasFeature-    SessionFeatureHasFeatureMethodInfo      ,-    sessionFeatureHasFeature                ,----- ** sessionFeatureRemoveFeature-    SessionFeatureRemoveFeatureMethodInfo   ,-    sessionFeatureRemoveFeature             ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GObject as GObject---- interface SessionFeature --newtype SessionFeature = SessionFeature (ForeignPtr SessionFeature)-noSessionFeature :: Maybe SessionFeature-noSessionFeature = Nothing--type family ResolveSessionFeatureMethod (t :: Symbol) (o :: *) :: * where-    ResolveSessionFeatureMethod "addFeature" o = SessionFeatureAddFeatureMethodInfo-    ResolveSessionFeatureMethod "attach" o = SessionFeatureAttachMethodInfo-    ResolveSessionFeatureMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveSessionFeatureMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveSessionFeatureMethod "detach" o = SessionFeatureDetachMethodInfo-    ResolveSessionFeatureMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveSessionFeatureMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveSessionFeatureMethod "hasFeature" o = SessionFeatureHasFeatureMethodInfo-    ResolveSessionFeatureMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveSessionFeatureMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveSessionFeatureMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveSessionFeatureMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveSessionFeatureMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveSessionFeatureMethod "removeFeature" o = SessionFeatureRemoveFeatureMethodInfo-    ResolveSessionFeatureMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveSessionFeatureMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveSessionFeatureMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveSessionFeatureMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveSessionFeatureMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveSessionFeatureMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveSessionFeatureMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveSessionFeatureMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveSessionFeatureMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveSessionFeatureMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveSessionFeatureMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveSessionFeatureMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveSessionFeatureMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveSessionFeatureMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveSessionFeatureMethod t SessionFeature, MethodInfo info SessionFeature p) => IsLabelProxy t (SessionFeature -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSessionFeatureMethod t SessionFeature, MethodInfo info SessionFeature p) => IsLabel t (SessionFeature -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList SessionFeature = SessionFeatureAttributeList-type SessionFeatureAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList SessionFeature = SessionFeatureSignalList-type SessionFeatureSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--foreign import ccall "soup_session_feature_get_type"-    c_soup_session_feature_get_type :: IO GType--type instance ParentTypes SessionFeature = SessionFeatureParentTypes-type SessionFeatureParentTypes = '[GObject.Object]--instance GObject SessionFeature where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_session_feature_get_type-    --class GObject o => SessionFeatureK o-instance (GObject o, IsDescendantOf SessionFeature o) => SessionFeatureK o--toSessionFeature :: SessionFeatureK o => o -> IO SessionFeature-toSessionFeature = unsafeCastTo SessionFeature---- method SessionFeature::add_feature--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_session_feature_add_feature" soup_session_feature_add_feature :: -    Ptr SessionFeature ->                   -- _obj : TInterface "Soup" "SessionFeature"-    CGType ->                               -- type : TBasicType TGType-    IO CInt---sessionFeatureAddFeature ::-    (MonadIO m, SessionFeatureK a) =>-    a                                       -- _obj-    -> GType                                -- type_-    -> m Bool                               -- result-sessionFeatureAddFeature _obj type_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let type_' = gtypeToCGType type_-    result <- soup_session_feature_add_feature _obj' type_'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SessionFeatureAddFeatureMethodInfo-instance (signature ~ (GType -> m Bool), MonadIO m, SessionFeatureK a) => MethodInfo SessionFeatureAddFeatureMethodInfo a signature where-    overloadedMethod _ = sessionFeatureAddFeature---- method SessionFeature::attach--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_session_feature_attach" soup_session_feature_attach :: -    Ptr SessionFeature ->                   -- _obj : TInterface "Soup" "SessionFeature"-    Ptr Session ->                          -- session : TInterface "Soup" "Session"-    IO ()---sessionFeatureAttach ::-    (MonadIO m, SessionFeatureK a, SessionK b) =>-    a                                       -- _obj-    -> b                                    -- session-    -> m ()                                 -- result-sessionFeatureAttach _obj session = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let session' = unsafeManagedPtrCastPtr session-    soup_session_feature_attach _obj' session'-    touchManagedPtr _obj-    touchManagedPtr session-    return ()--data SessionFeatureAttachMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, SessionFeatureK a, SessionK b) => MethodInfo SessionFeatureAttachMethodInfo a signature where-    overloadedMethod _ = sessionFeatureAttach---- method SessionFeature::detach--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_session_feature_detach" soup_session_feature_detach :: -    Ptr SessionFeature ->                   -- _obj : TInterface "Soup" "SessionFeature"-    Ptr Session ->                          -- session : TInterface "Soup" "Session"-    IO ()---sessionFeatureDetach ::-    (MonadIO m, SessionFeatureK a, SessionK b) =>-    a                                       -- _obj-    -> b                                    -- session-    -> m ()                                 -- result-sessionFeatureDetach _obj session = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let session' = unsafeManagedPtrCastPtr session-    soup_session_feature_detach _obj' session'-    touchManagedPtr _obj-    touchManagedPtr session-    return ()--data SessionFeatureDetachMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, SessionFeatureK a, SessionK b) => MethodInfo SessionFeatureDetachMethodInfo a signature where-    overloadedMethod _ = sessionFeatureDetach---- method SessionFeature::has_feature--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_session_feature_has_feature" soup_session_feature_has_feature :: -    Ptr SessionFeature ->                   -- _obj : TInterface "Soup" "SessionFeature"-    CGType ->                               -- type : TBasicType TGType-    IO CInt---sessionFeatureHasFeature ::-    (MonadIO m, SessionFeatureK a) =>-    a                                       -- _obj-    -> GType                                -- type_-    -> m Bool                               -- result-sessionFeatureHasFeature _obj type_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let type_' = gtypeToCGType type_-    result <- soup_session_feature_has_feature _obj' type_'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SessionFeatureHasFeatureMethodInfo-instance (signature ~ (GType -> m Bool), MonadIO m, SessionFeatureK a) => MethodInfo SessionFeatureHasFeatureMethodInfo a signature where-    overloadedMethod _ = sessionFeatureHasFeature---- method SessionFeature::remove_feature--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_session_feature_remove_feature" soup_session_feature_remove_feature :: -    Ptr SessionFeature ->                   -- _obj : TInterface "Soup" "SessionFeature"-    CGType ->                               -- type : TBasicType TGType-    IO CInt---sessionFeatureRemoveFeature ::-    (MonadIO m, SessionFeatureK a) =>-    a                                       -- _obj-    -> GType                                -- type_-    -> m Bool                               -- result-sessionFeatureRemoveFeature _obj type_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let type_' = gtypeToCGType type_-    result <- soup_session_feature_remove_feature _obj' type_'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SessionFeatureRemoveFeatureMethodInfo-instance (signature ~ (GType -> m Bool), MonadIO m, SessionFeatureK a) => MethodInfo SessionFeatureRemoveFeatureMethodInfo a signature where-    overloadedMethod _ = sessionFeatureRemoveFeature--
− GI/Soup/Interfaces/SessionFeature.hs-boot 
@@ -1,18 +0,0 @@-module GI.Soup.Interfaces.SessionFeature where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype SessionFeature = SessionFeature (ForeignPtr SessionFeature)-instance GObject SessionFeature where-class GObject o => SessionFeatureK o-instance (GObject o, IsDescendantOf SessionFeature o) => SessionFeatureK o-data SessionFeatureAddFeatureMethodInfo-data SessionFeatureAttachMethodInfo-data SessionFeatureDetachMethodInfo-data SessionFeatureHasFeatureMethodInfo-data SessionFeatureRemoveFeatureMethodInfo
− GI/Soup/Objects.hs 
@@ -1,85 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Objects-    (     module GI.Soup.Objects.Address          ,-    module GI.Soup.Objects.Auth             ,-    module GI.Soup.Objects.AuthBasic        ,-    module GI.Soup.Objects.AuthDigest       ,-    module GI.Soup.Objects.AuthDomain       ,-    module GI.Soup.Objects.AuthDomainBasic  ,-    module GI.Soup.Objects.AuthDomainDigest ,-    module GI.Soup.Objects.AuthManager      ,-    module GI.Soup.Objects.AuthNTLM         ,-    module GI.Soup.Objects.Cache            ,-    module GI.Soup.Objects.ContentDecoder   ,-    module GI.Soup.Objects.ContentSniffer   ,-    module GI.Soup.Objects.CookieJar        ,-    module GI.Soup.Objects.CookieJarDB      ,-    module GI.Soup.Objects.CookieJarText    ,-    module GI.Soup.Objects.Logger           ,-    module GI.Soup.Objects.Message          ,-    module GI.Soup.Objects.MultipartInputStream,-    module GI.Soup.Objects.ProxyResolverDefault,-    module GI.Soup.Objects.Request          ,-    module GI.Soup.Objects.RequestData      ,-    module GI.Soup.Objects.RequestFile      ,-    module GI.Soup.Objects.RequestHTTP      ,-    module GI.Soup.Objects.Requester        ,-    module GI.Soup.Objects.Server           ,-    module GI.Soup.Objects.Session          ,-    module GI.Soup.Objects.SessionAsync     ,-    module GI.Soup.Objects.SessionSync      ,-    module GI.Soup.Objects.Socket           ,-    module GI.Soup.Objects.WebsocketConnection,---    ) where--import GI.Soup.Objects.Address-import GI.Soup.Objects.Auth-import GI.Soup.Objects.AuthBasic-import GI.Soup.Objects.AuthDigest-import GI.Soup.Objects.AuthDomain-import GI.Soup.Objects.AuthDomainBasic-import GI.Soup.Objects.AuthDomainDigest-import GI.Soup.Objects.AuthManager-import GI.Soup.Objects.AuthNTLM-import GI.Soup.Objects.Cache-import GI.Soup.Objects.ContentDecoder-import GI.Soup.Objects.ContentSniffer-import GI.Soup.Objects.CookieJar-import GI.Soup.Objects.CookieJarDB-import GI.Soup.Objects.CookieJarText-import GI.Soup.Objects.Logger-import GI.Soup.Objects.Message-import GI.Soup.Objects.MultipartInputStream-import GI.Soup.Objects.ProxyResolverDefault-import GI.Soup.Objects.Request-import GI.Soup.Objects.RequestData-import GI.Soup.Objects.RequestFile-import GI.Soup.Objects.RequestHTTP-import GI.Soup.Objects.Requester-import GI.Soup.Objects.Server-import GI.Soup.Objects.Session-import GI.Soup.Objects.SessionAsync-import GI.Soup.Objects.SessionSync-import GI.Soup.Objects.Socket-import GI.Soup.Objects.WebsocketConnection--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks--
− GI/Soup/Objects/Address.hs 
@@ -1,801 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Objects.Address-    ( ---- * Exported types-    Address(..)                             ,-    AddressK                                ,-    toAddress                               ,-    noAddress                               ,--- -- * Methods--- ** addressEqualByIp-    AddressEqualByIpMethodInfo              ,-    addressEqualByIp                        ,----- ** addressEqualByName-    AddressEqualByNameMethodInfo            ,-    addressEqualByName                      ,----- ** addressGetGsockaddr-    AddressGetGsockaddrMethodInfo           ,-    addressGetGsockaddr                     ,----- ** addressGetName-    AddressGetNameMethodInfo                ,-    addressGetName                          ,----- ** addressGetPhysical-    AddressGetPhysicalMethodInfo            ,-    addressGetPhysical                      ,----- ** addressGetPort-    AddressGetPortMethodInfo                ,-    addressGetPort                          ,----- ** addressHashByIp-    AddressHashByIpMethodInfo               ,-    addressHashByIp                         ,----- ** addressHashByName-    AddressHashByNameMethodInfo             ,-    addressHashByName                       ,----- ** addressIsResolved-    AddressIsResolvedMethodInfo             ,-    addressIsResolved                       ,----- ** addressNew-    addressNew                              ,----- ** addressNewAny-    addressNewAny                           ,----- ** addressNewFromSockaddr-    addressNewFromSockaddr                  ,----- ** addressResolveAsync-    AddressResolveAsyncMethodInfo           ,-    addressResolveAsync                     ,----- ** addressResolveSync-    AddressResolveSyncMethodInfo            ,-    addressResolveSync                      ,----- -- * Properties--- ** Family-    AddressFamilyPropertyInfo               ,-    addressFamily                           ,-    constructAddressFamily                  ,-    getAddressFamily                        ,----- ** Name-    AddressNamePropertyInfo                 ,-    addressName                             ,-    constructAddressName                    ,-    getAddressName                          ,----- ** Physical-    AddressPhysicalPropertyInfo             ,-    addressPhysical                         ,-    getAddressPhysical                      ,----- ** Port-    AddressPortPropertyInfo                 ,-    addressPort                             ,-    constructAddressPort                    ,-    getAddressPort                          ,----- ** Protocol-    AddressProtocolPropertyInfo             ,-    addressProtocol                         ,-    constructAddressProtocol                ,-    getAddressProtocol                      ,----- ** Sockaddr-    AddressSockaddrPropertyInfo             ,-    addressSockaddr                         ,-    constructAddressSockaddr                ,-    getAddressSockaddr                      ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject-import qualified GI.Gio as Gio--newtype Address = Address (ForeignPtr Address)-foreign import ccall "soup_address_get_type"-    c_soup_address_get_type :: IO GType--type instance ParentTypes Address = AddressParentTypes-type AddressParentTypes = '[GObject.Object, Gio.SocketConnectable]--instance GObject Address where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_address_get_type-    --class GObject o => AddressK o-instance (GObject o, IsDescendantOf Address o) => AddressK o--toAddress :: AddressK o => o -> IO Address-toAddress = unsafeCastTo Address--noAddress :: Maybe Address-noAddress = Nothing--type family ResolveAddressMethod (t :: Symbol) (o :: *) :: * where-    ResolveAddressMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveAddressMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveAddressMethod "enumerate" o = Gio.SocketConnectableEnumerateMethodInfo-    ResolveAddressMethod "equalByIp" o = AddressEqualByIpMethodInfo-    ResolveAddressMethod "equalByName" o = AddressEqualByNameMethodInfo-    ResolveAddressMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveAddressMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveAddressMethod "hashByIp" o = AddressHashByIpMethodInfo-    ResolveAddressMethod "hashByName" o = AddressHashByNameMethodInfo-    ResolveAddressMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveAddressMethod "isResolved" o = AddressIsResolvedMethodInfo-    ResolveAddressMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveAddressMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveAddressMethod "proxyEnumerate" o = Gio.SocketConnectableProxyEnumerateMethodInfo-    ResolveAddressMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveAddressMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveAddressMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveAddressMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveAddressMethod "resolveAsync" o = AddressResolveAsyncMethodInfo-    ResolveAddressMethod "resolveSync" o = AddressResolveSyncMethodInfo-    ResolveAddressMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveAddressMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveAddressMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveAddressMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveAddressMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveAddressMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveAddressMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveAddressMethod "getGsockaddr" o = AddressGetGsockaddrMethodInfo-    ResolveAddressMethod "getName" o = AddressGetNameMethodInfo-    ResolveAddressMethod "getPhysical" o = AddressGetPhysicalMethodInfo-    ResolveAddressMethod "getPort" o = AddressGetPortMethodInfo-    ResolveAddressMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveAddressMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveAddressMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveAddressMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveAddressMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAddressMethod t Address, MethodInfo info Address p) => IsLabelProxy t (Address -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAddressMethod t Address, MethodInfo info Address p) => IsLabel t (Address -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "family"-   -- Type: TInterface "Soup" "AddressFamily"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getAddressFamily :: (MonadIO m, AddressK o) => o -> m AddressFamily-getAddressFamily obj = liftIO $ getObjectPropertyEnum obj "family"--constructAddressFamily :: AddressFamily -> IO ([Char], GValue)-constructAddressFamily val = constructObjectPropertyEnum "family" val--data AddressFamilyPropertyInfo-instance AttrInfo AddressFamilyPropertyInfo where-    type AttrAllowedOps AddressFamilyPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AddressFamilyPropertyInfo = (~) AddressFamily-    type AttrBaseTypeConstraint AddressFamilyPropertyInfo = AddressK-    type AttrGetType AddressFamilyPropertyInfo = AddressFamily-    type AttrLabel AddressFamilyPropertyInfo = "family"-    attrGet _ = getAddressFamily-    attrSet _ = undefined-    attrConstruct _ = constructAddressFamily-    attrClear _ = undefined---- VVV Prop "name"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just True,Nothing)--getAddressName :: (MonadIO m, AddressK o) => o -> m (Maybe T.Text)-getAddressName obj = liftIO $ getObjectPropertyString obj "name"--constructAddressName :: T.Text -> IO ([Char], GValue)-constructAddressName val = constructObjectPropertyString "name" (Just val)--data AddressNamePropertyInfo-instance AttrInfo AddressNamePropertyInfo where-    type AttrAllowedOps AddressNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint AddressNamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint AddressNamePropertyInfo = AddressK-    type AttrGetType AddressNamePropertyInfo = (Maybe T.Text)-    type AttrLabel AddressNamePropertyInfo = "name"-    attrGet _ = getAddressName-    attrSet _ = undefined-    attrConstruct _ = constructAddressName-    attrClear _ = undefined---- VVV Prop "physical"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Just True,Nothing)--getAddressPhysical :: (MonadIO m, AddressK o) => o -> m (Maybe T.Text)-getAddressPhysical obj = liftIO $ getObjectPropertyString obj "physical"--data AddressPhysicalPropertyInfo-instance AttrInfo AddressPhysicalPropertyInfo where-    type AttrAllowedOps AddressPhysicalPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint AddressPhysicalPropertyInfo = (~) ()-    type AttrBaseTypeConstraint AddressPhysicalPropertyInfo = AddressK-    type AttrGetType AddressPhysicalPropertyInfo = (Maybe T.Text)-    type AttrLabel AddressPhysicalPropertyInfo = "physical"-    attrGet _ = getAddressPhysical-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "port"-   -- Type: TBasicType TInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getAddressPort :: (MonadIO m, AddressK o) => o -> m Int32-getAddressPort obj = liftIO $ getObjectPropertyInt32 obj "port"--constructAddressPort :: Int32 -> IO ([Char], GValue)-constructAddressPort val = constructObjectPropertyInt32 "port" val--data AddressPortPropertyInfo-instance AttrInfo AddressPortPropertyInfo where-    type AttrAllowedOps AddressPortPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AddressPortPropertyInfo = (~) Int32-    type AttrBaseTypeConstraint AddressPortPropertyInfo = AddressK-    type AttrGetType AddressPortPropertyInfo = Int32-    type AttrLabel AddressPortPropertyInfo = "port"-    attrGet _ = getAddressPort-    attrSet _ = undefined-    attrConstruct _ = constructAddressPort-    attrClear _ = undefined---- VVV Prop "protocol"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getAddressProtocol :: (MonadIO m, AddressK o) => o -> m (Maybe T.Text)-getAddressProtocol obj = liftIO $ getObjectPropertyString obj "protocol"--constructAddressProtocol :: T.Text -> IO ([Char], GValue)-constructAddressProtocol val = constructObjectPropertyString "protocol" (Just val)--data AddressProtocolPropertyInfo-instance AttrInfo AddressProtocolPropertyInfo where-    type AttrAllowedOps AddressProtocolPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint AddressProtocolPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint AddressProtocolPropertyInfo = AddressK-    type AttrGetType AddressProtocolPropertyInfo = (Maybe T.Text)-    type AttrLabel AddressProtocolPropertyInfo = "protocol"-    attrGet _ = getAddressProtocol-    attrSet _ = undefined-    attrConstruct _ = constructAddressProtocol-    attrClear _ = undefined---- VVV Prop "sockaddr"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getAddressSockaddr :: (MonadIO m, AddressK o) => o -> m (Ptr ())-getAddressSockaddr obj = liftIO $ getObjectPropertyPtr obj "sockaddr"--constructAddressSockaddr :: Ptr () -> IO ([Char], GValue)-constructAddressSockaddr val = constructObjectPropertyPtr "sockaddr" val--data AddressSockaddrPropertyInfo-instance AttrInfo AddressSockaddrPropertyInfo where-    type AttrAllowedOps AddressSockaddrPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AddressSockaddrPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint AddressSockaddrPropertyInfo = AddressK-    type AttrGetType AddressSockaddrPropertyInfo = (Ptr ())-    type AttrLabel AddressSockaddrPropertyInfo = "sockaddr"-    attrGet _ = getAddressSockaddr-    attrSet _ = undefined-    attrConstruct _ = constructAddressSockaddr-    attrClear _ = undefined--type instance AttributeList Address = AddressAttributeList-type AddressAttributeList = ('[ '("family", AddressFamilyPropertyInfo), '("name", AddressNamePropertyInfo), '("physical", AddressPhysicalPropertyInfo), '("port", AddressPortPropertyInfo), '("protocol", AddressProtocolPropertyInfo), '("sockaddr", AddressSockaddrPropertyInfo)] :: [(Symbol, *)])--addressFamily :: AttrLabelProxy "family"-addressFamily = AttrLabelProxy--addressName :: AttrLabelProxy "name"-addressName = AttrLabelProxy--addressPhysical :: AttrLabelProxy "physical"-addressPhysical = AttrLabelProxy--addressPort :: AttrLabelProxy "port"-addressPort = AttrLabelProxy--addressProtocol :: AttrLabelProxy "protocol"-addressProtocol = AttrLabelProxy--addressSockaddr :: AttrLabelProxy "sockaddr"-addressSockaddr = AttrLabelProxy--type instance SignalList Address = AddressSignalList-type AddressSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Address::new--- method type : Constructor--- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Address")--- throws : False--- Skip return : False--foreign import ccall "soup_address_new" soup_address_new :: -    CString ->                              -- name : TBasicType TUTF8-    Word32 ->                               -- port : TBasicType TUInt-    IO (Ptr Address)---addressNew ::-    (MonadIO m) =>-    T.Text                                  -- name-    -> Word32                               -- port-    -> m Address                            -- result-addressNew name port = liftIO $ do-    name' <- textToCString name-    result <- soup_address_new name' port-    checkUnexpectedReturnNULL "soup_address_new" result-    result' <- (wrapObject Address) result-    freeMem name'-    return result'---- method Address::new_any--- method type : Constructor--- Args : [Arg {argCName = "family", argType = TInterface "Soup" "AddressFamily", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Address")--- throws : False--- Skip return : False--foreign import ccall "soup_address_new_any" soup_address_new_any :: -    CUInt ->                                -- family : TInterface "Soup" "AddressFamily"-    Word32 ->                               -- port : TBasicType TUInt-    IO (Ptr Address)---addressNewAny ::-    (MonadIO m) =>-    AddressFamily                           -- family-    -> Word32                               -- port-    -> m (Maybe Address)                    -- result-addressNewAny family port = liftIO $ do-    let family' = (fromIntegral . fromEnum) family-    result <- soup_address_new_any family' port-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapObject Address) result'-        return result''-    return maybeResult---- method Address::new_from_sockaddr--- method type : Constructor--- Args : [Arg {argCName = "sa", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Address")--- throws : False--- Skip return : False--foreign import ccall "soup_address_new_from_sockaddr" soup_address_new_from_sockaddr :: -    Ptr () ->                               -- sa : TBasicType TPtr-    Int32 ->                                -- len : TBasicType TInt-    IO (Ptr Address)---addressNewFromSockaddr ::-    (MonadIO m) =>-    Ptr ()                                  -- sa-    -> Int32                                -- len-    -> m (Maybe Address)                    -- result-addressNewFromSockaddr sa len = liftIO $ do-    result <- soup_address_new_from_sockaddr sa len-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapObject Address) result'-        return result''-    return maybeResult---- method Address::equal_by_ip--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "addr2", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_address_equal_by_ip" soup_address_equal_by_ip :: -    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"-    Ptr Address ->                          -- addr2 : TInterface "Soup" "Address"-    IO CInt---addressEqualByIp ::-    (MonadIO m, AddressK a, AddressK b) =>-    a                                       -- _obj-    -> b                                    -- addr2-    -> m Bool                               -- result-addressEqualByIp _obj addr2 = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let addr2' = unsafeManagedPtrCastPtr addr2-    result <- soup_address_equal_by_ip _obj' addr2'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr addr2-    return result'--data AddressEqualByIpMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, AddressK a, AddressK b) => MethodInfo AddressEqualByIpMethodInfo a signature where-    overloadedMethod _ = addressEqualByIp---- method Address::equal_by_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "addr2", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_address_equal_by_name" soup_address_equal_by_name :: -    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"-    Ptr Address ->                          -- addr2 : TInterface "Soup" "Address"-    IO CInt---addressEqualByName ::-    (MonadIO m, AddressK a, AddressK b) =>-    a                                       -- _obj-    -> b                                    -- addr2-    -> m Bool                               -- result-addressEqualByName _obj addr2 = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let addr2' = unsafeManagedPtrCastPtr addr2-    result <- soup_address_equal_by_name _obj' addr2'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr addr2-    return result'--data AddressEqualByNameMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, AddressK a, AddressK b) => MethodInfo AddressEqualByNameMethodInfo a signature where-    overloadedMethod _ = addressEqualByName---- method Address::get_gsockaddr--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketAddress")--- throws : False--- Skip return : False--foreign import ccall "soup_address_get_gsockaddr" soup_address_get_gsockaddr :: -    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"-    IO (Ptr Gio.SocketAddress)---addressGetGsockaddr ::-    (MonadIO m, AddressK a) =>-    a                                       -- _obj-    -> m Gio.SocketAddress                  -- result-addressGetGsockaddr _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_address_get_gsockaddr _obj'-    checkUnexpectedReturnNULL "soup_address_get_gsockaddr" result-    result' <- (wrapObject Gio.SocketAddress) result-    touchManagedPtr _obj-    return result'--data AddressGetGsockaddrMethodInfo-instance (signature ~ (m Gio.SocketAddress), MonadIO m, AddressK a) => MethodInfo AddressGetGsockaddrMethodInfo a signature where-    overloadedMethod _ = addressGetGsockaddr---- method Address::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_address_get_name" soup_address_get_name :: -    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"-    IO CString---addressGetName ::-    (MonadIO m, AddressK a) =>-    a                                       -- _obj-    -> m (Maybe T.Text)                     -- result-addressGetName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_address_get_name _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data AddressGetNameMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, AddressK a) => MethodInfo AddressGetNameMethodInfo a signature where-    overloadedMethod _ = addressGetName---- method Address::get_physical--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_address_get_physical" soup_address_get_physical :: -    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"-    IO CString---addressGetPhysical ::-    (MonadIO m, AddressK a) =>-    a                                       -- _obj-    -> m (Maybe T.Text)                     -- result-addressGetPhysical _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_address_get_physical _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data AddressGetPhysicalMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, AddressK a) => MethodInfo AddressGetPhysicalMethodInfo a signature where-    overloadedMethod _ = addressGetPhysical---- method Address::get_port--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "soup_address_get_port" soup_address_get_port :: -    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"-    IO Word32---addressGetPort ::-    (MonadIO m, AddressK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-addressGetPort _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_address_get_port _obj'-    touchManagedPtr _obj-    return result--data AddressGetPortMethodInfo-instance (signature ~ (m Word32), MonadIO m, AddressK a) => MethodInfo AddressGetPortMethodInfo a signature where-    overloadedMethod _ = addressGetPort---- method Address::hash_by_ip--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "soup_address_hash_by_ip" soup_address_hash_by_ip :: -    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"-    IO Word32---addressHashByIp ::-    (MonadIO m, AddressK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-addressHashByIp _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_address_hash_by_ip _obj'-    touchManagedPtr _obj-    return result--data AddressHashByIpMethodInfo-instance (signature ~ (m Word32), MonadIO m, AddressK a) => MethodInfo AddressHashByIpMethodInfo a signature where-    overloadedMethod _ = addressHashByIp---- method Address::hash_by_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "soup_address_hash_by_name" soup_address_hash_by_name :: -    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"-    IO Word32---addressHashByName ::-    (MonadIO m, AddressK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-addressHashByName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_address_hash_by_name _obj'-    touchManagedPtr _obj-    return result--data AddressHashByNameMethodInfo-instance (signature ~ (m Word32), MonadIO m, AddressK a) => MethodInfo AddressHashByNameMethodInfo a signature where-    overloadedMethod _ = addressHashByName---- method Address::is_resolved--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_address_is_resolved" soup_address_is_resolved :: -    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"-    IO CInt---addressIsResolved ::-    (MonadIO m, AddressK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-addressIsResolved _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_address_is_resolved _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data AddressIsResolvedMethodInfo-instance (signature ~ (m Bool), MonadIO m, AddressK a) => MethodInfo AddressIsResolvedMethodInfo a signature where-    overloadedMethod _ = addressIsResolved---- method Address::resolve_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "async_context", argType = TInterface "GLib" "MainContext", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Soup" "AddressCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_address_resolve_async" soup_address_resolve_async :: -    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"-    Ptr GLib.MainContext ->                 -- async_context : TInterface "GLib" "MainContext"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AddressCallbackC ->              -- callback : TInterface "Soup" "AddressCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---addressResolveAsync ::-    (MonadIO m, AddressK a, Gio.CancellableK b) =>-    a                                       -- _obj-    -> Maybe (GLib.MainContext)             -- asyncContext-    -> Maybe (b)                            -- cancellable-    -> AddressCallback                      -- callback-    -> m ()                                 -- result-addressResolveAsync _obj asyncContext cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeAsyncContext <- case asyncContext of-        Nothing -> return nullPtr-        Just jAsyncContext -> do-            let jAsyncContext' = unsafeManagedPtrGetPtr jAsyncContext-            return jAsyncContext'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AddressCallbackC))-    callback' <- mkAddressCallback (addressCallbackWrapper (Just ptrcallback) callback)-    poke ptrcallback callback'-    let userData = nullPtr-    soup_address_resolve_async _obj' maybeAsyncContext maybeCancellable callback' userData-    touchManagedPtr _obj-    whenJust asyncContext touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--data AddressResolveAsyncMethodInfo-instance (signature ~ (Maybe (GLib.MainContext) -> Maybe (b) -> AddressCallback -> m ()), MonadIO m, AddressK a, Gio.CancellableK b) => MethodInfo AddressResolveAsyncMethodInfo a signature where-    overloadedMethod _ = addressResolveAsync---- method Address::resolve_sync--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Address", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "soup_address_resolve_sync" soup_address_resolve_sync :: -    Ptr Address ->                          -- _obj : TInterface "Soup" "Address"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    IO Word32---addressResolveSync ::-    (MonadIO m, AddressK a, Gio.CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m Word32                             -- result-addressResolveSync _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    result <- soup_address_resolve_sync _obj' maybeCancellable-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return result--data AddressResolveSyncMethodInfo-instance (signature ~ (Maybe (b) -> m Word32), MonadIO m, AddressK a, Gio.CancellableK b) => MethodInfo AddressResolveSyncMethodInfo a signature where-    overloadedMethod _ = addressResolveSync--
− GI/Soup/Objects/Address.hs-boot 
@@ -1,30 +0,0 @@-module GI.Soup.Objects.Address where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Address = Address (ForeignPtr Address)-instance GObject Address where-class GObject o => AddressK o-instance (GObject o, IsDescendantOf Address o) => AddressK o-data AddressFamilyPropertyInfo-data AddressNamePropertyInfo-data AddressPhysicalPropertyInfo-data AddressPortPropertyInfo-data AddressProtocolPropertyInfo-data AddressSockaddrPropertyInfo-data AddressEqualByIpMethodInfo-data AddressEqualByNameMethodInfo-data AddressGetGsockaddrMethodInfo-data AddressGetNameMethodInfo-data AddressGetPhysicalMethodInfo-data AddressGetPortMethodInfo-data AddressHashByIpMethodInfo-data AddressHashByNameMethodInfo-data AddressIsResolvedMethodInfo-data AddressResolveAsyncMethodInfo-data AddressResolveSyncMethodInfo
− GI/Soup/Objects/Auth.hs 
@@ -1,873 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Objects.Auth-    ( ---- * Exported types-    Auth(..)                                ,-    AuthK                                   ,-    toAuth                                  ,-    noAuth                                  ,--- -- * Methods--- ** authAuthenticate-    AuthAuthenticateMethodInfo              ,-    authAuthenticate                        ,----- ** authGetAuthorization-    AuthGetAuthorizationMethodInfo          ,-    authGetAuthorization                    ,----- ** authGetHost-    AuthGetHostMethodInfo                   ,-    authGetHost                             ,----- ** authGetInfo-    AuthGetInfoMethodInfo                   ,-    authGetInfo                             ,----- ** authGetProtectionSpace-    AuthGetProtectionSpaceMethodInfo        ,-    authGetProtectionSpace                  ,----- ** authGetRealm-    AuthGetRealmMethodInfo                  ,-    authGetRealm                            ,----- ** authGetSavedPassword-    AuthGetSavedPasswordMethodInfo          ,-    authGetSavedPassword                    ,----- ** authGetSavedUsers-    AuthGetSavedUsersMethodInfo             ,-    authGetSavedUsers                       ,----- ** authGetSchemeName-    AuthGetSchemeNameMethodInfo             ,-    authGetSchemeName                       ,----- ** authHasSavedPassword-    AuthHasSavedPasswordMethodInfo          ,-    authHasSavedPassword                    ,----- ** authIsAuthenticated-    AuthIsAuthenticatedMethodInfo           ,-    authIsAuthenticated                     ,----- ** authIsForProxy-    AuthIsForProxyMethodInfo                ,-    authIsForProxy                          ,----- ** authIsReady-    AuthIsReadyMethodInfo                   ,-    authIsReady                             ,----- ** authNew-    authNew                                 ,----- ** authSavePassword-    AuthSavePasswordMethodInfo              ,-    authSavePassword                        ,----- ** authUpdate-    AuthUpdateMethodInfo                    ,-    authUpdate                              ,----- -- * Properties--- ** Host-    AuthHostPropertyInfo                    ,-    authHost                                ,-    clearAuthHost                           ,-    constructAuthHost                       ,-    getAuthHost                             ,-    setAuthHost                             ,----- ** IsAuthenticated-    AuthIsAuthenticatedPropertyInfo         ,-    getAuthIsAuthenticated                  ,----- ** IsForProxy-    AuthIsForProxyPropertyInfo              ,-    constructAuthIsForProxy                 ,-    getAuthIsForProxy                       ,-    setAuthIsForProxy                       ,----- ** Realm-    AuthRealmPropertyInfo                   ,-    authRealm                               ,-    clearAuthRealm                          ,-    constructAuthRealm                      ,-    getAuthRealm                            ,-    setAuthRealm                            ,----- ** SchemeName-    AuthSchemeNamePropertyInfo              ,-    authSchemeName                          ,-    getAuthSchemeName                       ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GObject as GObject--newtype Auth = Auth (ForeignPtr Auth)-foreign import ccall "soup_auth_get_type"-    c_soup_auth_get_type :: IO GType--type instance ParentTypes Auth = AuthParentTypes-type AuthParentTypes = '[GObject.Object]--instance GObject Auth where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_auth_get_type-    --class GObject o => AuthK o-instance (GObject o, IsDescendantOf Auth o) => AuthK o--toAuth :: AuthK o => o -> IO Auth-toAuth = unsafeCastTo Auth--noAuth :: Maybe Auth-noAuth = Nothing--type family ResolveAuthMethod (t :: Symbol) (o :: *) :: * where-    ResolveAuthMethod "authenticate" o = AuthAuthenticateMethodInfo-    ResolveAuthMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveAuthMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveAuthMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveAuthMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveAuthMethod "hasSavedPassword" o = AuthHasSavedPasswordMethodInfo-    ResolveAuthMethod "isAuthenticated" o = AuthIsAuthenticatedMethodInfo-    ResolveAuthMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveAuthMethod "isForProxy" o = AuthIsForProxyMethodInfo-    ResolveAuthMethod "isReady" o = AuthIsReadyMethodInfo-    ResolveAuthMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveAuthMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveAuthMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveAuthMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveAuthMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveAuthMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveAuthMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveAuthMethod "savePassword" o = AuthSavePasswordMethodInfo-    ResolveAuthMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveAuthMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveAuthMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveAuthMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveAuthMethod "update" o = AuthUpdateMethodInfo-    ResolveAuthMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveAuthMethod "getAuthorization" o = AuthGetAuthorizationMethodInfo-    ResolveAuthMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveAuthMethod "getHost" o = AuthGetHostMethodInfo-    ResolveAuthMethod "getInfo" o = AuthGetInfoMethodInfo-    ResolveAuthMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveAuthMethod "getProtectionSpace" o = AuthGetProtectionSpaceMethodInfo-    ResolveAuthMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveAuthMethod "getRealm" o = AuthGetRealmMethodInfo-    ResolveAuthMethod "getSavedPassword" o = AuthGetSavedPasswordMethodInfo-    ResolveAuthMethod "getSavedUsers" o = AuthGetSavedUsersMethodInfo-    ResolveAuthMethod "getSchemeName" o = AuthGetSchemeNameMethodInfo-    ResolveAuthMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveAuthMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveAuthMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAuthMethod t Auth, MethodInfo info Auth p) => IsLabelProxy t (Auth -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAuthMethod t Auth, MethodInfo info Auth p) => IsLabel t (Auth -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "host"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Nothing)--getAuthHost :: (MonadIO m, AuthK o) => o -> m T.Text-getAuthHost obj = liftIO $ checkUnexpectedNothing "getAuthHost" $ getObjectPropertyString obj "host"--setAuthHost :: (MonadIO m, AuthK o) => o -> T.Text -> m ()-setAuthHost obj val = liftIO $ setObjectPropertyString obj "host" (Just val)--constructAuthHost :: T.Text -> IO ([Char], GValue)-constructAuthHost val = constructObjectPropertyString "host" (Just val)--clearAuthHost :: (MonadIO m, AuthK o) => o -> m ()-clearAuthHost obj = liftIO $ setObjectPropertyString obj "host" (Nothing :: Maybe T.Text)--data AuthHostPropertyInfo-instance AttrInfo AuthHostPropertyInfo where-    type AttrAllowedOps AuthHostPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint AuthHostPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint AuthHostPropertyInfo = AuthK-    type AttrGetType AuthHostPropertyInfo = T.Text-    type AttrLabel AuthHostPropertyInfo = "host"-    attrGet _ = getAuthHost-    attrSet _ = setAuthHost-    attrConstruct _ = constructAuthHost-    attrClear _ = clearAuthHost---- VVV Prop "is-authenticated"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getAuthIsAuthenticated :: (MonadIO m, AuthK o) => o -> m Bool-getAuthIsAuthenticated obj = liftIO $ getObjectPropertyBool obj "is-authenticated"--data AuthIsAuthenticatedPropertyInfo-instance AttrInfo AuthIsAuthenticatedPropertyInfo where-    type AttrAllowedOps AuthIsAuthenticatedPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint AuthIsAuthenticatedPropertyInfo = (~) ()-    type AttrBaseTypeConstraint AuthIsAuthenticatedPropertyInfo = AuthK-    type AttrGetType AuthIsAuthenticatedPropertyInfo = Bool-    type AttrLabel AuthIsAuthenticatedPropertyInfo = "is-authenticated"-    attrGet _ = getAuthIsAuthenticated-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "is-for-proxy"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getAuthIsForProxy :: (MonadIO m, AuthK o) => o -> m Bool-getAuthIsForProxy obj = liftIO $ getObjectPropertyBool obj "is-for-proxy"--setAuthIsForProxy :: (MonadIO m, AuthK o) => o -> Bool -> m ()-setAuthIsForProxy obj val = liftIO $ setObjectPropertyBool obj "is-for-proxy" val--constructAuthIsForProxy :: Bool -> IO ([Char], GValue)-constructAuthIsForProxy val = constructObjectPropertyBool "is-for-proxy" val--data AuthIsForProxyPropertyInfo-instance AttrInfo AuthIsForProxyPropertyInfo where-    type AttrAllowedOps AuthIsForProxyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AuthIsForProxyPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint AuthIsForProxyPropertyInfo = AuthK-    type AttrGetType AuthIsForProxyPropertyInfo = Bool-    type AttrLabel AuthIsForProxyPropertyInfo = "is-for-proxy"-    attrGet _ = getAuthIsForProxy-    attrSet _ = setAuthIsForProxy-    attrConstruct _ = constructAuthIsForProxy-    attrClear _ = undefined---- VVV Prop "realm"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Nothing)--getAuthRealm :: (MonadIO m, AuthK o) => o -> m T.Text-getAuthRealm obj = liftIO $ checkUnexpectedNothing "getAuthRealm" $ getObjectPropertyString obj "realm"--setAuthRealm :: (MonadIO m, AuthK o) => o -> T.Text -> m ()-setAuthRealm obj val = liftIO $ setObjectPropertyString obj "realm" (Just val)--constructAuthRealm :: T.Text -> IO ([Char], GValue)-constructAuthRealm val = constructObjectPropertyString "realm" (Just val)--clearAuthRealm :: (MonadIO m, AuthK o) => o -> m ()-clearAuthRealm obj = liftIO $ setObjectPropertyString obj "realm" (Nothing :: Maybe T.Text)--data AuthRealmPropertyInfo-instance AttrInfo AuthRealmPropertyInfo where-    type AttrAllowedOps AuthRealmPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint AuthRealmPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint AuthRealmPropertyInfo = AuthK-    type AttrGetType AuthRealmPropertyInfo = T.Text-    type AttrLabel AuthRealmPropertyInfo = "realm"-    attrGet _ = getAuthRealm-    attrSet _ = setAuthRealm-    attrConstruct _ = constructAuthRealm-    attrClear _ = clearAuthRealm---- VVV Prop "scheme-name"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getAuthSchemeName :: (MonadIO m, AuthK o) => o -> m T.Text-getAuthSchemeName obj = liftIO $ checkUnexpectedNothing "getAuthSchemeName" $ getObjectPropertyString obj "scheme-name"--data AuthSchemeNamePropertyInfo-instance AttrInfo AuthSchemeNamePropertyInfo where-    type AttrAllowedOps AuthSchemeNamePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint AuthSchemeNamePropertyInfo = (~) ()-    type AttrBaseTypeConstraint AuthSchemeNamePropertyInfo = AuthK-    type AttrGetType AuthSchemeNamePropertyInfo = T.Text-    type AttrLabel AuthSchemeNamePropertyInfo = "scheme-name"-    attrGet _ = getAuthSchemeName-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined--type instance AttributeList Auth = AuthAttributeList-type AuthAttributeList = ('[ '("host", AuthHostPropertyInfo), '("isAuthenticated", AuthIsAuthenticatedPropertyInfo), '("isForProxy", AuthIsForProxyPropertyInfo), '("realm", AuthRealmPropertyInfo), '("schemeName", AuthSchemeNamePropertyInfo)] :: [(Symbol, *)])--authHost :: AttrLabelProxy "host"-authHost = AttrLabelProxy--authRealm :: AttrLabelProxy "realm"-authRealm = AttrLabelProxy--authSchemeName :: AttrLabelProxy "schemeName"-authSchemeName = AttrLabelProxy--type instance SignalList Auth = AuthSignalList-type AuthSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Auth::new--- method type : Constructor--- Args : [Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth_header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Auth")--- throws : False--- Skip return : False--foreign import ccall "soup_auth_new" soup_auth_new :: -    CGType ->                               -- type : TBasicType TGType-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    CString ->                              -- auth_header : TBasicType TUTF8-    IO (Ptr Auth)---authNew ::-    (MonadIO m, MessageK a) =>-    GType                                   -- type_-    -> a                                    -- msg-    -> T.Text                               -- authHeader-    -> m (Maybe Auth)                       -- result-authNew type_ msg authHeader = liftIO $ do-    let type_' = gtypeToCGType type_-    let msg' = unsafeManagedPtrCastPtr msg-    authHeader' <- textToCString authHeader-    result <- soup_auth_new type_' msg' authHeader'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapObject Auth) result'-        return result''-    touchManagedPtr msg-    freeMem authHeader'-    return maybeResult---- method Auth::authenticate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_auth_authenticate" soup_auth_authenticate :: -    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"-    CString ->                              -- username : TBasicType TUTF8-    CString ->                              -- password : TBasicType TUTF8-    IO ()---authAuthenticate ::-    (MonadIO m, AuthK a) =>-    a                                       -- _obj-    -> T.Text                               -- username-    -> T.Text                               -- password-    -> m ()                                 -- result-authAuthenticate _obj username password = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    username' <- textToCString username-    password' <- textToCString password-    soup_auth_authenticate _obj' username' password'-    touchManagedPtr _obj-    freeMem username'-    freeMem password'-    return ()--data AuthAuthenticateMethodInfo-instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, AuthK a) => MethodInfo AuthAuthenticateMethodInfo a signature where-    overloadedMethod _ = authAuthenticate---- method Auth::get_authorization--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_auth_get_authorization" soup_auth_get_authorization :: -    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO CString---authGetAuthorization ::-    (MonadIO m, AuthK a, MessageK b) =>-    a                                       -- _obj-    -> b                                    -- msg-    -> m T.Text                             -- result-authGetAuthorization _obj msg = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    result <- soup_auth_get_authorization _obj' msg'-    checkUnexpectedReturnNULL "soup_auth_get_authorization" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    touchManagedPtr msg-    return result'--data AuthGetAuthorizationMethodInfo-instance (signature ~ (b -> m T.Text), MonadIO m, AuthK a, MessageK b) => MethodInfo AuthGetAuthorizationMethodInfo a signature where-    overloadedMethod _ = authGetAuthorization---- method Auth::get_host--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_auth_get_host" soup_auth_get_host :: -    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"-    IO CString---authGetHost ::-    (MonadIO m, AuthK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-authGetHost _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_auth_get_host _obj'-    checkUnexpectedReturnNULL "soup_auth_get_host" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data AuthGetHostMethodInfo-instance (signature ~ (m T.Text), MonadIO m, AuthK a) => MethodInfo AuthGetHostMethodInfo a signature where-    overloadedMethod _ = authGetHost---- method Auth::get_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_auth_get_info" soup_auth_get_info :: -    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"-    IO CString---authGetInfo ::-    (MonadIO m, AuthK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-authGetInfo _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_auth_get_info _obj'-    checkUnexpectedReturnNULL "soup_auth_get_info" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data AuthGetInfoMethodInfo-instance (signature ~ (m T.Text), MonadIO m, AuthK a) => MethodInfo AuthGetInfoMethodInfo a signature where-    overloadedMethod _ = authGetInfo---- method Auth::get_protection_space--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGSList (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "soup_auth_get_protection_space" soup_auth_get_protection_space :: -    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"-    Ptr URI ->                              -- source_uri : TInterface "Soup" "URI"-    IO (Ptr (GSList CString))---authGetProtectionSpace ::-    (MonadIO m, AuthK a) =>-    a                                       -- _obj-    -> URI                                  -- sourceUri-    -> m [T.Text]                           -- result-authGetProtectionSpace _obj sourceUri = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let sourceUri' = unsafeManagedPtrGetPtr sourceUri-    result <- soup_auth_get_protection_space _obj' sourceUri'-    result' <- unpackGSList result-    result'' <- mapM cstringToText result'-    mapGSList freeMem result-    g_slist_free result-    touchManagedPtr _obj-    touchManagedPtr sourceUri-    return result''--data AuthGetProtectionSpaceMethodInfo-instance (signature ~ (URI -> m [T.Text]), MonadIO m, AuthK a) => MethodInfo AuthGetProtectionSpaceMethodInfo a signature where-    overloadedMethod _ = authGetProtectionSpace---- method Auth::get_realm--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_auth_get_realm" soup_auth_get_realm :: -    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"-    IO CString---authGetRealm ::-    (MonadIO m, AuthK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-authGetRealm _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_auth_get_realm _obj'-    checkUnexpectedReturnNULL "soup_auth_get_realm" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data AuthGetRealmMethodInfo-instance (signature ~ (m T.Text), MonadIO m, AuthK a) => MethodInfo AuthGetRealmMethodInfo a signature where-    overloadedMethod _ = authGetRealm---- method Auth::get_saved_password--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_auth_get_saved_password" soup_auth_get_saved_password :: -    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"-    CString ->                              -- user : TBasicType TUTF8-    IO CString---authGetSavedPassword ::-    (MonadIO m, AuthK a) =>-    a                                       -- _obj-    -> T.Text                               -- user-    -> m T.Text                             -- result-authGetSavedPassword _obj user = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    user' <- textToCString user-    result <- soup_auth_get_saved_password _obj' user'-    checkUnexpectedReturnNULL "soup_auth_get_saved_password" result-    result' <- cstringToText result-    touchManagedPtr _obj-    freeMem user'-    return result'--data AuthGetSavedPasswordMethodInfo-instance (signature ~ (T.Text -> m T.Text), MonadIO m, AuthK a) => MethodInfo AuthGetSavedPasswordMethodInfo a signature where-    overloadedMethod _ = authGetSavedPassword---- method Auth::get_saved_users--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGSList (TBasicType TUTF8))--- throws : False--- Skip return : False--foreign import ccall "soup_auth_get_saved_users" soup_auth_get_saved_users :: -    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"-    IO (Ptr (GSList CString))---authGetSavedUsers ::-    (MonadIO m, AuthK a) =>-    a                                       -- _obj-    -> m [T.Text]                           -- result-authGetSavedUsers _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_auth_get_saved_users _obj'-    result' <- unpackGSList result-    result'' <- mapM cstringToText result'-    mapGSList freeMem result-    g_slist_free result-    touchManagedPtr _obj-    return result''--data AuthGetSavedUsersMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, AuthK a) => MethodInfo AuthGetSavedUsersMethodInfo a signature where-    overloadedMethod _ = authGetSavedUsers---- method Auth::get_scheme_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_auth_get_scheme_name" soup_auth_get_scheme_name :: -    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"-    IO CString---authGetSchemeName ::-    (MonadIO m, AuthK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-authGetSchemeName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_auth_get_scheme_name _obj'-    checkUnexpectedReturnNULL "soup_auth_get_scheme_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data AuthGetSchemeNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, AuthK a) => MethodInfo AuthGetSchemeNameMethodInfo a signature where-    overloadedMethod _ = authGetSchemeName---- method Auth::has_saved_password--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_auth_has_saved_password" soup_auth_has_saved_password :: -    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"-    CString ->                              -- username : TBasicType TUTF8-    CString ->                              -- password : TBasicType TUTF8-    IO ()---authHasSavedPassword ::-    (MonadIO m, AuthK a) =>-    a                                       -- _obj-    -> T.Text                               -- username-    -> T.Text                               -- password-    -> m ()                                 -- result-authHasSavedPassword _obj username password = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    username' <- textToCString username-    password' <- textToCString password-    soup_auth_has_saved_password _obj' username' password'-    touchManagedPtr _obj-    freeMem username'-    freeMem password'-    return ()--data AuthHasSavedPasswordMethodInfo-instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, AuthK a) => MethodInfo AuthHasSavedPasswordMethodInfo a signature where-    overloadedMethod _ = authHasSavedPassword---- method Auth::is_authenticated--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_auth_is_authenticated" soup_auth_is_authenticated :: -    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"-    IO CInt---authIsAuthenticated ::-    (MonadIO m, AuthK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-authIsAuthenticated _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_auth_is_authenticated _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data AuthIsAuthenticatedMethodInfo-instance (signature ~ (m Bool), MonadIO m, AuthK a) => MethodInfo AuthIsAuthenticatedMethodInfo a signature where-    overloadedMethod _ = authIsAuthenticated---- method Auth::is_for_proxy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_auth_is_for_proxy" soup_auth_is_for_proxy :: -    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"-    IO CInt---authIsForProxy ::-    (MonadIO m, AuthK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-authIsForProxy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_auth_is_for_proxy _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data AuthIsForProxyMethodInfo-instance (signature ~ (m Bool), MonadIO m, AuthK a) => MethodInfo AuthIsForProxyMethodInfo a signature where-    overloadedMethod _ = authIsForProxy---- method Auth::is_ready--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_auth_is_ready" soup_auth_is_ready :: -    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO CInt---authIsReady ::-    (MonadIO m, AuthK a, MessageK b) =>-    a                                       -- _obj-    -> b                                    -- msg-    -> m Bool                               -- result-authIsReady _obj msg = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    result <- soup_auth_is_ready _obj' msg'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr msg-    return result'--data AuthIsReadyMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, AuthK a, MessageK b) => MethodInfo AuthIsReadyMethodInfo a signature where-    overloadedMethod _ = authIsReady---- method Auth::save_password--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_auth_save_password" soup_auth_save_password :: -    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"-    CString ->                              -- username : TBasicType TUTF8-    CString ->                              -- password : TBasicType TUTF8-    IO ()---authSavePassword ::-    (MonadIO m, AuthK a) =>-    a                                       -- _obj-    -> T.Text                               -- username-    -> T.Text                               -- password-    -> m ()                                 -- result-authSavePassword _obj username password = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    username' <- textToCString username-    password' <- textToCString password-    soup_auth_save_password _obj' username' password'-    touchManagedPtr _obj-    freeMem username'-    freeMem password'-    return ()--data AuthSavePasswordMethodInfo-instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, AuthK a) => MethodInfo AuthSavePasswordMethodInfo a signature where-    overloadedMethod _ = authSavePassword---- method Auth::update--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth_header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_auth_update" soup_auth_update :: -    Ptr Auth ->                             -- _obj : TInterface "Soup" "Auth"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    CString ->                              -- auth_header : TBasicType TUTF8-    IO CInt---authUpdate ::-    (MonadIO m, AuthK a, MessageK b) =>-    a                                       -- _obj-    -> b                                    -- msg-    -> T.Text                               -- authHeader-    -> m Bool                               -- result-authUpdate _obj msg authHeader = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    authHeader' <- textToCString authHeader-    result <- soup_auth_update _obj' msg' authHeader'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr msg-    freeMem authHeader'-    return result'--data AuthUpdateMethodInfo-instance (signature ~ (b -> T.Text -> m Bool), MonadIO m, AuthK a, MessageK b) => MethodInfo AuthUpdateMethodInfo a signature where-    overloadedMethod _ = authUpdate--
− GI/Soup/Objects/Auth.hs-boot 
@@ -1,33 +0,0 @@-module GI.Soup.Objects.Auth where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Auth = Auth (ForeignPtr Auth)-instance GObject Auth where-class GObject o => AuthK o-instance (GObject o, IsDescendantOf Auth o) => AuthK o-data AuthHostPropertyInfo-data AuthIsAuthenticatedPropertyInfo-data AuthIsForProxyPropertyInfo-data AuthRealmPropertyInfo-data AuthSchemeNamePropertyInfo-data AuthAuthenticateMethodInfo-data AuthGetAuthorizationMethodInfo-data AuthGetHostMethodInfo-data AuthGetInfoMethodInfo-data AuthGetProtectionSpaceMethodInfo-data AuthGetRealmMethodInfo-data AuthGetSavedPasswordMethodInfo-data AuthGetSavedUsersMethodInfo-data AuthGetSchemeNameMethodInfo-data AuthHasSavedPasswordMethodInfo-data AuthIsAuthenticatedMethodInfo-data AuthIsForProxyMethodInfo-data AuthIsReadyMethodInfo-data AuthSavePasswordMethodInfo-data AuthUpdateMethodInfo
− GI/Soup/Objects/AuthBasic.hs 
@@ -1,107 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Objects.AuthBasic-    ( ---- * Exported types-    AuthBasic(..)                           ,-    AuthBasicK                              ,-    toAuthBasic                             ,-    noAuthBasic                             ,---    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GObject as GObject--newtype AuthBasic = AuthBasic (ForeignPtr AuthBasic)-foreign import ccall "soup_auth_basic_get_type"-    c_soup_auth_basic_get_type :: IO GType--type instance ParentTypes AuthBasic = AuthBasicParentTypes-type AuthBasicParentTypes = '[Auth, GObject.Object]--instance GObject AuthBasic where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_auth_basic_get_type-    --class GObject o => AuthBasicK o-instance (GObject o, IsDescendantOf AuthBasic o) => AuthBasicK o--toAuthBasic :: AuthBasicK o => o -> IO AuthBasic-toAuthBasic = unsafeCastTo AuthBasic--noAuthBasic :: Maybe AuthBasic-noAuthBasic = Nothing--type family ResolveAuthBasicMethod (t :: Symbol) (o :: *) :: * where-    ResolveAuthBasicMethod "authenticate" o = AuthAuthenticateMethodInfo-    ResolveAuthBasicMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveAuthBasicMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveAuthBasicMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveAuthBasicMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveAuthBasicMethod "hasSavedPassword" o = AuthHasSavedPasswordMethodInfo-    ResolveAuthBasicMethod "isAuthenticated" o = AuthIsAuthenticatedMethodInfo-    ResolveAuthBasicMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveAuthBasicMethod "isForProxy" o = AuthIsForProxyMethodInfo-    ResolveAuthBasicMethod "isReady" o = AuthIsReadyMethodInfo-    ResolveAuthBasicMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveAuthBasicMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveAuthBasicMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveAuthBasicMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveAuthBasicMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveAuthBasicMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveAuthBasicMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveAuthBasicMethod "savePassword" o = AuthSavePasswordMethodInfo-    ResolveAuthBasicMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveAuthBasicMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveAuthBasicMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveAuthBasicMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveAuthBasicMethod "update" o = AuthUpdateMethodInfo-    ResolveAuthBasicMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveAuthBasicMethod "getAuthorization" o = AuthGetAuthorizationMethodInfo-    ResolveAuthBasicMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveAuthBasicMethod "getHost" o = AuthGetHostMethodInfo-    ResolveAuthBasicMethod "getInfo" o = AuthGetInfoMethodInfo-    ResolveAuthBasicMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveAuthBasicMethod "getProtectionSpace" o = AuthGetProtectionSpaceMethodInfo-    ResolveAuthBasicMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveAuthBasicMethod "getRealm" o = AuthGetRealmMethodInfo-    ResolveAuthBasicMethod "getSavedPassword" o = AuthGetSavedPasswordMethodInfo-    ResolveAuthBasicMethod "getSavedUsers" o = AuthGetSavedUsersMethodInfo-    ResolveAuthBasicMethod "getSchemeName" o = AuthGetSchemeNameMethodInfo-    ResolveAuthBasicMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveAuthBasicMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveAuthBasicMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAuthBasicMethod t AuthBasic, MethodInfo info AuthBasic p) => IsLabelProxy t (AuthBasic -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAuthBasicMethod t AuthBasic, MethodInfo info AuthBasic p) => IsLabel t (AuthBasic -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList AuthBasic = AuthBasicAttributeList-type AuthBasicAttributeList = ('[ '("host", AuthHostPropertyInfo), '("isAuthenticated", AuthIsAuthenticatedPropertyInfo), '("isForProxy", AuthIsForProxyPropertyInfo), '("realm", AuthRealmPropertyInfo), '("schemeName", AuthSchemeNamePropertyInfo)] :: [(Symbol, *)])--type instance SignalList AuthBasic = AuthBasicSignalList-type AuthBasicSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--
− GI/Soup/Objects/AuthBasic.hs-boot 
@@ -1,13 +0,0 @@-module GI.Soup.Objects.AuthBasic where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AuthBasic = AuthBasic (ForeignPtr AuthBasic)-instance GObject AuthBasic where-class GObject o => AuthBasicK o-instance (GObject o, IsDescendantOf AuthBasic o) => AuthBasicK o
− GI/Soup/Objects/AuthDigest.hs 
@@ -1,107 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Objects.AuthDigest-    ( ---- * Exported types-    AuthDigest(..)                          ,-    AuthDigestK                             ,-    toAuthDigest                            ,-    noAuthDigest                            ,---    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GObject as GObject--newtype AuthDigest = AuthDigest (ForeignPtr AuthDigest)-foreign import ccall "soup_auth_digest_get_type"-    c_soup_auth_digest_get_type :: IO GType--type instance ParentTypes AuthDigest = AuthDigestParentTypes-type AuthDigestParentTypes = '[Auth, GObject.Object]--instance GObject AuthDigest where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_auth_digest_get_type-    --class GObject o => AuthDigestK o-instance (GObject o, IsDescendantOf AuthDigest o) => AuthDigestK o--toAuthDigest :: AuthDigestK o => o -> IO AuthDigest-toAuthDigest = unsafeCastTo AuthDigest--noAuthDigest :: Maybe AuthDigest-noAuthDigest = Nothing--type family ResolveAuthDigestMethod (t :: Symbol) (o :: *) :: * where-    ResolveAuthDigestMethod "authenticate" o = AuthAuthenticateMethodInfo-    ResolveAuthDigestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveAuthDigestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveAuthDigestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveAuthDigestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveAuthDigestMethod "hasSavedPassword" o = AuthHasSavedPasswordMethodInfo-    ResolveAuthDigestMethod "isAuthenticated" o = AuthIsAuthenticatedMethodInfo-    ResolveAuthDigestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveAuthDigestMethod "isForProxy" o = AuthIsForProxyMethodInfo-    ResolveAuthDigestMethod "isReady" o = AuthIsReadyMethodInfo-    ResolveAuthDigestMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveAuthDigestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveAuthDigestMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveAuthDigestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveAuthDigestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveAuthDigestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveAuthDigestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveAuthDigestMethod "savePassword" o = AuthSavePasswordMethodInfo-    ResolveAuthDigestMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveAuthDigestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveAuthDigestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveAuthDigestMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveAuthDigestMethod "update" o = AuthUpdateMethodInfo-    ResolveAuthDigestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveAuthDigestMethod "getAuthorization" o = AuthGetAuthorizationMethodInfo-    ResolveAuthDigestMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveAuthDigestMethod "getHost" o = AuthGetHostMethodInfo-    ResolveAuthDigestMethod "getInfo" o = AuthGetInfoMethodInfo-    ResolveAuthDigestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveAuthDigestMethod "getProtectionSpace" o = AuthGetProtectionSpaceMethodInfo-    ResolveAuthDigestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveAuthDigestMethod "getRealm" o = AuthGetRealmMethodInfo-    ResolveAuthDigestMethod "getSavedPassword" o = AuthGetSavedPasswordMethodInfo-    ResolveAuthDigestMethod "getSavedUsers" o = AuthGetSavedUsersMethodInfo-    ResolveAuthDigestMethod "getSchemeName" o = AuthGetSchemeNameMethodInfo-    ResolveAuthDigestMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveAuthDigestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveAuthDigestMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAuthDigestMethod t AuthDigest, MethodInfo info AuthDigest p) => IsLabelProxy t (AuthDigest -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAuthDigestMethod t AuthDigest, MethodInfo info AuthDigest p) => IsLabel t (AuthDigest -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList AuthDigest = AuthDigestAttributeList-type AuthDigestAttributeList = ('[ '("host", AuthHostPropertyInfo), '("isAuthenticated", AuthIsAuthenticatedPropertyInfo), '("isForProxy", AuthIsForProxyPropertyInfo), '("realm", AuthRealmPropertyInfo), '("schemeName", AuthSchemeNamePropertyInfo)] :: [(Symbol, *)])--type instance SignalList AuthDigest = AuthDigestSignalList-type AuthDigestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--
− GI/Soup/Objects/AuthDigest.hs-boot 
@@ -1,13 +0,0 @@-module GI.Soup.Objects.AuthDigest where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AuthDigest = AuthDigest (ForeignPtr AuthDigest)-instance GObject AuthDigest where-class GObject o => AuthDigestK o-instance (GObject o, IsDescendantOf AuthDigest o) => AuthDigestK o
− GI/Soup/Objects/AuthDomain.hs 
@@ -1,852 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Objects.AuthDomain-    ( ---- * Exported types-    AuthDomain(..)                          ,-    AuthDomainK                             ,-    toAuthDomain                            ,-    noAuthDomain                            ,--- -- * Methods--- ** authDomainAccepts-    AuthDomainAcceptsMethodInfo             ,-    authDomainAccepts                       ,----- ** authDomainAddPath-    AuthDomainAddPathMethodInfo             ,-    authDomainAddPath                       ,----- ** authDomainBasicSetAuthCallback-    AuthDomainBasicSetAuthCallbackMethodInfo,-    authDomainBasicSetAuthCallback          ,----- ** authDomainChallenge-    AuthDomainChallengeMethodInfo           ,-    authDomainChallenge                     ,----- ** authDomainCheckPassword-    AuthDomainCheckPasswordMethodInfo       ,-    authDomainCheckPassword                 ,----- ** authDomainCovers-    AuthDomainCoversMethodInfo              ,-    authDomainCovers                        ,----- ** authDomainDigestSetAuthCallback-    AuthDomainDigestSetAuthCallbackMethodInfo,-    authDomainDigestSetAuthCallback         ,----- ** authDomainGetRealm-    AuthDomainGetRealmMethodInfo            ,-    authDomainGetRealm                      ,----- ** authDomainRemovePath-    AuthDomainRemovePathMethodInfo          ,-    authDomainRemovePath                    ,----- ** authDomainSetFilter-    AuthDomainSetFilterMethodInfo           ,-    authDomainSetFilter                     ,----- ** authDomainSetGenericAuthCallback-    AuthDomainSetGenericAuthCallbackMethodInfo,-    authDomainSetGenericAuthCallback        ,----- ** authDomainTryGenericAuthCallback-    AuthDomainTryGenericAuthCallbackMethodInfo,-    authDomainTryGenericAuthCallback        ,----- -- * Properties--- ** AddPath-    AuthDomainAddPathPropertyInfo           ,-    clearAuthDomainAddPath                  ,-    constructAuthDomainAddPath              ,-    setAuthDomainAddPath                    ,----- ** Filter-    AuthDomainFilterPropertyInfo            ,-    authDomainFilter                        ,-    constructAuthDomainFilter               ,-    getAuthDomainFilter                     ,-    setAuthDomainFilter                     ,----- ** FilterData-    AuthDomainFilterDataPropertyInfo        ,-    authDomainFilterData                    ,-    constructAuthDomainFilterData           ,-    getAuthDomainFilterData                 ,-    setAuthDomainFilterData                 ,----- ** GenericAuthCallback-    AuthDomainGenericAuthCallbackPropertyInfo,-    authDomainGenericAuthCallback           ,-    constructAuthDomainGenericAuthCallback  ,-    getAuthDomainGenericAuthCallback        ,-    setAuthDomainGenericAuthCallback        ,----- ** GenericAuthData-    AuthDomainGenericAuthDataPropertyInfo   ,-    authDomainGenericAuthData               ,-    constructAuthDomainGenericAuthData      ,-    getAuthDomainGenericAuthData            ,-    setAuthDomainGenericAuthData            ,----- ** Proxy-    AuthDomainProxyPropertyInfo             ,-    authDomainProxy                         ,-    constructAuthDomainProxy                ,-    getAuthDomainProxy                      ,----- ** Realm-    AuthDomainRealmPropertyInfo             ,-    authDomainRealm                         ,-    constructAuthDomainRealm                ,-    getAuthDomainRealm                      ,----- ** RemovePath-    AuthDomainRemovePathPropertyInfo        ,-    clearAuthDomainRemovePath               ,-    constructAuthDomainRemovePath           ,-    setAuthDomainRemovePath                 ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject--newtype AuthDomain = AuthDomain (ForeignPtr AuthDomain)-foreign import ccall "soup_auth_domain_get_type"-    c_soup_auth_domain_get_type :: IO GType--type instance ParentTypes AuthDomain = AuthDomainParentTypes-type AuthDomainParentTypes = '[GObject.Object]--instance GObject AuthDomain where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_auth_domain_get_type-    --class GObject o => AuthDomainK o-instance (GObject o, IsDescendantOf AuthDomain o) => AuthDomainK o--toAuthDomain :: AuthDomainK o => o -> IO AuthDomain-toAuthDomain = unsafeCastTo AuthDomain--noAuthDomain :: Maybe AuthDomain-noAuthDomain = Nothing--type family ResolveAuthDomainMethod (t :: Symbol) (o :: *) :: * where-    ResolveAuthDomainMethod "accepts" o = AuthDomainAcceptsMethodInfo-    ResolveAuthDomainMethod "addPath" o = AuthDomainAddPathMethodInfo-    ResolveAuthDomainMethod "basicSetAuthCallback" o = AuthDomainBasicSetAuthCallbackMethodInfo-    ResolveAuthDomainMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveAuthDomainMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveAuthDomainMethod "challenge" o = AuthDomainChallengeMethodInfo-    ResolveAuthDomainMethod "checkPassword" o = AuthDomainCheckPasswordMethodInfo-    ResolveAuthDomainMethod "covers" o = AuthDomainCoversMethodInfo-    ResolveAuthDomainMethod "digestSetAuthCallback" o = AuthDomainDigestSetAuthCallbackMethodInfo-    ResolveAuthDomainMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveAuthDomainMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveAuthDomainMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveAuthDomainMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveAuthDomainMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveAuthDomainMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveAuthDomainMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveAuthDomainMethod "removePath" o = AuthDomainRemovePathMethodInfo-    ResolveAuthDomainMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveAuthDomainMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveAuthDomainMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveAuthDomainMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveAuthDomainMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveAuthDomainMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveAuthDomainMethod "tryGenericAuthCallback" o = AuthDomainTryGenericAuthCallbackMethodInfo-    ResolveAuthDomainMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveAuthDomainMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveAuthDomainMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveAuthDomainMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveAuthDomainMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveAuthDomainMethod "getRealm" o = AuthDomainGetRealmMethodInfo-    ResolveAuthDomainMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveAuthDomainMethod "setFilter" o = AuthDomainSetFilterMethodInfo-    ResolveAuthDomainMethod "setGenericAuthCallback" o = AuthDomainSetGenericAuthCallbackMethodInfo-    ResolveAuthDomainMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveAuthDomainMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAuthDomainMethod t AuthDomain, MethodInfo info AuthDomain p) => IsLabelProxy t (AuthDomain -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAuthDomainMethod t AuthDomain, MethodInfo info AuthDomain p) => IsLabel t (AuthDomain -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "add-path"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyWritable]-   -- Nullable: (Nothing,Nothing)--setAuthDomainAddPath :: (MonadIO m, AuthDomainK o) => o -> T.Text -> m ()-setAuthDomainAddPath obj val = liftIO $ setObjectPropertyString obj "add-path" (Just val)--constructAuthDomainAddPath :: T.Text -> IO ([Char], GValue)-constructAuthDomainAddPath val = constructObjectPropertyString "add-path" (Just val)--clearAuthDomainAddPath :: (MonadIO m, AuthDomainK o) => o -> m ()-clearAuthDomainAddPath obj = liftIO $ setObjectPropertyString obj "add-path" (Nothing :: Maybe T.Text)--data AuthDomainAddPathPropertyInfo-instance AttrInfo AuthDomainAddPathPropertyInfo where-    type AttrAllowedOps AuthDomainAddPathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint AuthDomainAddPathPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint AuthDomainAddPathPropertyInfo = AuthDomainK-    type AttrGetType AuthDomainAddPathPropertyInfo = ()-    type AttrLabel AuthDomainAddPathPropertyInfo = "add-path"-    attrGet _ = undefined-    attrSet _ = setAuthDomainAddPath-    attrConstruct _ = constructAuthDomainAddPath-    attrClear _ = clearAuthDomainAddPath---- VVV Prop "filter"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getAuthDomainFilter :: (MonadIO m, AuthDomainK o) => o -> m (Ptr ())-getAuthDomainFilter obj = liftIO $ getObjectPropertyPtr obj "filter"--setAuthDomainFilter :: (MonadIO m, AuthDomainK o) => o -> Ptr () -> m ()-setAuthDomainFilter obj val = liftIO $ setObjectPropertyPtr obj "filter" val--constructAuthDomainFilter :: Ptr () -> IO ([Char], GValue)-constructAuthDomainFilter val = constructObjectPropertyPtr "filter" val--data AuthDomainFilterPropertyInfo-instance AttrInfo AuthDomainFilterPropertyInfo where-    type AttrAllowedOps AuthDomainFilterPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AuthDomainFilterPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint AuthDomainFilterPropertyInfo = AuthDomainK-    type AttrGetType AuthDomainFilterPropertyInfo = (Ptr ())-    type AttrLabel AuthDomainFilterPropertyInfo = "filter"-    attrGet _ = getAuthDomainFilter-    attrSet _ = setAuthDomainFilter-    attrConstruct _ = constructAuthDomainFilter-    attrClear _ = undefined---- VVV Prop "filter-data"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getAuthDomainFilterData :: (MonadIO m, AuthDomainK o) => o -> m (Ptr ())-getAuthDomainFilterData obj = liftIO $ getObjectPropertyPtr obj "filter-data"--setAuthDomainFilterData :: (MonadIO m, AuthDomainK o) => o -> Ptr () -> m ()-setAuthDomainFilterData obj val = liftIO $ setObjectPropertyPtr obj "filter-data" val--constructAuthDomainFilterData :: Ptr () -> IO ([Char], GValue)-constructAuthDomainFilterData val = constructObjectPropertyPtr "filter-data" val--data AuthDomainFilterDataPropertyInfo-instance AttrInfo AuthDomainFilterDataPropertyInfo where-    type AttrAllowedOps AuthDomainFilterDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AuthDomainFilterDataPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint AuthDomainFilterDataPropertyInfo = AuthDomainK-    type AttrGetType AuthDomainFilterDataPropertyInfo = (Ptr ())-    type AttrLabel AuthDomainFilterDataPropertyInfo = "filter-data"-    attrGet _ = getAuthDomainFilterData-    attrSet _ = setAuthDomainFilterData-    attrConstruct _ = constructAuthDomainFilterData-    attrClear _ = undefined---- VVV Prop "generic-auth-callback"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getAuthDomainGenericAuthCallback :: (MonadIO m, AuthDomainK o) => o -> m (Ptr ())-getAuthDomainGenericAuthCallback obj = liftIO $ getObjectPropertyPtr obj "generic-auth-callback"--setAuthDomainGenericAuthCallback :: (MonadIO m, AuthDomainK o) => o -> Ptr () -> m ()-setAuthDomainGenericAuthCallback obj val = liftIO $ setObjectPropertyPtr obj "generic-auth-callback" val--constructAuthDomainGenericAuthCallback :: Ptr () -> IO ([Char], GValue)-constructAuthDomainGenericAuthCallback val = constructObjectPropertyPtr "generic-auth-callback" val--data AuthDomainGenericAuthCallbackPropertyInfo-instance AttrInfo AuthDomainGenericAuthCallbackPropertyInfo where-    type AttrAllowedOps AuthDomainGenericAuthCallbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AuthDomainGenericAuthCallbackPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint AuthDomainGenericAuthCallbackPropertyInfo = AuthDomainK-    type AttrGetType AuthDomainGenericAuthCallbackPropertyInfo = (Ptr ())-    type AttrLabel AuthDomainGenericAuthCallbackPropertyInfo = "generic-auth-callback"-    attrGet _ = getAuthDomainGenericAuthCallback-    attrSet _ = setAuthDomainGenericAuthCallback-    attrConstruct _ = constructAuthDomainGenericAuthCallback-    attrClear _ = undefined---- VVV Prop "generic-auth-data"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getAuthDomainGenericAuthData :: (MonadIO m, AuthDomainK o) => o -> m (Ptr ())-getAuthDomainGenericAuthData obj = liftIO $ getObjectPropertyPtr obj "generic-auth-data"--setAuthDomainGenericAuthData :: (MonadIO m, AuthDomainK o) => o -> Ptr () -> m ()-setAuthDomainGenericAuthData obj val = liftIO $ setObjectPropertyPtr obj "generic-auth-data" val--constructAuthDomainGenericAuthData :: Ptr () -> IO ([Char], GValue)-constructAuthDomainGenericAuthData val = constructObjectPropertyPtr "generic-auth-data" val--data AuthDomainGenericAuthDataPropertyInfo-instance AttrInfo AuthDomainGenericAuthDataPropertyInfo where-    type AttrAllowedOps AuthDomainGenericAuthDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AuthDomainGenericAuthDataPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint AuthDomainGenericAuthDataPropertyInfo = AuthDomainK-    type AttrGetType AuthDomainGenericAuthDataPropertyInfo = (Ptr ())-    type AttrLabel AuthDomainGenericAuthDataPropertyInfo = "generic-auth-data"-    attrGet _ = getAuthDomainGenericAuthData-    attrSet _ = setAuthDomainGenericAuthData-    attrConstruct _ = constructAuthDomainGenericAuthData-    attrClear _ = undefined---- VVV Prop "proxy"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getAuthDomainProxy :: (MonadIO m, AuthDomainK o) => o -> m Bool-getAuthDomainProxy obj = liftIO $ getObjectPropertyBool obj "proxy"--constructAuthDomainProxy :: Bool -> IO ([Char], GValue)-constructAuthDomainProxy val = constructObjectPropertyBool "proxy" val--data AuthDomainProxyPropertyInfo-instance AttrInfo AuthDomainProxyPropertyInfo where-    type AttrAllowedOps AuthDomainProxyPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AuthDomainProxyPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint AuthDomainProxyPropertyInfo = AuthDomainK-    type AttrGetType AuthDomainProxyPropertyInfo = Bool-    type AttrLabel AuthDomainProxyPropertyInfo = "proxy"-    attrGet _ = getAuthDomainProxy-    attrSet _ = undefined-    attrConstruct _ = constructAuthDomainProxy-    attrClear _ = undefined---- VVV Prop "realm"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getAuthDomainRealm :: (MonadIO m, AuthDomainK o) => o -> m T.Text-getAuthDomainRealm obj = liftIO $ checkUnexpectedNothing "getAuthDomainRealm" $ getObjectPropertyString obj "realm"--constructAuthDomainRealm :: T.Text -> IO ([Char], GValue)-constructAuthDomainRealm val = constructObjectPropertyString "realm" (Just val)--data AuthDomainRealmPropertyInfo-instance AttrInfo AuthDomainRealmPropertyInfo where-    type AttrAllowedOps AuthDomainRealmPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint AuthDomainRealmPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint AuthDomainRealmPropertyInfo = AuthDomainK-    type AttrGetType AuthDomainRealmPropertyInfo = T.Text-    type AttrLabel AuthDomainRealmPropertyInfo = "realm"-    attrGet _ = getAuthDomainRealm-    attrSet _ = undefined-    attrConstruct _ = constructAuthDomainRealm-    attrClear _ = undefined---- VVV Prop "remove-path"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyWritable]-   -- Nullable: (Nothing,Nothing)--setAuthDomainRemovePath :: (MonadIO m, AuthDomainK o) => o -> T.Text -> m ()-setAuthDomainRemovePath obj val = liftIO $ setObjectPropertyString obj "remove-path" (Just val)--constructAuthDomainRemovePath :: T.Text -> IO ([Char], GValue)-constructAuthDomainRemovePath val = constructObjectPropertyString "remove-path" (Just val)--clearAuthDomainRemovePath :: (MonadIO m, AuthDomainK o) => o -> m ()-clearAuthDomainRemovePath obj = liftIO $ setObjectPropertyString obj "remove-path" (Nothing :: Maybe T.Text)--data AuthDomainRemovePathPropertyInfo-instance AttrInfo AuthDomainRemovePathPropertyInfo where-    type AttrAllowedOps AuthDomainRemovePathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint AuthDomainRemovePathPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint AuthDomainRemovePathPropertyInfo = AuthDomainK-    type AttrGetType AuthDomainRemovePathPropertyInfo = ()-    type AttrLabel AuthDomainRemovePathPropertyInfo = "remove-path"-    attrGet _ = undefined-    attrSet _ = setAuthDomainRemovePath-    attrConstruct _ = constructAuthDomainRemovePath-    attrClear _ = clearAuthDomainRemovePath--type instance AttributeList AuthDomain = AuthDomainAttributeList-type AuthDomainAttributeList = ('[ '("addPath", AuthDomainAddPathPropertyInfo), '("filter", AuthDomainFilterPropertyInfo), '("filterData", AuthDomainFilterDataPropertyInfo), '("genericAuthCallback", AuthDomainGenericAuthCallbackPropertyInfo), '("genericAuthData", AuthDomainGenericAuthDataPropertyInfo), '("proxy", AuthDomainProxyPropertyInfo), '("realm", AuthDomainRealmPropertyInfo), '("removePath", AuthDomainRemovePathPropertyInfo)] :: [(Symbol, *)])--authDomainFilter :: AttrLabelProxy "filter"-authDomainFilter = AttrLabelProxy--authDomainFilterData :: AttrLabelProxy "filterData"-authDomainFilterData = AttrLabelProxy--authDomainGenericAuthCallback :: AttrLabelProxy "genericAuthCallback"-authDomainGenericAuthCallback = AttrLabelProxy--authDomainGenericAuthData :: AttrLabelProxy "genericAuthData"-authDomainGenericAuthData = AttrLabelProxy--authDomainProxy :: AttrLabelProxy "proxy"-authDomainProxy = AttrLabelProxy--authDomainRealm :: AttrLabelProxy "realm"-authDomainRealm = AttrLabelProxy--type instance SignalList AuthDomain = AuthDomainSignalList-type AuthDomainSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method AuthDomain::accepts--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_auth_domain_accepts" soup_auth_domain_accepts :: -    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO CString---authDomainAccepts ::-    (MonadIO m, AuthDomainK a, MessageK b) =>-    a                                       -- _obj-    -> b                                    -- msg-    -> m (Maybe T.Text)                     -- result-authDomainAccepts _obj msg = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    result <- soup_auth_domain_accepts _obj' msg'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        freeMem result'-        return result''-    touchManagedPtr _obj-    touchManagedPtr msg-    return maybeResult--data AuthDomainAcceptsMethodInfo-instance (signature ~ (b -> m (Maybe T.Text)), MonadIO m, AuthDomainK a, MessageK b) => MethodInfo AuthDomainAcceptsMethodInfo a signature where-    overloadedMethod _ = authDomainAccepts---- method AuthDomain::add_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_auth_domain_add_path" soup_auth_domain_add_path :: -    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"-    CString ->                              -- path : TBasicType TUTF8-    IO ()---authDomainAddPath ::-    (MonadIO m, AuthDomainK a) =>-    a                                       -- _obj-    -> T.Text                               -- path-    -> m ()                                 -- result-authDomainAddPath _obj path = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    path' <- textToCString path-    soup_auth_domain_add_path _obj' path'-    touchManagedPtr _obj-    freeMem path'-    return ()--data AuthDomainAddPathMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, AuthDomainK a) => MethodInfo AuthDomainAddPathMethodInfo a signature where-    overloadedMethod _ = authDomainAddPath---- method AuthDomain::basic_set_auth_callback--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Soup" "AuthDomainBasicAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_auth_domain_basic_set_auth_callback" soup_auth_domain_basic_set_auth_callback :: -    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"-    FunPtr AuthDomainBasicAuthCallbackC ->  -- callback : TInterface "Soup" "AuthDomainBasicAuthCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    FunPtr GLib.DestroyNotifyC ->           -- dnotify : TInterface "GLib" "DestroyNotify"-    IO ()---authDomainBasicSetAuthCallback ::-    (MonadIO m, AuthDomainK a) =>-    a                                       -- _obj-    -> AuthDomainBasicAuthCallback          -- callback-    -> m ()                                 -- result-authDomainBasicSetAuthCallback _obj callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    callback' <- mkAuthDomainBasicAuthCallback (authDomainBasicAuthCallbackWrapper Nothing callback)-    let userData = castFunPtrToPtr callback'-    let dnotify = safeFreeFunPtrPtr-    soup_auth_domain_basic_set_auth_callback _obj' callback' userData dnotify-    touchManagedPtr _obj-    return ()--data AuthDomainBasicSetAuthCallbackMethodInfo-instance (signature ~ (AuthDomainBasicAuthCallback -> m ()), MonadIO m, AuthDomainK a) => MethodInfo AuthDomainBasicSetAuthCallbackMethodInfo a signature where-    overloadedMethod _ = authDomainBasicSetAuthCallback---- method AuthDomain::challenge--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_auth_domain_challenge" soup_auth_domain_challenge :: -    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO ()---authDomainChallenge ::-    (MonadIO m, AuthDomainK a, MessageK b) =>-    a                                       -- _obj-    -> b                                    -- msg-    -> m ()                                 -- result-authDomainChallenge _obj msg = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    soup_auth_domain_challenge _obj' msg'-    touchManagedPtr _obj-    touchManagedPtr msg-    return ()--data AuthDomainChallengeMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, AuthDomainK a, MessageK b) => MethodInfo AuthDomainChallengeMethodInfo a signature where-    overloadedMethod _ = authDomainChallenge---- method AuthDomain::check_password--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_auth_domain_check_password" soup_auth_domain_check_password :: -    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    CString ->                              -- username : TBasicType TUTF8-    CString ->                              -- password : TBasicType TUTF8-    IO CInt---authDomainCheckPassword ::-    (MonadIO m, AuthDomainK a, MessageK b) =>-    a                                       -- _obj-    -> b                                    -- msg-    -> T.Text                               -- username-    -> T.Text                               -- password-    -> m Bool                               -- result-authDomainCheckPassword _obj msg username password = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    username' <- textToCString username-    password' <- textToCString password-    result <- soup_auth_domain_check_password _obj' msg' username' password'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr msg-    freeMem username'-    freeMem password'-    return result'--data AuthDomainCheckPasswordMethodInfo-instance (signature ~ (b -> T.Text -> T.Text -> m Bool), MonadIO m, AuthDomainK a, MessageK b) => MethodInfo AuthDomainCheckPasswordMethodInfo a signature where-    overloadedMethod _ = authDomainCheckPassword---- method AuthDomain::covers--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_auth_domain_covers" soup_auth_domain_covers :: -    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO CInt---authDomainCovers ::-    (MonadIO m, AuthDomainK a, MessageK b) =>-    a                                       -- _obj-    -> b                                    -- msg-    -> m Bool                               -- result-authDomainCovers _obj msg = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    result <- soup_auth_domain_covers _obj' msg'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr msg-    return result'--data AuthDomainCoversMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, AuthDomainK a, MessageK b) => MethodInfo AuthDomainCoversMethodInfo a signature where-    overloadedMethod _ = authDomainCovers---- method AuthDomain::digest_set_auth_callback--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Soup" "AuthDomainDigestAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_auth_domain_digest_set_auth_callback" soup_auth_domain_digest_set_auth_callback :: -    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"-    FunPtr AuthDomainDigestAuthCallbackC -> -- callback : TInterface "Soup" "AuthDomainDigestAuthCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    FunPtr GLib.DestroyNotifyC ->           -- dnotify : TInterface "GLib" "DestroyNotify"-    IO ()---authDomainDigestSetAuthCallback ::-    (MonadIO m, AuthDomainK a) =>-    a                                       -- _obj-    -> AuthDomainDigestAuthCallback         -- callback-    -> m ()                                 -- result-authDomainDigestSetAuthCallback _obj callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    callback' <- mkAuthDomainDigestAuthCallback (authDomainDigestAuthCallbackWrapper Nothing callback)-    let userData = castFunPtrToPtr callback'-    let dnotify = safeFreeFunPtrPtr-    soup_auth_domain_digest_set_auth_callback _obj' callback' userData dnotify-    touchManagedPtr _obj-    return ()--data AuthDomainDigestSetAuthCallbackMethodInfo-instance (signature ~ (AuthDomainDigestAuthCallback -> m ()), MonadIO m, AuthDomainK a) => MethodInfo AuthDomainDigestSetAuthCallbackMethodInfo a signature where-    overloadedMethod _ = authDomainDigestSetAuthCallback---- method AuthDomain::get_realm--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_auth_domain_get_realm" soup_auth_domain_get_realm :: -    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"-    IO CString---authDomainGetRealm ::-    (MonadIO m, AuthDomainK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-authDomainGetRealm _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_auth_domain_get_realm _obj'-    checkUnexpectedReturnNULL "soup_auth_domain_get_realm" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data AuthDomainGetRealmMethodInfo-instance (signature ~ (m T.Text), MonadIO m, AuthDomainK a) => MethodInfo AuthDomainGetRealmMethodInfo a signature where-    overloadedMethod _ = authDomainGetRealm---- method AuthDomain::remove_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_auth_domain_remove_path" soup_auth_domain_remove_path :: -    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"-    CString ->                              -- path : TBasicType TUTF8-    IO ()---authDomainRemovePath ::-    (MonadIO m, AuthDomainK a) =>-    a                                       -- _obj-    -> T.Text                               -- path-    -> m ()                                 -- result-authDomainRemovePath _obj path = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    path' <- textToCString path-    soup_auth_domain_remove_path _obj' path'-    touchManagedPtr _obj-    freeMem path'-    return ()--data AuthDomainRemovePathMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, AuthDomainK a) => MethodInfo AuthDomainRemovePathMethodInfo a signature where-    overloadedMethod _ = authDomainRemovePath---- method AuthDomain::set_filter--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface "Soup" "AuthDomainFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_auth_domain_set_filter" soup_auth_domain_set_filter :: -    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"-    FunPtr AuthDomainFilterC ->             -- filter : TInterface "Soup" "AuthDomainFilter"-    Ptr () ->                               -- filter_data : TBasicType TPtr-    FunPtr GLib.DestroyNotifyC ->           -- dnotify : TInterface "GLib" "DestroyNotify"-    IO ()---authDomainSetFilter ::-    (MonadIO m, AuthDomainK a) =>-    a                                       -- _obj-    -> AuthDomainFilter                     -- filter-    -> m ()                                 -- result-authDomainSetFilter _obj filter = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    filter' <- mkAuthDomainFilter (authDomainFilterWrapper Nothing filter)-    let filterData = castFunPtrToPtr filter'-    let dnotify = safeFreeFunPtrPtr-    soup_auth_domain_set_filter _obj' filter' filterData dnotify-    touchManagedPtr _obj-    return ()--data AuthDomainSetFilterMethodInfo-instance (signature ~ (AuthDomainFilter -> m ()), MonadIO m, AuthDomainK a) => MethodInfo AuthDomainSetFilterMethodInfo a signature where-    overloadedMethod _ = authDomainSetFilter---- method AuthDomain::set_generic_auth_callback--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth_callback", argType = TInterface "Soup" "AuthDomainGenericAuthCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_auth_domain_set_generic_auth_callback" soup_auth_domain_set_generic_auth_callback :: -    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"-    FunPtr AuthDomainGenericAuthCallbackC -> -- auth_callback : TInterface "Soup" "AuthDomainGenericAuthCallback"-    Ptr () ->                               -- auth_data : TBasicType TPtr-    FunPtr GLib.DestroyNotifyC ->           -- dnotify : TInterface "GLib" "DestroyNotify"-    IO ()---authDomainSetGenericAuthCallback ::-    (MonadIO m, AuthDomainK a) =>-    a                                       -- _obj-    -> AuthDomainGenericAuthCallback        -- authCallback-    -> m ()                                 -- result-authDomainSetGenericAuthCallback _obj authCallback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    authCallback' <- mkAuthDomainGenericAuthCallback (authDomainGenericAuthCallbackWrapper Nothing authCallback)-    let authData = castFunPtrToPtr authCallback'-    let dnotify = safeFreeFunPtrPtr-    soup_auth_domain_set_generic_auth_callback _obj' authCallback' authData dnotify-    touchManagedPtr _obj-    return ()--data AuthDomainSetGenericAuthCallbackMethodInfo-instance (signature ~ (AuthDomainGenericAuthCallback -> m ()), MonadIO m, AuthDomainK a) => MethodInfo AuthDomainSetGenericAuthCallbackMethodInfo a signature where-    overloadedMethod _ = authDomainSetGenericAuthCallback---- method AuthDomain::try_generic_auth_callback--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_auth_domain_try_generic_auth_callback" soup_auth_domain_try_generic_auth_callback :: -    Ptr AuthDomain ->                       -- _obj : TInterface "Soup" "AuthDomain"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    CString ->                              -- username : TBasicType TUTF8-    IO CInt---authDomainTryGenericAuthCallback ::-    (MonadIO m, AuthDomainK a, MessageK b) =>-    a                                       -- _obj-    -> b                                    -- msg-    -> T.Text                               -- username-    -> m Bool                               -- result-authDomainTryGenericAuthCallback _obj msg username = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    username' <- textToCString username-    result <- soup_auth_domain_try_generic_auth_callback _obj' msg' username'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr msg-    freeMem username'-    return result'--data AuthDomainTryGenericAuthCallbackMethodInfo-instance (signature ~ (b -> T.Text -> m Bool), MonadIO m, AuthDomainK a, MessageK b) => MethodInfo AuthDomainTryGenericAuthCallbackMethodInfo a signature where-    overloadedMethod _ = authDomainTryGenericAuthCallback--
− GI/Soup/Objects/AuthDomain.hs-boot 
@@ -1,33 +0,0 @@-module GI.Soup.Objects.AuthDomain where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AuthDomain = AuthDomain (ForeignPtr AuthDomain)-instance GObject AuthDomain where-class GObject o => AuthDomainK o-instance (GObject o, IsDescendantOf AuthDomain o) => AuthDomainK o-data AuthDomainAddPathPropertyInfo-data AuthDomainFilterPropertyInfo-data AuthDomainFilterDataPropertyInfo-data AuthDomainGenericAuthCallbackPropertyInfo-data AuthDomainGenericAuthDataPropertyInfo-data AuthDomainProxyPropertyInfo-data AuthDomainRealmPropertyInfo-data AuthDomainRemovePathPropertyInfo-data AuthDomainAcceptsMethodInfo-data AuthDomainAddPathMethodInfo-data AuthDomainBasicSetAuthCallbackMethodInfo-data AuthDomainChallengeMethodInfo-data AuthDomainCheckPasswordMethodInfo-data AuthDomainCoversMethodInfo-data AuthDomainDigestSetAuthCallbackMethodInfo-data AuthDomainGetRealmMethodInfo-data AuthDomainRemovePathMethodInfo-data AuthDomainSetFilterMethodInfo-data AuthDomainSetGenericAuthCallbackMethodInfo-data AuthDomainTryGenericAuthCallbackMethodInfo
− GI/Soup/Objects/AuthDomainBasic.hs 
@@ -1,181 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Objects.AuthDomainBasic-    ( ---- * Exported types-    AuthDomainBasic(..)                     ,-    AuthDomainBasicK                        ,-    toAuthDomainBasic                       ,-    noAuthDomainBasic                       ,--- -- * Properties--- ** AuthCallback-    AuthDomainBasicAuthCallbackPropertyInfo ,-    authDomainBasicAuthCallback             ,-    constructAuthDomainBasicAuthCallback    ,-    getAuthDomainBasicAuthCallback          ,-    setAuthDomainBasicAuthCallback          ,----- ** AuthData-    AuthDomainBasicAuthDataPropertyInfo     ,-    authDomainBasicAuthData                 ,-    constructAuthDomainBasicAuthData        ,-    getAuthDomainBasicAuthData              ,-    setAuthDomainBasicAuthData              ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GObject as GObject--newtype AuthDomainBasic = AuthDomainBasic (ForeignPtr AuthDomainBasic)-foreign import ccall "soup_auth_domain_basic_get_type"-    c_soup_auth_domain_basic_get_type :: IO GType--type instance ParentTypes AuthDomainBasic = AuthDomainBasicParentTypes-type AuthDomainBasicParentTypes = '[AuthDomain, GObject.Object]--instance GObject AuthDomainBasic where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_auth_domain_basic_get_type-    --class GObject o => AuthDomainBasicK o-instance (GObject o, IsDescendantOf AuthDomainBasic o) => AuthDomainBasicK o--toAuthDomainBasic :: AuthDomainBasicK o => o -> IO AuthDomainBasic-toAuthDomainBasic = unsafeCastTo AuthDomainBasic--noAuthDomainBasic :: Maybe AuthDomainBasic-noAuthDomainBasic = Nothing--type family ResolveAuthDomainBasicMethod (t :: Symbol) (o :: *) :: * where-    ResolveAuthDomainBasicMethod "accepts" o = AuthDomainAcceptsMethodInfo-    ResolveAuthDomainBasicMethod "addPath" o = AuthDomainAddPathMethodInfo-    ResolveAuthDomainBasicMethod "basicSetAuthCallback" o = AuthDomainBasicSetAuthCallbackMethodInfo-    ResolveAuthDomainBasicMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveAuthDomainBasicMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveAuthDomainBasicMethod "challenge" o = AuthDomainChallengeMethodInfo-    ResolveAuthDomainBasicMethod "checkPassword" o = AuthDomainCheckPasswordMethodInfo-    ResolveAuthDomainBasicMethod "covers" o = AuthDomainCoversMethodInfo-    ResolveAuthDomainBasicMethod "digestSetAuthCallback" o = AuthDomainDigestSetAuthCallbackMethodInfo-    ResolveAuthDomainBasicMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveAuthDomainBasicMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveAuthDomainBasicMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveAuthDomainBasicMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveAuthDomainBasicMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveAuthDomainBasicMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveAuthDomainBasicMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveAuthDomainBasicMethod "removePath" o = AuthDomainRemovePathMethodInfo-    ResolveAuthDomainBasicMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveAuthDomainBasicMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveAuthDomainBasicMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveAuthDomainBasicMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveAuthDomainBasicMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveAuthDomainBasicMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveAuthDomainBasicMethod "tryGenericAuthCallback" o = AuthDomainTryGenericAuthCallbackMethodInfo-    ResolveAuthDomainBasicMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveAuthDomainBasicMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveAuthDomainBasicMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveAuthDomainBasicMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveAuthDomainBasicMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveAuthDomainBasicMethod "getRealm" o = AuthDomainGetRealmMethodInfo-    ResolveAuthDomainBasicMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveAuthDomainBasicMethod "setFilter" o = AuthDomainSetFilterMethodInfo-    ResolveAuthDomainBasicMethod "setGenericAuthCallback" o = AuthDomainSetGenericAuthCallbackMethodInfo-    ResolveAuthDomainBasicMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveAuthDomainBasicMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAuthDomainBasicMethod t AuthDomainBasic, MethodInfo info AuthDomainBasic p) => IsLabelProxy t (AuthDomainBasic -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAuthDomainBasicMethod t AuthDomainBasic, MethodInfo info AuthDomainBasic p) => IsLabel t (AuthDomainBasic -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "auth-callback"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getAuthDomainBasicAuthCallback :: (MonadIO m, AuthDomainBasicK o) => o -> m (Ptr ())-getAuthDomainBasicAuthCallback obj = liftIO $ getObjectPropertyPtr obj "auth-callback"--setAuthDomainBasicAuthCallback :: (MonadIO m, AuthDomainBasicK o) => o -> Ptr () -> m ()-setAuthDomainBasicAuthCallback obj val = liftIO $ setObjectPropertyPtr obj "auth-callback" val--constructAuthDomainBasicAuthCallback :: Ptr () -> IO ([Char], GValue)-constructAuthDomainBasicAuthCallback val = constructObjectPropertyPtr "auth-callback" val--data AuthDomainBasicAuthCallbackPropertyInfo-instance AttrInfo AuthDomainBasicAuthCallbackPropertyInfo where-    type AttrAllowedOps AuthDomainBasicAuthCallbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AuthDomainBasicAuthCallbackPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint AuthDomainBasicAuthCallbackPropertyInfo = AuthDomainBasicK-    type AttrGetType AuthDomainBasicAuthCallbackPropertyInfo = (Ptr ())-    type AttrLabel AuthDomainBasicAuthCallbackPropertyInfo = "auth-callback"-    attrGet _ = getAuthDomainBasicAuthCallback-    attrSet _ = setAuthDomainBasicAuthCallback-    attrConstruct _ = constructAuthDomainBasicAuthCallback-    attrClear _ = undefined---- VVV Prop "auth-data"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getAuthDomainBasicAuthData :: (MonadIO m, AuthDomainBasicK o) => o -> m (Ptr ())-getAuthDomainBasicAuthData obj = liftIO $ getObjectPropertyPtr obj "auth-data"--setAuthDomainBasicAuthData :: (MonadIO m, AuthDomainBasicK o) => o -> Ptr () -> m ()-setAuthDomainBasicAuthData obj val = liftIO $ setObjectPropertyPtr obj "auth-data" val--constructAuthDomainBasicAuthData :: Ptr () -> IO ([Char], GValue)-constructAuthDomainBasicAuthData val = constructObjectPropertyPtr "auth-data" val--data AuthDomainBasicAuthDataPropertyInfo-instance AttrInfo AuthDomainBasicAuthDataPropertyInfo where-    type AttrAllowedOps AuthDomainBasicAuthDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AuthDomainBasicAuthDataPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint AuthDomainBasicAuthDataPropertyInfo = AuthDomainBasicK-    type AttrGetType AuthDomainBasicAuthDataPropertyInfo = (Ptr ())-    type AttrLabel AuthDomainBasicAuthDataPropertyInfo = "auth-data"-    attrGet _ = getAuthDomainBasicAuthData-    attrSet _ = setAuthDomainBasicAuthData-    attrConstruct _ = constructAuthDomainBasicAuthData-    attrClear _ = undefined--type instance AttributeList AuthDomainBasic = AuthDomainBasicAttributeList-type AuthDomainBasicAttributeList = ('[ '("addPath", AuthDomainAddPathPropertyInfo), '("authCallback", AuthDomainBasicAuthCallbackPropertyInfo), '("authData", AuthDomainBasicAuthDataPropertyInfo), '("filter", AuthDomainFilterPropertyInfo), '("filterData", AuthDomainFilterDataPropertyInfo), '("genericAuthCallback", AuthDomainGenericAuthCallbackPropertyInfo), '("genericAuthData", AuthDomainGenericAuthDataPropertyInfo), '("proxy", AuthDomainProxyPropertyInfo), '("realm", AuthDomainRealmPropertyInfo), '("removePath", AuthDomainRemovePathPropertyInfo)] :: [(Symbol, *)])--authDomainBasicAuthCallback :: AttrLabelProxy "authCallback"-authDomainBasicAuthCallback = AttrLabelProxy--authDomainBasicAuthData :: AttrLabelProxy "authData"-authDomainBasicAuthData = AttrLabelProxy--type instance SignalList AuthDomainBasic = AuthDomainBasicSignalList-type AuthDomainBasicSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--
− GI/Soup/Objects/AuthDomainBasic.hs-boot 
@@ -1,15 +0,0 @@-module GI.Soup.Objects.AuthDomainBasic where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AuthDomainBasic = AuthDomainBasic (ForeignPtr AuthDomainBasic)-instance GObject AuthDomainBasic where-class GObject o => AuthDomainBasicK o-instance (GObject o, IsDescendantOf AuthDomainBasic o) => AuthDomainBasicK o-data AuthDomainBasicAuthCallbackPropertyInfo-data AuthDomainBasicAuthDataPropertyInfo
− GI/Soup/Objects/AuthDomainDigest.hs 
@@ -1,222 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Objects.AuthDomainDigest-    ( ---- * Exported types-    AuthDomainDigest(..)                    ,-    AuthDomainDigestK                       ,-    toAuthDomainDigest                      ,-    noAuthDomainDigest                      ,--- -- * Methods--- ** authDomainDigestEncodePassword-    authDomainDigestEncodePassword          ,----- -- * Properties--- ** AuthCallback-    AuthDomainDigestAuthCallbackPropertyInfo,-    authDomainDigestAuthCallback            ,-    constructAuthDomainDigestAuthCallback   ,-    getAuthDomainDigestAuthCallback         ,-    setAuthDomainDigestAuthCallback         ,----- ** AuthData-    AuthDomainDigestAuthDataPropertyInfo    ,-    authDomainDigestAuthData                ,-    constructAuthDomainDigestAuthData       ,-    getAuthDomainDigestAuthData             ,-    setAuthDomainDigestAuthData             ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GObject as GObject--newtype AuthDomainDigest = AuthDomainDigest (ForeignPtr AuthDomainDigest)-foreign import ccall "soup_auth_domain_digest_get_type"-    c_soup_auth_domain_digest_get_type :: IO GType--type instance ParentTypes AuthDomainDigest = AuthDomainDigestParentTypes-type AuthDomainDigestParentTypes = '[AuthDomain, GObject.Object]--instance GObject AuthDomainDigest where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_auth_domain_digest_get_type-    --class GObject o => AuthDomainDigestK o-instance (GObject o, IsDescendantOf AuthDomainDigest o) => AuthDomainDigestK o--toAuthDomainDigest :: AuthDomainDigestK o => o -> IO AuthDomainDigest-toAuthDomainDigest = unsafeCastTo AuthDomainDigest--noAuthDomainDigest :: Maybe AuthDomainDigest-noAuthDomainDigest = Nothing--type family ResolveAuthDomainDigestMethod (t :: Symbol) (o :: *) :: * where-    ResolveAuthDomainDigestMethod "accepts" o = AuthDomainAcceptsMethodInfo-    ResolveAuthDomainDigestMethod "addPath" o = AuthDomainAddPathMethodInfo-    ResolveAuthDomainDigestMethod "basicSetAuthCallback" o = AuthDomainBasicSetAuthCallbackMethodInfo-    ResolveAuthDomainDigestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveAuthDomainDigestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveAuthDomainDigestMethod "challenge" o = AuthDomainChallengeMethodInfo-    ResolveAuthDomainDigestMethod "checkPassword" o = AuthDomainCheckPasswordMethodInfo-    ResolveAuthDomainDigestMethod "covers" o = AuthDomainCoversMethodInfo-    ResolveAuthDomainDigestMethod "digestSetAuthCallback" o = AuthDomainDigestSetAuthCallbackMethodInfo-    ResolveAuthDomainDigestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveAuthDomainDigestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveAuthDomainDigestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveAuthDomainDigestMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveAuthDomainDigestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveAuthDomainDigestMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveAuthDomainDigestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveAuthDomainDigestMethod "removePath" o = AuthDomainRemovePathMethodInfo-    ResolveAuthDomainDigestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveAuthDomainDigestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveAuthDomainDigestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveAuthDomainDigestMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveAuthDomainDigestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveAuthDomainDigestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveAuthDomainDigestMethod "tryGenericAuthCallback" o = AuthDomainTryGenericAuthCallbackMethodInfo-    ResolveAuthDomainDigestMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveAuthDomainDigestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveAuthDomainDigestMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveAuthDomainDigestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveAuthDomainDigestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveAuthDomainDigestMethod "getRealm" o = AuthDomainGetRealmMethodInfo-    ResolveAuthDomainDigestMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveAuthDomainDigestMethod "setFilter" o = AuthDomainSetFilterMethodInfo-    ResolveAuthDomainDigestMethod "setGenericAuthCallback" o = AuthDomainSetGenericAuthCallbackMethodInfo-    ResolveAuthDomainDigestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveAuthDomainDigestMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAuthDomainDigestMethod t AuthDomainDigest, MethodInfo info AuthDomainDigest p) => IsLabelProxy t (AuthDomainDigest -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAuthDomainDigestMethod t AuthDomainDigest, MethodInfo info AuthDomainDigest p) => IsLabel t (AuthDomainDigest -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "auth-callback"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getAuthDomainDigestAuthCallback :: (MonadIO m, AuthDomainDigestK o) => o -> m (Ptr ())-getAuthDomainDigestAuthCallback obj = liftIO $ getObjectPropertyPtr obj "auth-callback"--setAuthDomainDigestAuthCallback :: (MonadIO m, AuthDomainDigestK o) => o -> Ptr () -> m ()-setAuthDomainDigestAuthCallback obj val = liftIO $ setObjectPropertyPtr obj "auth-callback" val--constructAuthDomainDigestAuthCallback :: Ptr () -> IO ([Char], GValue)-constructAuthDomainDigestAuthCallback val = constructObjectPropertyPtr "auth-callback" val--data AuthDomainDigestAuthCallbackPropertyInfo-instance AttrInfo AuthDomainDigestAuthCallbackPropertyInfo where-    type AttrAllowedOps AuthDomainDigestAuthCallbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AuthDomainDigestAuthCallbackPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint AuthDomainDigestAuthCallbackPropertyInfo = AuthDomainDigestK-    type AttrGetType AuthDomainDigestAuthCallbackPropertyInfo = (Ptr ())-    type AttrLabel AuthDomainDigestAuthCallbackPropertyInfo = "auth-callback"-    attrGet _ = getAuthDomainDigestAuthCallback-    attrSet _ = setAuthDomainDigestAuthCallback-    attrConstruct _ = constructAuthDomainDigestAuthCallback-    attrClear _ = undefined---- VVV Prop "auth-data"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getAuthDomainDigestAuthData :: (MonadIO m, AuthDomainDigestK o) => o -> m (Ptr ())-getAuthDomainDigestAuthData obj = liftIO $ getObjectPropertyPtr obj "auth-data"--setAuthDomainDigestAuthData :: (MonadIO m, AuthDomainDigestK o) => o -> Ptr () -> m ()-setAuthDomainDigestAuthData obj val = liftIO $ setObjectPropertyPtr obj "auth-data" val--constructAuthDomainDigestAuthData :: Ptr () -> IO ([Char], GValue)-constructAuthDomainDigestAuthData val = constructObjectPropertyPtr "auth-data" val--data AuthDomainDigestAuthDataPropertyInfo-instance AttrInfo AuthDomainDigestAuthDataPropertyInfo where-    type AttrAllowedOps AuthDomainDigestAuthDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AuthDomainDigestAuthDataPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint AuthDomainDigestAuthDataPropertyInfo = AuthDomainDigestK-    type AttrGetType AuthDomainDigestAuthDataPropertyInfo = (Ptr ())-    type AttrLabel AuthDomainDigestAuthDataPropertyInfo = "auth-data"-    attrGet _ = getAuthDomainDigestAuthData-    attrSet _ = setAuthDomainDigestAuthData-    attrConstruct _ = constructAuthDomainDigestAuthData-    attrClear _ = undefined--type instance AttributeList AuthDomainDigest = AuthDomainDigestAttributeList-type AuthDomainDigestAttributeList = ('[ '("addPath", AuthDomainAddPathPropertyInfo), '("authCallback", AuthDomainDigestAuthCallbackPropertyInfo), '("authData", AuthDomainDigestAuthDataPropertyInfo), '("filter", AuthDomainFilterPropertyInfo), '("filterData", AuthDomainFilterDataPropertyInfo), '("genericAuthCallback", AuthDomainGenericAuthCallbackPropertyInfo), '("genericAuthData", AuthDomainGenericAuthDataPropertyInfo), '("proxy", AuthDomainProxyPropertyInfo), '("realm", AuthDomainRealmPropertyInfo), '("removePath", AuthDomainRemovePathPropertyInfo)] :: [(Symbol, *)])--authDomainDigestAuthCallback :: AttrLabelProxy "authCallback"-authDomainDigestAuthCallback = AttrLabelProxy--authDomainDigestAuthData :: AttrLabelProxy "authData"-authDomainDigestAuthData = AttrLabelProxy--type instance SignalList AuthDomainDigest = AuthDomainDigestSignalList-type AuthDomainDigestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method AuthDomainDigest::encode_password--- method type : MemberFunction--- Args : [Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "realm", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_auth_domain_digest_encode_password" soup_auth_domain_digest_encode_password :: -    CString ->                              -- username : TBasicType TUTF8-    CString ->                              -- realm : TBasicType TUTF8-    CString ->                              -- password : TBasicType TUTF8-    IO CString---authDomainDigestEncodePassword ::-    (MonadIO m) =>-    T.Text                                  -- username-    -> T.Text                               -- realm-    -> T.Text                               -- password-    -> m T.Text                             -- result-authDomainDigestEncodePassword username realm password = liftIO $ do-    username' <- textToCString username-    realm' <- textToCString realm-    password' <- textToCString password-    result <- soup_auth_domain_digest_encode_password username' realm' password'-    checkUnexpectedReturnNULL "soup_auth_domain_digest_encode_password" result-    result' <- cstringToText result-    freeMem result-    freeMem username'-    freeMem realm'-    freeMem password'-    return result'--
− GI/Soup/Objects/AuthDomainDigest.hs-boot 
@@ -1,15 +0,0 @@-module GI.Soup.Objects.AuthDomainDigest where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AuthDomainDigest = AuthDomainDigest (ForeignPtr AuthDomainDigest)-instance GObject AuthDomainDigest where-class GObject o => AuthDomainDigestK o-instance (GObject o, IsDescendantOf AuthDomainDigest o) => AuthDomainDigestK o-data AuthDomainDigestAuthCallbackPropertyInfo-data AuthDomainDigestAuthDataPropertyInfo
− GI/Soup/Objects/AuthManager.hs 
@@ -1,211 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Objects.AuthManager-    ( ---- * Exported types-    AuthManager(..)                         ,-    AuthManagerK                            ,-    toAuthManager                           ,-    noAuthManager                           ,--- -- * Methods--- ** authManagerUseAuth-    AuthManagerUseAuthMethodInfo            ,-    authManagerUseAuth                      ,----- -- * Signals--- ** Authenticate-    AuthManagerAuthenticateCallback         ,-    AuthManagerAuthenticateCallbackC        ,-    AuthManagerAuthenticateSignalInfo       ,-    afterAuthManagerAuthenticate            ,-    authManagerAuthenticateCallbackWrapper  ,-    authManagerAuthenticateClosure          ,-    mkAuthManagerAuthenticateCallback       ,-    noAuthManagerAuthenticateCallback       ,-    onAuthManagerAuthenticate               ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GObject as GObject--newtype AuthManager = AuthManager (ForeignPtr AuthManager)-foreign import ccall "soup_auth_manager_get_type"-    c_soup_auth_manager_get_type :: IO GType--type instance ParentTypes AuthManager = AuthManagerParentTypes-type AuthManagerParentTypes = '[GObject.Object, SessionFeature]--instance GObject AuthManager where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_auth_manager_get_type-    --class GObject o => AuthManagerK o-instance (GObject o, IsDescendantOf AuthManager o) => AuthManagerK o--toAuthManager :: AuthManagerK o => o -> IO AuthManager-toAuthManager = unsafeCastTo AuthManager--noAuthManager :: Maybe AuthManager-noAuthManager = Nothing--type family ResolveAuthManagerMethod (t :: Symbol) (o :: *) :: * where-    ResolveAuthManagerMethod "addFeature" o = SessionFeatureAddFeatureMethodInfo-    ResolveAuthManagerMethod "attach" o = SessionFeatureAttachMethodInfo-    ResolveAuthManagerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveAuthManagerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveAuthManagerMethod "detach" o = SessionFeatureDetachMethodInfo-    ResolveAuthManagerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveAuthManagerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveAuthManagerMethod "hasFeature" o = SessionFeatureHasFeatureMethodInfo-    ResolveAuthManagerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveAuthManagerMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveAuthManagerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveAuthManagerMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveAuthManagerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveAuthManagerMethod "removeFeature" o = SessionFeatureRemoveFeatureMethodInfo-    ResolveAuthManagerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveAuthManagerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveAuthManagerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveAuthManagerMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveAuthManagerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveAuthManagerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveAuthManagerMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveAuthManagerMethod "useAuth" o = AuthManagerUseAuthMethodInfo-    ResolveAuthManagerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveAuthManagerMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveAuthManagerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveAuthManagerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveAuthManagerMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveAuthManagerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveAuthManagerMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAuthManagerMethod t AuthManager, MethodInfo info AuthManager p) => IsLabelProxy t (AuthManager -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAuthManagerMethod t AuthManager, MethodInfo info AuthManager p) => IsLabel t (AuthManager -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal AuthManager::authenticate-type AuthManagerAuthenticateCallback =-    Message ->-    Auth ->-    Bool ->-    IO ()--noAuthManagerAuthenticateCallback :: Maybe AuthManagerAuthenticateCallback-noAuthManagerAuthenticateCallback = Nothing--type AuthManagerAuthenticateCallbackC =-    Ptr () ->                               -- object-    Ptr Message ->-    Ptr Auth ->-    CInt ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkAuthManagerAuthenticateCallback :: AuthManagerAuthenticateCallbackC -> IO (FunPtr AuthManagerAuthenticateCallbackC)--authManagerAuthenticateClosure :: AuthManagerAuthenticateCallback -> IO Closure-authManagerAuthenticateClosure cb = newCClosure =<< mkAuthManagerAuthenticateCallback wrapped-    where wrapped = authManagerAuthenticateCallbackWrapper cb--authManagerAuthenticateCallbackWrapper ::-    AuthManagerAuthenticateCallback ->-    Ptr () ->-    Ptr Message ->-    Ptr Auth ->-    CInt ->-    Ptr () ->-    IO ()-authManagerAuthenticateCallbackWrapper _cb _ msg auth retrying _ = do-    msg' <- (newObject Message) msg-    auth' <- (newObject Auth) auth-    let retrying' = (/= 0) retrying-    _cb  msg' auth' retrying'--onAuthManagerAuthenticate :: (GObject a, MonadIO m) => a -> AuthManagerAuthenticateCallback -> m SignalHandlerId-onAuthManagerAuthenticate obj cb = liftIO $ connectAuthManagerAuthenticate obj cb SignalConnectBefore-afterAuthManagerAuthenticate :: (GObject a, MonadIO m) => a -> AuthManagerAuthenticateCallback -> m SignalHandlerId-afterAuthManagerAuthenticate obj cb = connectAuthManagerAuthenticate obj cb SignalConnectAfter--connectAuthManagerAuthenticate :: (GObject a, MonadIO m) =>-                                  a -> AuthManagerAuthenticateCallback -> SignalConnectMode -> m SignalHandlerId-connectAuthManagerAuthenticate obj cb after = liftIO $ do-    cb' <- mkAuthManagerAuthenticateCallback (authManagerAuthenticateCallbackWrapper cb)-    connectSignalFunPtr obj "authenticate" cb' after--type instance AttributeList AuthManager = AuthManagerAttributeList-type AuthManagerAttributeList = ('[ ] :: [(Symbol, *)])--data AuthManagerAuthenticateSignalInfo-instance SignalInfo AuthManagerAuthenticateSignalInfo where-    type HaskellCallbackType AuthManagerAuthenticateSignalInfo = AuthManagerAuthenticateCallback-    connectSignal _ = connectAuthManagerAuthenticate--type instance SignalList AuthManager = AuthManagerSignalList-type AuthManagerSignalList = ('[ '("authenticate", AuthManagerAuthenticateSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method AuthManager::use_auth--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "AuthManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth", argType = TInterface "Soup" "Auth", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_auth_manager_use_auth" soup_auth_manager_use_auth :: -    Ptr AuthManager ->                      -- _obj : TInterface "Soup" "AuthManager"-    Ptr URI ->                              -- uri : TInterface "Soup" "URI"-    Ptr Auth ->                             -- auth : TInterface "Soup" "Auth"-    IO ()---authManagerUseAuth ::-    (MonadIO m, AuthManagerK a, AuthK b) =>-    a                                       -- _obj-    -> URI                                  -- uri-    -> b                                    -- auth-    -> m ()                                 -- result-authManagerUseAuth _obj uri auth = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let uri' = unsafeManagedPtrGetPtr uri-    let auth' = unsafeManagedPtrCastPtr auth-    soup_auth_manager_use_auth _obj' uri' auth'-    touchManagedPtr _obj-    touchManagedPtr uri-    touchManagedPtr auth-    return ()--data AuthManagerUseAuthMethodInfo-instance (signature ~ (URI -> b -> m ()), MonadIO m, AuthManagerK a, AuthK b) => MethodInfo AuthManagerUseAuthMethodInfo a signature where-    overloadedMethod _ = authManagerUseAuth--
− GI/Soup/Objects/AuthManager.hs-boot 
@@ -1,15 +0,0 @@-module GI.Soup.Objects.AuthManager where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AuthManager = AuthManager (ForeignPtr AuthManager)-instance GObject AuthManager where-class GObject o => AuthManagerK o-instance (GObject o, IsDescendantOf AuthManager o) => AuthManagerK o-data AuthManagerAuthenticateSignalInfo-data AuthManagerUseAuthMethodInfo
− GI/Soup/Objects/AuthNTLM.hs 
@@ -1,107 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Objects.AuthNTLM-    ( ---- * Exported types-    AuthNTLM(..)                            ,-    AuthNTLMK                               ,-    toAuthNTLM                              ,-    noAuthNTLM                              ,---    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GObject as GObject--newtype AuthNTLM = AuthNTLM (ForeignPtr AuthNTLM)-foreign import ccall "soup_auth_ntlm_get_type"-    c_soup_auth_ntlm_get_type :: IO GType--type instance ParentTypes AuthNTLM = AuthNTLMParentTypes-type AuthNTLMParentTypes = '[Auth, GObject.Object]--instance GObject AuthNTLM where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_auth_ntlm_get_type-    --class GObject o => AuthNTLMK o-instance (GObject o, IsDescendantOf AuthNTLM o) => AuthNTLMK o--toAuthNTLM :: AuthNTLMK o => o -> IO AuthNTLM-toAuthNTLM = unsafeCastTo AuthNTLM--noAuthNTLM :: Maybe AuthNTLM-noAuthNTLM = Nothing--type family ResolveAuthNTLMMethod (t :: Symbol) (o :: *) :: * where-    ResolveAuthNTLMMethod "authenticate" o = AuthAuthenticateMethodInfo-    ResolveAuthNTLMMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveAuthNTLMMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveAuthNTLMMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveAuthNTLMMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveAuthNTLMMethod "hasSavedPassword" o = AuthHasSavedPasswordMethodInfo-    ResolveAuthNTLMMethod "isAuthenticated" o = AuthIsAuthenticatedMethodInfo-    ResolveAuthNTLMMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveAuthNTLMMethod "isForProxy" o = AuthIsForProxyMethodInfo-    ResolveAuthNTLMMethod "isReady" o = AuthIsReadyMethodInfo-    ResolveAuthNTLMMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveAuthNTLMMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveAuthNTLMMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveAuthNTLMMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveAuthNTLMMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveAuthNTLMMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveAuthNTLMMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveAuthNTLMMethod "savePassword" o = AuthSavePasswordMethodInfo-    ResolveAuthNTLMMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveAuthNTLMMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveAuthNTLMMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveAuthNTLMMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveAuthNTLMMethod "update" o = AuthUpdateMethodInfo-    ResolveAuthNTLMMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveAuthNTLMMethod "getAuthorization" o = AuthGetAuthorizationMethodInfo-    ResolveAuthNTLMMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveAuthNTLMMethod "getHost" o = AuthGetHostMethodInfo-    ResolveAuthNTLMMethod "getInfo" o = AuthGetInfoMethodInfo-    ResolveAuthNTLMMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveAuthNTLMMethod "getProtectionSpace" o = AuthGetProtectionSpaceMethodInfo-    ResolveAuthNTLMMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveAuthNTLMMethod "getRealm" o = AuthGetRealmMethodInfo-    ResolveAuthNTLMMethod "getSavedPassword" o = AuthGetSavedPasswordMethodInfo-    ResolveAuthNTLMMethod "getSavedUsers" o = AuthGetSavedUsersMethodInfo-    ResolveAuthNTLMMethod "getSchemeName" o = AuthGetSchemeNameMethodInfo-    ResolveAuthNTLMMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveAuthNTLMMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveAuthNTLMMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAuthNTLMMethod t AuthNTLM, MethodInfo info AuthNTLM p) => IsLabelProxy t (AuthNTLM -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAuthNTLMMethod t AuthNTLM, MethodInfo info AuthNTLM p) => IsLabel t (AuthNTLM -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList AuthNTLM = AuthNTLMAttributeList-type AuthNTLMAttributeList = ('[ '("host", AuthHostPropertyInfo), '("isAuthenticated", AuthIsAuthenticatedPropertyInfo), '("isForProxy", AuthIsForProxyPropertyInfo), '("realm", AuthRealmPropertyInfo), '("schemeName", AuthSchemeNamePropertyInfo)] :: [(Symbol, *)])--type instance SignalList AuthNTLM = AuthNTLMSignalList-type AuthNTLMSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--
− GI/Soup/Objects/AuthNTLM.hs-boot 
@@ -1,13 +0,0 @@-module GI.Soup.Objects.AuthNTLM where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AuthNTLM = AuthNTLM (ForeignPtr AuthNTLM)-instance GObject AuthNTLM where-class GObject o => AuthNTLMK o-instance (GObject o, IsDescendantOf AuthNTLM o) => AuthNTLMK o
− GI/Soup/Objects/Cache.hs 
@@ -1,401 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Objects.Cache-    ( ---- * Exported types-    Cache(..)                               ,-    CacheK                                  ,-    toCache                                 ,-    noCache                                 ,--- -- * Methods--- ** cacheClear-    CacheClearMethodInfo                    ,-    cacheClear                              ,----- ** cacheDump-    CacheDumpMethodInfo                     ,-    cacheDump                               ,----- ** cacheFlush-    CacheFlushMethodInfo                    ,-    cacheFlush                              ,----- ** cacheGetMaxSize-    CacheGetMaxSizeMethodInfo               ,-    cacheGetMaxSize                         ,----- ** cacheLoad-    CacheLoadMethodInfo                     ,-    cacheLoad                               ,----- ** cacheNew-    cacheNew                                ,----- ** cacheSetMaxSize-    CacheSetMaxSizeMethodInfo               ,-    cacheSetMaxSize                         ,----- -- * Properties--- ** CacheDir-    CacheCacheDirPropertyInfo               ,-    cacheCacheDir                           ,-    constructCacheCacheDir                  ,-    getCacheCacheDir                        ,----- ** CacheType-    CacheCacheTypePropertyInfo              ,-    cacheCacheType                          ,-    constructCacheCacheType                 ,-    getCacheCacheType                       ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GObject as GObject--newtype Cache = Cache (ForeignPtr Cache)-foreign import ccall "soup_cache_get_type"-    c_soup_cache_get_type :: IO GType--type instance ParentTypes Cache = CacheParentTypes-type CacheParentTypes = '[GObject.Object, SessionFeature]--instance GObject Cache where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_cache_get_type-    --class GObject o => CacheK o-instance (GObject o, IsDescendantOf Cache o) => CacheK o--toCache :: CacheK o => o -> IO Cache-toCache = unsafeCastTo Cache--noCache :: Maybe Cache-noCache = Nothing--type family ResolveCacheMethod (t :: Symbol) (o :: *) :: * where-    ResolveCacheMethod "addFeature" o = SessionFeatureAddFeatureMethodInfo-    ResolveCacheMethod "attach" o = SessionFeatureAttachMethodInfo-    ResolveCacheMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveCacheMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveCacheMethod "clear" o = CacheClearMethodInfo-    ResolveCacheMethod "detach" o = SessionFeatureDetachMethodInfo-    ResolveCacheMethod "dump" o = CacheDumpMethodInfo-    ResolveCacheMethod "flush" o = CacheFlushMethodInfo-    ResolveCacheMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveCacheMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveCacheMethod "hasFeature" o = SessionFeatureHasFeatureMethodInfo-    ResolveCacheMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveCacheMethod "load" o = CacheLoadMethodInfo-    ResolveCacheMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveCacheMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveCacheMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveCacheMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveCacheMethod "removeFeature" o = SessionFeatureRemoveFeatureMethodInfo-    ResolveCacheMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveCacheMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveCacheMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveCacheMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveCacheMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveCacheMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveCacheMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveCacheMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveCacheMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveCacheMethod "getMaxSize" o = CacheGetMaxSizeMethodInfo-    ResolveCacheMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveCacheMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveCacheMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveCacheMethod "setMaxSize" o = CacheSetMaxSizeMethodInfo-    ResolveCacheMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveCacheMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveCacheMethod t Cache, MethodInfo info Cache p) => IsLabelProxy t (Cache -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveCacheMethod t Cache, MethodInfo info Cache p) => IsLabel t (Cache -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "cache-dir"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getCacheCacheDir :: (MonadIO m, CacheK o) => o -> m (Maybe T.Text)-getCacheCacheDir obj = liftIO $ getObjectPropertyString obj "cache-dir"--constructCacheCacheDir :: T.Text -> IO ([Char], GValue)-constructCacheCacheDir val = constructObjectPropertyString "cache-dir" (Just val)--data CacheCacheDirPropertyInfo-instance AttrInfo CacheCacheDirPropertyInfo where-    type AttrAllowedOps CacheCacheDirPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint CacheCacheDirPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint CacheCacheDirPropertyInfo = CacheK-    type AttrGetType CacheCacheDirPropertyInfo = (Maybe T.Text)-    type AttrLabel CacheCacheDirPropertyInfo = "cache-dir"-    attrGet _ = getCacheCacheDir-    attrSet _ = undefined-    attrConstruct _ = constructCacheCacheDir-    attrClear _ = undefined---- VVV Prop "cache-type"-   -- Type: TInterface "Soup" "CacheType"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getCacheCacheType :: (MonadIO m, CacheK o) => o -> m CacheType-getCacheCacheType obj = liftIO $ getObjectPropertyEnum obj "cache-type"--constructCacheCacheType :: CacheType -> IO ([Char], GValue)-constructCacheCacheType val = constructObjectPropertyEnum "cache-type" val--data CacheCacheTypePropertyInfo-instance AttrInfo CacheCacheTypePropertyInfo where-    type AttrAllowedOps CacheCacheTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint CacheCacheTypePropertyInfo = (~) CacheType-    type AttrBaseTypeConstraint CacheCacheTypePropertyInfo = CacheK-    type AttrGetType CacheCacheTypePropertyInfo = CacheType-    type AttrLabel CacheCacheTypePropertyInfo = "cache-type"-    attrGet _ = getCacheCacheType-    attrSet _ = undefined-    attrConstruct _ = constructCacheCacheType-    attrClear _ = undefined--type instance AttributeList Cache = CacheAttributeList-type CacheAttributeList = ('[ '("cacheDir", CacheCacheDirPropertyInfo), '("cacheType", CacheCacheTypePropertyInfo)] :: [(Symbol, *)])--cacheCacheDir :: AttrLabelProxy "cacheDir"-cacheCacheDir = AttrLabelProxy--cacheCacheType :: AttrLabelProxy "cacheType"-cacheCacheType = AttrLabelProxy--type instance SignalList Cache = CacheSignalList-type CacheSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Cache::new--- method type : Constructor--- Args : [Arg {argCName = "cache_dir", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cache_type", argType = TInterface "Soup" "CacheType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Cache")--- throws : False--- Skip return : False--foreign import ccall "soup_cache_new" soup_cache_new :: -    CString ->                              -- cache_dir : TBasicType TUTF8-    CUInt ->                                -- cache_type : TInterface "Soup" "CacheType"-    IO (Ptr Cache)---cacheNew ::-    (MonadIO m) =>-    T.Text                                  -- cacheDir-    -> CacheType                            -- cacheType-    -> m Cache                              -- result-cacheNew cacheDir cacheType = liftIO $ do-    cacheDir' <- textToCString cacheDir-    let cacheType' = (fromIntegral . fromEnum) cacheType-    result <- soup_cache_new cacheDir' cacheType'-    checkUnexpectedReturnNULL "soup_cache_new" result-    result' <- (wrapObject Cache) result-    freeMem cacheDir'-    return result'---- method Cache::clear--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_cache_clear" soup_cache_clear :: -    Ptr Cache ->                            -- _obj : TInterface "Soup" "Cache"-    IO ()---cacheClear ::-    (MonadIO m, CacheK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-cacheClear _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_cache_clear _obj'-    touchManagedPtr _obj-    return ()--data CacheClearMethodInfo-instance (signature ~ (m ()), MonadIO m, CacheK a) => MethodInfo CacheClearMethodInfo a signature where-    overloadedMethod _ = cacheClear---- method Cache::dump--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_cache_dump" soup_cache_dump :: -    Ptr Cache ->                            -- _obj : TInterface "Soup" "Cache"-    IO ()---cacheDump ::-    (MonadIO m, CacheK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-cacheDump _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_cache_dump _obj'-    touchManagedPtr _obj-    return ()--data CacheDumpMethodInfo-instance (signature ~ (m ()), MonadIO m, CacheK a) => MethodInfo CacheDumpMethodInfo a signature where-    overloadedMethod _ = cacheDump---- method Cache::flush--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_cache_flush" soup_cache_flush :: -    Ptr Cache ->                            -- _obj : TInterface "Soup" "Cache"-    IO ()---cacheFlush ::-    (MonadIO m, CacheK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-cacheFlush _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_cache_flush _obj'-    touchManagedPtr _obj-    return ()--data CacheFlushMethodInfo-instance (signature ~ (m ()), MonadIO m, CacheK a) => MethodInfo CacheFlushMethodInfo a signature where-    overloadedMethod _ = cacheFlush---- method Cache::get_max_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "soup_cache_get_max_size" soup_cache_get_max_size :: -    Ptr Cache ->                            -- _obj : TInterface "Soup" "Cache"-    IO Word32---cacheGetMaxSize ::-    (MonadIO m, CacheK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-cacheGetMaxSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_cache_get_max_size _obj'-    touchManagedPtr _obj-    return result--data CacheGetMaxSizeMethodInfo-instance (signature ~ (m Word32), MonadIO m, CacheK a) => MethodInfo CacheGetMaxSizeMethodInfo a signature where-    overloadedMethod _ = cacheGetMaxSize---- method Cache::load--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_cache_load" soup_cache_load :: -    Ptr Cache ->                            -- _obj : TInterface "Soup" "Cache"-    IO ()---cacheLoad ::-    (MonadIO m, CacheK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-cacheLoad _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_cache_load _obj'-    touchManagedPtr _obj-    return ()--data CacheLoadMethodInfo-instance (signature ~ (m ()), MonadIO m, CacheK a) => MethodInfo CacheLoadMethodInfo a signature where-    overloadedMethod _ = cacheLoad---- method Cache::set_max_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cache", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_size", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_cache_set_max_size" soup_cache_set_max_size :: -    Ptr Cache ->                            -- _obj : TInterface "Soup" "Cache"-    Word32 ->                               -- max_size : TBasicType TUInt-    IO ()---cacheSetMaxSize ::-    (MonadIO m, CacheK a) =>-    a                                       -- _obj-    -> Word32                               -- maxSize-    -> m ()                                 -- result-cacheSetMaxSize _obj maxSize = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_cache_set_max_size _obj' maxSize-    touchManagedPtr _obj-    return ()--data CacheSetMaxSizeMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, CacheK a) => MethodInfo CacheSetMaxSizeMethodInfo a signature where-    overloadedMethod _ = cacheSetMaxSize--
− GI/Soup/Objects/Cache.hs-boot 
@@ -1,21 +0,0 @@-module GI.Soup.Objects.Cache where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Cache = Cache (ForeignPtr Cache)-instance GObject Cache where-class GObject o => CacheK o-instance (GObject o, IsDescendantOf Cache o) => CacheK o-data CacheCacheDirPropertyInfo-data CacheCacheTypePropertyInfo-data CacheClearMethodInfo-data CacheDumpMethodInfo-data CacheFlushMethodInfo-data CacheGetMaxSizeMethodInfo-data CacheLoadMethodInfo-data CacheSetMaxSizeMethodInfo
− GI/Soup/Objects/ContentDecoder.hs 
@@ -1,97 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Objects.ContentDecoder-    ( ---- * Exported types-    ContentDecoder(..)                      ,-    ContentDecoderK                         ,-    toContentDecoder                        ,-    noContentDecoder                        ,---    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GObject as GObject--newtype ContentDecoder = ContentDecoder (ForeignPtr ContentDecoder)-foreign import ccall "soup_content_decoder_get_type"-    c_soup_content_decoder_get_type :: IO GType--type instance ParentTypes ContentDecoder = ContentDecoderParentTypes-type ContentDecoderParentTypes = '[GObject.Object, SessionFeature]--instance GObject ContentDecoder where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_content_decoder_get_type-    --class GObject o => ContentDecoderK o-instance (GObject o, IsDescendantOf ContentDecoder o) => ContentDecoderK o--toContentDecoder :: ContentDecoderK o => o -> IO ContentDecoder-toContentDecoder = unsafeCastTo ContentDecoder--noContentDecoder :: Maybe ContentDecoder-noContentDecoder = Nothing--type family ResolveContentDecoderMethod (t :: Symbol) (o :: *) :: * where-    ResolveContentDecoderMethod "addFeature" o = SessionFeatureAddFeatureMethodInfo-    ResolveContentDecoderMethod "attach" o = SessionFeatureAttachMethodInfo-    ResolveContentDecoderMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveContentDecoderMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveContentDecoderMethod "detach" o = SessionFeatureDetachMethodInfo-    ResolveContentDecoderMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveContentDecoderMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveContentDecoderMethod "hasFeature" o = SessionFeatureHasFeatureMethodInfo-    ResolveContentDecoderMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveContentDecoderMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveContentDecoderMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveContentDecoderMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveContentDecoderMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveContentDecoderMethod "removeFeature" o = SessionFeatureRemoveFeatureMethodInfo-    ResolveContentDecoderMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveContentDecoderMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveContentDecoderMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveContentDecoderMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveContentDecoderMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveContentDecoderMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveContentDecoderMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveContentDecoderMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveContentDecoderMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveContentDecoderMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveContentDecoderMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveContentDecoderMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveContentDecoderMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveContentDecoderMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveContentDecoderMethod t ContentDecoder, MethodInfo info ContentDecoder p) => IsLabelProxy t (ContentDecoder -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveContentDecoderMethod t ContentDecoder, MethodInfo info ContentDecoder p) => IsLabel t (ContentDecoder -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList ContentDecoder = ContentDecoderAttributeList-type ContentDecoderAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList ContentDecoder = ContentDecoderSignalList-type ContentDecoderSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--
− GI/Soup/Objects/ContentDecoder.hs-boot 
@@ -1,13 +0,0 @@-module GI.Soup.Objects.ContentDecoder where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ContentDecoder = ContentDecoder (ForeignPtr ContentDecoder)-instance GObject ContentDecoder where-class GObject o => ContentDecoderK o-instance (GObject o, IsDescendantOf ContentDecoder o) => ContentDecoderK o
− GI/Soup/Objects/ContentSniffer.hs 
@@ -1,213 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Objects.ContentSniffer-    ( ---- * Exported types-    ContentSniffer(..)                      ,-    ContentSnifferK                         ,-    toContentSniffer                        ,-    noContentSniffer                        ,--- -- * Methods--- ** contentSnifferGetBufferSize-    ContentSnifferGetBufferSizeMethodInfo   ,-    contentSnifferGetBufferSize             ,----- ** contentSnifferNew-    contentSnifferNew                       ,----- ** contentSnifferSniff-    ContentSnifferSniffMethodInfo           ,-    contentSnifferSniff                     ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GObject as GObject--newtype ContentSniffer = ContentSniffer (ForeignPtr ContentSniffer)-foreign import ccall "soup_content_sniffer_get_type"-    c_soup_content_sniffer_get_type :: IO GType--type instance ParentTypes ContentSniffer = ContentSnifferParentTypes-type ContentSnifferParentTypes = '[GObject.Object, SessionFeature]--instance GObject ContentSniffer where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_content_sniffer_get_type-    --class GObject o => ContentSnifferK o-instance (GObject o, IsDescendantOf ContentSniffer o) => ContentSnifferK o--toContentSniffer :: ContentSnifferK o => o -> IO ContentSniffer-toContentSniffer = unsafeCastTo ContentSniffer--noContentSniffer :: Maybe ContentSniffer-noContentSniffer = Nothing--type family ResolveContentSnifferMethod (t :: Symbol) (o :: *) :: * where-    ResolveContentSnifferMethod "addFeature" o = SessionFeatureAddFeatureMethodInfo-    ResolveContentSnifferMethod "attach" o = SessionFeatureAttachMethodInfo-    ResolveContentSnifferMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveContentSnifferMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveContentSnifferMethod "detach" o = SessionFeatureDetachMethodInfo-    ResolveContentSnifferMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveContentSnifferMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveContentSnifferMethod "hasFeature" o = SessionFeatureHasFeatureMethodInfo-    ResolveContentSnifferMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveContentSnifferMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveContentSnifferMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveContentSnifferMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveContentSnifferMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveContentSnifferMethod "removeFeature" o = SessionFeatureRemoveFeatureMethodInfo-    ResolveContentSnifferMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveContentSnifferMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveContentSnifferMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveContentSnifferMethod "sniff" o = ContentSnifferSniffMethodInfo-    ResolveContentSnifferMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveContentSnifferMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveContentSnifferMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveContentSnifferMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveContentSnifferMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveContentSnifferMethod "getBufferSize" o = ContentSnifferGetBufferSizeMethodInfo-    ResolveContentSnifferMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveContentSnifferMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveContentSnifferMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveContentSnifferMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveContentSnifferMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveContentSnifferMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveContentSnifferMethod t ContentSniffer, MethodInfo info ContentSniffer p) => IsLabelProxy t (ContentSniffer -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveContentSnifferMethod t ContentSniffer, MethodInfo info ContentSniffer p) => IsLabel t (ContentSniffer -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList ContentSniffer = ContentSnifferAttributeList-type ContentSnifferAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList ContentSniffer = ContentSnifferSignalList-type ContentSnifferSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method ContentSniffer::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Soup" "ContentSniffer")--- throws : False--- Skip return : False--foreign import ccall "soup_content_sniffer_new" soup_content_sniffer_new :: -    IO (Ptr ContentSniffer)---contentSnifferNew ::-    (MonadIO m) =>-    m ContentSniffer                        -- result-contentSnifferNew  = liftIO $ do-    result <- soup_content_sniffer_new-    checkUnexpectedReturnNULL "soup_content_sniffer_new" result-    result' <- (wrapObject ContentSniffer) result-    return result'---- method ContentSniffer::get_buffer_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "ContentSniffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt64)--- throws : False--- Skip return : False--foreign import ccall "soup_content_sniffer_get_buffer_size" soup_content_sniffer_get_buffer_size :: -    Ptr ContentSniffer ->                   -- _obj : TInterface "Soup" "ContentSniffer"-    IO Word64---contentSnifferGetBufferSize ::-    (MonadIO m, ContentSnifferK a) =>-    a                                       -- _obj-    -> m Word64                             -- result-contentSnifferGetBufferSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_content_sniffer_get_buffer_size _obj'-    touchManagedPtr _obj-    return result--data ContentSnifferGetBufferSizeMethodInfo-instance (signature ~ (m Word64), MonadIO m, ContentSnifferK a) => MethodInfo ContentSnifferGetBufferSizeMethodInfo a signature where-    overloadedMethod _ = contentSnifferGetBufferSize---- method ContentSniffer::sniff--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "ContentSniffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_content_sniffer_sniff" soup_content_sniffer_sniff :: -    Ptr ContentSniffer ->                   -- _obj : TInterface "Soup" "ContentSniffer"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    Ptr Buffer ->                           -- buffer : TInterface "Soup" "Buffer"-    Ptr (Ptr (GHashTable CString CString)) -> -- params : TGHash (TBasicType TUTF8) (TBasicType TUTF8)-    IO CString---contentSnifferSniff ::-    (MonadIO m, ContentSnifferK a, MessageK b) =>-    a                                       -- _obj-    -> b                                    -- msg-    -> Buffer                               -- buffer-    -> m (T.Text,(Map.Map T.Text T.Text))   -- result-contentSnifferSniff _obj msg buffer = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    let buffer' = unsafeManagedPtrGetPtr buffer-    params <- allocMem :: IO (Ptr (Ptr (GHashTable CString CString)))-    result <- soup_content_sniffer_sniff _obj' msg' buffer' params-    checkUnexpectedReturnNULL "soup_content_sniffer_sniff" result-    result' <- cstringToText result-    freeMem result-    params' <- peek params-    params'' <- unpackGHashTable params'-    let params''' = mapFirst cstringUnpackPtr params''-    params'''' <- mapFirstA cstringToText params'''-    let params''''' = mapSecond cstringUnpackPtr params''''-    params'''''' <- mapSecondA cstringToText params'''''-    let params''''''' = Map.fromList params''''''-    unrefGHashTable params'-    touchManagedPtr _obj-    touchManagedPtr msg-    touchManagedPtr buffer-    freeMem params-    return (result', params''''''')--data ContentSnifferSniffMethodInfo-instance (signature ~ (b -> Buffer -> m (T.Text,(Map.Map T.Text T.Text))), MonadIO m, ContentSnifferK a, MessageK b) => MethodInfo ContentSnifferSniffMethodInfo a signature where-    overloadedMethod _ = contentSnifferSniff--
− GI/Soup/Objects/ContentSniffer.hs-boot 
@@ -1,15 +0,0 @@-module GI.Soup.Objects.ContentSniffer where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ContentSniffer = ContentSniffer (ForeignPtr ContentSniffer)-instance GObject ContentSniffer where-class GObject o => ContentSnifferK o-instance (GObject o, IsDescendantOf ContentSniffer o) => ContentSnifferK o-data ContentSnifferGetBufferSizeMethodInfo-data ContentSnifferSniffMethodInfo
− GI/Soup/Objects/CookieJar.hs 
@@ -1,725 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Objects.CookieJar-    ( ---- * Exported types-    CookieJar(..)                           ,-    CookieJarK                              ,-    toCookieJar                             ,-    noCookieJar                             ,--- -- * Methods--- ** cookieJarAddCookie-    CookieJarAddCookieMethodInfo            ,-    cookieJarAddCookie                      ,----- ** cookieJarAddCookieWithFirstParty-    CookieJarAddCookieWithFirstPartyMethodInfo,-    cookieJarAddCookieWithFirstParty        ,----- ** cookieJarAllCookies-    CookieJarAllCookiesMethodInfo           ,-    cookieJarAllCookies                     ,----- ** cookieJarDeleteCookie-    CookieJarDeleteCookieMethodInfo         ,-    cookieJarDeleteCookie                   ,----- ** cookieJarGetAcceptPolicy-    CookieJarGetAcceptPolicyMethodInfo      ,-    cookieJarGetAcceptPolicy                ,----- ** cookieJarGetCookieList-    CookieJarGetCookieListMethodInfo        ,-    cookieJarGetCookieList                  ,----- ** cookieJarGetCookies-    CookieJarGetCookiesMethodInfo           ,-    cookieJarGetCookies                     ,----- ** cookieJarIsPersistent-    CookieJarIsPersistentMethodInfo         ,-    cookieJarIsPersistent                   ,----- ** cookieJarNew-    cookieJarNew                            ,----- ** cookieJarSave-    CookieJarSaveMethodInfo                 ,-    cookieJarSave                           ,----- ** cookieJarSetAcceptPolicy-    CookieJarSetAcceptPolicyMethodInfo      ,-    cookieJarSetAcceptPolicy                ,----- ** cookieJarSetCookie-    CookieJarSetCookieMethodInfo            ,-    cookieJarSetCookie                      ,----- ** cookieJarSetCookieWithFirstParty-    CookieJarSetCookieWithFirstPartyMethodInfo,-    cookieJarSetCookieWithFirstParty        ,----- -- * Properties--- ** AcceptPolicy-    CookieJarAcceptPolicyPropertyInfo       ,-    constructCookieJarAcceptPolicy          ,-    cookieJarAcceptPolicy                   ,-    getCookieJarAcceptPolicy                ,-    setCookieJarAcceptPolicy                ,----- ** ReadOnly-    CookieJarReadOnlyPropertyInfo           ,-    constructCookieJarReadOnly              ,-    cookieJarReadOnly                       ,-    getCookieJarReadOnly                    ,----- -- * Signals--- ** Changed-    CookieJarChangedCallback                ,-    CookieJarChangedCallbackC               ,-    CookieJarChangedSignalInfo              ,-    afterCookieJarChanged                   ,-    cookieJarChangedCallbackWrapper         ,-    cookieJarChangedClosure                 ,-    mkCookieJarChangedCallback              ,-    noCookieJarChangedCallback              ,-    onCookieJarChanged                      ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GObject as GObject--newtype CookieJar = CookieJar (ForeignPtr CookieJar)-foreign import ccall "soup_cookie_jar_get_type"-    c_soup_cookie_jar_get_type :: IO GType--type instance ParentTypes CookieJar = CookieJarParentTypes-type CookieJarParentTypes = '[GObject.Object, SessionFeature]--instance GObject CookieJar where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_cookie_jar_get_type-    --class GObject o => CookieJarK o-instance (GObject o, IsDescendantOf CookieJar o) => CookieJarK o--toCookieJar :: CookieJarK o => o -> IO CookieJar-toCookieJar = unsafeCastTo CookieJar--noCookieJar :: Maybe CookieJar-noCookieJar = Nothing--type family ResolveCookieJarMethod (t :: Symbol) (o :: *) :: * where-    ResolveCookieJarMethod "addCookie" o = CookieJarAddCookieMethodInfo-    ResolveCookieJarMethod "addCookieWithFirstParty" o = CookieJarAddCookieWithFirstPartyMethodInfo-    ResolveCookieJarMethod "addFeature" o = SessionFeatureAddFeatureMethodInfo-    ResolveCookieJarMethod "allCookies" o = CookieJarAllCookiesMethodInfo-    ResolveCookieJarMethod "attach" o = SessionFeatureAttachMethodInfo-    ResolveCookieJarMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveCookieJarMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveCookieJarMethod "deleteCookie" o = CookieJarDeleteCookieMethodInfo-    ResolveCookieJarMethod "detach" o = SessionFeatureDetachMethodInfo-    ResolveCookieJarMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveCookieJarMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveCookieJarMethod "hasFeature" o = SessionFeatureHasFeatureMethodInfo-    ResolveCookieJarMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveCookieJarMethod "isPersistent" o = CookieJarIsPersistentMethodInfo-    ResolveCookieJarMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveCookieJarMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveCookieJarMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveCookieJarMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveCookieJarMethod "removeFeature" o = SessionFeatureRemoveFeatureMethodInfo-    ResolveCookieJarMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveCookieJarMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveCookieJarMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveCookieJarMethod "save" o = CookieJarSaveMethodInfo-    ResolveCookieJarMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveCookieJarMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveCookieJarMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveCookieJarMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveCookieJarMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveCookieJarMethod "getAcceptPolicy" o = CookieJarGetAcceptPolicyMethodInfo-    ResolveCookieJarMethod "getCookieList" o = CookieJarGetCookieListMethodInfo-    ResolveCookieJarMethod "getCookies" o = CookieJarGetCookiesMethodInfo-    ResolveCookieJarMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveCookieJarMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveCookieJarMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveCookieJarMethod "setAcceptPolicy" o = CookieJarSetAcceptPolicyMethodInfo-    ResolveCookieJarMethod "setCookie" o = CookieJarSetCookieMethodInfo-    ResolveCookieJarMethod "setCookieWithFirstParty" o = CookieJarSetCookieWithFirstPartyMethodInfo-    ResolveCookieJarMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveCookieJarMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveCookieJarMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveCookieJarMethod t CookieJar, MethodInfo info CookieJar p) => IsLabelProxy t (CookieJar -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveCookieJarMethod t CookieJar, MethodInfo info CookieJar p) => IsLabel t (CookieJar -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal CookieJar::changed-type CookieJarChangedCallback =-    Cookie ->-    Cookie ->-    IO ()--noCookieJarChangedCallback :: Maybe CookieJarChangedCallback-noCookieJarChangedCallback = Nothing--type CookieJarChangedCallbackC =-    Ptr () ->                               -- object-    Ptr Cookie ->-    Ptr Cookie ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkCookieJarChangedCallback :: CookieJarChangedCallbackC -> IO (FunPtr CookieJarChangedCallbackC)--cookieJarChangedClosure :: CookieJarChangedCallback -> IO Closure-cookieJarChangedClosure cb = newCClosure =<< mkCookieJarChangedCallback wrapped-    where wrapped = cookieJarChangedCallbackWrapper cb--cookieJarChangedCallbackWrapper ::-    CookieJarChangedCallback ->-    Ptr () ->-    Ptr Cookie ->-    Ptr Cookie ->-    Ptr () ->-    IO ()-cookieJarChangedCallbackWrapper _cb _ oldCookie newCookie _ = do-    oldCookie' <- (newBoxed Cookie) oldCookie-    newCookie' <- (newBoxed Cookie) newCookie-    _cb  oldCookie' newCookie'--onCookieJarChanged :: (GObject a, MonadIO m) => a -> CookieJarChangedCallback -> m SignalHandlerId-onCookieJarChanged obj cb = liftIO $ connectCookieJarChanged obj cb SignalConnectBefore-afterCookieJarChanged :: (GObject a, MonadIO m) => a -> CookieJarChangedCallback -> m SignalHandlerId-afterCookieJarChanged obj cb = connectCookieJarChanged obj cb SignalConnectAfter--connectCookieJarChanged :: (GObject a, MonadIO m) =>-                           a -> CookieJarChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectCookieJarChanged obj cb after = liftIO $ do-    cb' <- mkCookieJarChangedCallback (cookieJarChangedCallbackWrapper cb)-    connectSignalFunPtr obj "changed" cb' after---- VVV Prop "accept-policy"-   -- Type: TInterface "Soup" "CookieJarAcceptPolicy"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getCookieJarAcceptPolicy :: (MonadIO m, CookieJarK o) => o -> m CookieJarAcceptPolicy-getCookieJarAcceptPolicy obj = liftIO $ getObjectPropertyEnum obj "accept-policy"--setCookieJarAcceptPolicy :: (MonadIO m, CookieJarK o) => o -> CookieJarAcceptPolicy -> m ()-setCookieJarAcceptPolicy obj val = liftIO $ setObjectPropertyEnum obj "accept-policy" val--constructCookieJarAcceptPolicy :: CookieJarAcceptPolicy -> IO ([Char], GValue)-constructCookieJarAcceptPolicy val = constructObjectPropertyEnum "accept-policy" val--data CookieJarAcceptPolicyPropertyInfo-instance AttrInfo CookieJarAcceptPolicyPropertyInfo where-    type AttrAllowedOps CookieJarAcceptPolicyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint CookieJarAcceptPolicyPropertyInfo = (~) CookieJarAcceptPolicy-    type AttrBaseTypeConstraint CookieJarAcceptPolicyPropertyInfo = CookieJarK-    type AttrGetType CookieJarAcceptPolicyPropertyInfo = CookieJarAcceptPolicy-    type AttrLabel CookieJarAcceptPolicyPropertyInfo = "accept-policy"-    attrGet _ = getCookieJarAcceptPolicy-    attrSet _ = setCookieJarAcceptPolicy-    attrConstruct _ = constructCookieJarAcceptPolicy-    attrClear _ = undefined---- VVV Prop "read-only"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getCookieJarReadOnly :: (MonadIO m, CookieJarK o) => o -> m Bool-getCookieJarReadOnly obj = liftIO $ getObjectPropertyBool obj "read-only"--constructCookieJarReadOnly :: Bool -> IO ([Char], GValue)-constructCookieJarReadOnly val = constructObjectPropertyBool "read-only" val--data CookieJarReadOnlyPropertyInfo-instance AttrInfo CookieJarReadOnlyPropertyInfo where-    type AttrAllowedOps CookieJarReadOnlyPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint CookieJarReadOnlyPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint CookieJarReadOnlyPropertyInfo = CookieJarK-    type AttrGetType CookieJarReadOnlyPropertyInfo = Bool-    type AttrLabel CookieJarReadOnlyPropertyInfo = "read-only"-    attrGet _ = getCookieJarReadOnly-    attrSet _ = undefined-    attrConstruct _ = constructCookieJarReadOnly-    attrClear _ = undefined--type instance AttributeList CookieJar = CookieJarAttributeList-type CookieJarAttributeList = ('[ '("acceptPolicy", CookieJarAcceptPolicyPropertyInfo), '("readOnly", CookieJarReadOnlyPropertyInfo)] :: [(Symbol, *)])--cookieJarAcceptPolicy :: AttrLabelProxy "acceptPolicy"-cookieJarAcceptPolicy = AttrLabelProxy--cookieJarReadOnly :: AttrLabelProxy "readOnly"-cookieJarReadOnly = AttrLabelProxy--data CookieJarChangedSignalInfo-instance SignalInfo CookieJarChangedSignalInfo where-    type HaskellCallbackType CookieJarChangedSignalInfo = CookieJarChangedCallback-    connectSignal _ = connectCookieJarChanged--type instance SignalList CookieJar = CookieJarSignalList-type CookieJarSignalList = ('[ '("changed", CookieJarChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method CookieJar::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Soup" "CookieJar")--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_new" soup_cookie_jar_new :: -    IO (Ptr CookieJar)---cookieJarNew ::-    (MonadIO m) =>-    m CookieJar                             -- result-cookieJarNew  = liftIO $ do-    result <- soup_cookie_jar_new-    checkUnexpectedReturnNULL "soup_cookie_jar_new" result-    result' <- (wrapObject CookieJar) result-    return result'---- method CookieJar::add_cookie--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_add_cookie" soup_cookie_jar_add_cookie :: -    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"-    Ptr Cookie ->                           -- cookie : TInterface "Soup" "Cookie"-    IO ()---cookieJarAddCookie ::-    (MonadIO m, CookieJarK a) =>-    a                                       -- _obj-    -> Cookie                               -- cookie-    -> m ()                                 -- result-cookieJarAddCookie _obj cookie = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    cookie' <- copyBoxed cookie-    soup_cookie_jar_add_cookie _obj' cookie'-    touchManagedPtr _obj-    touchManagedPtr cookie-    return ()--data CookieJarAddCookieMethodInfo-instance (signature ~ (Cookie -> m ()), MonadIO m, CookieJarK a) => MethodInfo CookieJarAddCookieMethodInfo a signature where-    overloadedMethod _ = cookieJarAddCookie---- method CookieJar::add_cookie_with_first_party--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_add_cookie_with_first_party" soup_cookie_jar_add_cookie_with_first_party :: -    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"-    Ptr URI ->                              -- first_party : TInterface "Soup" "URI"-    Ptr Cookie ->                           -- cookie : TInterface "Soup" "Cookie"-    IO ()---cookieJarAddCookieWithFirstParty ::-    (MonadIO m, CookieJarK a) =>-    a                                       -- _obj-    -> URI                                  -- firstParty-    -> Cookie                               -- cookie-    -> m ()                                 -- result-cookieJarAddCookieWithFirstParty _obj firstParty cookie = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let firstParty' = unsafeManagedPtrGetPtr firstParty-    cookie' <- copyBoxed cookie-    soup_cookie_jar_add_cookie_with_first_party _obj' firstParty' cookie'-    touchManagedPtr _obj-    touchManagedPtr firstParty-    touchManagedPtr cookie-    return ()--data CookieJarAddCookieWithFirstPartyMethodInfo-instance (signature ~ (URI -> Cookie -> m ()), MonadIO m, CookieJarK a) => MethodInfo CookieJarAddCookieWithFirstPartyMethodInfo a signature where-    overloadedMethod _ = cookieJarAddCookieWithFirstParty---- method CookieJar::all_cookies--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGSList (TInterface "Soup" "Cookie"))--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_all_cookies" soup_cookie_jar_all_cookies :: -    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"-    IO (Ptr (GSList (Ptr Cookie)))---cookieJarAllCookies ::-    (MonadIO m, CookieJarK a) =>-    a                                       -- _obj-    -> m [Cookie]                           -- result-cookieJarAllCookies _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_cookie_jar_all_cookies _obj'-    result' <- unpackGSList result-    result'' <- mapM (wrapBoxed Cookie) result'-    g_slist_free result-    touchManagedPtr _obj-    return result''--data CookieJarAllCookiesMethodInfo-instance (signature ~ (m [Cookie]), MonadIO m, CookieJarK a) => MethodInfo CookieJarAllCookiesMethodInfo a signature where-    overloadedMethod _ = cookieJarAllCookies---- method CookieJar::delete_cookie--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_delete_cookie" soup_cookie_jar_delete_cookie :: -    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"-    Ptr Cookie ->                           -- cookie : TInterface "Soup" "Cookie"-    IO ()---cookieJarDeleteCookie ::-    (MonadIO m, CookieJarK a) =>-    a                                       -- _obj-    -> Cookie                               -- cookie-    -> m ()                                 -- result-cookieJarDeleteCookie _obj cookie = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let cookie' = unsafeManagedPtrGetPtr cookie-    soup_cookie_jar_delete_cookie _obj' cookie'-    touchManagedPtr _obj-    touchManagedPtr cookie-    return ()--data CookieJarDeleteCookieMethodInfo-instance (signature ~ (Cookie -> m ()), MonadIO m, CookieJarK a) => MethodInfo CookieJarDeleteCookieMethodInfo a signature where-    overloadedMethod _ = cookieJarDeleteCookie---- method CookieJar::get_accept_policy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "CookieJarAcceptPolicy")--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_get_accept_policy" soup_cookie_jar_get_accept_policy :: -    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"-    IO CUInt---cookieJarGetAcceptPolicy ::-    (MonadIO m, CookieJarK a) =>-    a                                       -- _obj-    -> m CookieJarAcceptPolicy              -- result-cookieJarGetAcceptPolicy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_cookie_jar_get_accept_policy _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data CookieJarGetAcceptPolicyMethodInfo-instance (signature ~ (m CookieJarAcceptPolicy), MonadIO m, CookieJarK a) => MethodInfo CookieJarGetAcceptPolicyMethodInfo a signature where-    overloadedMethod _ = cookieJarGetAcceptPolicy---- method CookieJar::get_cookie_list--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "for_http", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGSList (TInterface "Soup" "Cookie"))--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_get_cookie_list" soup_cookie_jar_get_cookie_list :: -    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"-    Ptr URI ->                              -- uri : TInterface "Soup" "URI"-    CInt ->                                 -- for_http : TBasicType TBoolean-    IO (Ptr (GSList (Ptr Cookie)))---cookieJarGetCookieList ::-    (MonadIO m, CookieJarK a) =>-    a                                       -- _obj-    -> URI                                  -- uri-    -> Bool                                 -- forHttp-    -> m [Cookie]                           -- result-cookieJarGetCookieList _obj uri forHttp = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let uri' = unsafeManagedPtrGetPtr uri-    let forHttp' = (fromIntegral . fromEnum) forHttp-    result <- soup_cookie_jar_get_cookie_list _obj' uri' forHttp'-    result' <- unpackGSList result-    result'' <- mapM (wrapBoxed Cookie) result'-    g_slist_free result-    touchManagedPtr _obj-    touchManagedPtr uri-    return result''--data CookieJarGetCookieListMethodInfo-instance (signature ~ (URI -> Bool -> m [Cookie]), MonadIO m, CookieJarK a) => MethodInfo CookieJarGetCookieListMethodInfo a signature where-    overloadedMethod _ = cookieJarGetCookieList---- method CookieJar::get_cookies--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "for_http", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_get_cookies" soup_cookie_jar_get_cookies :: -    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"-    Ptr URI ->                              -- uri : TInterface "Soup" "URI"-    CInt ->                                 -- for_http : TBasicType TBoolean-    IO CString---cookieJarGetCookies ::-    (MonadIO m, CookieJarK a) =>-    a                                       -- _obj-    -> URI                                  -- uri-    -> Bool                                 -- forHttp-    -> m (Maybe T.Text)                     -- result-cookieJarGetCookies _obj uri forHttp = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let uri' = unsafeManagedPtrGetPtr uri-    let forHttp' = (fromIntegral . fromEnum) forHttp-    result <- soup_cookie_jar_get_cookies _obj' uri' forHttp'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        freeMem result'-        return result''-    touchManagedPtr _obj-    touchManagedPtr uri-    return maybeResult--data CookieJarGetCookiesMethodInfo-instance (signature ~ (URI -> Bool -> m (Maybe T.Text)), MonadIO m, CookieJarK a) => MethodInfo CookieJarGetCookiesMethodInfo a signature where-    overloadedMethod _ = cookieJarGetCookies---- method CookieJar::is_persistent--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_is_persistent" soup_cookie_jar_is_persistent :: -    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"-    IO CInt---cookieJarIsPersistent ::-    (MonadIO m, CookieJarK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-cookieJarIsPersistent _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_cookie_jar_is_persistent _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data CookieJarIsPersistentMethodInfo-instance (signature ~ (m Bool), MonadIO m, CookieJarK a) => MethodInfo CookieJarIsPersistentMethodInfo a signature where-    overloadedMethod _ = cookieJarIsPersistent---- method CookieJar::save--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_save" soup_cookie_jar_save :: -    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"-    IO ()--{-# DEPRECATED cookieJarSave ["This is a no-op."]#-}-cookieJarSave ::-    (MonadIO m, CookieJarK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-cookieJarSave _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_cookie_jar_save _obj'-    touchManagedPtr _obj-    return ()--data CookieJarSaveMethodInfo-instance (signature ~ (m ()), MonadIO m, CookieJarK a) => MethodInfo CookieJarSaveMethodInfo a signature where-    overloadedMethod _ = cookieJarSave---- method CookieJar::set_accept_policy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "policy", argType = TInterface "Soup" "CookieJarAcceptPolicy", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_set_accept_policy" soup_cookie_jar_set_accept_policy :: -    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"-    CUInt ->                                -- policy : TInterface "Soup" "CookieJarAcceptPolicy"-    IO ()---cookieJarSetAcceptPolicy ::-    (MonadIO m, CookieJarK a) =>-    a                                       -- _obj-    -> CookieJarAcceptPolicy                -- policy-    -> m ()                                 -- result-cookieJarSetAcceptPolicy _obj policy = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let policy' = (fromIntegral . fromEnum) policy-    soup_cookie_jar_set_accept_policy _obj' policy'-    touchManagedPtr _obj-    return ()--data CookieJarSetAcceptPolicyMethodInfo-instance (signature ~ (CookieJarAcceptPolicy -> m ()), MonadIO m, CookieJarK a) => MethodInfo CookieJarSetAcceptPolicyMethodInfo a signature where-    overloadedMethod _ = cookieJarSetAcceptPolicy---- method CookieJar::set_cookie--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_set_cookie" soup_cookie_jar_set_cookie :: -    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"-    Ptr URI ->                              -- uri : TInterface "Soup" "URI"-    CString ->                              -- cookie : TBasicType TUTF8-    IO ()---cookieJarSetCookie ::-    (MonadIO m, CookieJarK a) =>-    a                                       -- _obj-    -> URI                                  -- uri-    -> T.Text                               -- cookie-    -> m ()                                 -- result-cookieJarSetCookie _obj uri cookie = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let uri' = unsafeManagedPtrGetPtr uri-    cookie' <- textToCString cookie-    soup_cookie_jar_set_cookie _obj' uri' cookie'-    touchManagedPtr _obj-    touchManagedPtr uri-    freeMem cookie'-    return ()--data CookieJarSetCookieMethodInfo-instance (signature ~ (URI -> T.Text -> m ()), MonadIO m, CookieJarK a) => MethodInfo CookieJarSetCookieMethodInfo a signature where-    overloadedMethod _ = cookieJarSetCookie---- method CookieJar::set_cookie_with_first_party--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "CookieJar", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_set_cookie_with_first_party" soup_cookie_jar_set_cookie_with_first_party :: -    Ptr CookieJar ->                        -- _obj : TInterface "Soup" "CookieJar"-    Ptr URI ->                              -- uri : TInterface "Soup" "URI"-    Ptr URI ->                              -- first_party : TInterface "Soup" "URI"-    CString ->                              -- cookie : TBasicType TUTF8-    IO ()---cookieJarSetCookieWithFirstParty ::-    (MonadIO m, CookieJarK a) =>-    a                                       -- _obj-    -> URI                                  -- uri-    -> URI                                  -- firstParty-    -> T.Text                               -- cookie-    -> m ()                                 -- result-cookieJarSetCookieWithFirstParty _obj uri firstParty cookie = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let uri' = unsafeManagedPtrGetPtr uri-    let firstParty' = unsafeManagedPtrGetPtr firstParty-    cookie' <- textToCString cookie-    soup_cookie_jar_set_cookie_with_first_party _obj' uri' firstParty' cookie'-    touchManagedPtr _obj-    touchManagedPtr uri-    touchManagedPtr firstParty-    freeMem cookie'-    return ()--data CookieJarSetCookieWithFirstPartyMethodInfo-instance (signature ~ (URI -> URI -> T.Text -> m ()), MonadIO m, CookieJarK a) => MethodInfo CookieJarSetCookieWithFirstPartyMethodInfo a signature where-    overloadedMethod _ = cookieJarSetCookieWithFirstParty--
− GI/Soup/Objects/CookieJar.hs-boot 
@@ -1,28 +0,0 @@-module GI.Soup.Objects.CookieJar where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype CookieJar = CookieJar (ForeignPtr CookieJar)-instance GObject CookieJar where-class GObject o => CookieJarK o-instance (GObject o, IsDescendantOf CookieJar o) => CookieJarK o-data CookieJarAcceptPolicyPropertyInfo-data CookieJarReadOnlyPropertyInfo-data CookieJarChangedSignalInfo-data CookieJarAddCookieMethodInfo-data CookieJarAddCookieWithFirstPartyMethodInfo-data CookieJarAllCookiesMethodInfo-data CookieJarDeleteCookieMethodInfo-data CookieJarGetAcceptPolicyMethodInfo-data CookieJarGetCookieListMethodInfo-data CookieJarGetCookiesMethodInfo-data CookieJarIsPersistentMethodInfo-data CookieJarSaveMethodInfo-data CookieJarSetAcceptPolicyMethodInfo-data CookieJarSetCookieMethodInfo-data CookieJarSetCookieWithFirstPartyMethodInfo
− GI/Soup/Objects/CookieJarDB.hs 
@@ -1,180 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Objects.CookieJarDB-    ( ---- * Exported types-    CookieJarDB(..)                         ,-    CookieJarDBK                            ,-    toCookieJarDB                           ,-    noCookieJarDB                           ,--- -- * Methods--- ** cookieJarDBNew-    cookieJarDBNew                          ,----- -- * Properties--- ** Filename-    CookieJarDBFilenamePropertyInfo         ,-    constructCookieJarDBFilename            ,-    cookieJarDBFilename                     ,-    getCookieJarDBFilename                  ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GObject as GObject--newtype CookieJarDB = CookieJarDB (ForeignPtr CookieJarDB)-foreign import ccall "soup_cookie_jar_db_get_type"-    c_soup_cookie_jar_db_get_type :: IO GType--type instance ParentTypes CookieJarDB = CookieJarDBParentTypes-type CookieJarDBParentTypes = '[CookieJar, GObject.Object, SessionFeature]--instance GObject CookieJarDB where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_cookie_jar_db_get_type-    --class GObject o => CookieJarDBK o-instance (GObject o, IsDescendantOf CookieJarDB o) => CookieJarDBK o--toCookieJarDB :: CookieJarDBK o => o -> IO CookieJarDB-toCookieJarDB = unsafeCastTo CookieJarDB--noCookieJarDB :: Maybe CookieJarDB-noCookieJarDB = Nothing--type family ResolveCookieJarDBMethod (t :: Symbol) (o :: *) :: * where-    ResolveCookieJarDBMethod "addCookie" o = CookieJarAddCookieMethodInfo-    ResolveCookieJarDBMethod "addCookieWithFirstParty" o = CookieJarAddCookieWithFirstPartyMethodInfo-    ResolveCookieJarDBMethod "addFeature" o = SessionFeatureAddFeatureMethodInfo-    ResolveCookieJarDBMethod "allCookies" o = CookieJarAllCookiesMethodInfo-    ResolveCookieJarDBMethod "attach" o = SessionFeatureAttachMethodInfo-    ResolveCookieJarDBMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveCookieJarDBMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveCookieJarDBMethod "deleteCookie" o = CookieJarDeleteCookieMethodInfo-    ResolveCookieJarDBMethod "detach" o = SessionFeatureDetachMethodInfo-    ResolveCookieJarDBMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveCookieJarDBMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveCookieJarDBMethod "hasFeature" o = SessionFeatureHasFeatureMethodInfo-    ResolveCookieJarDBMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveCookieJarDBMethod "isPersistent" o = CookieJarIsPersistentMethodInfo-    ResolveCookieJarDBMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveCookieJarDBMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveCookieJarDBMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveCookieJarDBMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveCookieJarDBMethod "removeFeature" o = SessionFeatureRemoveFeatureMethodInfo-    ResolveCookieJarDBMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveCookieJarDBMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveCookieJarDBMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveCookieJarDBMethod "save" o = CookieJarSaveMethodInfo-    ResolveCookieJarDBMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveCookieJarDBMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveCookieJarDBMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveCookieJarDBMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveCookieJarDBMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveCookieJarDBMethod "getAcceptPolicy" o = CookieJarGetAcceptPolicyMethodInfo-    ResolveCookieJarDBMethod "getCookieList" o = CookieJarGetCookieListMethodInfo-    ResolveCookieJarDBMethod "getCookies" o = CookieJarGetCookiesMethodInfo-    ResolveCookieJarDBMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveCookieJarDBMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveCookieJarDBMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveCookieJarDBMethod "setAcceptPolicy" o = CookieJarSetAcceptPolicyMethodInfo-    ResolveCookieJarDBMethod "setCookie" o = CookieJarSetCookieMethodInfo-    ResolveCookieJarDBMethod "setCookieWithFirstParty" o = CookieJarSetCookieWithFirstPartyMethodInfo-    ResolveCookieJarDBMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveCookieJarDBMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveCookieJarDBMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveCookieJarDBMethod t CookieJarDB, MethodInfo info CookieJarDB p) => IsLabelProxy t (CookieJarDB -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveCookieJarDBMethod t CookieJarDB, MethodInfo info CookieJarDB p) => IsLabel t (CookieJarDB -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "filename"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getCookieJarDBFilename :: (MonadIO m, CookieJarDBK o) => o -> m (Maybe T.Text)-getCookieJarDBFilename obj = liftIO $ getObjectPropertyString obj "filename"--constructCookieJarDBFilename :: T.Text -> IO ([Char], GValue)-constructCookieJarDBFilename val = constructObjectPropertyString "filename" (Just val)--data CookieJarDBFilenamePropertyInfo-instance AttrInfo CookieJarDBFilenamePropertyInfo where-    type AttrAllowedOps CookieJarDBFilenamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint CookieJarDBFilenamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint CookieJarDBFilenamePropertyInfo = CookieJarDBK-    type AttrGetType CookieJarDBFilenamePropertyInfo = (Maybe T.Text)-    type AttrLabel CookieJarDBFilenamePropertyInfo = "filename"-    attrGet _ = getCookieJarDBFilename-    attrSet _ = undefined-    attrConstruct _ = constructCookieJarDBFilename-    attrClear _ = undefined--type instance AttributeList CookieJarDB = CookieJarDBAttributeList-type CookieJarDBAttributeList = ('[ '("acceptPolicy", CookieJarAcceptPolicyPropertyInfo), '("filename", CookieJarDBFilenamePropertyInfo), '("readOnly", CookieJarReadOnlyPropertyInfo)] :: [(Symbol, *)])--cookieJarDBFilename :: AttrLabelProxy "filename"-cookieJarDBFilename = AttrLabelProxy--type instance SignalList CookieJarDB = CookieJarDBSignalList-type CookieJarDBSignalList = ('[ '("changed", CookieJarChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method CookieJarDB::new--- method type : Constructor--- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "read_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "CookieJarDB")--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_db_new" soup_cookie_jar_db_new :: -    CString ->                              -- filename : TBasicType TUTF8-    CInt ->                                 -- read_only : TBasicType TBoolean-    IO (Ptr CookieJarDB)---cookieJarDBNew ::-    (MonadIO m) =>-    T.Text                                  -- filename-    -> Bool                                 -- readOnly-    -> m CookieJarDB                        -- result-cookieJarDBNew filename readOnly = liftIO $ do-    filename' <- textToCString filename-    let readOnly' = (fromIntegral . fromEnum) readOnly-    result <- soup_cookie_jar_db_new filename' readOnly'-    checkUnexpectedReturnNULL "soup_cookie_jar_db_new" result-    result' <- (wrapObject CookieJarDB) result-    freeMem filename'-    return result'--
− GI/Soup/Objects/CookieJarDB.hs-boot 
@@ -1,14 +0,0 @@-module GI.Soup.Objects.CookieJarDB where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype CookieJarDB = CookieJarDB (ForeignPtr CookieJarDB)-instance GObject CookieJarDB where-class GObject o => CookieJarDBK o-instance (GObject o, IsDescendantOf CookieJarDB o) => CookieJarDBK o-data CookieJarDBFilenamePropertyInfo
− GI/Soup/Objects/CookieJarText.hs 
@@ -1,180 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Objects.CookieJarText-    ( ---- * Exported types-    CookieJarText(..)                       ,-    CookieJarTextK                          ,-    toCookieJarText                         ,-    noCookieJarText                         ,--- -- * Methods--- ** cookieJarTextNew-    cookieJarTextNew                        ,----- -- * Properties--- ** Filename-    CookieJarTextFilenamePropertyInfo       ,-    constructCookieJarTextFilename          ,-    cookieJarTextFilename                   ,-    getCookieJarTextFilename                ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GObject as GObject--newtype CookieJarText = CookieJarText (ForeignPtr CookieJarText)-foreign import ccall "soup_cookie_jar_text_get_type"-    c_soup_cookie_jar_text_get_type :: IO GType--type instance ParentTypes CookieJarText = CookieJarTextParentTypes-type CookieJarTextParentTypes = '[CookieJar, GObject.Object, SessionFeature]--instance GObject CookieJarText where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_cookie_jar_text_get_type-    --class GObject o => CookieJarTextK o-instance (GObject o, IsDescendantOf CookieJarText o) => CookieJarTextK o--toCookieJarText :: CookieJarTextK o => o -> IO CookieJarText-toCookieJarText = unsafeCastTo CookieJarText--noCookieJarText :: Maybe CookieJarText-noCookieJarText = Nothing--type family ResolveCookieJarTextMethod (t :: Symbol) (o :: *) :: * where-    ResolveCookieJarTextMethod "addCookie" o = CookieJarAddCookieMethodInfo-    ResolveCookieJarTextMethod "addCookieWithFirstParty" o = CookieJarAddCookieWithFirstPartyMethodInfo-    ResolveCookieJarTextMethod "addFeature" o = SessionFeatureAddFeatureMethodInfo-    ResolveCookieJarTextMethod "allCookies" o = CookieJarAllCookiesMethodInfo-    ResolveCookieJarTextMethod "attach" o = SessionFeatureAttachMethodInfo-    ResolveCookieJarTextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveCookieJarTextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveCookieJarTextMethod "deleteCookie" o = CookieJarDeleteCookieMethodInfo-    ResolveCookieJarTextMethod "detach" o = SessionFeatureDetachMethodInfo-    ResolveCookieJarTextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveCookieJarTextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveCookieJarTextMethod "hasFeature" o = SessionFeatureHasFeatureMethodInfo-    ResolveCookieJarTextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveCookieJarTextMethod "isPersistent" o = CookieJarIsPersistentMethodInfo-    ResolveCookieJarTextMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveCookieJarTextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveCookieJarTextMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveCookieJarTextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveCookieJarTextMethod "removeFeature" o = SessionFeatureRemoveFeatureMethodInfo-    ResolveCookieJarTextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveCookieJarTextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveCookieJarTextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveCookieJarTextMethod "save" o = CookieJarSaveMethodInfo-    ResolveCookieJarTextMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveCookieJarTextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveCookieJarTextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveCookieJarTextMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveCookieJarTextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveCookieJarTextMethod "getAcceptPolicy" o = CookieJarGetAcceptPolicyMethodInfo-    ResolveCookieJarTextMethod "getCookieList" o = CookieJarGetCookieListMethodInfo-    ResolveCookieJarTextMethod "getCookies" o = CookieJarGetCookiesMethodInfo-    ResolveCookieJarTextMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveCookieJarTextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveCookieJarTextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveCookieJarTextMethod "setAcceptPolicy" o = CookieJarSetAcceptPolicyMethodInfo-    ResolveCookieJarTextMethod "setCookie" o = CookieJarSetCookieMethodInfo-    ResolveCookieJarTextMethod "setCookieWithFirstParty" o = CookieJarSetCookieWithFirstPartyMethodInfo-    ResolveCookieJarTextMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveCookieJarTextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveCookieJarTextMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveCookieJarTextMethod t CookieJarText, MethodInfo info CookieJarText p) => IsLabelProxy t (CookieJarText -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveCookieJarTextMethod t CookieJarText, MethodInfo info CookieJarText p) => IsLabel t (CookieJarText -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "filename"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getCookieJarTextFilename :: (MonadIO m, CookieJarTextK o) => o -> m (Maybe T.Text)-getCookieJarTextFilename obj = liftIO $ getObjectPropertyString obj "filename"--constructCookieJarTextFilename :: T.Text -> IO ([Char], GValue)-constructCookieJarTextFilename val = constructObjectPropertyString "filename" (Just val)--data CookieJarTextFilenamePropertyInfo-instance AttrInfo CookieJarTextFilenamePropertyInfo where-    type AttrAllowedOps CookieJarTextFilenamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint CookieJarTextFilenamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint CookieJarTextFilenamePropertyInfo = CookieJarTextK-    type AttrGetType CookieJarTextFilenamePropertyInfo = (Maybe T.Text)-    type AttrLabel CookieJarTextFilenamePropertyInfo = "filename"-    attrGet _ = getCookieJarTextFilename-    attrSet _ = undefined-    attrConstruct _ = constructCookieJarTextFilename-    attrClear _ = undefined--type instance AttributeList CookieJarText = CookieJarTextAttributeList-type CookieJarTextAttributeList = ('[ '("acceptPolicy", CookieJarAcceptPolicyPropertyInfo), '("filename", CookieJarTextFilenamePropertyInfo), '("readOnly", CookieJarReadOnlyPropertyInfo)] :: [(Symbol, *)])--cookieJarTextFilename :: AttrLabelProxy "filename"-cookieJarTextFilename = AttrLabelProxy--type instance SignalList CookieJarText = CookieJarTextSignalList-type CookieJarTextSignalList = ('[ '("changed", CookieJarChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method CookieJarText::new--- method type : Constructor--- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "read_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "CookieJarText")--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_text_new" soup_cookie_jar_text_new :: -    CString ->                              -- filename : TBasicType TUTF8-    CInt ->                                 -- read_only : TBasicType TBoolean-    IO (Ptr CookieJarText)---cookieJarTextNew ::-    (MonadIO m) =>-    T.Text                                  -- filename-    -> Bool                                 -- readOnly-    -> m CookieJarText                      -- result-cookieJarTextNew filename readOnly = liftIO $ do-    filename' <- textToCString filename-    let readOnly' = (fromIntegral . fromEnum) readOnly-    result <- soup_cookie_jar_text_new filename' readOnly'-    checkUnexpectedReturnNULL "soup_cookie_jar_text_new" result-    result' <- (wrapObject CookieJarText) result-    freeMem filename'-    return result'--
− GI/Soup/Objects/CookieJarText.hs-boot 
@@ -1,14 +0,0 @@-module GI.Soup.Objects.CookieJarText where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype CookieJarText = CookieJarText (ForeignPtr CookieJarText)-instance GObject CookieJarText where-class GObject o => CookieJarTextK o-instance (GObject o, IsDescendantOf CookieJarText o) => CookieJarTextK o-data CookieJarTextFilenamePropertyInfo
− GI/Soup/Objects/Logger.hs 
@@ -1,321 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Objects.Logger-    ( ---- * Exported types-    Logger(..)                              ,-    LoggerK                                 ,-    toLogger                                ,-    noLogger                                ,--- -- * Methods--- ** loggerAttach-    LoggerAttachMethodInfo                  ,-    loggerAttach                            ,----- ** loggerDetach-    LoggerDetachMethodInfo                  ,-    loggerDetach                            ,----- ** loggerNew-    loggerNew                               ,----- ** loggerSetPrinter-    LoggerSetPrinterMethodInfo              ,-    loggerSetPrinter                        ,----- ** loggerSetRequestFilter-    LoggerSetRequestFilterMethodInfo        ,-    loggerSetRequestFilter                  ,----- ** loggerSetResponseFilter-    LoggerSetResponseFilterMethodInfo       ,-    loggerSetResponseFilter                 ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject--newtype Logger = Logger (ForeignPtr Logger)-foreign import ccall "soup_logger_get_type"-    c_soup_logger_get_type :: IO GType--type instance ParentTypes Logger = LoggerParentTypes-type LoggerParentTypes = '[GObject.Object, SessionFeature]--instance GObject Logger where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_logger_get_type-    --class GObject o => LoggerK o-instance (GObject o, IsDescendantOf Logger o) => LoggerK o--toLogger :: LoggerK o => o -> IO Logger-toLogger = unsafeCastTo Logger--noLogger :: Maybe Logger-noLogger = Nothing--type family ResolveLoggerMethod (t :: Symbol) (o :: *) :: * where-    ResolveLoggerMethod "addFeature" o = SessionFeatureAddFeatureMethodInfo-    ResolveLoggerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveLoggerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveLoggerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveLoggerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveLoggerMethod "hasFeature" o = SessionFeatureHasFeatureMethodInfo-    ResolveLoggerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveLoggerMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveLoggerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveLoggerMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveLoggerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveLoggerMethod "removeFeature" o = SessionFeatureRemoveFeatureMethodInfo-    ResolveLoggerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveLoggerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveLoggerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveLoggerMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveLoggerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveLoggerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveLoggerMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveLoggerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveLoggerMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveLoggerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveLoggerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveLoggerMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveLoggerMethod "setPrinter" o = LoggerSetPrinterMethodInfo-    ResolveLoggerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveLoggerMethod "setRequestFilter" o = LoggerSetRequestFilterMethodInfo-    ResolveLoggerMethod "setResponseFilter" o = LoggerSetResponseFilterMethodInfo-    ResolveLoggerMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveLoggerMethod t Logger, MethodInfo info Logger p) => IsLabelProxy t (Logger -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveLoggerMethod t Logger, MethodInfo info Logger p) => IsLabel t (Logger -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList Logger = LoggerAttributeList-type LoggerAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList Logger = LoggerSignalList-type LoggerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Logger::new--- method type : Constructor--- Args : [Arg {argCName = "level", argType = TInterface "Soup" "LoggerLogLevel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_body_size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Logger")--- throws : False--- Skip return : False--foreign import ccall "soup_logger_new" soup_logger_new :: -    CUInt ->                                -- level : TInterface "Soup" "LoggerLogLevel"-    Int32 ->                                -- max_body_size : TBasicType TInt-    IO (Ptr Logger)---loggerNew ::-    (MonadIO m) =>-    LoggerLogLevel                          -- level-    -> Int32                                -- maxBodySize-    -> m Logger                             -- result-loggerNew level maxBodySize = liftIO $ do-    let level' = (fromIntegral . fromEnum) level-    result <- soup_logger_new level' maxBodySize-    checkUnexpectedReturnNULL "soup_logger_new" result-    result' <- (wrapObject Logger) result-    return result'---- method Logger::attach--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_logger_attach" soup_logger_attach :: -    Ptr Logger ->                           -- _obj : TInterface "Soup" "Logger"-    Ptr Session ->                          -- session : TInterface "Soup" "Session"-    IO ()--{-# DEPRECATED loggerAttach ["Use soup_session_add_feature() instead."]#-}-loggerAttach ::-    (MonadIO m, LoggerK a, SessionK b) =>-    a                                       -- _obj-    -> b                                    -- session-    -> m ()                                 -- result-loggerAttach _obj session = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let session' = unsafeManagedPtrCastPtr session-    soup_logger_attach _obj' session'-    touchManagedPtr _obj-    touchManagedPtr session-    return ()--data LoggerAttachMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, LoggerK a, SessionK b) => MethodInfo LoggerAttachMethodInfo a signature where-    overloadedMethod _ = loggerAttach---- method Logger::detach--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "session", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_logger_detach" soup_logger_detach :: -    Ptr Logger ->                           -- _obj : TInterface "Soup" "Logger"-    Ptr Session ->                          -- session : TInterface "Soup" "Session"-    IO ()--{-# DEPRECATED loggerDetach ["Use soup_session_remove_feature() instead."]#-}-loggerDetach ::-    (MonadIO m, LoggerK a, SessionK b) =>-    a                                       -- _obj-    -> b                                    -- session-    -> m ()                                 -- result-loggerDetach _obj session = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let session' = unsafeManagedPtrCastPtr session-    soup_logger_detach _obj' session'-    touchManagedPtr _obj-    touchManagedPtr session-    return ()--data LoggerDetachMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, LoggerK a, SessionK b) => MethodInfo LoggerDetachMethodInfo a signature where-    overloadedMethod _ = loggerDetach---- method Logger::set_printer--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "printer", argType = TInterface "Soup" "LoggerPrinter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "printer_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_logger_set_printer" soup_logger_set_printer :: -    Ptr Logger ->                           -- _obj : TInterface "Soup" "Logger"-    FunPtr LoggerPrinterC ->                -- printer : TInterface "Soup" "LoggerPrinter"-    Ptr () ->                               -- printer_data : TBasicType TPtr-    FunPtr GLib.DestroyNotifyC ->           -- destroy : TInterface "GLib" "DestroyNotify"-    IO ()---loggerSetPrinter ::-    (MonadIO m, LoggerK a) =>-    a                                       -- _obj-    -> LoggerPrinter                        -- printer-    -> m ()                                 -- result-loggerSetPrinter _obj printer = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    printer' <- mkLoggerPrinter (loggerPrinterWrapper Nothing printer)-    let printerData = castFunPtrToPtr printer'-    let destroy = safeFreeFunPtrPtr-    soup_logger_set_printer _obj' printer' printerData destroy-    touchManagedPtr _obj-    return ()--data LoggerSetPrinterMethodInfo-instance (signature ~ (LoggerPrinter -> m ()), MonadIO m, LoggerK a) => MethodInfo LoggerSetPrinterMethodInfo a signature where-    overloadedMethod _ = loggerSetPrinter---- method Logger::set_request_filter--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "request_filter", argType = TInterface "Soup" "LoggerFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_logger_set_request_filter" soup_logger_set_request_filter :: -    Ptr Logger ->                           -- _obj : TInterface "Soup" "Logger"-    FunPtr LoggerFilterC ->                 -- request_filter : TInterface "Soup" "LoggerFilter"-    Ptr () ->                               -- filter_data : TBasicType TPtr-    FunPtr GLib.DestroyNotifyC ->           -- destroy : TInterface "GLib" "DestroyNotify"-    IO ()---loggerSetRequestFilter ::-    (MonadIO m, LoggerK a) =>-    a                                       -- _obj-    -> LoggerFilter                         -- requestFilter-    -> m ()                                 -- result-loggerSetRequestFilter _obj requestFilter = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    requestFilter' <- mkLoggerFilter (loggerFilterWrapper Nothing requestFilter)-    let filterData = castFunPtrToPtr requestFilter'-    let destroy = safeFreeFunPtrPtr-    soup_logger_set_request_filter _obj' requestFilter' filterData destroy-    touchManagedPtr _obj-    return ()--data LoggerSetRequestFilterMethodInfo-instance (signature ~ (LoggerFilter -> m ()), MonadIO m, LoggerK a) => MethodInfo LoggerSetRequestFilterMethodInfo a signature where-    overloadedMethod _ = loggerSetRequestFilter---- method Logger::set_response_filter--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Logger", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_filter", argType = TInterface "Soup" "LoggerFilter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_logger_set_response_filter" soup_logger_set_response_filter :: -    Ptr Logger ->                           -- _obj : TInterface "Soup" "Logger"-    FunPtr LoggerFilterC ->                 -- response_filter : TInterface "Soup" "LoggerFilter"-    Ptr () ->                               -- filter_data : TBasicType TPtr-    FunPtr GLib.DestroyNotifyC ->           -- destroy : TInterface "GLib" "DestroyNotify"-    IO ()---loggerSetResponseFilter ::-    (MonadIO m, LoggerK a) =>-    a                                       -- _obj-    -> LoggerFilter                         -- responseFilter-    -> m ()                                 -- result-loggerSetResponseFilter _obj responseFilter = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    responseFilter' <- mkLoggerFilter (loggerFilterWrapper Nothing responseFilter)-    let filterData = castFunPtrToPtr responseFilter'-    let destroy = safeFreeFunPtrPtr-    soup_logger_set_response_filter _obj' responseFilter' filterData destroy-    touchManagedPtr _obj-    return ()--data LoggerSetResponseFilterMethodInfo-instance (signature ~ (LoggerFilter -> m ()), MonadIO m, LoggerK a) => MethodInfo LoggerSetResponseFilterMethodInfo a signature where-    overloadedMethod _ = loggerSetResponseFilter--
− GI/Soup/Objects/Logger.hs-boot 
@@ -1,18 +0,0 @@-module GI.Soup.Objects.Logger where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Logger = Logger (ForeignPtr Logger)-instance GObject Logger where-class GObject o => LoggerK o-instance (GObject o, IsDescendantOf Logger o) => LoggerK o-data LoggerAttachMethodInfo-data LoggerDetachMethodInfo-data LoggerSetPrinterMethodInfo-data LoggerSetRequestFilterMethodInfo-data LoggerSetResponseFilterMethodInfo
− GI/Soup/Objects/Message.hs 
@@ -1,2809 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Objects.Message-    ( ---- * Exported types-    Message(..)                             ,-    MessageK                                ,-    toMessage                               ,-    noMessage                               ,--- -- * Methods--- ** messageContentSniffed-    MessageContentSniffedMethodInfo         ,-    messageContentSniffed                   ,----- ** messageDisableFeature-    MessageDisableFeatureMethodInfo         ,-    messageDisableFeature                   ,----- ** messageFinished-    MessageFinishedMethodInfo               ,-    messageFinished                         ,----- ** messageGetAddress-    MessageGetAddressMethodInfo             ,-    messageGetAddress                       ,----- ** messageGetFirstParty-    MessageGetFirstPartyMethodInfo          ,-    messageGetFirstParty                    ,----- ** messageGetFlags-    MessageGetFlagsMethodInfo               ,-    messageGetFlags                         ,----- ** messageGetHttpVersion-    MessageGetHttpVersionMethodInfo         ,-    messageGetHttpVersion                   ,----- ** messageGetHttpsStatus-    MessageGetHttpsStatusMethodInfo         ,-    messageGetHttpsStatus                   ,----- ** messageGetPriority-    MessageGetPriorityMethodInfo            ,-    messageGetPriority                      ,----- ** messageGetSoupRequest-    MessageGetSoupRequestMethodInfo         ,-    messageGetSoupRequest                   ,----- ** messageGetUri-    MessageGetUriMethodInfo                 ,-    messageGetUri                           ,----- ** messageGotBody-    MessageGotBodyMethodInfo                ,-    messageGotBody                          ,----- ** messageGotChunk-    MessageGotChunkMethodInfo               ,-    messageGotChunk                         ,----- ** messageGotHeaders-    MessageGotHeadersMethodInfo             ,-    messageGotHeaders                       ,----- ** messageGotInformational-    MessageGotInformationalMethodInfo       ,-    messageGotInformational                 ,----- ** messageIsKeepalive-    MessageIsKeepaliveMethodInfo            ,-    messageIsKeepalive                      ,----- ** messageNew-    messageNew                              ,----- ** messageNewFromUri-    messageNewFromUri                       ,----- ** messageRestarted-    MessageRestartedMethodInfo              ,-    messageRestarted                        ,----- ** messageSetChunkAllocator-    MessageSetChunkAllocatorMethodInfo      ,-    messageSetChunkAllocator                ,----- ** messageSetFirstParty-    MessageSetFirstPartyMethodInfo          ,-    messageSetFirstParty                    ,----- ** messageSetFlags-    MessageSetFlagsMethodInfo               ,-    messageSetFlags                         ,----- ** messageSetHttpVersion-    MessageSetHttpVersionMethodInfo         ,-    messageSetHttpVersion                   ,----- ** messageSetPriority-    MessageSetPriorityMethodInfo            ,-    messageSetPriority                      ,----- ** messageSetRedirect-    MessageSetRedirectMethodInfo            ,-    messageSetRedirect                      ,----- ** messageSetRequest-    MessageSetRequestMethodInfo             ,-    messageSetRequest                       ,----- ** messageSetResponse-    MessageSetResponseMethodInfo            ,-    messageSetResponse                      ,----- ** messageSetStatus-    MessageSetStatusMethodInfo              ,-    messageSetStatus                        ,----- ** messageSetStatusFull-    MessageSetStatusFullMethodInfo          ,-    messageSetStatusFull                    ,----- ** messageSetUri-    MessageSetUriMethodInfo                 ,-    messageSetUri                           ,----- ** messageStarting-    MessageStartingMethodInfo               ,-    messageStarting                         ,----- ** messageWroteBody-    MessageWroteBodyMethodInfo              ,-    messageWroteBody                        ,----- ** messageWroteBodyData-    MessageWroteBodyDataMethodInfo          ,-    messageWroteBodyData                    ,----- ** messageWroteChunk-    MessageWroteChunkMethodInfo             ,-    messageWroteChunk                       ,----- ** messageWroteHeaders-    MessageWroteHeadersMethodInfo           ,-    messageWroteHeaders                     ,----- ** messageWroteInformational-    MessageWroteInformationalMethodInfo     ,-    messageWroteInformational               ,----- -- * Properties--- ** FirstParty-    MessageFirstPartyPropertyInfo           ,-    constructMessageFirstParty              ,-    getMessageFirstParty                    ,-    messageFirstParty                       ,-    setMessageFirstParty                    ,----- ** Flags-    MessageFlagsPropertyInfo                ,-    constructMessageFlags                   ,-    getMessageFlags                         ,-    messageFlags                            ,-    setMessageFlags                         ,----- ** HttpVersion-    MessageHttpVersionPropertyInfo          ,-    constructMessageHttpVersion             ,-    getMessageHttpVersion                   ,-    messageHttpVersion                      ,-    setMessageHttpVersion                   ,----- ** Method-    MessageMethodPropertyInfo               ,-    clearMessageMethod                      ,-    constructMessageMethod                  ,-    getMessageMethod                        ,-    messageMethod                           ,-    setMessageMethod                        ,----- ** Priority-    MessagePriorityPropertyInfo             ,-    constructMessagePriority                ,-    getMessagePriority                      ,-    messagePriority                         ,-    setMessagePriority                      ,----- ** ReasonPhrase-    MessageReasonPhrasePropertyInfo         ,-    clearMessageReasonPhrase                ,-    constructMessageReasonPhrase            ,-    getMessageReasonPhrase                  ,-    messageReasonPhrase                     ,-    setMessageReasonPhrase                  ,----- ** RequestBody-    MessageRequestBodyPropertyInfo          ,-    getMessageRequestBody                   ,-    messageRequestBody                      ,----- ** RequestBodyData-    MessageRequestBodyDataPropertyInfo      ,-    getMessageRequestBodyData               ,-    messageRequestBodyData                  ,----- ** RequestHeaders-    MessageRequestHeadersPropertyInfo       ,-    getMessageRequestHeaders                ,-    messageRequestHeaders                   ,----- ** ResponseBody-    MessageResponseBodyPropertyInfo         ,-    getMessageResponseBody                  ,-    messageResponseBody                     ,----- ** ResponseBodyData-    MessageResponseBodyDataPropertyInfo     ,-    getMessageResponseBodyData              ,-    messageResponseBodyData                 ,----- ** ResponseHeaders-    MessageResponseHeadersPropertyInfo      ,-    getMessageResponseHeaders               ,-    messageResponseHeaders                  ,----- ** ServerSide-    MessageServerSidePropertyInfo           ,-    constructMessageServerSide              ,-    getMessageServerSide                    ,-    messageServerSide                       ,----- ** StatusCode-    MessageStatusCodePropertyInfo           ,-    constructMessageStatusCode              ,-    getMessageStatusCode                    ,-    messageStatusCode                       ,-    setMessageStatusCode                    ,----- ** TlsCertificate-    MessageTlsCertificatePropertyInfo       ,-    clearMessageTlsCertificate              ,-    constructMessageTlsCertificate          ,-    getMessageTlsCertificate                ,-    messageTlsCertificate                   ,-    setMessageTlsCertificate                ,----- ** TlsErrors-    MessageTlsErrorsPropertyInfo            ,-    constructMessageTlsErrors               ,-    getMessageTlsErrors                     ,-    messageTlsErrors                        ,-    setMessageTlsErrors                     ,----- ** Uri-    MessageUriPropertyInfo                  ,-    constructMessageUri                     ,-    getMessageUri                           ,-    messageUri                              ,-    setMessageUri                           ,----- -- * Signals--- ** ContentSniffed-    MessageContentSniffedCallback           ,-    MessageContentSniffedCallbackC          ,-    MessageContentSniffedSignalInfo         ,-    afterMessageContentSniffed              ,-    messageContentSniffedCallbackWrapper    ,-    messageContentSniffedClosure            ,-    mkMessageContentSniffedCallback         ,-    noMessageContentSniffedCallback         ,-    onMessageContentSniffed                 ,----- ** Finished-    MessageFinishedCallback                 ,-    MessageFinishedCallbackC                ,-    MessageFinishedSignalInfo               ,-    afterMessageFinished                    ,-    messageFinishedCallbackWrapper          ,-    messageFinishedClosure                  ,-    mkMessageFinishedCallback               ,-    noMessageFinishedCallback               ,-    onMessageFinished                       ,----- ** GotBody-    MessageGotBodyCallback                  ,-    MessageGotBodyCallbackC                 ,-    MessageGotBodySignalInfo                ,-    afterMessageGotBody                     ,-    messageGotBodyCallbackWrapper           ,-    messageGotBodyClosure                   ,-    mkMessageGotBodyCallback                ,-    noMessageGotBodyCallback                ,-    onMessageGotBody                        ,----- ** GotChunk-    MessageGotChunkCallback                 ,-    MessageGotChunkCallbackC                ,-    MessageGotChunkSignalInfo               ,-    afterMessageGotChunk                    ,-    messageGotChunkCallbackWrapper          ,-    messageGotChunkClosure                  ,-    mkMessageGotChunkCallback               ,-    noMessageGotChunkCallback               ,-    onMessageGotChunk                       ,----- ** GotHeaders-    MessageGotHeadersCallback               ,-    MessageGotHeadersCallbackC              ,-    MessageGotHeadersSignalInfo             ,-    afterMessageGotHeaders                  ,-    messageGotHeadersCallbackWrapper        ,-    messageGotHeadersClosure                ,-    mkMessageGotHeadersCallback             ,-    noMessageGotHeadersCallback             ,-    onMessageGotHeaders                     ,----- ** GotInformational-    MessageGotInformationalCallback         ,-    MessageGotInformationalCallbackC        ,-    MessageGotInformationalSignalInfo       ,-    afterMessageGotInformational            ,-    messageGotInformationalCallbackWrapper  ,-    messageGotInformationalClosure          ,-    mkMessageGotInformationalCallback       ,-    noMessageGotInformationalCallback       ,-    onMessageGotInformational               ,----- ** NetworkEvent-    MessageNetworkEventCallback             ,-    MessageNetworkEventCallbackC            ,-    MessageNetworkEventSignalInfo           ,-    afterMessageNetworkEvent                ,-    messageNetworkEventCallbackWrapper      ,-    messageNetworkEventClosure              ,-    mkMessageNetworkEventCallback           ,-    noMessageNetworkEventCallback           ,-    onMessageNetworkEvent                   ,----- ** Restarted-    MessageRestartedCallback                ,-    MessageRestartedCallbackC               ,-    MessageRestartedSignalInfo              ,-    afterMessageRestarted                   ,-    messageRestartedCallbackWrapper         ,-    messageRestartedClosure                 ,-    mkMessageRestartedCallback              ,-    noMessageRestartedCallback              ,-    onMessageRestarted                      ,----- ** Starting-    MessageStartingCallback                 ,-    MessageStartingCallbackC                ,-    MessageStartingSignalInfo               ,-    afterMessageStarting                    ,-    messageStartingCallbackWrapper          ,-    messageStartingClosure                  ,-    mkMessageStartingCallback               ,-    noMessageStartingCallback               ,-    onMessageStarting                       ,----- ** WroteBody-    MessageWroteBodyCallback                ,-    MessageWroteBodyCallbackC               ,-    MessageWroteBodySignalInfo              ,-    afterMessageWroteBody                   ,-    messageWroteBodyCallbackWrapper         ,-    messageWroteBodyClosure                 ,-    mkMessageWroteBodyCallback              ,-    noMessageWroteBodyCallback              ,-    onMessageWroteBody                      ,----- ** WroteBodyData-    MessageWroteBodyDataCallback            ,-    MessageWroteBodyDataCallbackC           ,-    MessageWroteBodyDataSignalInfo          ,-    afterMessageWroteBodyData               ,-    messageWroteBodyDataCallbackWrapper     ,-    messageWroteBodyDataClosure             ,-    mkMessageWroteBodyDataCallback          ,-    noMessageWroteBodyDataCallback          ,-    onMessageWroteBodyData                  ,----- ** WroteChunk-    MessageWroteChunkCallback               ,-    MessageWroteChunkCallbackC              ,-    MessageWroteChunkSignalInfo             ,-    afterMessageWroteChunk                  ,-    messageWroteChunkCallbackWrapper        ,-    messageWroteChunkClosure                ,-    mkMessageWroteChunkCallback             ,-    noMessageWroteChunkCallback             ,-    onMessageWroteChunk                     ,----- ** WroteHeaders-    MessageWroteHeadersCallback             ,-    MessageWroteHeadersCallbackC            ,-    MessageWroteHeadersSignalInfo           ,-    afterMessageWroteHeaders                ,-    messageWroteHeadersCallbackWrapper      ,-    messageWroteHeadersClosure              ,-    mkMessageWroteHeadersCallback           ,-    noMessageWroteHeadersCallback           ,-    onMessageWroteHeaders                   ,----- ** WroteInformational-    MessageWroteInformationalCallback       ,-    MessageWroteInformationalCallbackC      ,-    MessageWroteInformationalSignalInfo     ,-    afterMessageWroteInformational          ,-    messageWroteInformationalCallbackWrapper,-    messageWroteInformationalClosure        ,-    mkMessageWroteInformationalCallback     ,-    noMessageWroteInformationalCallback     ,-    onMessageWroteInformational             ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject-import qualified GI.Gio as Gio--newtype Message = Message (ForeignPtr Message)-foreign import ccall "soup_message_get_type"-    c_soup_message_get_type :: IO GType--type instance ParentTypes Message = MessageParentTypes-type MessageParentTypes = '[GObject.Object]--instance GObject Message where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_message_get_type-    --class GObject o => MessageK o-instance (GObject o, IsDescendantOf Message o) => MessageK o--toMessage :: MessageK o => o -> IO Message-toMessage = unsafeCastTo Message--noMessage :: Maybe Message-noMessage = Nothing--type family ResolveMessageMethod (t :: Symbol) (o :: *) :: * where-    ResolveMessageMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveMessageMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveMessageMethod "contentSniffed" o = MessageContentSniffedMethodInfo-    ResolveMessageMethod "disableFeature" o = MessageDisableFeatureMethodInfo-    ResolveMessageMethod "finished" o = MessageFinishedMethodInfo-    ResolveMessageMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveMessageMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveMessageMethod "gotBody" o = MessageGotBodyMethodInfo-    ResolveMessageMethod "gotChunk" o = MessageGotChunkMethodInfo-    ResolveMessageMethod "gotHeaders" o = MessageGotHeadersMethodInfo-    ResolveMessageMethod "gotInformational" o = MessageGotInformationalMethodInfo-    ResolveMessageMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveMessageMethod "isKeepalive" o = MessageIsKeepaliveMethodInfo-    ResolveMessageMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveMessageMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveMessageMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveMessageMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveMessageMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveMessageMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveMessageMethod "restarted" o = MessageRestartedMethodInfo-    ResolveMessageMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveMessageMethod "starting" o = MessageStartingMethodInfo-    ResolveMessageMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveMessageMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveMessageMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveMessageMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveMessageMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveMessageMethod "wroteBody" o = MessageWroteBodyMethodInfo-    ResolveMessageMethod "wroteBodyData" o = MessageWroteBodyDataMethodInfo-    ResolveMessageMethod "wroteChunk" o = MessageWroteChunkMethodInfo-    ResolveMessageMethod "wroteHeaders" o = MessageWroteHeadersMethodInfo-    ResolveMessageMethod "wroteInformational" o = MessageWroteInformationalMethodInfo-    ResolveMessageMethod "getAddress" o = MessageGetAddressMethodInfo-    ResolveMessageMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveMessageMethod "getFirstParty" o = MessageGetFirstPartyMethodInfo-    ResolveMessageMethod "getFlags" o = MessageGetFlagsMethodInfo-    ResolveMessageMethod "getHttpVersion" o = MessageGetHttpVersionMethodInfo-    ResolveMessageMethod "getHttpsStatus" o = MessageGetHttpsStatusMethodInfo-    ResolveMessageMethod "getPriority" o = MessageGetPriorityMethodInfo-    ResolveMessageMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveMessageMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveMessageMethod "getSoupRequest" o = MessageGetSoupRequestMethodInfo-    ResolveMessageMethod "getUri" o = MessageGetUriMethodInfo-    ResolveMessageMethod "setChunkAllocator" o = MessageSetChunkAllocatorMethodInfo-    ResolveMessageMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveMessageMethod "setFirstParty" o = MessageSetFirstPartyMethodInfo-    ResolveMessageMethod "setFlags" o = MessageSetFlagsMethodInfo-    ResolveMessageMethod "setHttpVersion" o = MessageSetHttpVersionMethodInfo-    ResolveMessageMethod "setPriority" o = MessageSetPriorityMethodInfo-    ResolveMessageMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveMessageMethod "setRedirect" o = MessageSetRedirectMethodInfo-    ResolveMessageMethod "setRequest" o = MessageSetRequestMethodInfo-    ResolveMessageMethod "setResponse" o = MessageSetResponseMethodInfo-    ResolveMessageMethod "setStatus" o = MessageSetStatusMethodInfo-    ResolveMessageMethod "setStatusFull" o = MessageSetStatusFullMethodInfo-    ResolveMessageMethod "setUri" o = MessageSetUriMethodInfo-    ResolveMessageMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveMessageMethod t Message, MethodInfo info Message p) => IsLabelProxy t (Message -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveMessageMethod t Message, MethodInfo info Message p) => IsLabel t (Message -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal Message::content-sniffed-type MessageContentSniffedCallback =-    T.Text ->-    Map.Map T.Text T.Text ->-    IO ()--noMessageContentSniffedCallback :: Maybe MessageContentSniffedCallback-noMessageContentSniffedCallback = Nothing--type MessageContentSniffedCallbackC =-    Ptr () ->                               -- object-    CString ->-    Ptr (GHashTable CString CString) ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMessageContentSniffedCallback :: MessageContentSniffedCallbackC -> IO (FunPtr MessageContentSniffedCallbackC)--messageContentSniffedClosure :: MessageContentSniffedCallback -> IO Closure-messageContentSniffedClosure cb = newCClosure =<< mkMessageContentSniffedCallback wrapped-    where wrapped = messageContentSniffedCallbackWrapper cb--messageContentSniffedCallbackWrapper ::-    MessageContentSniffedCallback ->-    Ptr () ->-    CString ->-    Ptr (GHashTable CString CString) ->-    Ptr () ->-    IO ()-messageContentSniffedCallbackWrapper _cb _ type_ params _ = do-    type_' <- cstringToText type_-    params' <- unpackGHashTable params-    let params'' = mapFirst cstringUnpackPtr params'-    params''' <- mapFirstA cstringToText params''-    let params'''' = mapSecond cstringUnpackPtr params'''-    params''''' <- mapSecondA cstringToText params''''-    let params'''''' = Map.fromList params'''''-    _cb  type_' params''''''--onMessageContentSniffed :: (GObject a, MonadIO m) => a -> MessageContentSniffedCallback -> m SignalHandlerId-onMessageContentSniffed obj cb = liftIO $ connectMessageContentSniffed obj cb SignalConnectBefore-afterMessageContentSniffed :: (GObject a, MonadIO m) => a -> MessageContentSniffedCallback -> m SignalHandlerId-afterMessageContentSniffed obj cb = connectMessageContentSniffed obj cb SignalConnectAfter--connectMessageContentSniffed :: (GObject a, MonadIO m) =>-                                a -> MessageContentSniffedCallback -> SignalConnectMode -> m SignalHandlerId-connectMessageContentSniffed obj cb after = liftIO $ do-    cb' <- mkMessageContentSniffedCallback (messageContentSniffedCallbackWrapper cb)-    connectSignalFunPtr obj "content-sniffed" cb' after---- signal Message::finished-type MessageFinishedCallback =-    IO ()--noMessageFinishedCallback :: Maybe MessageFinishedCallback-noMessageFinishedCallback = Nothing--type MessageFinishedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMessageFinishedCallback :: MessageFinishedCallbackC -> IO (FunPtr MessageFinishedCallbackC)--messageFinishedClosure :: MessageFinishedCallback -> IO Closure-messageFinishedClosure cb = newCClosure =<< mkMessageFinishedCallback wrapped-    where wrapped = messageFinishedCallbackWrapper cb--messageFinishedCallbackWrapper ::-    MessageFinishedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-messageFinishedCallbackWrapper _cb _ _ = do-    _cb --onMessageFinished :: (GObject a, MonadIO m) => a -> MessageFinishedCallback -> m SignalHandlerId-onMessageFinished obj cb = liftIO $ connectMessageFinished obj cb SignalConnectBefore-afterMessageFinished :: (GObject a, MonadIO m) => a -> MessageFinishedCallback -> m SignalHandlerId-afterMessageFinished obj cb = connectMessageFinished obj cb SignalConnectAfter--connectMessageFinished :: (GObject a, MonadIO m) =>-                          a -> MessageFinishedCallback -> SignalConnectMode -> m SignalHandlerId-connectMessageFinished obj cb after = liftIO $ do-    cb' <- mkMessageFinishedCallback (messageFinishedCallbackWrapper cb)-    connectSignalFunPtr obj "finished" cb' after---- signal Message::got-body-type MessageGotBodyCallback =-    IO ()--noMessageGotBodyCallback :: Maybe MessageGotBodyCallback-noMessageGotBodyCallback = Nothing--type MessageGotBodyCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMessageGotBodyCallback :: MessageGotBodyCallbackC -> IO (FunPtr MessageGotBodyCallbackC)--messageGotBodyClosure :: MessageGotBodyCallback -> IO Closure-messageGotBodyClosure cb = newCClosure =<< mkMessageGotBodyCallback wrapped-    where wrapped = messageGotBodyCallbackWrapper cb--messageGotBodyCallbackWrapper ::-    MessageGotBodyCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-messageGotBodyCallbackWrapper _cb _ _ = do-    _cb --onMessageGotBody :: (GObject a, MonadIO m) => a -> MessageGotBodyCallback -> m SignalHandlerId-onMessageGotBody obj cb = liftIO $ connectMessageGotBody obj cb SignalConnectBefore-afterMessageGotBody :: (GObject a, MonadIO m) => a -> MessageGotBodyCallback -> m SignalHandlerId-afterMessageGotBody obj cb = connectMessageGotBody obj cb SignalConnectAfter--connectMessageGotBody :: (GObject a, MonadIO m) =>-                         a -> MessageGotBodyCallback -> SignalConnectMode -> m SignalHandlerId-connectMessageGotBody obj cb after = liftIO $ do-    cb' <- mkMessageGotBodyCallback (messageGotBodyCallbackWrapper cb)-    connectSignalFunPtr obj "got-body" cb' after---- signal Message::got-chunk-type MessageGotChunkCallback =-    Buffer ->-    IO ()--noMessageGotChunkCallback :: Maybe MessageGotChunkCallback-noMessageGotChunkCallback = Nothing--type MessageGotChunkCallbackC =-    Ptr () ->                               -- object-    Ptr Buffer ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMessageGotChunkCallback :: MessageGotChunkCallbackC -> IO (FunPtr MessageGotChunkCallbackC)--messageGotChunkClosure :: MessageGotChunkCallback -> IO Closure-messageGotChunkClosure cb = newCClosure =<< mkMessageGotChunkCallback wrapped-    where wrapped = messageGotChunkCallbackWrapper cb--messageGotChunkCallbackWrapper ::-    MessageGotChunkCallback ->-    Ptr () ->-    Ptr Buffer ->-    Ptr () ->-    IO ()-messageGotChunkCallbackWrapper _cb _ chunk _ = do-    chunk' <- (newBoxed Buffer) chunk-    _cb  chunk'--onMessageGotChunk :: (GObject a, MonadIO m) => a -> MessageGotChunkCallback -> m SignalHandlerId-onMessageGotChunk obj cb = liftIO $ connectMessageGotChunk obj cb SignalConnectBefore-afterMessageGotChunk :: (GObject a, MonadIO m) => a -> MessageGotChunkCallback -> m SignalHandlerId-afterMessageGotChunk obj cb = connectMessageGotChunk obj cb SignalConnectAfter--connectMessageGotChunk :: (GObject a, MonadIO m) =>-                          a -> MessageGotChunkCallback -> SignalConnectMode -> m SignalHandlerId-connectMessageGotChunk obj cb after = liftIO $ do-    cb' <- mkMessageGotChunkCallback (messageGotChunkCallbackWrapper cb)-    connectSignalFunPtr obj "got-chunk" cb' after---- signal Message::got-headers-type MessageGotHeadersCallback =-    IO ()--noMessageGotHeadersCallback :: Maybe MessageGotHeadersCallback-noMessageGotHeadersCallback = Nothing--type MessageGotHeadersCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMessageGotHeadersCallback :: MessageGotHeadersCallbackC -> IO (FunPtr MessageGotHeadersCallbackC)--messageGotHeadersClosure :: MessageGotHeadersCallback -> IO Closure-messageGotHeadersClosure cb = newCClosure =<< mkMessageGotHeadersCallback wrapped-    where wrapped = messageGotHeadersCallbackWrapper cb--messageGotHeadersCallbackWrapper ::-    MessageGotHeadersCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-messageGotHeadersCallbackWrapper _cb _ _ = do-    _cb --onMessageGotHeaders :: (GObject a, MonadIO m) => a -> MessageGotHeadersCallback -> m SignalHandlerId-onMessageGotHeaders obj cb = liftIO $ connectMessageGotHeaders obj cb SignalConnectBefore-afterMessageGotHeaders :: (GObject a, MonadIO m) => a -> MessageGotHeadersCallback -> m SignalHandlerId-afterMessageGotHeaders obj cb = connectMessageGotHeaders obj cb SignalConnectAfter--connectMessageGotHeaders :: (GObject a, MonadIO m) =>-                            a -> MessageGotHeadersCallback -> SignalConnectMode -> m SignalHandlerId-connectMessageGotHeaders obj cb after = liftIO $ do-    cb' <- mkMessageGotHeadersCallback (messageGotHeadersCallbackWrapper cb)-    connectSignalFunPtr obj "got-headers" cb' after---- signal Message::got-informational-type MessageGotInformationalCallback =-    IO ()--noMessageGotInformationalCallback :: Maybe MessageGotInformationalCallback-noMessageGotInformationalCallback = Nothing--type MessageGotInformationalCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMessageGotInformationalCallback :: MessageGotInformationalCallbackC -> IO (FunPtr MessageGotInformationalCallbackC)--messageGotInformationalClosure :: MessageGotInformationalCallback -> IO Closure-messageGotInformationalClosure cb = newCClosure =<< mkMessageGotInformationalCallback wrapped-    where wrapped = messageGotInformationalCallbackWrapper cb--messageGotInformationalCallbackWrapper ::-    MessageGotInformationalCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-messageGotInformationalCallbackWrapper _cb _ _ = do-    _cb --onMessageGotInformational :: (GObject a, MonadIO m) => a -> MessageGotInformationalCallback -> m SignalHandlerId-onMessageGotInformational obj cb = liftIO $ connectMessageGotInformational obj cb SignalConnectBefore-afterMessageGotInformational :: (GObject a, MonadIO m) => a -> MessageGotInformationalCallback -> m SignalHandlerId-afterMessageGotInformational obj cb = connectMessageGotInformational obj cb SignalConnectAfter--connectMessageGotInformational :: (GObject a, MonadIO m) =>-                                  a -> MessageGotInformationalCallback -> SignalConnectMode -> m SignalHandlerId-connectMessageGotInformational obj cb after = liftIO $ do-    cb' <- mkMessageGotInformationalCallback (messageGotInformationalCallbackWrapper cb)-    connectSignalFunPtr obj "got-informational" cb' after---- signal Message::network-event-type MessageNetworkEventCallback =-    Gio.SocketClientEvent ->-    Gio.IOStream ->-    IO ()--noMessageNetworkEventCallback :: Maybe MessageNetworkEventCallback-noMessageNetworkEventCallback = Nothing--type MessageNetworkEventCallbackC =-    Ptr () ->                               -- object-    CUInt ->-    Ptr Gio.IOStream ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMessageNetworkEventCallback :: MessageNetworkEventCallbackC -> IO (FunPtr MessageNetworkEventCallbackC)--messageNetworkEventClosure :: MessageNetworkEventCallback -> IO Closure-messageNetworkEventClosure cb = newCClosure =<< mkMessageNetworkEventCallback wrapped-    where wrapped = messageNetworkEventCallbackWrapper cb--messageNetworkEventCallbackWrapper ::-    MessageNetworkEventCallback ->-    Ptr () ->-    CUInt ->-    Ptr Gio.IOStream ->-    Ptr () ->-    IO ()-messageNetworkEventCallbackWrapper _cb _ event connection _ = do-    let event' = (toEnum . fromIntegral) event-    connection' <- (newObject Gio.IOStream) connection-    _cb  event' connection'--onMessageNetworkEvent :: (GObject a, MonadIO m) => a -> MessageNetworkEventCallback -> m SignalHandlerId-onMessageNetworkEvent obj cb = liftIO $ connectMessageNetworkEvent obj cb SignalConnectBefore-afterMessageNetworkEvent :: (GObject a, MonadIO m) => a -> MessageNetworkEventCallback -> m SignalHandlerId-afterMessageNetworkEvent obj cb = connectMessageNetworkEvent obj cb SignalConnectAfter--connectMessageNetworkEvent :: (GObject a, MonadIO m) =>-                              a -> MessageNetworkEventCallback -> SignalConnectMode -> m SignalHandlerId-connectMessageNetworkEvent obj cb after = liftIO $ do-    cb' <- mkMessageNetworkEventCallback (messageNetworkEventCallbackWrapper cb)-    connectSignalFunPtr obj "network-event" cb' after---- signal Message::restarted-type MessageRestartedCallback =-    IO ()--noMessageRestartedCallback :: Maybe MessageRestartedCallback-noMessageRestartedCallback = Nothing--type MessageRestartedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMessageRestartedCallback :: MessageRestartedCallbackC -> IO (FunPtr MessageRestartedCallbackC)--messageRestartedClosure :: MessageRestartedCallback -> IO Closure-messageRestartedClosure cb = newCClosure =<< mkMessageRestartedCallback wrapped-    where wrapped = messageRestartedCallbackWrapper cb--messageRestartedCallbackWrapper ::-    MessageRestartedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-messageRestartedCallbackWrapper _cb _ _ = do-    _cb --onMessageRestarted :: (GObject a, MonadIO m) => a -> MessageRestartedCallback -> m SignalHandlerId-onMessageRestarted obj cb = liftIO $ connectMessageRestarted obj cb SignalConnectBefore-afterMessageRestarted :: (GObject a, MonadIO m) => a -> MessageRestartedCallback -> m SignalHandlerId-afterMessageRestarted obj cb = connectMessageRestarted obj cb SignalConnectAfter--connectMessageRestarted :: (GObject a, MonadIO m) =>-                           a -> MessageRestartedCallback -> SignalConnectMode -> m SignalHandlerId-connectMessageRestarted obj cb after = liftIO $ do-    cb' <- mkMessageRestartedCallback (messageRestartedCallbackWrapper cb)-    connectSignalFunPtr obj "restarted" cb' after---- signal Message::starting-type MessageStartingCallback =-    IO ()--noMessageStartingCallback :: Maybe MessageStartingCallback-noMessageStartingCallback = Nothing--type MessageStartingCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMessageStartingCallback :: MessageStartingCallbackC -> IO (FunPtr MessageStartingCallbackC)--messageStartingClosure :: MessageStartingCallback -> IO Closure-messageStartingClosure cb = newCClosure =<< mkMessageStartingCallback wrapped-    where wrapped = messageStartingCallbackWrapper cb--messageStartingCallbackWrapper ::-    MessageStartingCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-messageStartingCallbackWrapper _cb _ _ = do-    _cb --onMessageStarting :: (GObject a, MonadIO m) => a -> MessageStartingCallback -> m SignalHandlerId-onMessageStarting obj cb = liftIO $ connectMessageStarting obj cb SignalConnectBefore-afterMessageStarting :: (GObject a, MonadIO m) => a -> MessageStartingCallback -> m SignalHandlerId-afterMessageStarting obj cb = connectMessageStarting obj cb SignalConnectAfter--connectMessageStarting :: (GObject a, MonadIO m) =>-                          a -> MessageStartingCallback -> SignalConnectMode -> m SignalHandlerId-connectMessageStarting obj cb after = liftIO $ do-    cb' <- mkMessageStartingCallback (messageStartingCallbackWrapper cb)-    connectSignalFunPtr obj "starting" cb' after---- signal Message::wrote-body-type MessageWroteBodyCallback =-    IO ()--noMessageWroteBodyCallback :: Maybe MessageWroteBodyCallback-noMessageWroteBodyCallback = Nothing--type MessageWroteBodyCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMessageWroteBodyCallback :: MessageWroteBodyCallbackC -> IO (FunPtr MessageWroteBodyCallbackC)--messageWroteBodyClosure :: MessageWroteBodyCallback -> IO Closure-messageWroteBodyClosure cb = newCClosure =<< mkMessageWroteBodyCallback wrapped-    where wrapped = messageWroteBodyCallbackWrapper cb--messageWroteBodyCallbackWrapper ::-    MessageWroteBodyCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-messageWroteBodyCallbackWrapper _cb _ _ = do-    _cb --onMessageWroteBody :: (GObject a, MonadIO m) => a -> MessageWroteBodyCallback -> m SignalHandlerId-onMessageWroteBody obj cb = liftIO $ connectMessageWroteBody obj cb SignalConnectBefore-afterMessageWroteBody :: (GObject a, MonadIO m) => a -> MessageWroteBodyCallback -> m SignalHandlerId-afterMessageWroteBody obj cb = connectMessageWroteBody obj cb SignalConnectAfter--connectMessageWroteBody :: (GObject a, MonadIO m) =>-                           a -> MessageWroteBodyCallback -> SignalConnectMode -> m SignalHandlerId-connectMessageWroteBody obj cb after = liftIO $ do-    cb' <- mkMessageWroteBodyCallback (messageWroteBodyCallbackWrapper cb)-    connectSignalFunPtr obj "wrote-body" cb' after---- signal Message::wrote-body-data-type MessageWroteBodyDataCallback =-    Buffer ->-    IO ()--noMessageWroteBodyDataCallback :: Maybe MessageWroteBodyDataCallback-noMessageWroteBodyDataCallback = Nothing--type MessageWroteBodyDataCallbackC =-    Ptr () ->                               -- object-    Ptr Buffer ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMessageWroteBodyDataCallback :: MessageWroteBodyDataCallbackC -> IO (FunPtr MessageWroteBodyDataCallbackC)--messageWroteBodyDataClosure :: MessageWroteBodyDataCallback -> IO Closure-messageWroteBodyDataClosure cb = newCClosure =<< mkMessageWroteBodyDataCallback wrapped-    where wrapped = messageWroteBodyDataCallbackWrapper cb--messageWroteBodyDataCallbackWrapper ::-    MessageWroteBodyDataCallback ->-    Ptr () ->-    Ptr Buffer ->-    Ptr () ->-    IO ()-messageWroteBodyDataCallbackWrapper _cb _ chunk _ = do-    chunk' <- (newBoxed Buffer) chunk-    _cb  chunk'--onMessageWroteBodyData :: (GObject a, MonadIO m) => a -> MessageWroteBodyDataCallback -> m SignalHandlerId-onMessageWroteBodyData obj cb = liftIO $ connectMessageWroteBodyData obj cb SignalConnectBefore-afterMessageWroteBodyData :: (GObject a, MonadIO m) => a -> MessageWroteBodyDataCallback -> m SignalHandlerId-afterMessageWroteBodyData obj cb = connectMessageWroteBodyData obj cb SignalConnectAfter--connectMessageWroteBodyData :: (GObject a, MonadIO m) =>-                               a -> MessageWroteBodyDataCallback -> SignalConnectMode -> m SignalHandlerId-connectMessageWroteBodyData obj cb after = liftIO $ do-    cb' <- mkMessageWroteBodyDataCallback (messageWroteBodyDataCallbackWrapper cb)-    connectSignalFunPtr obj "wrote-body-data" cb' after---- signal Message::wrote-chunk-type MessageWroteChunkCallback =-    IO ()--noMessageWroteChunkCallback :: Maybe MessageWroteChunkCallback-noMessageWroteChunkCallback = Nothing--type MessageWroteChunkCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMessageWroteChunkCallback :: MessageWroteChunkCallbackC -> IO (FunPtr MessageWroteChunkCallbackC)--messageWroteChunkClosure :: MessageWroteChunkCallback -> IO Closure-messageWroteChunkClosure cb = newCClosure =<< mkMessageWroteChunkCallback wrapped-    where wrapped = messageWroteChunkCallbackWrapper cb--messageWroteChunkCallbackWrapper ::-    MessageWroteChunkCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-messageWroteChunkCallbackWrapper _cb _ _ = do-    _cb --onMessageWroteChunk :: (GObject a, MonadIO m) => a -> MessageWroteChunkCallback -> m SignalHandlerId-onMessageWroteChunk obj cb = liftIO $ connectMessageWroteChunk obj cb SignalConnectBefore-afterMessageWroteChunk :: (GObject a, MonadIO m) => a -> MessageWroteChunkCallback -> m SignalHandlerId-afterMessageWroteChunk obj cb = connectMessageWroteChunk obj cb SignalConnectAfter--connectMessageWroteChunk :: (GObject a, MonadIO m) =>-                            a -> MessageWroteChunkCallback -> SignalConnectMode -> m SignalHandlerId-connectMessageWroteChunk obj cb after = liftIO $ do-    cb' <- mkMessageWroteChunkCallback (messageWroteChunkCallbackWrapper cb)-    connectSignalFunPtr obj "wrote-chunk" cb' after---- signal Message::wrote-headers-type MessageWroteHeadersCallback =-    IO ()--noMessageWroteHeadersCallback :: Maybe MessageWroteHeadersCallback-noMessageWroteHeadersCallback = Nothing--type MessageWroteHeadersCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMessageWroteHeadersCallback :: MessageWroteHeadersCallbackC -> IO (FunPtr MessageWroteHeadersCallbackC)--messageWroteHeadersClosure :: MessageWroteHeadersCallback -> IO Closure-messageWroteHeadersClosure cb = newCClosure =<< mkMessageWroteHeadersCallback wrapped-    where wrapped = messageWroteHeadersCallbackWrapper cb--messageWroteHeadersCallbackWrapper ::-    MessageWroteHeadersCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-messageWroteHeadersCallbackWrapper _cb _ _ = do-    _cb --onMessageWroteHeaders :: (GObject a, MonadIO m) => a -> MessageWroteHeadersCallback -> m SignalHandlerId-onMessageWroteHeaders obj cb = liftIO $ connectMessageWroteHeaders obj cb SignalConnectBefore-afterMessageWroteHeaders :: (GObject a, MonadIO m) => a -> MessageWroteHeadersCallback -> m SignalHandlerId-afterMessageWroteHeaders obj cb = connectMessageWroteHeaders obj cb SignalConnectAfter--connectMessageWroteHeaders :: (GObject a, MonadIO m) =>-                              a -> MessageWroteHeadersCallback -> SignalConnectMode -> m SignalHandlerId-connectMessageWroteHeaders obj cb after = liftIO $ do-    cb' <- mkMessageWroteHeadersCallback (messageWroteHeadersCallbackWrapper cb)-    connectSignalFunPtr obj "wrote-headers" cb' after---- signal Message::wrote-informational-type MessageWroteInformationalCallback =-    IO ()--noMessageWroteInformationalCallback :: Maybe MessageWroteInformationalCallback-noMessageWroteInformationalCallback = Nothing--type MessageWroteInformationalCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkMessageWroteInformationalCallback :: MessageWroteInformationalCallbackC -> IO (FunPtr MessageWroteInformationalCallbackC)--messageWroteInformationalClosure :: MessageWroteInformationalCallback -> IO Closure-messageWroteInformationalClosure cb = newCClosure =<< mkMessageWroteInformationalCallback wrapped-    where wrapped = messageWroteInformationalCallbackWrapper cb--messageWroteInformationalCallbackWrapper ::-    MessageWroteInformationalCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-messageWroteInformationalCallbackWrapper _cb _ _ = do-    _cb --onMessageWroteInformational :: (GObject a, MonadIO m) => a -> MessageWroteInformationalCallback -> m SignalHandlerId-onMessageWroteInformational obj cb = liftIO $ connectMessageWroteInformational obj cb SignalConnectBefore-afterMessageWroteInformational :: (GObject a, MonadIO m) => a -> MessageWroteInformationalCallback -> m SignalHandlerId-afterMessageWroteInformational obj cb = connectMessageWroteInformational obj cb SignalConnectAfter--connectMessageWroteInformational :: (GObject a, MonadIO m) =>-                                    a -> MessageWroteInformationalCallback -> SignalConnectMode -> m SignalHandlerId-connectMessageWroteInformational obj cb after = liftIO $ do-    cb' <- mkMessageWroteInformationalCallback (messageWroteInformationalCallbackWrapper cb)-    connectSignalFunPtr obj "wrote-informational" cb' after---- VVV Prop "first-party"-   -- Type: TInterface "Soup" "URI"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getMessageFirstParty :: (MonadIO m, MessageK o) => o -> m URI-getMessageFirstParty obj = liftIO $ checkUnexpectedNothing "getMessageFirstParty" $ getObjectPropertyBoxed obj "first-party" URI--setMessageFirstParty :: (MonadIO m, MessageK o) => o -> URI -> m ()-setMessageFirstParty obj val = liftIO $ setObjectPropertyBoxed obj "first-party" (Just val)--constructMessageFirstParty :: URI -> IO ([Char], GValue)-constructMessageFirstParty val = constructObjectPropertyBoxed "first-party" (Just val)--data MessageFirstPartyPropertyInfo-instance AttrInfo MessageFirstPartyPropertyInfo where-    type AttrAllowedOps MessageFirstPartyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MessageFirstPartyPropertyInfo = (~) URI-    type AttrBaseTypeConstraint MessageFirstPartyPropertyInfo = MessageK-    type AttrGetType MessageFirstPartyPropertyInfo = URI-    type AttrLabel MessageFirstPartyPropertyInfo = "first-party"-    attrGet _ = getMessageFirstParty-    attrSet _ = setMessageFirstParty-    attrConstruct _ = constructMessageFirstParty-    attrClear _ = undefined---- VVV Prop "flags"-   -- Type: TInterface "Soup" "MessageFlags"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getMessageFlags :: (MonadIO m, MessageK o) => o -> m [MessageFlags]-getMessageFlags obj = liftIO $ getObjectPropertyFlags obj "flags"--setMessageFlags :: (MonadIO m, MessageK o) => o -> [MessageFlags] -> m ()-setMessageFlags obj val = liftIO $ setObjectPropertyFlags obj "flags" val--constructMessageFlags :: [MessageFlags] -> IO ([Char], GValue)-constructMessageFlags val = constructObjectPropertyFlags "flags" val--data MessageFlagsPropertyInfo-instance AttrInfo MessageFlagsPropertyInfo where-    type AttrAllowedOps MessageFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MessageFlagsPropertyInfo = (~) [MessageFlags]-    type AttrBaseTypeConstraint MessageFlagsPropertyInfo = MessageK-    type AttrGetType MessageFlagsPropertyInfo = [MessageFlags]-    type AttrLabel MessageFlagsPropertyInfo = "flags"-    attrGet _ = getMessageFlags-    attrSet _ = setMessageFlags-    attrConstruct _ = constructMessageFlags-    attrClear _ = undefined---- VVV Prop "http-version"-   -- Type: TInterface "Soup" "HTTPVersion"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getMessageHttpVersion :: (MonadIO m, MessageK o) => o -> m HTTPVersion-getMessageHttpVersion obj = liftIO $ getObjectPropertyEnum obj "http-version"--setMessageHttpVersion :: (MonadIO m, MessageK o) => o -> HTTPVersion -> m ()-setMessageHttpVersion obj val = liftIO $ setObjectPropertyEnum obj "http-version" val--constructMessageHttpVersion :: HTTPVersion -> IO ([Char], GValue)-constructMessageHttpVersion val = constructObjectPropertyEnum "http-version" val--data MessageHttpVersionPropertyInfo-instance AttrInfo MessageHttpVersionPropertyInfo where-    type AttrAllowedOps MessageHttpVersionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MessageHttpVersionPropertyInfo = (~) HTTPVersion-    type AttrBaseTypeConstraint MessageHttpVersionPropertyInfo = MessageK-    type AttrGetType MessageHttpVersionPropertyInfo = HTTPVersion-    type AttrLabel MessageHttpVersionPropertyInfo = "http-version"-    attrGet _ = getMessageHttpVersion-    attrSet _ = setMessageHttpVersion-    attrConstruct _ = constructMessageHttpVersion-    attrClear _ = undefined---- VVV Prop "method"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getMessageMethod :: (MonadIO m, MessageK o) => o -> m (Maybe T.Text)-getMessageMethod obj = liftIO $ getObjectPropertyString obj "method"--setMessageMethod :: (MonadIO m, MessageK o) => o -> T.Text -> m ()-setMessageMethod obj val = liftIO $ setObjectPropertyString obj "method" (Just val)--constructMessageMethod :: T.Text -> IO ([Char], GValue)-constructMessageMethod val = constructObjectPropertyString "method" (Just val)--clearMessageMethod :: (MonadIO m, MessageK o) => o -> m ()-clearMessageMethod obj = liftIO $ setObjectPropertyString obj "method" (Nothing :: Maybe T.Text)--data MessageMethodPropertyInfo-instance AttrInfo MessageMethodPropertyInfo where-    type AttrAllowedOps MessageMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint MessageMethodPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint MessageMethodPropertyInfo = MessageK-    type AttrGetType MessageMethodPropertyInfo = (Maybe T.Text)-    type AttrLabel MessageMethodPropertyInfo = "method"-    attrGet _ = getMessageMethod-    attrSet _ = setMessageMethod-    attrConstruct _ = constructMessageMethod-    attrClear _ = clearMessageMethod---- VVV Prop "priority"-   -- Type: TInterface "Soup" "MessagePriority"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getMessagePriority :: (MonadIO m, MessageK o) => o -> m MessagePriority-getMessagePriority obj = liftIO $ getObjectPropertyEnum obj "priority"--setMessagePriority :: (MonadIO m, MessageK o) => o -> MessagePriority -> m ()-setMessagePriority obj val = liftIO $ setObjectPropertyEnum obj "priority" val--constructMessagePriority :: MessagePriority -> IO ([Char], GValue)-constructMessagePriority val = constructObjectPropertyEnum "priority" val--data MessagePriorityPropertyInfo-instance AttrInfo MessagePriorityPropertyInfo where-    type AttrAllowedOps MessagePriorityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MessagePriorityPropertyInfo = (~) MessagePriority-    type AttrBaseTypeConstraint MessagePriorityPropertyInfo = MessageK-    type AttrGetType MessagePriorityPropertyInfo = MessagePriority-    type AttrLabel MessagePriorityPropertyInfo = "priority"-    attrGet _ = getMessagePriority-    attrSet _ = setMessagePriority-    attrConstruct _ = constructMessagePriority-    attrClear _ = undefined---- VVV Prop "reason-phrase"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getMessageReasonPhrase :: (MonadIO m, MessageK o) => o -> m (Maybe T.Text)-getMessageReasonPhrase obj = liftIO $ getObjectPropertyString obj "reason-phrase"--setMessageReasonPhrase :: (MonadIO m, MessageK o) => o -> T.Text -> m ()-setMessageReasonPhrase obj val = liftIO $ setObjectPropertyString obj "reason-phrase" (Just val)--constructMessageReasonPhrase :: T.Text -> IO ([Char], GValue)-constructMessageReasonPhrase val = constructObjectPropertyString "reason-phrase" (Just val)--clearMessageReasonPhrase :: (MonadIO m, MessageK o) => o -> m ()-clearMessageReasonPhrase obj = liftIO $ setObjectPropertyString obj "reason-phrase" (Nothing :: Maybe T.Text)--data MessageReasonPhrasePropertyInfo-instance AttrInfo MessageReasonPhrasePropertyInfo where-    type AttrAllowedOps MessageReasonPhrasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint MessageReasonPhrasePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint MessageReasonPhrasePropertyInfo = MessageK-    type AttrGetType MessageReasonPhrasePropertyInfo = (Maybe T.Text)-    type AttrLabel MessageReasonPhrasePropertyInfo = "reason-phrase"-    attrGet _ = getMessageReasonPhrase-    attrSet _ = setMessageReasonPhrase-    attrConstruct _ = constructMessageReasonPhrase-    attrClear _ = clearMessageReasonPhrase---- VVV Prop "request-body"-   -- Type: TInterface "Soup" "MessageBody"-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getMessageRequestBody :: (MonadIO m, MessageK o) => o -> m (Maybe MessageBody)-getMessageRequestBody obj = liftIO $ getObjectPropertyBoxed obj "request-body" MessageBody--data MessageRequestBodyPropertyInfo-instance AttrInfo MessageRequestBodyPropertyInfo where-    type AttrAllowedOps MessageRequestBodyPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint MessageRequestBodyPropertyInfo = (~) ()-    type AttrBaseTypeConstraint MessageRequestBodyPropertyInfo = MessageK-    type AttrGetType MessageRequestBodyPropertyInfo = (Maybe MessageBody)-    type AttrLabel MessageRequestBodyPropertyInfo = "request-body"-    attrGet _ = getMessageRequestBody-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "request-body-data"-   -- Type: TInterface "GLib" "Bytes"-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getMessageRequestBodyData :: (MonadIO m, MessageK o) => o -> m (Maybe GLib.Bytes)-getMessageRequestBodyData obj = liftIO $ getObjectPropertyBoxed obj "request-body-data" GLib.Bytes--data MessageRequestBodyDataPropertyInfo-instance AttrInfo MessageRequestBodyDataPropertyInfo where-    type AttrAllowedOps MessageRequestBodyDataPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint MessageRequestBodyDataPropertyInfo = (~) ()-    type AttrBaseTypeConstraint MessageRequestBodyDataPropertyInfo = MessageK-    type AttrGetType MessageRequestBodyDataPropertyInfo = (Maybe GLib.Bytes)-    type AttrLabel MessageRequestBodyDataPropertyInfo = "request-body-data"-    attrGet _ = getMessageRequestBodyData-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "request-headers"-   -- Type: TInterface "Soup" "MessageHeaders"-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getMessageRequestHeaders :: (MonadIO m, MessageK o) => o -> m (Maybe MessageHeaders)-getMessageRequestHeaders obj = liftIO $ getObjectPropertyBoxed obj "request-headers" MessageHeaders--data MessageRequestHeadersPropertyInfo-instance AttrInfo MessageRequestHeadersPropertyInfo where-    type AttrAllowedOps MessageRequestHeadersPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint MessageRequestHeadersPropertyInfo = (~) ()-    type AttrBaseTypeConstraint MessageRequestHeadersPropertyInfo = MessageK-    type AttrGetType MessageRequestHeadersPropertyInfo = (Maybe MessageHeaders)-    type AttrLabel MessageRequestHeadersPropertyInfo = "request-headers"-    attrGet _ = getMessageRequestHeaders-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "response-body"-   -- Type: TInterface "Soup" "MessageBody"-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getMessageResponseBody :: (MonadIO m, MessageK o) => o -> m (Maybe MessageBody)-getMessageResponseBody obj = liftIO $ getObjectPropertyBoxed obj "response-body" MessageBody--data MessageResponseBodyPropertyInfo-instance AttrInfo MessageResponseBodyPropertyInfo where-    type AttrAllowedOps MessageResponseBodyPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint MessageResponseBodyPropertyInfo = (~) ()-    type AttrBaseTypeConstraint MessageResponseBodyPropertyInfo = MessageK-    type AttrGetType MessageResponseBodyPropertyInfo = (Maybe MessageBody)-    type AttrLabel MessageResponseBodyPropertyInfo = "response-body"-    attrGet _ = getMessageResponseBody-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "response-body-data"-   -- Type: TInterface "GLib" "Bytes"-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getMessageResponseBodyData :: (MonadIO m, MessageK o) => o -> m (Maybe GLib.Bytes)-getMessageResponseBodyData obj = liftIO $ getObjectPropertyBoxed obj "response-body-data" GLib.Bytes--data MessageResponseBodyDataPropertyInfo-instance AttrInfo MessageResponseBodyDataPropertyInfo where-    type AttrAllowedOps MessageResponseBodyDataPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint MessageResponseBodyDataPropertyInfo = (~) ()-    type AttrBaseTypeConstraint MessageResponseBodyDataPropertyInfo = MessageK-    type AttrGetType MessageResponseBodyDataPropertyInfo = (Maybe GLib.Bytes)-    type AttrLabel MessageResponseBodyDataPropertyInfo = "response-body-data"-    attrGet _ = getMessageResponseBodyData-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "response-headers"-   -- Type: TInterface "Soup" "MessageHeaders"-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getMessageResponseHeaders :: (MonadIO m, MessageK o) => o -> m (Maybe MessageHeaders)-getMessageResponseHeaders obj = liftIO $ getObjectPropertyBoxed obj "response-headers" MessageHeaders--data MessageResponseHeadersPropertyInfo-instance AttrInfo MessageResponseHeadersPropertyInfo where-    type AttrAllowedOps MessageResponseHeadersPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint MessageResponseHeadersPropertyInfo = (~) ()-    type AttrBaseTypeConstraint MessageResponseHeadersPropertyInfo = MessageK-    type AttrGetType MessageResponseHeadersPropertyInfo = (Maybe MessageHeaders)-    type AttrLabel MessageResponseHeadersPropertyInfo = "response-headers"-    attrGet _ = getMessageResponseHeaders-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "server-side"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getMessageServerSide :: (MonadIO m, MessageK o) => o -> m Bool-getMessageServerSide obj = liftIO $ getObjectPropertyBool obj "server-side"--constructMessageServerSide :: Bool -> IO ([Char], GValue)-constructMessageServerSide val = constructObjectPropertyBool "server-side" val--data MessageServerSidePropertyInfo-instance AttrInfo MessageServerSidePropertyInfo where-    type AttrAllowedOps MessageServerSidePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MessageServerSidePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint MessageServerSidePropertyInfo = MessageK-    type AttrGetType MessageServerSidePropertyInfo = Bool-    type AttrLabel MessageServerSidePropertyInfo = "server-side"-    attrGet _ = getMessageServerSide-    attrSet _ = undefined-    attrConstruct _ = constructMessageServerSide-    attrClear _ = undefined---- VVV Prop "status-code"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getMessageStatusCode :: (MonadIO m, MessageK o) => o -> m Word32-getMessageStatusCode obj = liftIO $ getObjectPropertyUInt32 obj "status-code"--setMessageStatusCode :: (MonadIO m, MessageK o) => o -> Word32 -> m ()-setMessageStatusCode obj val = liftIO $ setObjectPropertyUInt32 obj "status-code" val--constructMessageStatusCode :: Word32 -> IO ([Char], GValue)-constructMessageStatusCode val = constructObjectPropertyUInt32 "status-code" val--data MessageStatusCodePropertyInfo-instance AttrInfo MessageStatusCodePropertyInfo where-    type AttrAllowedOps MessageStatusCodePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MessageStatusCodePropertyInfo = (~) Word32-    type AttrBaseTypeConstraint MessageStatusCodePropertyInfo = MessageK-    type AttrGetType MessageStatusCodePropertyInfo = Word32-    type AttrLabel MessageStatusCodePropertyInfo = "status-code"-    attrGet _ = getMessageStatusCode-    attrSet _ = setMessageStatusCode-    attrConstruct _ = constructMessageStatusCode-    attrClear _ = undefined---- VVV Prop "tls-certificate"-   -- Type: TInterface "Gio" "TlsCertificate"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getMessageTlsCertificate :: (MonadIO m, MessageK o) => o -> m (Maybe Gio.TlsCertificate)-getMessageTlsCertificate obj = liftIO $ getObjectPropertyObject obj "tls-certificate" Gio.TlsCertificate--setMessageTlsCertificate :: (MonadIO m, MessageK o, Gio.TlsCertificateK a) => o -> a -> m ()-setMessageTlsCertificate obj val = liftIO $ setObjectPropertyObject obj "tls-certificate" (Just val)--constructMessageTlsCertificate :: (Gio.TlsCertificateK a) => a -> IO ([Char], GValue)-constructMessageTlsCertificate val = constructObjectPropertyObject "tls-certificate" (Just val)--clearMessageTlsCertificate :: (MonadIO m, MessageK o) => o -> m ()-clearMessageTlsCertificate obj = liftIO $ setObjectPropertyObject obj "tls-certificate" (Nothing :: Maybe Gio.TlsCertificate)--data MessageTlsCertificatePropertyInfo-instance AttrInfo MessageTlsCertificatePropertyInfo where-    type AttrAllowedOps MessageTlsCertificatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint MessageTlsCertificatePropertyInfo = Gio.TlsCertificateK-    type AttrBaseTypeConstraint MessageTlsCertificatePropertyInfo = MessageK-    type AttrGetType MessageTlsCertificatePropertyInfo = (Maybe Gio.TlsCertificate)-    type AttrLabel MessageTlsCertificatePropertyInfo = "tls-certificate"-    attrGet _ = getMessageTlsCertificate-    attrSet _ = setMessageTlsCertificate-    attrConstruct _ = constructMessageTlsCertificate-    attrClear _ = clearMessageTlsCertificate---- VVV Prop "tls-errors"-   -- Type: TInterface "Gio" "TlsCertificateFlags"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getMessageTlsErrors :: (MonadIO m, MessageK o) => o -> m [Gio.TlsCertificateFlags]-getMessageTlsErrors obj = liftIO $ getObjectPropertyFlags obj "tls-errors"--setMessageTlsErrors :: (MonadIO m, MessageK o) => o -> [Gio.TlsCertificateFlags] -> m ()-setMessageTlsErrors obj val = liftIO $ setObjectPropertyFlags obj "tls-errors" val--constructMessageTlsErrors :: [Gio.TlsCertificateFlags] -> IO ([Char], GValue)-constructMessageTlsErrors val = constructObjectPropertyFlags "tls-errors" val--data MessageTlsErrorsPropertyInfo-instance AttrInfo MessageTlsErrorsPropertyInfo where-    type AttrAllowedOps MessageTlsErrorsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MessageTlsErrorsPropertyInfo = (~) [Gio.TlsCertificateFlags]-    type AttrBaseTypeConstraint MessageTlsErrorsPropertyInfo = MessageK-    type AttrGetType MessageTlsErrorsPropertyInfo = [Gio.TlsCertificateFlags]-    type AttrLabel MessageTlsErrorsPropertyInfo = "tls-errors"-    attrGet _ = getMessageTlsErrors-    attrSet _ = setMessageTlsErrors-    attrConstruct _ = constructMessageTlsErrors-    attrClear _ = undefined---- VVV Prop "uri"-   -- Type: TInterface "Soup" "URI"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getMessageUri :: (MonadIO m, MessageK o) => o -> m URI-getMessageUri obj = liftIO $ checkUnexpectedNothing "getMessageUri" $ getObjectPropertyBoxed obj "uri" URI--setMessageUri :: (MonadIO m, MessageK o) => o -> URI -> m ()-setMessageUri obj val = liftIO $ setObjectPropertyBoxed obj "uri" (Just val)--constructMessageUri :: URI -> IO ([Char], GValue)-constructMessageUri val = constructObjectPropertyBoxed "uri" (Just val)--data MessageUriPropertyInfo-instance AttrInfo MessageUriPropertyInfo where-    type AttrAllowedOps MessageUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MessageUriPropertyInfo = (~) URI-    type AttrBaseTypeConstraint MessageUriPropertyInfo = MessageK-    type AttrGetType MessageUriPropertyInfo = URI-    type AttrLabel MessageUriPropertyInfo = "uri"-    attrGet _ = getMessageUri-    attrSet _ = setMessageUri-    attrConstruct _ = constructMessageUri-    attrClear _ = undefined--type instance AttributeList Message = MessageAttributeList-type MessageAttributeList = ('[ '("firstParty", MessageFirstPartyPropertyInfo), '("flags", MessageFlagsPropertyInfo), '("httpVersion", MessageHttpVersionPropertyInfo), '("method", MessageMethodPropertyInfo), '("priority", MessagePriorityPropertyInfo), '("reasonPhrase", MessageReasonPhrasePropertyInfo), '("requestBody", MessageRequestBodyPropertyInfo), '("requestBodyData", MessageRequestBodyDataPropertyInfo), '("requestHeaders", MessageRequestHeadersPropertyInfo), '("responseBody", MessageResponseBodyPropertyInfo), '("responseBodyData", MessageResponseBodyDataPropertyInfo), '("responseHeaders", MessageResponseHeadersPropertyInfo), '("serverSide", MessageServerSidePropertyInfo), '("statusCode", MessageStatusCodePropertyInfo), '("tlsCertificate", MessageTlsCertificatePropertyInfo), '("tlsErrors", MessageTlsErrorsPropertyInfo), '("uri", MessageUriPropertyInfo)] :: [(Symbol, *)])--messageFirstParty :: AttrLabelProxy "firstParty"-messageFirstParty = AttrLabelProxy--messageFlags :: AttrLabelProxy "flags"-messageFlags = AttrLabelProxy--messageHttpVersion :: AttrLabelProxy "httpVersion"-messageHttpVersion = AttrLabelProxy--messageMethod :: AttrLabelProxy "method"-messageMethod = AttrLabelProxy--messagePriority :: AttrLabelProxy "priority"-messagePriority = AttrLabelProxy--messageReasonPhrase :: AttrLabelProxy "reasonPhrase"-messageReasonPhrase = AttrLabelProxy--messageRequestBody :: AttrLabelProxy "requestBody"-messageRequestBody = AttrLabelProxy--messageRequestBodyData :: AttrLabelProxy "requestBodyData"-messageRequestBodyData = AttrLabelProxy--messageRequestHeaders :: AttrLabelProxy "requestHeaders"-messageRequestHeaders = AttrLabelProxy--messageResponseBody :: AttrLabelProxy "responseBody"-messageResponseBody = AttrLabelProxy--messageResponseBodyData :: AttrLabelProxy "responseBodyData"-messageResponseBodyData = AttrLabelProxy--messageResponseHeaders :: AttrLabelProxy "responseHeaders"-messageResponseHeaders = AttrLabelProxy--messageServerSide :: AttrLabelProxy "serverSide"-messageServerSide = AttrLabelProxy--messageStatusCode :: AttrLabelProxy "statusCode"-messageStatusCode = AttrLabelProxy--messageTlsCertificate :: AttrLabelProxy "tlsCertificate"-messageTlsCertificate = AttrLabelProxy--messageTlsErrors :: AttrLabelProxy "tlsErrors"-messageTlsErrors = AttrLabelProxy--messageUri :: AttrLabelProxy "uri"-messageUri = AttrLabelProxy--data MessageContentSniffedSignalInfo-instance SignalInfo MessageContentSniffedSignalInfo where-    type HaskellCallbackType MessageContentSniffedSignalInfo = MessageContentSniffedCallback-    connectSignal _ = connectMessageContentSniffed--data MessageFinishedSignalInfo-instance SignalInfo MessageFinishedSignalInfo where-    type HaskellCallbackType MessageFinishedSignalInfo = MessageFinishedCallback-    connectSignal _ = connectMessageFinished--data MessageGotBodySignalInfo-instance SignalInfo MessageGotBodySignalInfo where-    type HaskellCallbackType MessageGotBodySignalInfo = MessageGotBodyCallback-    connectSignal _ = connectMessageGotBody--data MessageGotChunkSignalInfo-instance SignalInfo MessageGotChunkSignalInfo where-    type HaskellCallbackType MessageGotChunkSignalInfo = MessageGotChunkCallback-    connectSignal _ = connectMessageGotChunk--data MessageGotHeadersSignalInfo-instance SignalInfo MessageGotHeadersSignalInfo where-    type HaskellCallbackType MessageGotHeadersSignalInfo = MessageGotHeadersCallback-    connectSignal _ = connectMessageGotHeaders--data MessageGotInformationalSignalInfo-instance SignalInfo MessageGotInformationalSignalInfo where-    type HaskellCallbackType MessageGotInformationalSignalInfo = MessageGotInformationalCallback-    connectSignal _ = connectMessageGotInformational--data MessageNetworkEventSignalInfo-instance SignalInfo MessageNetworkEventSignalInfo where-    type HaskellCallbackType MessageNetworkEventSignalInfo = MessageNetworkEventCallback-    connectSignal _ = connectMessageNetworkEvent--data MessageRestartedSignalInfo-instance SignalInfo MessageRestartedSignalInfo where-    type HaskellCallbackType MessageRestartedSignalInfo = MessageRestartedCallback-    connectSignal _ = connectMessageRestarted--data MessageStartingSignalInfo-instance SignalInfo MessageStartingSignalInfo where-    type HaskellCallbackType MessageStartingSignalInfo = MessageStartingCallback-    connectSignal _ = connectMessageStarting--data MessageWroteBodySignalInfo-instance SignalInfo MessageWroteBodySignalInfo where-    type HaskellCallbackType MessageWroteBodySignalInfo = MessageWroteBodyCallback-    connectSignal _ = connectMessageWroteBody--data MessageWroteBodyDataSignalInfo-instance SignalInfo MessageWroteBodyDataSignalInfo where-    type HaskellCallbackType MessageWroteBodyDataSignalInfo = MessageWroteBodyDataCallback-    connectSignal _ = connectMessageWroteBodyData--data MessageWroteChunkSignalInfo-instance SignalInfo MessageWroteChunkSignalInfo where-    type HaskellCallbackType MessageWroteChunkSignalInfo = MessageWroteChunkCallback-    connectSignal _ = connectMessageWroteChunk--data MessageWroteHeadersSignalInfo-instance SignalInfo MessageWroteHeadersSignalInfo where-    type HaskellCallbackType MessageWroteHeadersSignalInfo = MessageWroteHeadersCallback-    connectSignal _ = connectMessageWroteHeaders--data MessageWroteInformationalSignalInfo-instance SignalInfo MessageWroteInformationalSignalInfo where-    type HaskellCallbackType MessageWroteInformationalSignalInfo = MessageWroteInformationalCallback-    connectSignal _ = connectMessageWroteInformational--type instance SignalList Message = MessageSignalList-type MessageSignalList = ('[ '("contentSniffed", MessageContentSniffedSignalInfo), '("finished", MessageFinishedSignalInfo), '("gotBody", MessageGotBodySignalInfo), '("gotChunk", MessageGotChunkSignalInfo), '("gotHeaders", MessageGotHeadersSignalInfo), '("gotInformational", MessageGotInformationalSignalInfo), '("networkEvent", MessageNetworkEventSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("restarted", MessageRestartedSignalInfo), '("starting", MessageStartingSignalInfo), '("wroteBody", MessageWroteBodySignalInfo), '("wroteBodyData", MessageWroteBodyDataSignalInfo), '("wroteChunk", MessageWroteChunkSignalInfo), '("wroteHeaders", MessageWroteHeadersSignalInfo), '("wroteInformational", MessageWroteInformationalSignalInfo)] :: [(Symbol, *)])---- method Message::new--- method type : Constructor--- Args : [Arg {argCName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Message")--- throws : False--- Skip return : False--foreign import ccall "soup_message_new" soup_message_new :: -    CString ->                              -- method : TBasicType TUTF8-    CString ->                              -- uri_string : TBasicType TUTF8-    IO (Ptr Message)---messageNew ::-    (MonadIO m) =>-    T.Text                                  -- method-    -> T.Text                               -- uriString-    -> m (Maybe Message)                    -- result-messageNew method uriString = liftIO $ do-    method' <- textToCString method-    uriString' <- textToCString uriString-    result <- soup_message_new method' uriString'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapObject Message) result'-        return result''-    freeMem method'-    freeMem uriString'-    return maybeResult---- method Message::new_from_uri--- method type : Constructor--- Args : [Arg {argCName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Message")--- throws : False--- Skip return : False--foreign import ccall "soup_message_new_from_uri" soup_message_new_from_uri :: -    CString ->                              -- method : TBasicType TUTF8-    Ptr URI ->                              -- uri : TInterface "Soup" "URI"-    IO (Ptr Message)---messageNewFromUri ::-    (MonadIO m) =>-    T.Text                                  -- method-    -> URI                                  -- uri-    -> m Message                            -- result-messageNewFromUri method uri = liftIO $ do-    method' <- textToCString method-    let uri' = unsafeManagedPtrGetPtr uri-    result <- soup_message_new_from_uri method' uri'-    checkUnexpectedReturnNULL "soup_message_new_from_uri" result-    result' <- (wrapObject Message) result-    touchManagedPtr uri-    freeMem method'-    return result'---- method Message::content_sniffed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TGHash (TBasicType TPtr) (TBasicType TPtr), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_content_sniffed" soup_message_content_sniffed :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    CString ->                              -- content_type : TBasicType TUTF8-    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- params : TGHash (TBasicType TPtr) (TBasicType TPtr)-    IO ()---messageContentSniffed ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> T.Text                               -- contentType-    -> Map.Map (Ptr ()) (Ptr ())            -- params-    -> m ()                                 -- result-messageContentSniffed _obj contentType params = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    contentType' <- textToCString contentType-    let params' = Map.toList params-    let params'' = mapFirst ptrPackPtr params'-    let params''' = mapSecond ptrPackPtr params''-    params'''' <- packGHashTable gDirectHash gDirectEqual Nothing Nothing params'''-    soup_message_content_sniffed _obj' contentType' params''''-    touchManagedPtr _obj-    freeMem contentType'-    unrefGHashTable params''''-    return ()--data MessageContentSniffedMethodInfo-instance (signature ~ (T.Text -> Map.Map (Ptr ()) (Ptr ()) -> m ()), MonadIO m, MessageK a) => MethodInfo MessageContentSniffedMethodInfo a signature where-    overloadedMethod _ = messageContentSniffed---- method Message::disable_feature--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_disable_feature" soup_message_disable_feature :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    CGType ->                               -- feature_type : TBasicType TGType-    IO ()---messageDisableFeature ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> GType                                -- featureType-    -> m ()                                 -- result-messageDisableFeature _obj featureType = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let featureType' = gtypeToCGType featureType-    soup_message_disable_feature _obj' featureType'-    touchManagedPtr _obj-    return ()--data MessageDisableFeatureMethodInfo-instance (signature ~ (GType -> m ()), MonadIO m, MessageK a) => MethodInfo MessageDisableFeatureMethodInfo a signature where-    overloadedMethod _ = messageDisableFeature---- method Message::finished--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_finished" soup_message_finished :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO ()---messageFinished ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-messageFinished _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_message_finished _obj'-    touchManagedPtr _obj-    return ()--data MessageFinishedMethodInfo-instance (signature ~ (m ()), MonadIO m, MessageK a) => MethodInfo MessageFinishedMethodInfo a signature where-    overloadedMethod _ = messageFinished---- method Message::get_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Address")--- throws : False--- Skip return : False--foreign import ccall "soup_message_get_address" soup_message_get_address :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO (Ptr Address)---messageGetAddress ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> m Address                            -- result-messageGetAddress _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_message_get_address _obj'-    checkUnexpectedReturnNULL "soup_message_get_address" result-    result' <- (newObject Address) result-    touchManagedPtr _obj-    return result'--data MessageGetAddressMethodInfo-instance (signature ~ (m Address), MonadIO m, MessageK a) => MethodInfo MessageGetAddressMethodInfo a signature where-    overloadedMethod _ = messageGetAddress---- method Message::get_first_party--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "URI")--- throws : False--- Skip return : False--foreign import ccall "soup_message_get_first_party" soup_message_get_first_party :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO (Ptr URI)---messageGetFirstParty ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> m URI                                -- result-messageGetFirstParty _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_message_get_first_party _obj'-    checkUnexpectedReturnNULL "soup_message_get_first_party" result-    result' <- (newBoxed URI) result-    touchManagedPtr _obj-    return result'--data MessageGetFirstPartyMethodInfo-instance (signature ~ (m URI), MonadIO m, MessageK a) => MethodInfo MessageGetFirstPartyMethodInfo a signature where-    overloadedMethod _ = messageGetFirstParty---- method Message::get_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "MessageFlags")--- throws : False--- Skip return : False--foreign import ccall "soup_message_get_flags" soup_message_get_flags :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO CUInt---messageGetFlags ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> m [MessageFlags]                     -- result-messageGetFlags _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_message_get_flags _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'--data MessageGetFlagsMethodInfo-instance (signature ~ (m [MessageFlags]), MonadIO m, MessageK a) => MethodInfo MessageGetFlagsMethodInfo a signature where-    overloadedMethod _ = messageGetFlags---- method Message::get_http_version--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "HTTPVersion")--- throws : False--- Skip return : False--foreign import ccall "soup_message_get_http_version" soup_message_get_http_version :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO CUInt---messageGetHttpVersion ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> m HTTPVersion                        -- result-messageGetHttpVersion _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_message_get_http_version _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data MessageGetHttpVersionMethodInfo-instance (signature ~ (m HTTPVersion), MonadIO m, MessageK a) => MethodInfo MessageGetHttpVersionMethodInfo a signature where-    overloadedMethod _ = messageGetHttpVersion---- method Message::get_https_status--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "certificate", argType = TInterface "Gio" "TlsCertificate", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "errors", argType = TInterface "Gio" "TlsCertificateFlags", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_message_get_https_status" soup_message_get_https_status :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    Ptr (Ptr Gio.TlsCertificate) ->         -- certificate : TInterface "Gio" "TlsCertificate"-    Ptr CUInt ->                            -- errors : TInterface "Gio" "TlsCertificateFlags"-    IO CInt---messageGetHttpsStatus ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> m (Bool,Gio.TlsCertificate,[Gio.TlsCertificateFlags])-- result-messageGetHttpsStatus _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    certificate <- allocMem :: IO (Ptr (Ptr Gio.TlsCertificate))-    errors <- allocMem :: IO (Ptr CUInt)-    result <- soup_message_get_https_status _obj' certificate errors-    let result' = (/= 0) result-    certificate' <- peek certificate-    certificate'' <- (newObject Gio.TlsCertificate) certificate'-    errors' <- peek errors-    let errors'' = wordToGFlags errors'-    touchManagedPtr _obj-    freeMem certificate-    freeMem errors-    return (result', certificate'', errors'')--data MessageGetHttpsStatusMethodInfo-instance (signature ~ (m (Bool,Gio.TlsCertificate,[Gio.TlsCertificateFlags])), MonadIO m, MessageK a) => MethodInfo MessageGetHttpsStatusMethodInfo a signature where-    overloadedMethod _ = messageGetHttpsStatus---- method Message::get_priority--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "MessagePriority")--- throws : False--- Skip return : False--foreign import ccall "soup_message_get_priority" soup_message_get_priority :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO CUInt---messageGetPriority ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> m MessagePriority                    -- result-messageGetPriority _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_message_get_priority _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data MessageGetPriorityMethodInfo-instance (signature ~ (m MessagePriority), MonadIO m, MessageK a) => MethodInfo MessageGetPriorityMethodInfo a signature where-    overloadedMethod _ = messageGetPriority---- method Message::get_soup_request--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Request")--- throws : False--- Skip return : False--foreign import ccall "soup_message_get_soup_request" soup_message_get_soup_request :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO (Ptr Request)---messageGetSoupRequest ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> m Request                            -- result-messageGetSoupRequest _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_message_get_soup_request _obj'-    checkUnexpectedReturnNULL "soup_message_get_soup_request" result-    result' <- (newObject Request) result-    touchManagedPtr _obj-    return result'--data MessageGetSoupRequestMethodInfo-instance (signature ~ (m Request), MonadIO m, MessageK a) => MethodInfo MessageGetSoupRequestMethodInfo a signature where-    overloadedMethod _ = messageGetSoupRequest---- method Message::get_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "URI")--- throws : False--- Skip return : False--foreign import ccall "soup_message_get_uri" soup_message_get_uri :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO (Ptr URI)---messageGetUri ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> m URI                                -- result-messageGetUri _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_message_get_uri _obj'-    checkUnexpectedReturnNULL "soup_message_get_uri" result-    result' <- (newBoxed URI) result-    touchManagedPtr _obj-    return result'--data MessageGetUriMethodInfo-instance (signature ~ (m URI), MonadIO m, MessageK a) => MethodInfo MessageGetUriMethodInfo a signature where-    overloadedMethod _ = messageGetUri---- method Message::got_body--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_got_body" soup_message_got_body :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO ()---messageGotBody ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-messageGotBody _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_message_got_body _obj'-    touchManagedPtr _obj-    return ()--data MessageGotBodyMethodInfo-instance (signature ~ (m ()), MonadIO m, MessageK a) => MethodInfo MessageGotBodyMethodInfo a signature where-    overloadedMethod _ = messageGotBody---- method Message::got_chunk--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_got_chunk" soup_message_got_chunk :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    Ptr Buffer ->                           -- chunk : TInterface "Soup" "Buffer"-    IO ()---messageGotChunk ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> Buffer                               -- chunk-    -> m ()                                 -- result-messageGotChunk _obj chunk = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let chunk' = unsafeManagedPtrGetPtr chunk-    soup_message_got_chunk _obj' chunk'-    touchManagedPtr _obj-    touchManagedPtr chunk-    return ()--data MessageGotChunkMethodInfo-instance (signature ~ (Buffer -> m ()), MonadIO m, MessageK a) => MethodInfo MessageGotChunkMethodInfo a signature where-    overloadedMethod _ = messageGotChunk---- method Message::got_headers--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_got_headers" soup_message_got_headers :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO ()---messageGotHeaders ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-messageGotHeaders _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_message_got_headers _obj'-    touchManagedPtr _obj-    return ()--data MessageGotHeadersMethodInfo-instance (signature ~ (m ()), MonadIO m, MessageK a) => MethodInfo MessageGotHeadersMethodInfo a signature where-    overloadedMethod _ = messageGotHeaders---- method Message::got_informational--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_got_informational" soup_message_got_informational :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO ()---messageGotInformational ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-messageGotInformational _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_message_got_informational _obj'-    touchManagedPtr _obj-    return ()--data MessageGotInformationalMethodInfo-instance (signature ~ (m ()), MonadIO m, MessageK a) => MethodInfo MessageGotInformationalMethodInfo a signature where-    overloadedMethod _ = messageGotInformational---- method Message::is_keepalive--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_message_is_keepalive" soup_message_is_keepalive :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO CInt---messageIsKeepalive ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-messageIsKeepalive _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_message_is_keepalive _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data MessageIsKeepaliveMethodInfo-instance (signature ~ (m Bool), MonadIO m, MessageK a) => MethodInfo MessageIsKeepaliveMethodInfo a signature where-    overloadedMethod _ = messageIsKeepalive---- method Message::restarted--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_restarted" soup_message_restarted :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO ()---messageRestarted ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-messageRestarted _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_message_restarted _obj'-    touchManagedPtr _obj-    return ()--data MessageRestartedMethodInfo-instance (signature ~ (m ()), MonadIO m, MessageK a) => MethodInfo MessageRestartedMethodInfo a signature where-    overloadedMethod _ = messageRestarted---- method Message::set_chunk_allocator--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocator", argType = TInterface "Soup" "ChunkAllocator", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy_notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_set_chunk_allocator" soup_message_set_chunk_allocator :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    FunPtr ChunkAllocatorC ->               -- allocator : TInterface "Soup" "ChunkAllocator"-    Ptr () ->                               -- user_data : TBasicType TPtr-    FunPtr GLib.DestroyNotifyC ->           -- destroy_notify : TInterface "GLib" "DestroyNotify"-    IO ()--{-# DEPRECATED messageSetChunkAllocator ["#SoupRequest provides a much simpler API that lets you","read the response directly into your own buffers without needing to","mess with callbacks, pausing/unpausing, etc."]#-}-messageSetChunkAllocator ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> ChunkAllocator                       -- allocator-    -> m ()                                 -- result-messageSetChunkAllocator _obj allocator = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    allocator' <- mkChunkAllocator (chunkAllocatorWrapper Nothing allocator)-    let userData = castFunPtrToPtr allocator'-    let destroyNotify = safeFreeFunPtrPtr-    soup_message_set_chunk_allocator _obj' allocator' userData destroyNotify-    touchManagedPtr _obj-    return ()--data MessageSetChunkAllocatorMethodInfo-instance (signature ~ (ChunkAllocator -> m ()), MonadIO m, MessageK a) => MethodInfo MessageSetChunkAllocatorMethodInfo a signature where-    overloadedMethod _ = messageSetChunkAllocator---- method Message::set_first_party--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "first_party", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_set_first_party" soup_message_set_first_party :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    Ptr URI ->                              -- first_party : TInterface "Soup" "URI"-    IO ()---messageSetFirstParty ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> URI                                  -- firstParty-    -> m ()                                 -- result-messageSetFirstParty _obj firstParty = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let firstParty' = unsafeManagedPtrGetPtr firstParty-    soup_message_set_first_party _obj' firstParty'-    touchManagedPtr _obj-    touchManagedPtr firstParty-    return ()--data MessageSetFirstPartyMethodInfo-instance (signature ~ (URI -> m ()), MonadIO m, MessageK a) => MethodInfo MessageSetFirstPartyMethodInfo a signature where-    overloadedMethod _ = messageSetFirstParty---- method Message::set_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Soup" "MessageFlags", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_set_flags" soup_message_set_flags :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    CUInt ->                                -- flags : TInterface "Soup" "MessageFlags"-    IO ()---messageSetFlags ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> [MessageFlags]                       -- flags-    -> m ()                                 -- result-messageSetFlags _obj flags = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let flags' = gflagsToWord flags-    soup_message_set_flags _obj' flags'-    touchManagedPtr _obj-    return ()--data MessageSetFlagsMethodInfo-instance (signature ~ ([MessageFlags] -> m ()), MonadIO m, MessageK a) => MethodInfo MessageSetFlagsMethodInfo a signature where-    overloadedMethod _ = messageSetFlags---- method Message::set_http_version--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "version", argType = TInterface "Soup" "HTTPVersion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_set_http_version" soup_message_set_http_version :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    CUInt ->                                -- version : TInterface "Soup" "HTTPVersion"-    IO ()---messageSetHttpVersion ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> HTTPVersion                          -- version-    -> m ()                                 -- result-messageSetHttpVersion _obj version = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let version' = (fromIntegral . fromEnum) version-    soup_message_set_http_version _obj' version'-    touchManagedPtr _obj-    return ()--data MessageSetHttpVersionMethodInfo-instance (signature ~ (HTTPVersion -> m ()), MonadIO m, MessageK a) => MethodInfo MessageSetHttpVersionMethodInfo a signature where-    overloadedMethod _ = messageSetHttpVersion---- method Message::set_priority--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TInterface "Soup" "MessagePriority", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_set_priority" soup_message_set_priority :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    CUInt ->                                -- priority : TInterface "Soup" "MessagePriority"-    IO ()---messageSetPriority ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> MessagePriority                      -- priority-    -> m ()                                 -- result-messageSetPriority _obj priority = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let priority' = (fromIntegral . fromEnum) priority-    soup_message_set_priority _obj' priority'-    touchManagedPtr _obj-    return ()--data MessageSetPriorityMethodInfo-instance (signature ~ (MessagePriority -> m ()), MonadIO m, MessageK a) => MethodInfo MessageSetPriorityMethodInfo a signature where-    overloadedMethod _ = messageSetPriority---- method Message::set_redirect--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "status_code", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "redirect_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_set_redirect" soup_message_set_redirect :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    Word32 ->                               -- status_code : TBasicType TUInt-    CString ->                              -- redirect_uri : TBasicType TUTF8-    IO ()---messageSetRedirect ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> Word32                               -- statusCode-    -> T.Text                               -- redirectUri-    -> m ()                                 -- result-messageSetRedirect _obj statusCode redirectUri = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    redirectUri' <- textToCString redirectUri-    soup_message_set_redirect _obj' statusCode redirectUri'-    touchManagedPtr _obj-    freeMem redirectUri'-    return ()--data MessageSetRedirectMethodInfo-instance (signature ~ (Word32 -> T.Text -> m ()), MonadIO m, MessageK a) => MethodInfo MessageSetRedirectMethodInfo a signature where-    overloadedMethod _ = messageSetRedirect---- method Message::set_request--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "req_use", argType = TInterface "Soup" "MemoryUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "req_body", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "req_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "req_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_set_request" soup_message_set_request :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    CString ->                              -- content_type : TBasicType TUTF8-    CUInt ->                                -- req_use : TInterface "Soup" "MemoryUse"-    Ptr Word8 ->                            -- req_body : TCArray False (-1) 4 (TBasicType TUInt8)-    Word64 ->                               -- req_length : TBasicType TUInt64-    IO ()---messageSetRequest ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- contentType-    -> MemoryUse                            -- reqUse-    -> Maybe (ByteString)                   -- reqBody-    -> m ()                                 -- result-messageSetRequest _obj contentType reqUse reqBody = liftIO $ do-    let reqLength = case reqBody of-            Nothing -> 0-            Just jReqBody -> fromIntegral $ B.length jReqBody-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeContentType <- case contentType of-        Nothing -> return nullPtr-        Just jContentType -> do-            jContentType' <- textToCString jContentType-            return jContentType'-    let reqUse' = (fromIntegral . fromEnum) reqUse-    maybeReqBody <- case reqBody of-        Nothing -> return nullPtr-        Just jReqBody -> do-            jReqBody' <- packByteString jReqBody-            return jReqBody'-    soup_message_set_request _obj' maybeContentType reqUse' maybeReqBody reqLength-    touchManagedPtr _obj-    freeMem maybeContentType-    freeMem maybeReqBody-    return ()--data MessageSetRequestMethodInfo-instance (signature ~ (Maybe (T.Text) -> MemoryUse -> Maybe (ByteString) -> m ()), MonadIO m, MessageK a) => MethodInfo MessageSetRequestMethodInfo a signature where-    overloadedMethod _ = messageSetRequest---- method Message::set_response--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resp_use", argType = TInterface "Soup" "MemoryUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resp_body", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resp_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "resp_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_set_response" soup_message_set_response :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    CString ->                              -- content_type : TBasicType TUTF8-    CUInt ->                                -- resp_use : TInterface "Soup" "MemoryUse"-    Ptr Word8 ->                            -- resp_body : TCArray False (-1) 4 (TBasicType TUInt8)-    Word64 ->                               -- resp_length : TBasicType TUInt64-    IO ()---messageSetResponse ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- contentType-    -> MemoryUse                            -- respUse-    -> Maybe (ByteString)                   -- respBody-    -> m ()                                 -- result-messageSetResponse _obj contentType respUse respBody = liftIO $ do-    let respLength = case respBody of-            Nothing -> 0-            Just jRespBody -> fromIntegral $ B.length jRespBody-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeContentType <- case contentType of-        Nothing -> return nullPtr-        Just jContentType -> do-            jContentType' <- textToCString jContentType-            return jContentType'-    let respUse' = (fromIntegral . fromEnum) respUse-    maybeRespBody <- case respBody of-        Nothing -> return nullPtr-        Just jRespBody -> do-            jRespBody' <- packByteString jRespBody-            return jRespBody'-    soup_message_set_response _obj' maybeContentType respUse' maybeRespBody respLength-    touchManagedPtr _obj-    freeMem maybeContentType-    freeMem maybeRespBody-    return ()--data MessageSetResponseMethodInfo-instance (signature ~ (Maybe (T.Text) -> MemoryUse -> Maybe (ByteString) -> m ()), MonadIO m, MessageK a) => MethodInfo MessageSetResponseMethodInfo a signature where-    overloadedMethod _ = messageSetResponse---- method Message::set_status--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "status_code", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_set_status" soup_message_set_status :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    Word32 ->                               -- status_code : TBasicType TUInt-    IO ()---messageSetStatus ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> Word32                               -- statusCode-    -> m ()                                 -- result-messageSetStatus _obj statusCode = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_message_set_status _obj' statusCode-    touchManagedPtr _obj-    return ()--data MessageSetStatusMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, MessageK a) => MethodInfo MessageSetStatusMethodInfo a signature where-    overloadedMethod _ = messageSetStatus---- method Message::set_status_full--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "status_code", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reason_phrase", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_set_status_full" soup_message_set_status_full :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    Word32 ->                               -- status_code : TBasicType TUInt-    CString ->                              -- reason_phrase : TBasicType TUTF8-    IO ()---messageSetStatusFull ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> Word32                               -- statusCode-    -> T.Text                               -- reasonPhrase-    -> m ()                                 -- result-messageSetStatusFull _obj statusCode reasonPhrase = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    reasonPhrase' <- textToCString reasonPhrase-    soup_message_set_status_full _obj' statusCode reasonPhrase'-    touchManagedPtr _obj-    freeMem reasonPhrase'-    return ()--data MessageSetStatusFullMethodInfo-instance (signature ~ (Word32 -> T.Text -> m ()), MonadIO m, MessageK a) => MethodInfo MessageSetStatusFullMethodInfo a signature where-    overloadedMethod _ = messageSetStatusFull---- method Message::set_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_set_uri" soup_message_set_uri :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    Ptr URI ->                              -- uri : TInterface "Soup" "URI"-    IO ()---messageSetUri ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> URI                                  -- uri-    -> m ()                                 -- result-messageSetUri _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let uri' = unsafeManagedPtrGetPtr uri-    soup_message_set_uri _obj' uri'-    touchManagedPtr _obj-    touchManagedPtr uri-    return ()--data MessageSetUriMethodInfo-instance (signature ~ (URI -> m ()), MonadIO m, MessageK a) => MethodInfo MessageSetUriMethodInfo a signature where-    overloadedMethod _ = messageSetUri---- method Message::starting--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_starting" soup_message_starting :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO ()---messageStarting ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-messageStarting _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_message_starting _obj'-    touchManagedPtr _obj-    return ()--data MessageStartingMethodInfo-instance (signature ~ (m ()), MonadIO m, MessageK a) => MethodInfo MessageStartingMethodInfo a signature where-    overloadedMethod _ = messageStarting---- method Message::wrote_body--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_wrote_body" soup_message_wrote_body :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO ()---messageWroteBody ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-messageWroteBody _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_message_wrote_body _obj'-    touchManagedPtr _obj-    return ()--data MessageWroteBodyMethodInfo-instance (signature ~ (m ()), MonadIO m, MessageK a) => MethodInfo MessageWroteBodyMethodInfo a signature where-    overloadedMethod _ = messageWroteBody---- method Message::wrote_body_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_wrote_body_data" soup_message_wrote_body_data :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    Ptr Buffer ->                           -- chunk : TInterface "Soup" "Buffer"-    IO ()---messageWroteBodyData ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> Buffer                               -- chunk-    -> m ()                                 -- result-messageWroteBodyData _obj chunk = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let chunk' = unsafeManagedPtrGetPtr chunk-    soup_message_wrote_body_data _obj' chunk'-    touchManagedPtr _obj-    touchManagedPtr chunk-    return ()--data MessageWroteBodyDataMethodInfo-instance (signature ~ (Buffer -> m ()), MonadIO m, MessageK a) => MethodInfo MessageWroteBodyDataMethodInfo a signature where-    overloadedMethod _ = messageWroteBodyData---- method Message::wrote_chunk--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_wrote_chunk" soup_message_wrote_chunk :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO ()---messageWroteChunk ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-messageWroteChunk _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_message_wrote_chunk _obj'-    touchManagedPtr _obj-    return ()--data MessageWroteChunkMethodInfo-instance (signature ~ (m ()), MonadIO m, MessageK a) => MethodInfo MessageWroteChunkMethodInfo a signature where-    overloadedMethod _ = messageWroteChunk---- method Message::wrote_headers--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_wrote_headers" soup_message_wrote_headers :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO ()---messageWroteHeaders ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-messageWroteHeaders _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_message_wrote_headers _obj'-    touchManagedPtr _obj-    return ()--data MessageWroteHeadersMethodInfo-instance (signature ~ (m ()), MonadIO m, MessageK a) => MethodInfo MessageWroteHeadersMethodInfo a signature where-    overloadedMethod _ = messageWroteHeaders---- method Message::wrote_informational--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_wrote_informational" soup_message_wrote_informational :: -    Ptr Message ->                          -- _obj : TInterface "Soup" "Message"-    IO ()---messageWroteInformational ::-    (MonadIO m, MessageK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-messageWroteInformational _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_message_wrote_informational _obj'-    touchManagedPtr _obj-    return ()--data MessageWroteInformationalMethodInfo-instance (signature ~ (m ()), MonadIO m, MessageK a) => MethodInfo MessageWroteInformationalMethodInfo a signature where-    overloadedMethod _ = messageWroteInformational--
− GI/Soup/Objects/Message.hs-boot 
@@ -1,78 +0,0 @@-module GI.Soup.Objects.Message where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Message = Message (ForeignPtr Message)-instance GObject Message where-class GObject o => MessageK o-instance (GObject o, IsDescendantOf Message o) => MessageK o-data MessageFirstPartyPropertyInfo-data MessageFlagsPropertyInfo-data MessageHttpVersionPropertyInfo-data MessageMethodPropertyInfo-data MessagePriorityPropertyInfo-data MessageReasonPhrasePropertyInfo-data MessageRequestBodyPropertyInfo-data MessageRequestBodyDataPropertyInfo-data MessageRequestHeadersPropertyInfo-data MessageResponseBodyPropertyInfo-data MessageResponseBodyDataPropertyInfo-data MessageResponseHeadersPropertyInfo-data MessageServerSidePropertyInfo-data MessageStatusCodePropertyInfo-data MessageTlsCertificatePropertyInfo-data MessageTlsErrorsPropertyInfo-data MessageUriPropertyInfo-data MessageContentSniffedSignalInfo-data MessageFinishedSignalInfo-data MessageGotBodySignalInfo-data MessageGotChunkSignalInfo-data MessageGotHeadersSignalInfo-data MessageGotInformationalSignalInfo-data MessageNetworkEventSignalInfo-data MessageRestartedSignalInfo-data MessageStartingSignalInfo-data MessageWroteBodySignalInfo-data MessageWroteBodyDataSignalInfo-data MessageWroteChunkSignalInfo-data MessageWroteHeadersSignalInfo-data MessageWroteInformationalSignalInfo-data MessageContentSniffedMethodInfo-data MessageDisableFeatureMethodInfo-data MessageFinishedMethodInfo-data MessageGetAddressMethodInfo-data MessageGetFirstPartyMethodInfo-data MessageGetFlagsMethodInfo-data MessageGetHttpVersionMethodInfo-data MessageGetHttpsStatusMethodInfo-data MessageGetPriorityMethodInfo-data MessageGetSoupRequestMethodInfo-data MessageGetUriMethodInfo-data MessageGotBodyMethodInfo-data MessageGotChunkMethodInfo-data MessageGotHeadersMethodInfo-data MessageGotInformationalMethodInfo-data MessageIsKeepaliveMethodInfo-data MessageRestartedMethodInfo-data MessageSetChunkAllocatorMethodInfo-data MessageSetFirstPartyMethodInfo-data MessageSetFlagsMethodInfo-data MessageSetHttpVersionMethodInfo-data MessageSetPriorityMethodInfo-data MessageSetRedirectMethodInfo-data MessageSetRequestMethodInfo-data MessageSetResponseMethodInfo-data MessageSetStatusMethodInfo-data MessageSetStatusFullMethodInfo-data MessageSetUriMethodInfo-data MessageStartingMethodInfo-data MessageWroteBodyMethodInfo-data MessageWroteBodyDataMethodInfo-data MessageWroteChunkMethodInfo-data MessageWroteHeadersMethodInfo-data MessageWroteInformationalMethodInfo
− GI/Soup/Objects/MultipartInputStream.hs 
@@ -1,375 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Objects.MultipartInputStream-    ( ---- * Exported types-    MultipartInputStream(..)                ,-    MultipartInputStreamK                   ,-    toMultipartInputStream                  ,-    noMultipartInputStream                  ,--- -- * Methods--- ** multipartInputStreamGetHeaders-    MultipartInputStreamGetHeadersMethodInfo,-    multipartInputStreamGetHeaders          ,----- ** multipartInputStreamNew-    multipartInputStreamNew                 ,----- ** multipartInputStreamNextPart-    MultipartInputStreamNextPartMethodInfo  ,-    multipartInputStreamNextPart            ,----- ** multipartInputStreamNextPartAsync-    MultipartInputStreamNextPartAsyncMethodInfo,-    multipartInputStreamNextPartAsync       ,----- ** multipartInputStreamNextPartFinish-    MultipartInputStreamNextPartFinishMethodInfo,-    multipartInputStreamNextPartFinish      ,----- -- * Properties--- ** Message-    MultipartInputStreamMessagePropertyInfo ,-    constructMultipartInputStreamMessage    ,-    getMultipartInputStreamMessage          ,-    multipartInputStreamMessage             ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GObject as GObject-import qualified GI.Gio as Gio--newtype MultipartInputStream = MultipartInputStream (ForeignPtr MultipartInputStream)-foreign import ccall "soup_multipart_input_stream_get_type"-    c_soup_multipart_input_stream_get_type :: IO GType--type instance ParentTypes MultipartInputStream = MultipartInputStreamParentTypes-type MultipartInputStreamParentTypes = '[Gio.FilterInputStream, Gio.InputStream, GObject.Object, Gio.PollableInputStream]--instance GObject MultipartInputStream where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_multipart_input_stream_get_type-    --class GObject o => MultipartInputStreamK o-instance (GObject o, IsDescendantOf MultipartInputStream o) => MultipartInputStreamK o--toMultipartInputStream :: MultipartInputStreamK o => o -> IO MultipartInputStream-toMultipartInputStream = unsafeCastTo MultipartInputStream--noMultipartInputStream :: Maybe MultipartInputStream-noMultipartInputStream = Nothing--type family ResolveMultipartInputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveMultipartInputStreamMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveMultipartInputStreamMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveMultipartInputStreamMethod "canPoll" o = Gio.PollableInputStreamCanPollMethodInfo-    ResolveMultipartInputStreamMethod "clearPending" o = Gio.InputStreamClearPendingMethodInfo-    ResolveMultipartInputStreamMethod "close" o = Gio.InputStreamCloseMethodInfo-    ResolveMultipartInputStreamMethod "closeAsync" o = Gio.InputStreamCloseAsyncMethodInfo-    ResolveMultipartInputStreamMethod "closeFinish" o = Gio.InputStreamCloseFinishMethodInfo-    ResolveMultipartInputStreamMethod "createSource" o = Gio.PollableInputStreamCreateSourceMethodInfo-    ResolveMultipartInputStreamMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveMultipartInputStreamMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveMultipartInputStreamMethod "hasPending" o = Gio.InputStreamHasPendingMethodInfo-    ResolveMultipartInputStreamMethod "isClosed" o = Gio.InputStreamIsClosedMethodInfo-    ResolveMultipartInputStreamMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveMultipartInputStreamMethod "isReadable" o = Gio.PollableInputStreamIsReadableMethodInfo-    ResolveMultipartInputStreamMethod "nextPart" o = MultipartInputStreamNextPartMethodInfo-    ResolveMultipartInputStreamMethod "nextPartAsync" o = MultipartInputStreamNextPartAsyncMethodInfo-    ResolveMultipartInputStreamMethod "nextPartFinish" o = MultipartInputStreamNextPartFinishMethodInfo-    ResolveMultipartInputStreamMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveMultipartInputStreamMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveMultipartInputStreamMethod "read" o = Gio.InputStreamReadMethodInfo-    ResolveMultipartInputStreamMethod "readAll" o = Gio.InputStreamReadAllMethodInfo-    ResolveMultipartInputStreamMethod "readAllAsync" o = Gio.InputStreamReadAllAsyncMethodInfo-    ResolveMultipartInputStreamMethod "readAllFinish" o = Gio.InputStreamReadAllFinishMethodInfo-    ResolveMultipartInputStreamMethod "readAsync" o = Gio.InputStreamReadAsyncMethodInfo-    ResolveMultipartInputStreamMethod "readBytes" o = Gio.InputStreamReadBytesMethodInfo-    ResolveMultipartInputStreamMethod "readBytesAsync" o = Gio.InputStreamReadBytesAsyncMethodInfo-    ResolveMultipartInputStreamMethod "readBytesFinish" o = Gio.InputStreamReadBytesFinishMethodInfo-    ResolveMultipartInputStreamMethod "readFinish" o = Gio.InputStreamReadFinishMethodInfo-    ResolveMultipartInputStreamMethod "readNonblocking" o = Gio.PollableInputStreamReadNonblockingMethodInfo-    ResolveMultipartInputStreamMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveMultipartInputStreamMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveMultipartInputStreamMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveMultipartInputStreamMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveMultipartInputStreamMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveMultipartInputStreamMethod "skip" o = Gio.InputStreamSkipMethodInfo-    ResolveMultipartInputStreamMethod "skipAsync" o = Gio.InputStreamSkipAsyncMethodInfo-    ResolveMultipartInputStreamMethod "skipFinish" o = Gio.InputStreamSkipFinishMethodInfo-    ResolveMultipartInputStreamMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveMultipartInputStreamMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveMultipartInputStreamMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveMultipartInputStreamMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveMultipartInputStreamMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveMultipartInputStreamMethod "getBaseStream" o = Gio.FilterInputStreamGetBaseStreamMethodInfo-    ResolveMultipartInputStreamMethod "getCloseBaseStream" o = Gio.FilterInputStreamGetCloseBaseStreamMethodInfo-    ResolveMultipartInputStreamMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveMultipartInputStreamMethod "getHeaders" o = MultipartInputStreamGetHeadersMethodInfo-    ResolveMultipartInputStreamMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveMultipartInputStreamMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveMultipartInputStreamMethod "setCloseBaseStream" o = Gio.FilterInputStreamSetCloseBaseStreamMethodInfo-    ResolveMultipartInputStreamMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveMultipartInputStreamMethod "setPending" o = Gio.InputStreamSetPendingMethodInfo-    ResolveMultipartInputStreamMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveMultipartInputStreamMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveMultipartInputStreamMethod t MultipartInputStream, MethodInfo info MultipartInputStream p) => IsLabelProxy t (MultipartInputStream -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveMultipartInputStreamMethod t MultipartInputStream, MethodInfo info MultipartInputStream p) => IsLabel t (MultipartInputStream -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "message"-   -- Type: TInterface "Soup" "Message"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getMultipartInputStreamMessage :: (MonadIO m, MultipartInputStreamK o) => o -> m (Maybe Message)-getMultipartInputStreamMessage obj = liftIO $ getObjectPropertyObject obj "message" Message--constructMultipartInputStreamMessage :: (MessageK a) => a -> IO ([Char], GValue)-constructMultipartInputStreamMessage val = constructObjectPropertyObject "message" (Just val)--data MultipartInputStreamMessagePropertyInfo-instance AttrInfo MultipartInputStreamMessagePropertyInfo where-    type AttrAllowedOps MultipartInputStreamMessagePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint MultipartInputStreamMessagePropertyInfo = MessageK-    type AttrBaseTypeConstraint MultipartInputStreamMessagePropertyInfo = MultipartInputStreamK-    type AttrGetType MultipartInputStreamMessagePropertyInfo = (Maybe Message)-    type AttrLabel MultipartInputStreamMessagePropertyInfo = "message"-    attrGet _ = getMultipartInputStreamMessage-    attrSet _ = undefined-    attrConstruct _ = constructMultipartInputStreamMessage-    attrClear _ = undefined--type instance AttributeList MultipartInputStream = MultipartInputStreamAttributeList-type MultipartInputStreamAttributeList = ('[ '("baseStream", Gio.FilterInputStreamBaseStreamPropertyInfo), '("closeBaseStream", Gio.FilterInputStreamCloseBaseStreamPropertyInfo), '("message", MultipartInputStreamMessagePropertyInfo)] :: [(Symbol, *)])--multipartInputStreamMessage :: AttrLabelProxy "message"-multipartInputStreamMessage = AttrLabelProxy--type instance SignalList MultipartInputStream = MultipartInputStreamSignalList-type MultipartInputStreamSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method MultipartInputStream::new--- method type : Constructor--- Args : [Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "base_stream", argType = TInterface "Gio" "InputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "MultipartInputStream")--- throws : False--- Skip return : False--foreign import ccall "soup_multipart_input_stream_new" soup_multipart_input_stream_new :: -    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    Ptr Gio.InputStream ->                  -- base_stream : TInterface "Gio" "InputStream"-    IO (Ptr MultipartInputStream)---multipartInputStreamNew ::-    (MonadIO m, MessageK a, Gio.InputStreamK b) =>-    a                                       -- msg-    -> b                                    -- baseStream-    -> m MultipartInputStream               -- result-multipartInputStreamNew msg baseStream = liftIO $ do-    let msg' = unsafeManagedPtrCastPtr msg-    let baseStream' = unsafeManagedPtrCastPtr baseStream-    result <- soup_multipart_input_stream_new msg' baseStream'-    checkUnexpectedReturnNULL "soup_multipart_input_stream_new" result-    result' <- (wrapObject MultipartInputStream) result-    touchManagedPtr msg-    touchManagedPtr baseStream-    return result'---- method MultipartInputStream::get_headers--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "MessageHeaders")--- throws : False--- Skip return : False--foreign import ccall "soup_multipart_input_stream_get_headers" soup_multipart_input_stream_get_headers :: -    Ptr MultipartInputStream ->             -- _obj : TInterface "Soup" "MultipartInputStream"-    IO (Ptr MessageHeaders)---multipartInputStreamGetHeaders ::-    (MonadIO m, MultipartInputStreamK a) =>-    a                                       -- _obj-    -> m (Maybe MessageHeaders)             -- result-multipartInputStreamGetHeaders _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_multipart_input_stream_get_headers _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newBoxed MessageHeaders) result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data MultipartInputStreamGetHeadersMethodInfo-instance (signature ~ (m (Maybe MessageHeaders)), MonadIO m, MultipartInputStreamK a) => MethodInfo MultipartInputStreamGetHeadersMethodInfo a signature where-    overloadedMethod _ = multipartInputStreamGetHeaders---- method MultipartInputStream::next_part--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "InputStream")--- throws : True--- Skip return : False--foreign import ccall "soup_multipart_input_stream_next_part" soup_multipart_input_stream_next_part :: -    Ptr MultipartInputStream ->             -- _obj : TInterface "Soup" "MultipartInputStream"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.InputStream)---multipartInputStreamNextPart ::-    (MonadIO m, MultipartInputStreamK a, Gio.CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m (Maybe Gio.InputStream)            -- result-multipartInputStreamNextPart _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ soup_multipart_input_stream_next_part _obj' maybeCancellable-        maybeResult <- convertIfNonNull result $ \result' -> do-            result'' <- (wrapObject Gio.InputStream) result'-            return result''-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return maybeResult-     ) (do-        return ()-     )--data MultipartInputStreamNextPartMethodInfo-instance (signature ~ (Maybe (b) -> m (Maybe Gio.InputStream)), MonadIO m, MultipartInputStreamK a, Gio.CancellableK b) => MethodInfo MultipartInputStreamNextPartMethodInfo a signature where-    overloadedMethod _ = multipartInputStreamNextPart---- method MultipartInputStream::next_part_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_multipart_input_stream_next_part_async" soup_multipart_input_stream_next_part_async :: -    Ptr MultipartInputStream ->             -- _obj : TInterface "Soup" "MultipartInputStream"-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- data : TBasicType TPtr-    IO ()---multipartInputStreamNextPartAsync ::-    (MonadIO m, MultipartInputStreamK a, Gio.CancellableK b) =>-    a                                       -- _obj-    -> Int32                                -- ioPriority-    -> Maybe (b)                            -- cancellable-    -> Maybe (Gio.AsyncReadyCallback)       -- callback-    -> m ()                                 -- result-multipartInputStreamNextPartAsync _obj ioPriority cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let data_ = nullPtr-    soup_multipart_input_stream_next_part_async _obj' ioPriority maybeCancellable maybeCallback data_-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data MultipartInputStreamNextPartAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, MultipartInputStreamK a, Gio.CancellableK b) => MethodInfo MultipartInputStreamNextPartAsyncMethodInfo a signature where-    overloadedMethod _ = multipartInputStreamNextPartAsync---- method MultipartInputStream::next_part_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MultipartInputStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "InputStream")--- throws : True--- Skip return : False--foreign import ccall "soup_multipart_input_stream_next_part_finish" soup_multipart_input_stream_next_part_finish :: -    Ptr MultipartInputStream ->             -- _obj : TInterface "Soup" "MultipartInputStream"-    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.InputStream)---multipartInputStreamNextPartFinish ::-    (MonadIO m, MultipartInputStreamK a, Gio.AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m (Maybe Gio.InputStream)            -- result-multipartInputStreamNextPartFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ soup_multipart_input_stream_next_part_finish _obj' result_'-        maybeResult <- convertIfNonNull result $ \result' -> do-            result'' <- (wrapObject Gio.InputStream) result'-            return result''-        touchManagedPtr _obj-        touchManagedPtr result_-        return maybeResult-     ) (do-        return ()-     )--data MultipartInputStreamNextPartFinishMethodInfo-instance (signature ~ (b -> m (Maybe Gio.InputStream)), MonadIO m, MultipartInputStreamK a, Gio.AsyncResultK b) => MethodInfo MultipartInputStreamNextPartFinishMethodInfo a signature where-    overloadedMethod _ = multipartInputStreamNextPartFinish--
− GI/Soup/Objects/MultipartInputStream.hs-boot 
@@ -1,18 +0,0 @@-module GI.Soup.Objects.MultipartInputStream where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype MultipartInputStream = MultipartInputStream (ForeignPtr MultipartInputStream)-instance GObject MultipartInputStream where-class GObject o => MultipartInputStreamK o-instance (GObject o, IsDescendantOf MultipartInputStream o) => MultipartInputStreamK o-data MultipartInputStreamMessagePropertyInfo-data MultipartInputStreamGetHeadersMethodInfo-data MultipartInputStreamNextPartMethodInfo-data MultipartInputStreamNextPartAsyncMethodInfo-data MultipartInputStreamNextPartFinishMethodInfo
− GI/Soup/Objects/ProxyResolverDefault.hs 
@@ -1,140 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Objects.ProxyResolverDefault-    ( ---- * Exported types-    ProxyResolverDefault(..)                ,-    ProxyResolverDefaultK                   ,-    toProxyResolverDefault                  ,-    noProxyResolverDefault                  ,--- -- * Properties--- ** GproxyResolver-    ProxyResolverDefaultGproxyResolverPropertyInfo,-    clearProxyResolverDefaultGproxyResolver ,-    constructProxyResolverDefaultGproxyResolver,-    proxyResolverDefaultGproxyResolver      ,-    setProxyResolverDefaultGproxyResolver   ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GObject as GObject-import qualified GI.Gio as Gio--newtype ProxyResolverDefault = ProxyResolverDefault (ForeignPtr ProxyResolverDefault)-foreign import ccall "soup_proxy_resolver_default_get_type"-    c_soup_proxy_resolver_default_get_type :: IO GType--type instance ParentTypes ProxyResolverDefault = ProxyResolverDefaultParentTypes-type ProxyResolverDefaultParentTypes = '[GObject.Object, ProxyURIResolver, SessionFeature]--instance GObject ProxyResolverDefault where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_proxy_resolver_default_get_type-    --class GObject o => ProxyResolverDefaultK o-instance (GObject o, IsDescendantOf ProxyResolverDefault o) => ProxyResolverDefaultK o--toProxyResolverDefault :: ProxyResolverDefaultK o => o -> IO ProxyResolverDefault-toProxyResolverDefault = unsafeCastTo ProxyResolverDefault--noProxyResolverDefault :: Maybe ProxyResolverDefault-noProxyResolverDefault = Nothing--type family ResolveProxyResolverDefaultMethod (t :: Symbol) (o :: *) :: * where-    ResolveProxyResolverDefaultMethod "addFeature" o = SessionFeatureAddFeatureMethodInfo-    ResolveProxyResolverDefaultMethod "attach" o = SessionFeatureAttachMethodInfo-    ResolveProxyResolverDefaultMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveProxyResolverDefaultMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveProxyResolverDefaultMethod "detach" o = SessionFeatureDetachMethodInfo-    ResolveProxyResolverDefaultMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveProxyResolverDefaultMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveProxyResolverDefaultMethod "hasFeature" o = SessionFeatureHasFeatureMethodInfo-    ResolveProxyResolverDefaultMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveProxyResolverDefaultMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveProxyResolverDefaultMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveProxyResolverDefaultMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveProxyResolverDefaultMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveProxyResolverDefaultMethod "removeFeature" o = SessionFeatureRemoveFeatureMethodInfo-    ResolveProxyResolverDefaultMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveProxyResolverDefaultMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveProxyResolverDefaultMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveProxyResolverDefaultMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveProxyResolverDefaultMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveProxyResolverDefaultMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveProxyResolverDefaultMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveProxyResolverDefaultMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveProxyResolverDefaultMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveProxyResolverDefaultMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveProxyResolverDefaultMethod "getProxyUriAsync" o = ProxyURIResolverGetProxyUriAsyncMethodInfo-    ResolveProxyResolverDefaultMethod "getProxyUriSync" o = ProxyURIResolverGetProxyUriSyncMethodInfo-    ResolveProxyResolverDefaultMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveProxyResolverDefaultMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveProxyResolverDefaultMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveProxyResolverDefaultMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveProxyResolverDefaultMethod t ProxyResolverDefault, MethodInfo info ProxyResolverDefault p) => IsLabelProxy t (ProxyResolverDefault -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveProxyResolverDefaultMethod t ProxyResolverDefault, MethodInfo info ProxyResolverDefault p) => IsLabel t (ProxyResolverDefault -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "gproxy-resolver"-   -- Type: TInterface "Gio" "ProxyResolver"-   -- Flags: [PropertyWritable]-   -- Nullable: (Nothing,Nothing)--setProxyResolverDefaultGproxyResolver :: (MonadIO m, ProxyResolverDefaultK o, Gio.ProxyResolverK a) => o -> a -> m ()-setProxyResolverDefaultGproxyResolver obj val = liftIO $ setObjectPropertyObject obj "gproxy-resolver" (Just val)--constructProxyResolverDefaultGproxyResolver :: (Gio.ProxyResolverK a) => a -> IO ([Char], GValue)-constructProxyResolverDefaultGproxyResolver val = constructObjectPropertyObject "gproxy-resolver" (Just val)--clearProxyResolverDefaultGproxyResolver :: (MonadIO m, ProxyResolverDefaultK o) => o -> m ()-clearProxyResolverDefaultGproxyResolver obj = liftIO $ setObjectPropertyObject obj "gproxy-resolver" (Nothing :: Maybe Gio.ProxyResolver)--data ProxyResolverDefaultGproxyResolverPropertyInfo-instance AttrInfo ProxyResolverDefaultGproxyResolverPropertyInfo where-    type AttrAllowedOps ProxyResolverDefaultGproxyResolverPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint ProxyResolverDefaultGproxyResolverPropertyInfo = Gio.ProxyResolverK-    type AttrBaseTypeConstraint ProxyResolverDefaultGproxyResolverPropertyInfo = ProxyResolverDefaultK-    type AttrGetType ProxyResolverDefaultGproxyResolverPropertyInfo = ()-    type AttrLabel ProxyResolverDefaultGproxyResolverPropertyInfo = "gproxy-resolver"-    attrGet _ = undefined-    attrSet _ = setProxyResolverDefaultGproxyResolver-    attrConstruct _ = constructProxyResolverDefaultGproxyResolver-    attrClear _ = clearProxyResolverDefaultGproxyResolver--type instance AttributeList ProxyResolverDefault = ProxyResolverDefaultAttributeList-type ProxyResolverDefaultAttributeList = ('[ '("gproxyResolver", ProxyResolverDefaultGproxyResolverPropertyInfo)] :: [(Symbol, *)])--proxyResolverDefaultGproxyResolver :: AttrLabelProxy "gproxyResolver"-proxyResolverDefaultGproxyResolver = AttrLabelProxy--type instance SignalList ProxyResolverDefault = ProxyResolverDefaultSignalList-type ProxyResolverDefaultSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--
− GI/Soup/Objects/ProxyResolverDefault.hs-boot 
@@ -1,14 +0,0 @@-module GI.Soup.Objects.ProxyResolverDefault where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ProxyResolverDefault = ProxyResolverDefault (ForeignPtr ProxyResolverDefault)-instance GObject ProxyResolverDefault where-class GObject o => ProxyResolverDefaultK o-instance (GObject o, IsDescendantOf ProxyResolverDefault o) => ProxyResolverDefaultK o-data ProxyResolverDefaultGproxyResolverPropertyInfo
− GI/Soup/Objects/Request.hs 
@@ -1,449 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Objects.Request-    ( ---- * Exported types-    Request(..)                             ,-    RequestK                                ,-    toRequest                               ,-    noRequest                               ,--- -- * Methods--- ** requestGetContentLength-    RequestGetContentLengthMethodInfo       ,-    requestGetContentLength                 ,----- ** requestGetContentType-    RequestGetContentTypeMethodInfo         ,-    requestGetContentType                   ,----- ** requestGetSession-    RequestGetSessionMethodInfo             ,-    requestGetSession                       ,----- ** requestGetUri-    RequestGetUriMethodInfo                 ,-    requestGetUri                           ,----- ** requestSend-    RequestSendMethodInfo                   ,-    requestSend                             ,----- ** requestSendAsync-    RequestSendAsyncMethodInfo              ,-    requestSendAsync                        ,----- ** requestSendFinish-    RequestSendFinishMethodInfo             ,-    requestSendFinish                       ,----- -- * Properties--- ** Session-    RequestSessionPropertyInfo              ,-    constructRequestSession                 ,-    getRequestSession                       ,-    requestSession                          ,----- ** Uri-    RequestUriPropertyInfo                  ,-    constructRequestUri                     ,-    getRequestUri                           ,-    requestUri                              ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GObject as GObject-import qualified GI.Gio as Gio--newtype Request = Request (ForeignPtr Request)-foreign import ccall "soup_request_get_type"-    c_soup_request_get_type :: IO GType--type instance ParentTypes Request = RequestParentTypes-type RequestParentTypes = '[GObject.Object, Gio.Initable]--instance GObject Request where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_request_get_type-    --class GObject o => RequestK o-instance (GObject o, IsDescendantOf Request o) => RequestK o--toRequest :: RequestK o => o -> IO Request-toRequest = unsafeCastTo Request--noRequest :: Maybe Request-noRequest = Nothing--type family ResolveRequestMethod (t :: Symbol) (o :: *) :: * where-    ResolveRequestMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveRequestMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveRequestMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveRequestMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveRequestMethod "init" o = Gio.InitableInitMethodInfo-    ResolveRequestMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveRequestMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveRequestMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveRequestMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveRequestMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveRequestMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveRequestMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveRequestMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveRequestMethod "send" o = RequestSendMethodInfo-    ResolveRequestMethod "sendAsync" o = RequestSendAsyncMethodInfo-    ResolveRequestMethod "sendFinish" o = RequestSendFinishMethodInfo-    ResolveRequestMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveRequestMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveRequestMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveRequestMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveRequestMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveRequestMethod "getContentLength" o = RequestGetContentLengthMethodInfo-    ResolveRequestMethod "getContentType" o = RequestGetContentTypeMethodInfo-    ResolveRequestMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveRequestMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveRequestMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveRequestMethod "getSession" o = RequestGetSessionMethodInfo-    ResolveRequestMethod "getUri" o = RequestGetUriMethodInfo-    ResolveRequestMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveRequestMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveRequestMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveRequestMethod t Request, MethodInfo info Request p) => IsLabelProxy t (Request -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveRequestMethod t Request, MethodInfo info Request p) => IsLabel t (Request -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "session"-   -- Type: TInterface "Soup" "Session"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getRequestSession :: (MonadIO m, RequestK o) => o -> m Session-getRequestSession obj = liftIO $ checkUnexpectedNothing "getRequestSession" $ getObjectPropertyObject obj "session" Session--constructRequestSession :: (SessionK a) => a -> IO ([Char], GValue)-constructRequestSession val = constructObjectPropertyObject "session" (Just val)--data RequestSessionPropertyInfo-instance AttrInfo RequestSessionPropertyInfo where-    type AttrAllowedOps RequestSessionPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint RequestSessionPropertyInfo = SessionK-    type AttrBaseTypeConstraint RequestSessionPropertyInfo = RequestK-    type AttrGetType RequestSessionPropertyInfo = Session-    type AttrLabel RequestSessionPropertyInfo = "session"-    attrGet _ = getRequestSession-    attrSet _ = undefined-    attrConstruct _ = constructRequestSession-    attrClear _ = undefined---- VVV Prop "uri"-   -- Type: TInterface "Soup" "URI"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getRequestUri :: (MonadIO m, RequestK o) => o -> m URI-getRequestUri obj = liftIO $ checkUnexpectedNothing "getRequestUri" $ getObjectPropertyBoxed obj "uri" URI--constructRequestUri :: URI -> IO ([Char], GValue)-constructRequestUri val = constructObjectPropertyBoxed "uri" (Just val)--data RequestUriPropertyInfo-instance AttrInfo RequestUriPropertyInfo where-    type AttrAllowedOps RequestUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint RequestUriPropertyInfo = (~) URI-    type AttrBaseTypeConstraint RequestUriPropertyInfo = RequestK-    type AttrGetType RequestUriPropertyInfo = URI-    type AttrLabel RequestUriPropertyInfo = "uri"-    attrGet _ = getRequestUri-    attrSet _ = undefined-    attrConstruct _ = constructRequestUri-    attrClear _ = undefined--type instance AttributeList Request = RequestAttributeList-type RequestAttributeList = ('[ '("session", RequestSessionPropertyInfo), '("uri", RequestUriPropertyInfo)] :: [(Symbol, *)])--requestSession :: AttrLabelProxy "session"-requestSession = AttrLabelProxy--requestUri :: AttrLabelProxy "uri"-requestUri = AttrLabelProxy--type instance SignalList Request = RequestSignalList-type RequestSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Request::get_content_length--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt64)--- throws : False--- Skip return : False--foreign import ccall "soup_request_get_content_length" soup_request_get_content_length :: -    Ptr Request ->                          -- _obj : TInterface "Soup" "Request"-    IO Int64---requestGetContentLength ::-    (MonadIO m, RequestK a) =>-    a                                       -- _obj-    -> m Int64                              -- result-requestGetContentLength _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_request_get_content_length _obj'-    touchManagedPtr _obj-    return result--data RequestGetContentLengthMethodInfo-instance (signature ~ (m Int64), MonadIO m, RequestK a) => MethodInfo RequestGetContentLengthMethodInfo a signature where-    overloadedMethod _ = requestGetContentLength---- method Request::get_content_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_request_get_content_type" soup_request_get_content_type :: -    Ptr Request ->                          -- _obj : TInterface "Soup" "Request"-    IO CString---requestGetContentType ::-    (MonadIO m, RequestK a) =>-    a                                       -- _obj-    -> m (Maybe T.Text)                     -- result-requestGetContentType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_request_get_content_type _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data RequestGetContentTypeMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, RequestK a) => MethodInfo RequestGetContentTypeMethodInfo a signature where-    overloadedMethod _ = requestGetContentType---- method Request::get_session--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Session")--- throws : False--- Skip return : False--foreign import ccall "soup_request_get_session" soup_request_get_session :: -    Ptr Request ->                          -- _obj : TInterface "Soup" "Request"-    IO (Ptr Session)---requestGetSession ::-    (MonadIO m, RequestK a) =>-    a                                       -- _obj-    -> m Session                            -- result-requestGetSession _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_request_get_session _obj'-    checkUnexpectedReturnNULL "soup_request_get_session" result-    result' <- (newObject Session) result-    touchManagedPtr _obj-    return result'--data RequestGetSessionMethodInfo-instance (signature ~ (m Session), MonadIO m, RequestK a) => MethodInfo RequestGetSessionMethodInfo a signature where-    overloadedMethod _ = requestGetSession---- method Request::get_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "URI")--- throws : False--- Skip return : False--foreign import ccall "soup_request_get_uri" soup_request_get_uri :: -    Ptr Request ->                          -- _obj : TInterface "Soup" "Request"-    IO (Ptr URI)---requestGetUri ::-    (MonadIO m, RequestK a) =>-    a                                       -- _obj-    -> m URI                                -- result-requestGetUri _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_request_get_uri _obj'-    checkUnexpectedReturnNULL "soup_request_get_uri" result-    result' <- (newBoxed URI) result-    touchManagedPtr _obj-    return result'--data RequestGetUriMethodInfo-instance (signature ~ (m URI), MonadIO m, RequestK a) => MethodInfo RequestGetUriMethodInfo a signature where-    overloadedMethod _ = requestGetUri---- method Request::send--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "InputStream")--- throws : True--- Skip return : False--foreign import ccall "soup_request_send" soup_request_send :: -    Ptr Request ->                          -- _obj : TInterface "Soup" "Request"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.InputStream)---requestSend ::-    (MonadIO m, RequestK a, Gio.CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m Gio.InputStream                    -- result-requestSend _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ soup_request_send _obj' maybeCancellable-        checkUnexpectedReturnNULL "soup_request_send" result-        result' <- (wrapObject Gio.InputStream) result-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--data RequestSendMethodInfo-instance (signature ~ (Maybe (b) -> m Gio.InputStream), MonadIO m, RequestK a, Gio.CancellableK b) => MethodInfo RequestSendMethodInfo a signature where-    overloadedMethod _ = requestSend---- method Request::send_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_request_send_async" soup_request_send_async :: -    Ptr Request ->                          -- _obj : TInterface "Soup" "Request"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---requestSendAsync ::-    (MonadIO m, RequestK a, Gio.CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> Maybe (Gio.AsyncReadyCallback)       -- callback-    -> m ()                                 -- result-requestSendAsync _obj cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    soup_request_send_async _obj' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data RequestSendAsyncMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, RequestK a, Gio.CancellableK b) => MethodInfo RequestSendAsyncMethodInfo a signature where-    overloadedMethod _ = requestSendAsync---- method Request::send_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Request", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "InputStream")--- throws : True--- Skip return : False--foreign import ccall "soup_request_send_finish" soup_request_send_finish :: -    Ptr Request ->                          -- _obj : TInterface "Soup" "Request"-    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.InputStream)---requestSendFinish ::-    (MonadIO m, RequestK a, Gio.AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m Gio.InputStream                    -- result-requestSendFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ soup_request_send_finish _obj' result_'-        checkUnexpectedReturnNULL "soup_request_send_finish" result-        result' <- (wrapObject Gio.InputStream) result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--data RequestSendFinishMethodInfo-instance (signature ~ (b -> m Gio.InputStream), MonadIO m, RequestK a, Gio.AsyncResultK b) => MethodInfo RequestSendFinishMethodInfo a signature where-    overloadedMethod _ = requestSendFinish--
− GI/Soup/Objects/Request.hs-boot 
@@ -1,22 +0,0 @@-module GI.Soup.Objects.Request where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Request = Request (ForeignPtr Request)-instance GObject Request where-class GObject o => RequestK o-instance (GObject o, IsDescendantOf Request o) => RequestK o-data RequestSessionPropertyInfo-data RequestUriPropertyInfo-data RequestGetContentLengthMethodInfo-data RequestGetContentTypeMethodInfo-data RequestGetSessionMethodInfo-data RequestGetUriMethodInfo-data RequestSendMethodInfo-data RequestSendAsyncMethodInfo-data RequestSendFinishMethodInfo
− GI/Soup/Objects/RequestData.hs 
@@ -1,101 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Objects.RequestData-    ( ---- * Exported types-    RequestData(..)                         ,-    RequestDataK                            ,-    toRequestData                           ,-    noRequestData                           ,---    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GObject as GObject-import qualified GI.Gio as Gio--newtype RequestData = RequestData (ForeignPtr RequestData)-foreign import ccall "soup_request_data_get_type"-    c_soup_request_data_get_type :: IO GType--type instance ParentTypes RequestData = RequestDataParentTypes-type RequestDataParentTypes = '[Request, GObject.Object, Gio.Initable]--instance GObject RequestData where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_request_data_get_type-    --class GObject o => RequestDataK o-instance (GObject o, IsDescendantOf RequestData o) => RequestDataK o--toRequestData :: RequestDataK o => o -> IO RequestData-toRequestData = unsafeCastTo RequestData--noRequestData :: Maybe RequestData-noRequestData = Nothing--type family ResolveRequestDataMethod (t :: Symbol) (o :: *) :: * where-    ResolveRequestDataMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveRequestDataMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveRequestDataMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveRequestDataMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveRequestDataMethod "init" o = Gio.InitableInitMethodInfo-    ResolveRequestDataMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveRequestDataMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveRequestDataMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveRequestDataMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveRequestDataMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveRequestDataMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveRequestDataMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveRequestDataMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveRequestDataMethod "send" o = RequestSendMethodInfo-    ResolveRequestDataMethod "sendAsync" o = RequestSendAsyncMethodInfo-    ResolveRequestDataMethod "sendFinish" o = RequestSendFinishMethodInfo-    ResolveRequestDataMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveRequestDataMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveRequestDataMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveRequestDataMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveRequestDataMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveRequestDataMethod "getContentLength" o = RequestGetContentLengthMethodInfo-    ResolveRequestDataMethod "getContentType" o = RequestGetContentTypeMethodInfo-    ResolveRequestDataMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveRequestDataMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveRequestDataMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveRequestDataMethod "getSession" o = RequestGetSessionMethodInfo-    ResolveRequestDataMethod "getUri" o = RequestGetUriMethodInfo-    ResolveRequestDataMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveRequestDataMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveRequestDataMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveRequestDataMethod t RequestData, MethodInfo info RequestData p) => IsLabelProxy t (RequestData -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveRequestDataMethod t RequestData, MethodInfo info RequestData p) => IsLabel t (RequestData -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList RequestData = RequestDataAttributeList-type RequestDataAttributeList = ('[ '("session", RequestSessionPropertyInfo), '("uri", RequestUriPropertyInfo)] :: [(Symbol, *)])--type instance SignalList RequestData = RequestDataSignalList-type RequestDataSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])--
− GI/Soup/Objects/RequestData.hs-boot 
@@ -1,13 +0,0 @@-module GI.Soup.Objects.RequestData where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype RequestData = RequestData (ForeignPtr RequestData)-instance GObject RequestData where-class GObject o => RequestDataK o-instance (GObject o, IsDescendantOf RequestData o) => RequestDataK o
− GI/Soup/Objects/RequestFile.hs 
@@ -1,139 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Objects.RequestFile-    ( ---- * Exported types-    RequestFile(..)                         ,-    RequestFileK                            ,-    toRequestFile                           ,-    noRequestFile                           ,--- -- * Methods--- ** requestFileGetFile-    RequestFileGetFileMethodInfo            ,-    requestFileGetFile                      ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GObject as GObject-import qualified GI.Gio as Gio--newtype RequestFile = RequestFile (ForeignPtr RequestFile)-foreign import ccall "soup_request_file_get_type"-    c_soup_request_file_get_type :: IO GType--type instance ParentTypes RequestFile = RequestFileParentTypes-type RequestFileParentTypes = '[Request, GObject.Object, Gio.Initable]--instance GObject RequestFile where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_request_file_get_type-    --class GObject o => RequestFileK o-instance (GObject o, IsDescendantOf RequestFile o) => RequestFileK o--toRequestFile :: RequestFileK o => o -> IO RequestFile-toRequestFile = unsafeCastTo RequestFile--noRequestFile :: Maybe RequestFile-noRequestFile = Nothing--type family ResolveRequestFileMethod (t :: Symbol) (o :: *) :: * where-    ResolveRequestFileMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveRequestFileMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveRequestFileMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveRequestFileMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveRequestFileMethod "init" o = Gio.InitableInitMethodInfo-    ResolveRequestFileMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveRequestFileMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveRequestFileMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveRequestFileMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveRequestFileMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveRequestFileMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveRequestFileMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveRequestFileMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveRequestFileMethod "send" o = RequestSendMethodInfo-    ResolveRequestFileMethod "sendAsync" o = RequestSendAsyncMethodInfo-    ResolveRequestFileMethod "sendFinish" o = RequestSendFinishMethodInfo-    ResolveRequestFileMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveRequestFileMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveRequestFileMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveRequestFileMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveRequestFileMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveRequestFileMethod "getContentLength" o = RequestGetContentLengthMethodInfo-    ResolveRequestFileMethod "getContentType" o = RequestGetContentTypeMethodInfo-    ResolveRequestFileMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveRequestFileMethod "getFile" o = RequestFileGetFileMethodInfo-    ResolveRequestFileMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveRequestFileMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveRequestFileMethod "getSession" o = RequestGetSessionMethodInfo-    ResolveRequestFileMethod "getUri" o = RequestGetUriMethodInfo-    ResolveRequestFileMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveRequestFileMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveRequestFileMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveRequestFileMethod t RequestFile, MethodInfo info RequestFile p) => IsLabelProxy t (RequestFile -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveRequestFileMethod t RequestFile, MethodInfo info RequestFile p) => IsLabel t (RequestFile -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList RequestFile = RequestFileAttributeList-type RequestFileAttributeList = ('[ '("session", RequestSessionPropertyInfo), '("uri", RequestUriPropertyInfo)] :: [(Symbol, *)])--type instance SignalList RequestFile = RequestFileSignalList-type RequestFileSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method RequestFile::get_file--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "RequestFile", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "File")--- throws : False--- Skip return : False--foreign import ccall "soup_request_file_get_file" soup_request_file_get_file :: -    Ptr RequestFile ->                      -- _obj : TInterface "Soup" "RequestFile"-    IO (Ptr Gio.File)---requestFileGetFile ::-    (MonadIO m, RequestFileK a) =>-    a                                       -- _obj-    -> m Gio.File                           -- result-requestFileGetFile _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_request_file_get_file _obj'-    checkUnexpectedReturnNULL "soup_request_file_get_file" result-    result' <- (wrapObject Gio.File) result-    touchManagedPtr _obj-    return result'--data RequestFileGetFileMethodInfo-instance (signature ~ (m Gio.File), MonadIO m, RequestFileK a) => MethodInfo RequestFileGetFileMethodInfo a signature where-    overloadedMethod _ = requestFileGetFile--
− GI/Soup/Objects/RequestFile.hs-boot 
@@ -1,14 +0,0 @@-module GI.Soup.Objects.RequestFile where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype RequestFile = RequestFile (ForeignPtr RequestFile)-instance GObject RequestFile where-class GObject o => RequestFileK o-instance (GObject o, IsDescendantOf RequestFile o) => RequestFileK o-data RequestFileGetFileMethodInfo
− GI/Soup/Objects/RequestHTTP.hs 
@@ -1,139 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Objects.RequestHTTP-    ( ---- * Exported types-    RequestHTTP(..)                         ,-    RequestHTTPK                            ,-    toRequestHTTP                           ,-    noRequestHTTP                           ,--- -- * Methods--- ** requestHTTPGetMessage-    RequestHTTPGetMessageMethodInfo         ,-    requestHTTPGetMessage                   ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GObject as GObject-import qualified GI.Gio as Gio--newtype RequestHTTP = RequestHTTP (ForeignPtr RequestHTTP)-foreign import ccall "soup_request_http_get_type"-    c_soup_request_http_get_type :: IO GType--type instance ParentTypes RequestHTTP = RequestHTTPParentTypes-type RequestHTTPParentTypes = '[Request, GObject.Object, Gio.Initable]--instance GObject RequestHTTP where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_request_http_get_type-    --class GObject o => RequestHTTPK o-instance (GObject o, IsDescendantOf RequestHTTP o) => RequestHTTPK o--toRequestHTTP :: RequestHTTPK o => o -> IO RequestHTTP-toRequestHTTP = unsafeCastTo RequestHTTP--noRequestHTTP :: Maybe RequestHTTP-noRequestHTTP = Nothing--type family ResolveRequestHTTPMethod (t :: Symbol) (o :: *) :: * where-    ResolveRequestHTTPMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveRequestHTTPMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveRequestHTTPMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveRequestHTTPMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveRequestHTTPMethod "init" o = Gio.InitableInitMethodInfo-    ResolveRequestHTTPMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveRequestHTTPMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveRequestHTTPMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveRequestHTTPMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveRequestHTTPMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveRequestHTTPMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveRequestHTTPMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveRequestHTTPMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveRequestHTTPMethod "send" o = RequestSendMethodInfo-    ResolveRequestHTTPMethod "sendAsync" o = RequestSendAsyncMethodInfo-    ResolveRequestHTTPMethod "sendFinish" o = RequestSendFinishMethodInfo-    ResolveRequestHTTPMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveRequestHTTPMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveRequestHTTPMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveRequestHTTPMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveRequestHTTPMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveRequestHTTPMethod "getContentLength" o = RequestGetContentLengthMethodInfo-    ResolveRequestHTTPMethod "getContentType" o = RequestGetContentTypeMethodInfo-    ResolveRequestHTTPMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveRequestHTTPMethod "getMessage" o = RequestHTTPGetMessageMethodInfo-    ResolveRequestHTTPMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveRequestHTTPMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveRequestHTTPMethod "getSession" o = RequestGetSessionMethodInfo-    ResolveRequestHTTPMethod "getUri" o = RequestGetUriMethodInfo-    ResolveRequestHTTPMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveRequestHTTPMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveRequestHTTPMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveRequestHTTPMethod t RequestHTTP, MethodInfo info RequestHTTP p) => IsLabelProxy t (RequestHTTP -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveRequestHTTPMethod t RequestHTTP, MethodInfo info RequestHTTP p) => IsLabel t (RequestHTTP -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList RequestHTTP = RequestHTTPAttributeList-type RequestHTTPAttributeList = ('[ '("session", RequestSessionPropertyInfo), '("uri", RequestUriPropertyInfo)] :: [(Symbol, *)])--type instance SignalList RequestHTTP = RequestHTTPSignalList-type RequestHTTPSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method RequestHTTP::get_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "RequestHTTP", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Message")--- throws : False--- Skip return : False--foreign import ccall "soup_request_http_get_message" soup_request_http_get_message :: -    Ptr RequestHTTP ->                      -- _obj : TInterface "Soup" "RequestHTTP"-    IO (Ptr Message)---requestHTTPGetMessage ::-    (MonadIO m, RequestHTTPK a) =>-    a                                       -- _obj-    -> m Message                            -- result-requestHTTPGetMessage _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_request_http_get_message _obj'-    checkUnexpectedReturnNULL "soup_request_http_get_message" result-    result' <- (wrapObject Message) result-    touchManagedPtr _obj-    return result'--data RequestHTTPGetMessageMethodInfo-instance (signature ~ (m Message), MonadIO m, RequestHTTPK a) => MethodInfo RequestHTTPGetMessageMethodInfo a signature where-    overloadedMethod _ = requestHTTPGetMessage--
− GI/Soup/Objects/RequestHTTP.hs-boot 
@@ -1,14 +0,0 @@-module GI.Soup.Objects.RequestHTTP where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype RequestHTTP = RequestHTTP (ForeignPtr RequestHTTP)-instance GObject RequestHTTP where-class GObject o => RequestHTTPK o-instance (GObject o, IsDescendantOf RequestHTTP o) => RequestHTTPK o-data RequestHTTPGetMessageMethodInfo
− GI/Soup/Objects/Requester.hs 
@@ -1,213 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Objects.Requester-    ( ---- * Exported types-    Requester(..)                           ,-    RequesterK                              ,-    toRequester                             ,-    noRequester                             ,--- -- * Methods--- ** requesterNew-    requesterNew                            ,----- ** requesterRequest-    RequesterRequestMethodInfo              ,-    requesterRequest                        ,----- ** requesterRequestUri-    RequesterRequestUriMethodInfo           ,-    requesterRequestUri                     ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GObject as GObject--newtype Requester = Requester (ForeignPtr Requester)-foreign import ccall "soup_requester_get_type"-    c_soup_requester_get_type :: IO GType--type instance ParentTypes Requester = RequesterParentTypes-type RequesterParentTypes = '[GObject.Object, SessionFeature]--instance GObject Requester where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_requester_get_type-    --class GObject o => RequesterK o-instance (GObject o, IsDescendantOf Requester o) => RequesterK o--toRequester :: RequesterK o => o -> IO Requester-toRequester = unsafeCastTo Requester--noRequester :: Maybe Requester-noRequester = Nothing--type family ResolveRequesterMethod (t :: Symbol) (o :: *) :: * where-    ResolveRequesterMethod "addFeature" o = SessionFeatureAddFeatureMethodInfo-    ResolveRequesterMethod "attach" o = SessionFeatureAttachMethodInfo-    ResolveRequesterMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveRequesterMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveRequesterMethod "detach" o = SessionFeatureDetachMethodInfo-    ResolveRequesterMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveRequesterMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveRequesterMethod "hasFeature" o = SessionFeatureHasFeatureMethodInfo-    ResolveRequesterMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveRequesterMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveRequesterMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveRequesterMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveRequesterMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveRequesterMethod "removeFeature" o = SessionFeatureRemoveFeatureMethodInfo-    ResolveRequesterMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveRequesterMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveRequesterMethod "request" o = RequesterRequestMethodInfo-    ResolveRequesterMethod "requestUri" o = RequesterRequestUriMethodInfo-    ResolveRequesterMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveRequesterMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveRequesterMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveRequesterMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveRequesterMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveRequesterMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveRequesterMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveRequesterMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveRequesterMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveRequesterMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveRequesterMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveRequesterMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveRequesterMethod t Requester, MethodInfo info Requester p) => IsLabelProxy t (Requester -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveRequesterMethod t Requester, MethodInfo info Requester p) => IsLabel t (Requester -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList Requester = RequesterAttributeList-type RequesterAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList Requester = RequesterSignalList-type RequesterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Requester::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Soup" "Requester")--- throws : False--- Skip return : False--foreign import ccall "soup_requester_new" soup_requester_new :: -    IO (Ptr Requester)---requesterNew ::-    (MonadIO m) =>-    m Requester                             -- result-requesterNew  = liftIO $ do-    result <- soup_requester_new-    checkUnexpectedReturnNULL "soup_requester_new" result-    result' <- (wrapObject Requester) result-    return result'---- method Requester::request--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Requester", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Request")--- throws : True--- Skip return : False--foreign import ccall "soup_requester_request" soup_requester_request :: -    Ptr Requester ->                        -- _obj : TInterface "Soup" "Requester"-    CString ->                              -- uri_string : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Request)---requesterRequest ::-    (MonadIO m, RequesterK a) =>-    a                                       -- _obj-    -> T.Text                               -- uriString-    -> m Request                            -- result-requesterRequest _obj uriString = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    uriString' <- textToCString uriString-    onException (do-        result <- propagateGError $ soup_requester_request _obj' uriString'-        checkUnexpectedReturnNULL "soup_requester_request" result-        result' <- (wrapObject Request) result-        touchManagedPtr _obj-        freeMem uriString'-        return result'-     ) (do-        freeMem uriString'-     )--data RequesterRequestMethodInfo-instance (signature ~ (T.Text -> m Request), MonadIO m, RequesterK a) => MethodInfo RequesterRequestMethodInfo a signature where-    overloadedMethod _ = requesterRequest---- method Requester::request_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Requester", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Request")--- throws : True--- Skip return : False--foreign import ccall "soup_requester_request_uri" soup_requester_request_uri :: -    Ptr Requester ->                        -- _obj : TInterface "Soup" "Requester"-    Ptr URI ->                              -- uri : TInterface "Soup" "URI"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Request)---requesterRequestUri ::-    (MonadIO m, RequesterK a) =>-    a                                       -- _obj-    -> URI                                  -- uri-    -> m Request                            -- result-requesterRequestUri _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let uri' = unsafeManagedPtrGetPtr uri-    onException (do-        result <- propagateGError $ soup_requester_request_uri _obj' uri'-        checkUnexpectedReturnNULL "soup_requester_request_uri" result-        result' <- (wrapObject Request) result-        touchManagedPtr _obj-        touchManagedPtr uri-        return result'-     ) (do-        return ()-     )--data RequesterRequestUriMethodInfo-instance (signature ~ (URI -> m Request), MonadIO m, RequesterK a) => MethodInfo RequesterRequestUriMethodInfo a signature where-    overloadedMethod _ = requesterRequestUri--
− GI/Soup/Objects/Requester.hs-boot 
@@ -1,15 +0,0 @@-module GI.Soup.Objects.Requester where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Requester = Requester (ForeignPtr Requester)-instance GObject Requester where-class GObject o => RequesterK o-instance (GObject o, IsDescendantOf Requester o) => RequesterK o-data RequesterRequestMethodInfo-data RequesterRequestUriMethodInfo
− GI/Soup/Objects/Server.hs 
@@ -1,1721 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Objects.Server-    ( ---- * Exported types-    Server(..)                              ,-    ServerK                                 ,-    toServer                                ,-    noServer                                ,--- -- * Methods--- ** serverAcceptIostream-    ServerAcceptIostreamMethodInfo          ,-    serverAcceptIostream                    ,----- ** serverAddAuthDomain-    ServerAddAuthDomainMethodInfo           ,-    serverAddAuthDomain                     ,----- ** serverAddEarlyHandler-    ServerAddEarlyHandlerMethodInfo         ,-    serverAddEarlyHandler                   ,----- ** serverAddHandler-    ServerAddHandlerMethodInfo              ,-    serverAddHandler                        ,----- ** serverAddWebsocketHandler-    ServerAddWebsocketHandlerMethodInfo     ,-    serverAddWebsocketHandler               ,----- ** serverDisconnect-    ServerDisconnectMethodInfo              ,-    serverDisconnect                        ,----- ** serverGetAsyncContext-    ServerGetAsyncContextMethodInfo         ,-    serverGetAsyncContext                   ,----- ** serverGetListener-    ServerGetListenerMethodInfo             ,-    serverGetListener                       ,----- ** serverGetListeners-    ServerGetListenersMethodInfo            ,-    serverGetListeners                      ,----- ** serverGetPort-    ServerGetPortMethodInfo                 ,-    serverGetPort                           ,----- ** serverGetUris-    ServerGetUrisMethodInfo                 ,-    serverGetUris                           ,----- ** serverIsHttps-    ServerIsHttpsMethodInfo                 ,-    serverIsHttps                           ,----- ** serverListen-    ServerListenMethodInfo                  ,-    serverListen                            ,----- ** serverListenAll-    ServerListenAllMethodInfo               ,-    serverListenAll                         ,----- ** serverListenFd-    ServerListenFdMethodInfo                ,-    serverListenFd                          ,----- ** serverListenLocal-    ServerListenLocalMethodInfo             ,-    serverListenLocal                       ,----- ** serverListenSocket-    ServerListenSocketMethodInfo            ,-    serverListenSocket                      ,----- ** serverPauseMessage-    ServerPauseMessageMethodInfo            ,-    serverPauseMessage                      ,----- ** serverQuit-    ServerQuitMethodInfo                    ,-    serverQuit                              ,----- ** serverRemoveAuthDomain-    ServerRemoveAuthDomainMethodInfo        ,-    serverRemoveAuthDomain                  ,----- ** serverRemoveHandler-    ServerRemoveHandlerMethodInfo           ,-    serverRemoveHandler                     ,----- ** serverRun-    ServerRunMethodInfo                     ,-    serverRun                               ,----- ** serverRunAsync-    ServerRunAsyncMethodInfo                ,-    serverRunAsync                          ,----- ** serverSetSslCertFile-    ServerSetSslCertFileMethodInfo          ,-    serverSetSslCertFile                    ,----- ** serverUnpauseMessage-    ServerUnpauseMessageMethodInfo          ,-    serverUnpauseMessage                    ,----- -- * Properties--- ** AsyncContext-    ServerAsyncContextPropertyInfo          ,-    constructServerAsyncContext             ,-    getServerAsyncContext                   ,-    serverAsyncContext                      ,----- ** HttpAliases-    ServerHttpAliasesPropertyInfo           ,-    clearServerHttpAliases                  ,-    constructServerHttpAliases              ,-    getServerHttpAliases                    ,-    serverHttpAliases                       ,-    setServerHttpAliases                    ,----- ** HttpsAliases-    ServerHttpsAliasesPropertyInfo          ,-    clearServerHttpsAliases                 ,-    constructServerHttpsAliases             ,-    getServerHttpsAliases                   ,-    serverHttpsAliases                      ,-    setServerHttpsAliases                   ,----- ** Interface-    ServerInterfacePropertyInfo             ,-    constructServerInterface                ,-    getServerInterface                      ,-    serverInterface                         ,----- ** Port-    ServerPortPropertyInfo                  ,-    constructServerPort                     ,-    getServerPort                           ,-    serverPort                              ,----- ** RawPaths-    ServerRawPathsPropertyInfo              ,-    constructServerRawPaths                 ,-    getServerRawPaths                       ,-    serverRawPaths                          ,----- ** ServerHeader-    ServerServerHeaderPropertyInfo          ,-    clearServerServerHeader                 ,-    constructServerServerHeader             ,-    getServerServerHeader                   ,-    serverServerHeader                      ,-    setServerServerHeader                   ,----- ** SslCertFile-    ServerSslCertFilePropertyInfo           ,-    constructServerSslCertFile              ,-    getServerSslCertFile                    ,-    serverSslCertFile                       ,----- ** SslKeyFile-    ServerSslKeyFilePropertyInfo            ,-    constructServerSslKeyFile               ,-    getServerSslKeyFile                     ,-    serverSslKeyFile                        ,----- ** TlsCertificate-    ServerTlsCertificatePropertyInfo        ,-    constructServerTlsCertificate           ,-    getServerTlsCertificate                 ,-    serverTlsCertificate                    ,----- -- * Signals--- ** RequestAborted-    ServerRequestAbortedCallback            ,-    ServerRequestAbortedCallbackC           ,-    ServerRequestAbortedSignalInfo          ,-    afterServerRequestAborted               ,-    mkServerRequestAbortedCallback          ,-    noServerRequestAbortedCallback          ,-    onServerRequestAborted                  ,-    serverRequestAbortedCallbackWrapper     ,-    serverRequestAbortedClosure             ,----- ** RequestFinished-    ServerRequestFinishedCallback           ,-    ServerRequestFinishedCallbackC          ,-    ServerRequestFinishedSignalInfo         ,-    afterServerRequestFinished              ,-    mkServerRequestFinishedCallback         ,-    noServerRequestFinishedCallback         ,-    onServerRequestFinished                 ,-    serverRequestFinishedCallbackWrapper    ,-    serverRequestFinishedClosure            ,----- ** RequestRead-    ServerRequestReadCallback               ,-    ServerRequestReadCallbackC              ,-    ServerRequestReadSignalInfo             ,-    afterServerRequestRead                  ,-    mkServerRequestReadCallback             ,-    noServerRequestReadCallback             ,-    onServerRequestRead                     ,-    serverRequestReadCallbackWrapper        ,-    serverRequestReadClosure                ,----- ** RequestStarted-    ServerRequestStartedCallback            ,-    ServerRequestStartedCallbackC           ,-    ServerRequestStartedSignalInfo          ,-    afterServerRequestStarted               ,-    mkServerRequestStartedCallback          ,-    noServerRequestStartedCallback          ,-    onServerRequestStarted                  ,-    serverRequestStartedCallbackWrapper     ,-    serverRequestStartedClosure             ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject-import qualified GI.Gio as Gio--newtype Server = Server (ForeignPtr Server)-foreign import ccall "soup_server_get_type"-    c_soup_server_get_type :: IO GType--type instance ParentTypes Server = ServerParentTypes-type ServerParentTypes = '[GObject.Object]--instance GObject Server where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_server_get_type-    --class GObject o => ServerK o-instance (GObject o, IsDescendantOf Server o) => ServerK o--toServer :: ServerK o => o -> IO Server-toServer = unsafeCastTo Server--noServer :: Maybe Server-noServer = Nothing--type family ResolveServerMethod (t :: Symbol) (o :: *) :: * where-    ResolveServerMethod "acceptIostream" o = ServerAcceptIostreamMethodInfo-    ResolveServerMethod "addAuthDomain" o = ServerAddAuthDomainMethodInfo-    ResolveServerMethod "addEarlyHandler" o = ServerAddEarlyHandlerMethodInfo-    ResolveServerMethod "addHandler" o = ServerAddHandlerMethodInfo-    ResolveServerMethod "addWebsocketHandler" o = ServerAddWebsocketHandlerMethodInfo-    ResolveServerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveServerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveServerMethod "disconnect" o = ServerDisconnectMethodInfo-    ResolveServerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveServerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveServerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveServerMethod "isHttps" o = ServerIsHttpsMethodInfo-    ResolveServerMethod "listen" o = ServerListenMethodInfo-    ResolveServerMethod "listenAll" o = ServerListenAllMethodInfo-    ResolveServerMethod "listenFd" o = ServerListenFdMethodInfo-    ResolveServerMethod "listenLocal" o = ServerListenLocalMethodInfo-    ResolveServerMethod "listenSocket" o = ServerListenSocketMethodInfo-    ResolveServerMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveServerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveServerMethod "pauseMessage" o = ServerPauseMessageMethodInfo-    ResolveServerMethod "quit" o = ServerQuitMethodInfo-    ResolveServerMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveServerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveServerMethod "removeAuthDomain" o = ServerRemoveAuthDomainMethodInfo-    ResolveServerMethod "removeHandler" o = ServerRemoveHandlerMethodInfo-    ResolveServerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveServerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveServerMethod "run" o = ServerRunMethodInfo-    ResolveServerMethod "runAsync" o = ServerRunAsyncMethodInfo-    ResolveServerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveServerMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveServerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveServerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveServerMethod "unpauseMessage" o = ServerUnpauseMessageMethodInfo-    ResolveServerMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveServerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveServerMethod "getAsyncContext" o = ServerGetAsyncContextMethodInfo-    ResolveServerMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveServerMethod "getListener" o = ServerGetListenerMethodInfo-    ResolveServerMethod "getListeners" o = ServerGetListenersMethodInfo-    ResolveServerMethod "getPort" o = ServerGetPortMethodInfo-    ResolveServerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveServerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveServerMethod "getUris" o = ServerGetUrisMethodInfo-    ResolveServerMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveServerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveServerMethod "setSslCertFile" o = ServerSetSslCertFileMethodInfo-    ResolveServerMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveServerMethod t Server, MethodInfo info Server p) => IsLabelProxy t (Server -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveServerMethod t Server, MethodInfo info Server p) => IsLabel t (Server -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal Server::request-aborted-type ServerRequestAbortedCallback =-    Message ->-    ClientContext ->-    IO ()--noServerRequestAbortedCallback :: Maybe ServerRequestAbortedCallback-noServerRequestAbortedCallback = Nothing--type ServerRequestAbortedCallbackC =-    Ptr () ->                               -- object-    Ptr Message ->-    Ptr ClientContext ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkServerRequestAbortedCallback :: ServerRequestAbortedCallbackC -> IO (FunPtr ServerRequestAbortedCallbackC)--serverRequestAbortedClosure :: ServerRequestAbortedCallback -> IO Closure-serverRequestAbortedClosure cb = newCClosure =<< mkServerRequestAbortedCallback wrapped-    where wrapped = serverRequestAbortedCallbackWrapper cb--serverRequestAbortedCallbackWrapper ::-    ServerRequestAbortedCallback ->-    Ptr () ->-    Ptr Message ->-    Ptr ClientContext ->-    Ptr () ->-    IO ()-serverRequestAbortedCallbackWrapper _cb _ message client _ = do-    message' <- (newObject Message) message-    client' <- (newBoxed ClientContext) client-    _cb  message' client'--onServerRequestAborted :: (GObject a, MonadIO m) => a -> ServerRequestAbortedCallback -> m SignalHandlerId-onServerRequestAborted obj cb = liftIO $ connectServerRequestAborted obj cb SignalConnectBefore-afterServerRequestAborted :: (GObject a, MonadIO m) => a -> ServerRequestAbortedCallback -> m SignalHandlerId-afterServerRequestAborted obj cb = connectServerRequestAborted obj cb SignalConnectAfter--connectServerRequestAborted :: (GObject a, MonadIO m) =>-                               a -> ServerRequestAbortedCallback -> SignalConnectMode -> m SignalHandlerId-connectServerRequestAborted obj cb after = liftIO $ do-    cb' <- mkServerRequestAbortedCallback (serverRequestAbortedCallbackWrapper cb)-    connectSignalFunPtr obj "request-aborted" cb' after---- signal Server::request-finished-type ServerRequestFinishedCallback =-    Message ->-    ClientContext ->-    IO ()--noServerRequestFinishedCallback :: Maybe ServerRequestFinishedCallback-noServerRequestFinishedCallback = Nothing--type ServerRequestFinishedCallbackC =-    Ptr () ->                               -- object-    Ptr Message ->-    Ptr ClientContext ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkServerRequestFinishedCallback :: ServerRequestFinishedCallbackC -> IO (FunPtr ServerRequestFinishedCallbackC)--serverRequestFinishedClosure :: ServerRequestFinishedCallback -> IO Closure-serverRequestFinishedClosure cb = newCClosure =<< mkServerRequestFinishedCallback wrapped-    where wrapped = serverRequestFinishedCallbackWrapper cb--serverRequestFinishedCallbackWrapper ::-    ServerRequestFinishedCallback ->-    Ptr () ->-    Ptr Message ->-    Ptr ClientContext ->-    Ptr () ->-    IO ()-serverRequestFinishedCallbackWrapper _cb _ message client _ = do-    message' <- (newObject Message) message-    client' <- (newBoxed ClientContext) client-    _cb  message' client'--onServerRequestFinished :: (GObject a, MonadIO m) => a -> ServerRequestFinishedCallback -> m SignalHandlerId-onServerRequestFinished obj cb = liftIO $ connectServerRequestFinished obj cb SignalConnectBefore-afterServerRequestFinished :: (GObject a, MonadIO m) => a -> ServerRequestFinishedCallback -> m SignalHandlerId-afterServerRequestFinished obj cb = connectServerRequestFinished obj cb SignalConnectAfter--connectServerRequestFinished :: (GObject a, MonadIO m) =>-                                a -> ServerRequestFinishedCallback -> SignalConnectMode -> m SignalHandlerId-connectServerRequestFinished obj cb after = liftIO $ do-    cb' <- mkServerRequestFinishedCallback (serverRequestFinishedCallbackWrapper cb)-    connectSignalFunPtr obj "request-finished" cb' after---- signal Server::request-read-type ServerRequestReadCallback =-    Message ->-    ClientContext ->-    IO ()--noServerRequestReadCallback :: Maybe ServerRequestReadCallback-noServerRequestReadCallback = Nothing--type ServerRequestReadCallbackC =-    Ptr () ->                               -- object-    Ptr Message ->-    Ptr ClientContext ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkServerRequestReadCallback :: ServerRequestReadCallbackC -> IO (FunPtr ServerRequestReadCallbackC)--serverRequestReadClosure :: ServerRequestReadCallback -> IO Closure-serverRequestReadClosure cb = newCClosure =<< mkServerRequestReadCallback wrapped-    where wrapped = serverRequestReadCallbackWrapper cb--serverRequestReadCallbackWrapper ::-    ServerRequestReadCallback ->-    Ptr () ->-    Ptr Message ->-    Ptr ClientContext ->-    Ptr () ->-    IO ()-serverRequestReadCallbackWrapper _cb _ message client _ = do-    message' <- (newObject Message) message-    client' <- (newBoxed ClientContext) client-    _cb  message' client'--onServerRequestRead :: (GObject a, MonadIO m) => a -> ServerRequestReadCallback -> m SignalHandlerId-onServerRequestRead obj cb = liftIO $ connectServerRequestRead obj cb SignalConnectBefore-afterServerRequestRead :: (GObject a, MonadIO m) => a -> ServerRequestReadCallback -> m SignalHandlerId-afterServerRequestRead obj cb = connectServerRequestRead obj cb SignalConnectAfter--connectServerRequestRead :: (GObject a, MonadIO m) =>-                            a -> ServerRequestReadCallback -> SignalConnectMode -> m SignalHandlerId-connectServerRequestRead obj cb after = liftIO $ do-    cb' <- mkServerRequestReadCallback (serverRequestReadCallbackWrapper cb)-    connectSignalFunPtr obj "request-read" cb' after---- signal Server::request-started-type ServerRequestStartedCallback =-    Message ->-    ClientContext ->-    IO ()--noServerRequestStartedCallback :: Maybe ServerRequestStartedCallback-noServerRequestStartedCallback = Nothing--type ServerRequestStartedCallbackC =-    Ptr () ->                               -- object-    Ptr Message ->-    Ptr ClientContext ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkServerRequestStartedCallback :: ServerRequestStartedCallbackC -> IO (FunPtr ServerRequestStartedCallbackC)--serverRequestStartedClosure :: ServerRequestStartedCallback -> IO Closure-serverRequestStartedClosure cb = newCClosure =<< mkServerRequestStartedCallback wrapped-    where wrapped = serverRequestStartedCallbackWrapper cb--serverRequestStartedCallbackWrapper ::-    ServerRequestStartedCallback ->-    Ptr () ->-    Ptr Message ->-    Ptr ClientContext ->-    Ptr () ->-    IO ()-serverRequestStartedCallbackWrapper _cb _ message client _ = do-    message' <- (newObject Message) message-    client' <- (newBoxed ClientContext) client-    _cb  message' client'--onServerRequestStarted :: (GObject a, MonadIO m) => a -> ServerRequestStartedCallback -> m SignalHandlerId-onServerRequestStarted obj cb = liftIO $ connectServerRequestStarted obj cb SignalConnectBefore-afterServerRequestStarted :: (GObject a, MonadIO m) => a -> ServerRequestStartedCallback -> m SignalHandlerId-afterServerRequestStarted obj cb = connectServerRequestStarted obj cb SignalConnectAfter--connectServerRequestStarted :: (GObject a, MonadIO m) =>-                               a -> ServerRequestStartedCallback -> SignalConnectMode -> m SignalHandlerId-connectServerRequestStarted obj cb after = liftIO $ do-    cb' <- mkServerRequestStartedCallback (serverRequestStartedCallbackWrapper cb)-    connectSignalFunPtr obj "request-started" cb' after---- VVV Prop "async-context"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getServerAsyncContext :: (MonadIO m, ServerK o) => o -> m (Ptr ())-getServerAsyncContext obj = liftIO $ getObjectPropertyPtr obj "async-context"--constructServerAsyncContext :: Ptr () -> IO ([Char], GValue)-constructServerAsyncContext val = constructObjectPropertyPtr "async-context" val--data ServerAsyncContextPropertyInfo-instance AttrInfo ServerAsyncContextPropertyInfo where-    type AttrAllowedOps ServerAsyncContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ServerAsyncContextPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint ServerAsyncContextPropertyInfo = ServerK-    type AttrGetType ServerAsyncContextPropertyInfo = (Ptr ())-    type AttrLabel ServerAsyncContextPropertyInfo = "async-context"-    attrGet _ = getServerAsyncContext-    attrSet _ = undefined-    attrConstruct _ = constructServerAsyncContext-    attrClear _ = undefined---- VVV Prop "http-aliases"-   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getServerHttpAliases :: (MonadIO m, ServerK o) => o -> m (Maybe [T.Text])-getServerHttpAliases obj = liftIO $ getObjectPropertyStringArray obj "http-aliases"--setServerHttpAliases :: (MonadIO m, ServerK o) => o -> [T.Text] -> m ()-setServerHttpAliases obj val = liftIO $ setObjectPropertyStringArray obj "http-aliases" (Just val)--constructServerHttpAliases :: [T.Text] -> IO ([Char], GValue)-constructServerHttpAliases val = constructObjectPropertyStringArray "http-aliases" (Just val)--clearServerHttpAliases :: (MonadIO m, ServerK o) => o -> m ()-clearServerHttpAliases obj = liftIO $ setObjectPropertyStringArray obj "http-aliases" (Nothing :: Maybe [T.Text])--data ServerHttpAliasesPropertyInfo-instance AttrInfo ServerHttpAliasesPropertyInfo where-    type AttrAllowedOps ServerHttpAliasesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ServerHttpAliasesPropertyInfo = (~) [T.Text]-    type AttrBaseTypeConstraint ServerHttpAliasesPropertyInfo = ServerK-    type AttrGetType ServerHttpAliasesPropertyInfo = (Maybe [T.Text])-    type AttrLabel ServerHttpAliasesPropertyInfo = "http-aliases"-    attrGet _ = getServerHttpAliases-    attrSet _ = setServerHttpAliases-    attrConstruct _ = constructServerHttpAliases-    attrClear _ = clearServerHttpAliases---- VVV Prop "https-aliases"-   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getServerHttpsAliases :: (MonadIO m, ServerK o) => o -> m (Maybe [T.Text])-getServerHttpsAliases obj = liftIO $ getObjectPropertyStringArray obj "https-aliases"--setServerHttpsAliases :: (MonadIO m, ServerK o) => o -> [T.Text] -> m ()-setServerHttpsAliases obj val = liftIO $ setObjectPropertyStringArray obj "https-aliases" (Just val)--constructServerHttpsAliases :: [T.Text] -> IO ([Char], GValue)-constructServerHttpsAliases val = constructObjectPropertyStringArray "https-aliases" (Just val)--clearServerHttpsAliases :: (MonadIO m, ServerK o) => o -> m ()-clearServerHttpsAliases obj = liftIO $ setObjectPropertyStringArray obj "https-aliases" (Nothing :: Maybe [T.Text])--data ServerHttpsAliasesPropertyInfo-instance AttrInfo ServerHttpsAliasesPropertyInfo where-    type AttrAllowedOps ServerHttpsAliasesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ServerHttpsAliasesPropertyInfo = (~) [T.Text]-    type AttrBaseTypeConstraint ServerHttpsAliasesPropertyInfo = ServerK-    type AttrGetType ServerHttpsAliasesPropertyInfo = (Maybe [T.Text])-    type AttrLabel ServerHttpsAliasesPropertyInfo = "https-aliases"-    attrGet _ = getServerHttpsAliases-    attrSet _ = setServerHttpsAliases-    attrConstruct _ = constructServerHttpsAliases-    attrClear _ = clearServerHttpsAliases---- VVV Prop "interface"-   -- Type: TInterface "Soup" "Address"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getServerInterface :: (MonadIO m, ServerK o) => o -> m (Maybe Address)-getServerInterface obj = liftIO $ getObjectPropertyObject obj "interface" Address--constructServerInterface :: (AddressK a) => a -> IO ([Char], GValue)-constructServerInterface val = constructObjectPropertyObject "interface" (Just val)--data ServerInterfacePropertyInfo-instance AttrInfo ServerInterfacePropertyInfo where-    type AttrAllowedOps ServerInterfacePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ServerInterfacePropertyInfo = AddressK-    type AttrBaseTypeConstraint ServerInterfacePropertyInfo = ServerK-    type AttrGetType ServerInterfacePropertyInfo = (Maybe Address)-    type AttrLabel ServerInterfacePropertyInfo = "interface"-    attrGet _ = getServerInterface-    attrSet _ = undefined-    attrConstruct _ = constructServerInterface-    attrClear _ = undefined---- VVV Prop "port"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getServerPort :: (MonadIO m, ServerK o) => o -> m Word32-getServerPort obj = liftIO $ getObjectPropertyUInt32 obj "port"--constructServerPort :: Word32 -> IO ([Char], GValue)-constructServerPort val = constructObjectPropertyUInt32 "port" val--data ServerPortPropertyInfo-instance AttrInfo ServerPortPropertyInfo where-    type AttrAllowedOps ServerPortPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ServerPortPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint ServerPortPropertyInfo = ServerK-    type AttrGetType ServerPortPropertyInfo = Word32-    type AttrLabel ServerPortPropertyInfo = "port"-    attrGet _ = getServerPort-    attrSet _ = undefined-    attrConstruct _ = constructServerPort-    attrClear _ = undefined---- VVV Prop "raw-paths"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getServerRawPaths :: (MonadIO m, ServerK o) => o -> m Bool-getServerRawPaths obj = liftIO $ getObjectPropertyBool obj "raw-paths"--constructServerRawPaths :: Bool -> IO ([Char], GValue)-constructServerRawPaths val = constructObjectPropertyBool "raw-paths" val--data ServerRawPathsPropertyInfo-instance AttrInfo ServerRawPathsPropertyInfo where-    type AttrAllowedOps ServerRawPathsPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ServerRawPathsPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint ServerRawPathsPropertyInfo = ServerK-    type AttrGetType ServerRawPathsPropertyInfo = Bool-    type AttrLabel ServerRawPathsPropertyInfo = "raw-paths"-    attrGet _ = getServerRawPaths-    attrSet _ = undefined-    attrConstruct _ = constructServerRawPaths-    attrClear _ = undefined---- VVV Prop "server-header"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Nothing,Nothing)--getServerServerHeader :: (MonadIO m, ServerK o) => o -> m (Maybe T.Text)-getServerServerHeader obj = liftIO $ getObjectPropertyString obj "server-header"--setServerServerHeader :: (MonadIO m, ServerK o) => o -> T.Text -> m ()-setServerServerHeader obj val = liftIO $ setObjectPropertyString obj "server-header" (Just val)--constructServerServerHeader :: T.Text -> IO ([Char], GValue)-constructServerServerHeader val = constructObjectPropertyString "server-header" (Just val)--clearServerServerHeader :: (MonadIO m, ServerK o) => o -> m ()-clearServerServerHeader obj = liftIO $ setObjectPropertyString obj "server-header" (Nothing :: Maybe T.Text)--data ServerServerHeaderPropertyInfo-instance AttrInfo ServerServerHeaderPropertyInfo where-    type AttrAllowedOps ServerServerHeaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ServerServerHeaderPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ServerServerHeaderPropertyInfo = ServerK-    type AttrGetType ServerServerHeaderPropertyInfo = (Maybe T.Text)-    type AttrLabel ServerServerHeaderPropertyInfo = "server-header"-    attrGet _ = getServerServerHeader-    attrSet _ = setServerServerHeader-    attrConstruct _ = constructServerServerHeader-    attrClear _ = clearServerServerHeader---- VVV Prop "ssl-cert-file"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getServerSslCertFile :: (MonadIO m, ServerK o) => o -> m (Maybe T.Text)-getServerSslCertFile obj = liftIO $ getObjectPropertyString obj "ssl-cert-file"--constructServerSslCertFile :: T.Text -> IO ([Char], GValue)-constructServerSslCertFile val = constructObjectPropertyString "ssl-cert-file" (Just val)--data ServerSslCertFilePropertyInfo-instance AttrInfo ServerSslCertFilePropertyInfo where-    type AttrAllowedOps ServerSslCertFilePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ServerSslCertFilePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ServerSslCertFilePropertyInfo = ServerK-    type AttrGetType ServerSslCertFilePropertyInfo = (Maybe T.Text)-    type AttrLabel ServerSslCertFilePropertyInfo = "ssl-cert-file"-    attrGet _ = getServerSslCertFile-    attrSet _ = undefined-    attrConstruct _ = constructServerSslCertFile-    attrClear _ = undefined---- VVV Prop "ssl-key-file"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getServerSslKeyFile :: (MonadIO m, ServerK o) => o -> m (Maybe T.Text)-getServerSslKeyFile obj = liftIO $ getObjectPropertyString obj "ssl-key-file"--constructServerSslKeyFile :: T.Text -> IO ([Char], GValue)-constructServerSslKeyFile val = constructObjectPropertyString "ssl-key-file" (Just val)--data ServerSslKeyFilePropertyInfo-instance AttrInfo ServerSslKeyFilePropertyInfo where-    type AttrAllowedOps ServerSslKeyFilePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ServerSslKeyFilePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ServerSslKeyFilePropertyInfo = ServerK-    type AttrGetType ServerSslKeyFilePropertyInfo = (Maybe T.Text)-    type AttrLabel ServerSslKeyFilePropertyInfo = "ssl-key-file"-    attrGet _ = getServerSslKeyFile-    attrSet _ = undefined-    attrConstruct _ = constructServerSslKeyFile-    attrClear _ = undefined---- VVV Prop "tls-certificate"-   -- Type: TInterface "Gio" "TlsCertificate"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getServerTlsCertificate :: (MonadIO m, ServerK o) => o -> m (Maybe Gio.TlsCertificate)-getServerTlsCertificate obj = liftIO $ getObjectPropertyObject obj "tls-certificate" Gio.TlsCertificate--constructServerTlsCertificate :: (Gio.TlsCertificateK a) => a -> IO ([Char], GValue)-constructServerTlsCertificate val = constructObjectPropertyObject "tls-certificate" (Just val)--data ServerTlsCertificatePropertyInfo-instance AttrInfo ServerTlsCertificatePropertyInfo where-    type AttrAllowedOps ServerTlsCertificatePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ServerTlsCertificatePropertyInfo = Gio.TlsCertificateK-    type AttrBaseTypeConstraint ServerTlsCertificatePropertyInfo = ServerK-    type AttrGetType ServerTlsCertificatePropertyInfo = (Maybe Gio.TlsCertificate)-    type AttrLabel ServerTlsCertificatePropertyInfo = "tls-certificate"-    attrGet _ = getServerTlsCertificate-    attrSet _ = undefined-    attrConstruct _ = constructServerTlsCertificate-    attrClear _ = undefined--type instance AttributeList Server = ServerAttributeList-type ServerAttributeList = ('[ '("asyncContext", ServerAsyncContextPropertyInfo), '("httpAliases", ServerHttpAliasesPropertyInfo), '("httpsAliases", ServerHttpsAliasesPropertyInfo), '("interface", ServerInterfacePropertyInfo), '("port", ServerPortPropertyInfo), '("rawPaths", ServerRawPathsPropertyInfo), '("serverHeader", ServerServerHeaderPropertyInfo), '("sslCertFile", ServerSslCertFilePropertyInfo), '("sslKeyFile", ServerSslKeyFilePropertyInfo), '("tlsCertificate", ServerTlsCertificatePropertyInfo)] :: [(Symbol, *)])--serverAsyncContext :: AttrLabelProxy "asyncContext"-serverAsyncContext = AttrLabelProxy--serverHttpAliases :: AttrLabelProxy "httpAliases"-serverHttpAliases = AttrLabelProxy--serverHttpsAliases :: AttrLabelProxy "httpsAliases"-serverHttpsAliases = AttrLabelProxy--serverInterface :: AttrLabelProxy "interface"-serverInterface = AttrLabelProxy--serverPort :: AttrLabelProxy "port"-serverPort = AttrLabelProxy--serverRawPaths :: AttrLabelProxy "rawPaths"-serverRawPaths = AttrLabelProxy--serverServerHeader :: AttrLabelProxy "serverHeader"-serverServerHeader = AttrLabelProxy--serverSslCertFile :: AttrLabelProxy "sslCertFile"-serverSslCertFile = AttrLabelProxy--serverSslKeyFile :: AttrLabelProxy "sslKeyFile"-serverSslKeyFile = AttrLabelProxy--serverTlsCertificate :: AttrLabelProxy "tlsCertificate"-serverTlsCertificate = AttrLabelProxy--data ServerRequestAbortedSignalInfo-instance SignalInfo ServerRequestAbortedSignalInfo where-    type HaskellCallbackType ServerRequestAbortedSignalInfo = ServerRequestAbortedCallback-    connectSignal _ = connectServerRequestAborted--data ServerRequestFinishedSignalInfo-instance SignalInfo ServerRequestFinishedSignalInfo where-    type HaskellCallbackType ServerRequestFinishedSignalInfo = ServerRequestFinishedCallback-    connectSignal _ = connectServerRequestFinished--data ServerRequestReadSignalInfo-instance SignalInfo ServerRequestReadSignalInfo where-    type HaskellCallbackType ServerRequestReadSignalInfo = ServerRequestReadCallback-    connectSignal _ = connectServerRequestRead--data ServerRequestStartedSignalInfo-instance SignalInfo ServerRequestStartedSignalInfo where-    type HaskellCallbackType ServerRequestStartedSignalInfo = ServerRequestStartedCallback-    connectSignal _ = connectServerRequestStarted--type instance SignalList Server = ServerSignalList-type ServerSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("requestAborted", ServerRequestAbortedSignalInfo), '("requestFinished", ServerRequestFinishedSignalInfo), '("requestRead", ServerRequestReadSignalInfo), '("requestStarted", ServerRequestStartedSignalInfo)] :: [(Symbol, *)])---- method Server::accept_iostream--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "local_addr", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "remote_addr", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "soup_server_accept_iostream" soup_server_accept_iostream :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    Ptr Gio.IOStream ->                     -- stream : TInterface "Gio" "IOStream"-    Ptr Gio.SocketAddress ->                -- local_addr : TInterface "Gio" "SocketAddress"-    Ptr Gio.SocketAddress ->                -- remote_addr : TInterface "Gio" "SocketAddress"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---serverAcceptIostream ::-    (MonadIO m, ServerK a, Gio.IOStreamK b, Gio.SocketAddressK c, Gio.SocketAddressK d) =>-    a                                       -- _obj-    -> b                                    -- stream-    -> Maybe (c)                            -- localAddr-    -> Maybe (d)                            -- remoteAddr-    -> m ()                                 -- result-serverAcceptIostream _obj stream localAddr remoteAddr = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let stream' = unsafeManagedPtrCastPtr stream-    maybeLocalAddr <- case localAddr of-        Nothing -> return nullPtr-        Just jLocalAddr -> do-            let jLocalAddr' = unsafeManagedPtrCastPtr jLocalAddr-            return jLocalAddr'-    maybeRemoteAddr <- case remoteAddr of-        Nothing -> return nullPtr-        Just jRemoteAddr -> do-            let jRemoteAddr' = unsafeManagedPtrCastPtr jRemoteAddr-            return jRemoteAddr'-    onException (do-        _ <- propagateGError $ soup_server_accept_iostream _obj' stream' maybeLocalAddr maybeRemoteAddr-        touchManagedPtr _obj-        touchManagedPtr stream-        whenJust localAddr touchManagedPtr-        whenJust remoteAddr touchManagedPtr-        return ()-     ) (do-        return ()-     )--data ServerAcceptIostreamMethodInfo-instance (signature ~ (b -> Maybe (c) -> Maybe (d) -> m ()), MonadIO m, ServerK a, Gio.IOStreamK b, Gio.SocketAddressK c, Gio.SocketAddressK d) => MethodInfo ServerAcceptIostreamMethodInfo a signature where-    overloadedMethod _ = serverAcceptIostream---- method Server::add_auth_domain--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth_domain", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_server_add_auth_domain" soup_server_add_auth_domain :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    Ptr AuthDomain ->                       -- auth_domain : TInterface "Soup" "AuthDomain"-    IO ()---serverAddAuthDomain ::-    (MonadIO m, ServerK a, AuthDomainK b) =>-    a                                       -- _obj-    -> b                                    -- authDomain-    -> m ()                                 -- result-serverAddAuthDomain _obj authDomain = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let authDomain' = unsafeManagedPtrCastPtr authDomain-    soup_server_add_auth_domain _obj' authDomain'-    touchManagedPtr _obj-    touchManagedPtr authDomain-    return ()--data ServerAddAuthDomainMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, ServerK a, AuthDomainK b) => MethodInfo ServerAddAuthDomainMethodInfo a signature where-    overloadedMethod _ = serverAddAuthDomain---- method Server::add_early_handler--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Soup" "ServerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_server_add_early_handler" soup_server_add_early_handler :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    CString ->                              -- path : TBasicType TUTF8-    FunPtr ServerCallbackC ->               -- callback : TInterface "Soup" "ServerCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    FunPtr GLib.DestroyNotifyC ->           -- destroy : TInterface "GLib" "DestroyNotify"-    IO ()---serverAddEarlyHandler ::-    (MonadIO m, ServerK a) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- path-    -> ServerCallback                       -- callback-    -> m ()                                 -- result-serverAddEarlyHandler _obj path callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybePath <- case path of-        Nothing -> return nullPtr-        Just jPath -> do-            jPath' <- textToCString jPath-            return jPath'-    callback' <- mkServerCallback (serverCallbackWrapper Nothing callback)-    let userData = castFunPtrToPtr callback'-    let destroy = safeFreeFunPtrPtr-    soup_server_add_early_handler _obj' maybePath callback' userData destroy-    touchManagedPtr _obj-    freeMem maybePath-    return ()--data ServerAddEarlyHandlerMethodInfo-instance (signature ~ (Maybe (T.Text) -> ServerCallback -> m ()), MonadIO m, ServerK a) => MethodInfo ServerAddEarlyHandlerMethodInfo a signature where-    overloadedMethod _ = serverAddEarlyHandler---- method Server::add_handler--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Soup" "ServerCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_server_add_handler" soup_server_add_handler :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    CString ->                              -- path : TBasicType TUTF8-    FunPtr ServerCallbackC ->               -- callback : TInterface "Soup" "ServerCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    FunPtr GLib.DestroyNotifyC ->           -- destroy : TInterface "GLib" "DestroyNotify"-    IO ()---serverAddHandler ::-    (MonadIO m, ServerK a) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- path-    -> ServerCallback                       -- callback-    -> m ()                                 -- result-serverAddHandler _obj path callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybePath <- case path of-        Nothing -> return nullPtr-        Just jPath -> do-            jPath' <- textToCString jPath-            return jPath'-    callback' <- mkServerCallback (serverCallbackWrapper Nothing callback)-    let userData = castFunPtrToPtr callback'-    let destroy = safeFreeFunPtrPtr-    soup_server_add_handler _obj' maybePath callback' userData destroy-    touchManagedPtr _obj-    freeMem maybePath-    return ()--data ServerAddHandlerMethodInfo-instance (signature ~ (Maybe (T.Text) -> ServerCallback -> m ()), MonadIO m, ServerK a) => MethodInfo ServerAddHandlerMethodInfo a signature where-    overloadedMethod _ = serverAddHandler---- method Server::add_websocket_handler--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Soup" "ServerWebsocketCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_server_add_websocket_handler" soup_server_add_websocket_handler :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    CString ->                              -- path : TBasicType TUTF8-    CString ->                              -- origin : TBasicType TUTF8-    Ptr CString ->                          -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8)-    FunPtr ServerWebsocketCallbackC ->      -- callback : TInterface "Soup" "ServerWebsocketCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    FunPtr GLib.DestroyNotifyC ->           -- destroy : TInterface "GLib" "DestroyNotify"-    IO ()---serverAddWebsocketHandler ::-    (MonadIO m, ServerK a) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- path-    -> Maybe (T.Text)                       -- origin-    -> Maybe ([T.Text])                     -- protocols-    -> ServerWebsocketCallback              -- callback-    -> m ()                                 -- result-serverAddWebsocketHandler _obj path origin protocols callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybePath <- case path of-        Nothing -> return nullPtr-        Just jPath -> do-            jPath' <- textToCString jPath-            return jPath'-    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'-    callback' <- mkServerWebsocketCallback (serverWebsocketCallbackWrapper Nothing callback)-    let userData = castFunPtrToPtr callback'-    let destroy = safeFreeFunPtrPtr-    soup_server_add_websocket_handler _obj' maybePath maybeOrigin maybeProtocols callback' userData destroy-    touchManagedPtr _obj-    freeMem maybePath-    freeMem maybeOrigin-    mapZeroTerminatedCArray freeMem maybeProtocols-    freeMem maybeProtocols-    return ()--data ServerAddWebsocketHandlerMethodInfo-instance (signature ~ (Maybe (T.Text) -> Maybe (T.Text) -> Maybe ([T.Text]) -> ServerWebsocketCallback -> m ()), MonadIO m, ServerK a) => MethodInfo ServerAddWebsocketHandlerMethodInfo a signature where-    overloadedMethod _ = serverAddWebsocketHandler---- method Server::disconnect--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_server_disconnect" soup_server_disconnect :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    IO ()---serverDisconnect ::-    (MonadIO m, ServerK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-serverDisconnect _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_server_disconnect _obj'-    touchManagedPtr _obj-    return ()--data ServerDisconnectMethodInfo-instance (signature ~ (m ()), MonadIO m, ServerK a) => MethodInfo ServerDisconnectMethodInfo a signature where-    overloadedMethod _ = serverDisconnect---- method Server::get_async_context--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GLib" "MainContext")--- throws : False--- Skip return : False--foreign import ccall "soup_server_get_async_context" soup_server_get_async_context :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    IO (Ptr GLib.MainContext)--{-# DEPRECATED serverGetAsyncContext ["If you are using soup_server_listen(), etc, then","the server listens on the thread-default #GMainContext, and this","property is ignored."]#-}-serverGetAsyncContext ::-    (MonadIO m, ServerK a) =>-    a                                       -- _obj-    -> m (Maybe GLib.MainContext)           -- result-serverGetAsyncContext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_server_get_async_context _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newBoxed GLib.MainContext) result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data ServerGetAsyncContextMethodInfo-instance (signature ~ (m (Maybe GLib.MainContext)), MonadIO m, ServerK a) => MethodInfo ServerGetAsyncContextMethodInfo a signature where-    overloadedMethod _ = serverGetAsyncContext---- method Server::get_listener--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Socket")--- throws : False--- Skip return : False--foreign import ccall "soup_server_get_listener" soup_server_get_listener :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    IO (Ptr Socket)--{-# DEPRECATED serverGetListener ["If you are using soup_server_listen(), etc, then use","soup_server_get_listeners() to get a list of all listening sockets,","but note that that function returns #GSockets, not #SoupSockets."]#-}-serverGetListener ::-    (MonadIO m, ServerK a) =>-    a                                       -- _obj-    -> m Socket                             -- result-serverGetListener _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_server_get_listener _obj'-    checkUnexpectedReturnNULL "soup_server_get_listener" result-    result' <- (newObject Socket) result-    touchManagedPtr _obj-    return result'--data ServerGetListenerMethodInfo-instance (signature ~ (m Socket), MonadIO m, ServerK a) => MethodInfo ServerGetListenerMethodInfo a signature where-    overloadedMethod _ = serverGetListener---- method Server::get_listeners--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGSList (TInterface "Gio" "Socket"))--- throws : False--- Skip return : False--foreign import ccall "soup_server_get_listeners" soup_server_get_listeners :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    IO (Ptr (GSList (Ptr Gio.Socket)))---serverGetListeners ::-    (MonadIO m, ServerK a) =>-    a                                       -- _obj-    -> m [Gio.Socket]                       -- result-serverGetListeners _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_server_get_listeners _obj'-    result' <- unpackGSList result-    result'' <- mapM (newObject Gio.Socket) result'-    g_slist_free result-    touchManagedPtr _obj-    return result''--data ServerGetListenersMethodInfo-instance (signature ~ (m [Gio.Socket]), MonadIO m, ServerK a) => MethodInfo ServerGetListenersMethodInfo a signature where-    overloadedMethod _ = serverGetListeners---- method Server::get_port--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "soup_server_get_port" soup_server_get_port :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    IO Word32--{-# DEPRECATED serverGetPort ["If you are using soup_server_listen(), etc, then use","soup_server_get_uris() to get a list of all listening addresses."]#-}-serverGetPort ::-    (MonadIO m, ServerK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-serverGetPort _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_server_get_port _obj'-    touchManagedPtr _obj-    return result--data ServerGetPortMethodInfo-instance (signature ~ (m Word32), MonadIO m, ServerK a) => MethodInfo ServerGetPortMethodInfo a signature where-    overloadedMethod _ = serverGetPort---- method Server::get_uris--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGSList (TInterface "Soup" "URI"))--- throws : False--- Skip return : False--foreign import ccall "soup_server_get_uris" soup_server_get_uris :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    IO (Ptr (GSList (Ptr URI)))---serverGetUris ::-    (MonadIO m, ServerK a) =>-    a                                       -- _obj-    -> m [URI]                              -- result-serverGetUris _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_server_get_uris _obj'-    result' <- unpackGSList result-    result'' <- mapM (wrapBoxed URI) result'-    g_slist_free result-    touchManagedPtr _obj-    return result''--data ServerGetUrisMethodInfo-instance (signature ~ (m [URI]), MonadIO m, ServerK a) => MethodInfo ServerGetUrisMethodInfo a signature where-    overloadedMethod _ = serverGetUris---- method Server::is_https--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_server_is_https" soup_server_is_https :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    IO CInt---serverIsHttps ::-    (MonadIO m, ServerK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-serverIsHttps _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_server_is_https _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data ServerIsHttpsMethodInfo-instance (signature ~ (m Bool), MonadIO m, ServerK a) => MethodInfo ServerIsHttpsMethodInfo a signature where-    overloadedMethod _ = serverIsHttps---- method Server::listen--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface "Gio" "SocketAddress", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "soup_server_listen" soup_server_listen :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    Ptr Gio.SocketAddress ->                -- address : TInterface "Gio" "SocketAddress"-    CUInt ->                                -- options : TInterface "Soup" "ServerListenOptions"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---serverListen ::-    (MonadIO m, ServerK a, Gio.SocketAddressK b) =>-    a                                       -- _obj-    -> b                                    -- address-    -> [ServerListenOptions]                -- options-    -> m ()                                 -- result-serverListen _obj address options = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let address' = unsafeManagedPtrCastPtr address-    let options' = gflagsToWord options-    onException (do-        _ <- propagateGError $ soup_server_listen _obj' address' options'-        touchManagedPtr _obj-        touchManagedPtr address-        return ()-     ) (do-        return ()-     )--data ServerListenMethodInfo-instance (signature ~ (b -> [ServerListenOptions] -> m ()), MonadIO m, ServerK a, Gio.SocketAddressK b) => MethodInfo ServerListenMethodInfo a signature where-    overloadedMethod _ = serverListen---- method Server::listen_all--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "soup_server_listen_all" soup_server_listen_all :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    Word32 ->                               -- port : TBasicType TUInt-    CUInt ->                                -- options : TInterface "Soup" "ServerListenOptions"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---serverListenAll ::-    (MonadIO m, ServerK a) =>-    a                                       -- _obj-    -> Word32                               -- port-    -> [ServerListenOptions]                -- options-    -> m ()                                 -- result-serverListenAll _obj port options = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let options' = gflagsToWord options-    onException (do-        _ <- propagateGError $ soup_server_listen_all _obj' port options'-        touchManagedPtr _obj-        return ()-     ) (do-        return ()-     )--data ServerListenAllMethodInfo-instance (signature ~ (Word32 -> [ServerListenOptions] -> m ()), MonadIO m, ServerK a) => MethodInfo ServerListenAllMethodInfo a signature where-    overloadedMethod _ = serverListenAll---- method Server::listen_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "soup_server_listen_fd" soup_server_listen_fd :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    Int32 ->                                -- fd : TBasicType TInt-    CUInt ->                                -- options : TInterface "Soup" "ServerListenOptions"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---serverListenFd ::-    (MonadIO m, ServerK a) =>-    a                                       -- _obj-    -> Int32                                -- fd-    -> [ServerListenOptions]                -- options-    -> m ()                                 -- result-serverListenFd _obj fd options = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let options' = gflagsToWord options-    onException (do-        _ <- propagateGError $ soup_server_listen_fd _obj' fd options'-        touchManagedPtr _obj-        return ()-     ) (do-        return ()-     )--data ServerListenFdMethodInfo-instance (signature ~ (Int32 -> [ServerListenOptions] -> m ()), MonadIO m, ServerK a) => MethodInfo ServerListenFdMethodInfo a signature where-    overloadedMethod _ = serverListenFd---- method Server::listen_local--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "soup_server_listen_local" soup_server_listen_local :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    Word32 ->                               -- port : TBasicType TUInt-    CUInt ->                                -- options : TInterface "Soup" "ServerListenOptions"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---serverListenLocal ::-    (MonadIO m, ServerK a) =>-    a                                       -- _obj-    -> Word32                               -- port-    -> [ServerListenOptions]                -- options-    -> m ()                                 -- result-serverListenLocal _obj port options = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let options' = gflagsToWord options-    onException (do-        _ <- propagateGError $ soup_server_listen_local _obj' port options'-        touchManagedPtr _obj-        return ()-     ) (do-        return ()-     )--data ServerListenLocalMethodInfo-instance (signature ~ (Word32 -> [ServerListenOptions] -> m ()), MonadIO m, ServerK a) => MethodInfo ServerListenLocalMethodInfo a signature where-    overloadedMethod _ = serverListenLocal---- method Server::listen_socket--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "socket", argType = TInterface "Gio" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TInterface "Soup" "ServerListenOptions", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "soup_server_listen_socket" soup_server_listen_socket :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    Ptr Gio.Socket ->                       -- socket : TInterface "Gio" "Socket"-    CUInt ->                                -- options : TInterface "Soup" "ServerListenOptions"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---serverListenSocket ::-    (MonadIO m, ServerK a, Gio.SocketK b) =>-    a                                       -- _obj-    -> b                                    -- socket-    -> [ServerListenOptions]                -- options-    -> m ()                                 -- result-serverListenSocket _obj socket options = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let socket' = unsafeManagedPtrCastPtr socket-    let options' = gflagsToWord options-    onException (do-        _ <- propagateGError $ soup_server_listen_socket _obj' socket' options'-        touchManagedPtr _obj-        touchManagedPtr socket-        return ()-     ) (do-        return ()-     )--data ServerListenSocketMethodInfo-instance (signature ~ (b -> [ServerListenOptions] -> m ()), MonadIO m, ServerK a, Gio.SocketK b) => MethodInfo ServerListenSocketMethodInfo a signature where-    overloadedMethod _ = serverListenSocket---- method Server::pause_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_server_pause_message" soup_server_pause_message :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO ()---serverPauseMessage ::-    (MonadIO m, ServerK a, MessageK b) =>-    a                                       -- _obj-    -> b                                    -- msg-    -> m ()                                 -- result-serverPauseMessage _obj msg = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    soup_server_pause_message _obj' msg'-    touchManagedPtr _obj-    touchManagedPtr msg-    return ()--data ServerPauseMessageMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, ServerK a, MessageK b) => MethodInfo ServerPauseMessageMethodInfo a signature where-    overloadedMethod _ = serverPauseMessage---- method Server::quit--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_server_quit" soup_server_quit :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    IO ()--{-# DEPRECATED serverQuit ["When using soup_server_listen(), etc, the server will","always listen for connections, and will process them whenever the","thread-default #GMainContext is running."]#-}-serverQuit ::-    (MonadIO m, ServerK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-serverQuit _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_server_quit _obj'-    touchManagedPtr _obj-    return ()--data ServerQuitMethodInfo-instance (signature ~ (m ()), MonadIO m, ServerK a) => MethodInfo ServerQuitMethodInfo a signature where-    overloadedMethod _ = serverQuit---- method Server::remove_auth_domain--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth_domain", argType = TInterface "Soup" "AuthDomain", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_server_remove_auth_domain" soup_server_remove_auth_domain :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    Ptr AuthDomain ->                       -- auth_domain : TInterface "Soup" "AuthDomain"-    IO ()---serverRemoveAuthDomain ::-    (MonadIO m, ServerK a, AuthDomainK b) =>-    a                                       -- _obj-    -> b                                    -- authDomain-    -> m ()                                 -- result-serverRemoveAuthDomain _obj authDomain = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let authDomain' = unsafeManagedPtrCastPtr authDomain-    soup_server_remove_auth_domain _obj' authDomain'-    touchManagedPtr _obj-    touchManagedPtr authDomain-    return ()--data ServerRemoveAuthDomainMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, ServerK a, AuthDomainK b) => MethodInfo ServerRemoveAuthDomainMethodInfo a signature where-    overloadedMethod _ = serverRemoveAuthDomain---- method Server::remove_handler--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_server_remove_handler" soup_server_remove_handler :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    CString ->                              -- path : TBasicType TUTF8-    IO ()---serverRemoveHandler ::-    (MonadIO m, ServerK a) =>-    a                                       -- _obj-    -> T.Text                               -- path-    -> m ()                                 -- result-serverRemoveHandler _obj path = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    path' <- textToCString path-    soup_server_remove_handler _obj' path'-    touchManagedPtr _obj-    freeMem path'-    return ()--data ServerRemoveHandlerMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, ServerK a) => MethodInfo ServerRemoveHandlerMethodInfo a signature where-    overloadedMethod _ = serverRemoveHandler---- method Server::run--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_server_run" soup_server_run :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    IO ()--{-# DEPRECATED serverRun ["When using soup_server_listen(), etc, the server will","always listen for connections, and will process them whenever the","thread-default #GMainContext is running."]#-}-serverRun ::-    (MonadIO m, ServerK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-serverRun _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_server_run _obj'-    touchManagedPtr _obj-    return ()--data ServerRunMethodInfo-instance (signature ~ (m ()), MonadIO m, ServerK a) => MethodInfo ServerRunMethodInfo a signature where-    overloadedMethod _ = serverRun---- method Server::run_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_server_run_async" soup_server_run_async :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    IO ()--{-# DEPRECATED serverRunAsync ["When using soup_server_listen(), etc, the server will","always listen for connections, and will process them whenever the","thread-default #GMainContext is running."]#-}-serverRunAsync ::-    (MonadIO m, ServerK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-serverRunAsync _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_server_run_async _obj'-    touchManagedPtr _obj-    return ()--data ServerRunAsyncMethodInfo-instance (signature ~ (m ()), MonadIO m, ServerK a) => MethodInfo ServerRunAsyncMethodInfo a signature where-    overloadedMethod _ = serverRunAsync---- method Server::set_ssl_cert_file--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ssl_cert_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ssl_key_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "soup_server_set_ssl_cert_file" soup_server_set_ssl_cert_file :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    CString ->                              -- ssl_cert_file : TBasicType TUTF8-    CString ->                              -- ssl_key_file : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt---serverSetSslCertFile ::-    (MonadIO m, ServerK a) =>-    a                                       -- _obj-    -> T.Text                               -- sslCertFile-    -> T.Text                               -- sslKeyFile-    -> m ()                                 -- result-serverSetSslCertFile _obj sslCertFile sslKeyFile = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    sslCertFile' <- textToCString sslCertFile-    sslKeyFile' <- textToCString sslKeyFile-    onException (do-        _ <- propagateGError $ soup_server_set_ssl_cert_file _obj' sslCertFile' sslKeyFile'-        touchManagedPtr _obj-        freeMem sslCertFile'-        freeMem sslKeyFile'-        return ()-     ) (do-        freeMem sslCertFile'-        freeMem sslKeyFile'-     )--data ServerSetSslCertFileMethodInfo-instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, ServerK a) => MethodInfo ServerSetSslCertFileMethodInfo a signature where-    overloadedMethod _ = serverSetSslCertFile---- method Server::unpause_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Server", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_server_unpause_message" soup_server_unpause_message :: -    Ptr Server ->                           -- _obj : TInterface "Soup" "Server"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO ()---serverUnpauseMessage ::-    (MonadIO m, ServerK a, MessageK b) =>-    a                                       -- _obj-    -> b                                    -- msg-    -> m ()                                 -- result-serverUnpauseMessage _obj msg = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    soup_server_unpause_message _obj' msg'-    touchManagedPtr _obj-    touchManagedPtr msg-    return ()--data ServerUnpauseMessageMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, ServerK a, MessageK b) => MethodInfo ServerUnpauseMessageMethodInfo a signature where-    overloadedMethod _ = serverUnpauseMessage--
− GI/Soup/Objects/Server.hs-boot 
@@ -1,52 +0,0 @@-module GI.Soup.Objects.Server where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Server = Server (ForeignPtr Server)-instance GObject Server where-class GObject o => ServerK o-instance (GObject o, IsDescendantOf Server o) => ServerK o-data ServerAsyncContextPropertyInfo-data ServerHttpAliasesPropertyInfo-data ServerHttpsAliasesPropertyInfo-data ServerInterfacePropertyInfo-data ServerPortPropertyInfo-data ServerRawPathsPropertyInfo-data ServerServerHeaderPropertyInfo-data ServerSslCertFilePropertyInfo-data ServerSslKeyFilePropertyInfo-data ServerTlsCertificatePropertyInfo-data ServerRequestAbortedSignalInfo-data ServerRequestFinishedSignalInfo-data ServerRequestReadSignalInfo-data ServerRequestStartedSignalInfo-data ServerAcceptIostreamMethodInfo-data ServerAddAuthDomainMethodInfo-data ServerAddEarlyHandlerMethodInfo-data ServerAddHandlerMethodInfo-data ServerAddWebsocketHandlerMethodInfo-data ServerDisconnectMethodInfo-data ServerGetAsyncContextMethodInfo-data ServerGetListenerMethodInfo-data ServerGetListenersMethodInfo-data ServerGetPortMethodInfo-data ServerGetUrisMethodInfo-data ServerIsHttpsMethodInfo-data ServerListenMethodInfo-data ServerListenAllMethodInfo-data ServerListenFdMethodInfo-data ServerListenLocalMethodInfo-data ServerListenSocketMethodInfo-data ServerPauseMessageMethodInfo-data ServerQuitMethodInfo-data ServerRemoveAuthDomainMethodInfo-data ServerRemoveHandlerMethodInfo-data ServerRunMethodInfo-data ServerRunAsyncMethodInfo-data ServerSetSslCertFileMethodInfo-data ServerUnpauseMessageMethodInfo
− GI/Soup/Objects/Session.hs 
@@ -1,2532 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Objects.Session-    ( ---- * Exported types-    Session(..)                             ,-    SessionK                                ,-    toSession                               ,-    noSession                               ,--- -- * Methods--- ** sessionAbort-    SessionAbortMethodInfo                  ,-    sessionAbort                            ,----- ** sessionAddFeature-    SessionAddFeatureMethodInfo             ,-    sessionAddFeature                       ,----- ** sessionAddFeatureByType-    SessionAddFeatureByTypeMethodInfo       ,-    sessionAddFeatureByType                 ,----- ** sessionCancelMessage-    SessionCancelMessageMethodInfo          ,-    sessionCancelMessage                    ,----- ** sessionGetAsyncContext-    SessionGetAsyncContextMethodInfo        ,-    sessionGetAsyncContext                  ,----- ** sessionGetFeature-    SessionGetFeatureMethodInfo             ,-    sessionGetFeature                       ,----- ** sessionGetFeatureForMessage-    SessionGetFeatureForMessageMethodInfo   ,-    sessionGetFeatureForMessage             ,----- ** sessionGetFeatures-    SessionGetFeaturesMethodInfo            ,-    sessionGetFeatures                      ,----- ** sessionHasFeature-    SessionHasFeatureMethodInfo             ,-    sessionHasFeature                       ,----- ** sessionNew-    sessionNew                              ,----- ** sessionPauseMessage-    SessionPauseMessageMethodInfo           ,-    sessionPauseMessage                     ,----- ** sessionPrefetchDns-    SessionPrefetchDnsMethodInfo            ,-    sessionPrefetchDns                      ,----- ** sessionPrepareForUri-    SessionPrepareForUriMethodInfo          ,-    sessionPrepareForUri                    ,----- ** sessionQueueMessage-    SessionQueueMessageMethodInfo           ,-    sessionQueueMessage                     ,----- ** sessionRedirectMessage-    SessionRedirectMessageMethodInfo        ,-    sessionRedirectMessage                  ,----- ** sessionRemoveFeature-    SessionRemoveFeatureMethodInfo          ,-    sessionRemoveFeature                    ,----- ** sessionRemoveFeatureByType-    SessionRemoveFeatureByTypeMethodInfo    ,-    sessionRemoveFeatureByType              ,----- ** sessionRequest-    SessionRequestMethodInfo                ,-    sessionRequest                          ,----- ** sessionRequestHttp-    SessionRequestHttpMethodInfo            ,-    sessionRequestHttp                      ,----- ** sessionRequestHttpUri-    SessionRequestHttpUriMethodInfo         ,-    sessionRequestHttpUri                   ,----- ** sessionRequestUri-    SessionRequestUriMethodInfo             ,-    sessionRequestUri                       ,----- ** sessionRequeueMessage-    SessionRequeueMessageMethodInfo         ,-    sessionRequeueMessage                   ,----- ** sessionSend-    SessionSendMethodInfo                   ,-    sessionSend                             ,----- ** sessionSendAsync-    SessionSendAsyncMethodInfo              ,-    sessionSendAsync                        ,----- ** sessionSendFinish-    SessionSendFinishMethodInfo             ,-    sessionSendFinish                       ,----- ** sessionSendMessage-    SessionSendMessageMethodInfo            ,-    sessionSendMessage                      ,----- ** sessionStealConnection-    SessionStealConnectionMethodInfo        ,-    sessionStealConnection                  ,----- ** sessionUnpauseMessage-    SessionUnpauseMessageMethodInfo         ,-    sessionUnpauseMessage                   ,----- ** sessionWebsocketConnectAsync-    SessionWebsocketConnectAsyncMethodInfo  ,-    sessionWebsocketConnectAsync            ,----- ** sessionWebsocketConnectFinish-    SessionWebsocketConnectFinishMethodInfo ,-    sessionWebsocketConnectFinish           ,----- ** sessionWouldRedirect-    SessionWouldRedirectMethodInfo          ,-    sessionWouldRedirect                    ,----- -- * Properties--- ** AcceptLanguage-    SessionAcceptLanguagePropertyInfo       ,-    clearSessionAcceptLanguage              ,-    constructSessionAcceptLanguage          ,-    getSessionAcceptLanguage                ,-    sessionAcceptLanguage                   ,-    setSessionAcceptLanguage                ,----- ** AcceptLanguageAuto-    SessionAcceptLanguageAutoPropertyInfo   ,-    constructSessionAcceptLanguageAuto      ,-    getSessionAcceptLanguageAuto            ,-    sessionAcceptLanguageAuto               ,-    setSessionAcceptLanguageAuto            ,----- ** AsyncContext-    SessionAsyncContextPropertyInfo         ,-    constructSessionAsyncContext            ,-    getSessionAsyncContext                  ,-    sessionAsyncContext                     ,----- ** HttpAliases-    SessionHttpAliasesPropertyInfo          ,-    clearSessionHttpAliases                 ,-    constructSessionHttpAliases             ,-    getSessionHttpAliases                   ,-    sessionHttpAliases                      ,-    setSessionHttpAliases                   ,----- ** HttpsAliases-    SessionHttpsAliasesPropertyInfo         ,-    clearSessionHttpsAliases                ,-    constructSessionHttpsAliases            ,-    getSessionHttpsAliases                  ,-    sessionHttpsAliases                     ,-    setSessionHttpsAliases                  ,----- ** IdleTimeout-    SessionIdleTimeoutPropertyInfo          ,-    constructSessionIdleTimeout             ,-    getSessionIdleTimeout                   ,-    sessionIdleTimeout                      ,-    setSessionIdleTimeout                   ,----- ** LocalAddress-    SessionLocalAddressPropertyInfo         ,-    constructSessionLocalAddress            ,-    getSessionLocalAddress                  ,-    sessionLocalAddress                     ,----- ** MaxConns-    SessionMaxConnsPropertyInfo             ,-    constructSessionMaxConns                ,-    getSessionMaxConns                      ,-    sessionMaxConns                         ,-    setSessionMaxConns                      ,----- ** MaxConnsPerHost-    SessionMaxConnsPerHostPropertyInfo      ,-    constructSessionMaxConnsPerHost         ,-    getSessionMaxConnsPerHost               ,-    sessionMaxConnsPerHost                  ,-    setSessionMaxConnsPerHost               ,----- ** ProxyResolver-    SessionProxyResolverPropertyInfo        ,-    clearSessionProxyResolver               ,-    constructSessionProxyResolver           ,-    getSessionProxyResolver                 ,-    sessionProxyResolver                    ,-    setSessionProxyResolver                 ,----- ** ProxyUri-    SessionProxyUriPropertyInfo             ,-    clearSessionProxyUri                    ,-    constructSessionProxyUri                ,-    getSessionProxyUri                      ,-    sessionProxyUri                         ,-    setSessionProxyUri                      ,----- ** SslCaFile-    SessionSslCaFilePropertyInfo            ,-    clearSessionSslCaFile                   ,-    constructSessionSslCaFile               ,-    getSessionSslCaFile                     ,-    sessionSslCaFile                        ,-    setSessionSslCaFile                     ,----- ** SslStrict-    SessionSslStrictPropertyInfo            ,-    constructSessionSslStrict               ,-    getSessionSslStrict                     ,-    sessionSslStrict                        ,-    setSessionSslStrict                     ,----- ** SslUseSystemCaFile-    SessionSslUseSystemCaFilePropertyInfo   ,-    constructSessionSslUseSystemCaFile      ,-    getSessionSslUseSystemCaFile            ,-    sessionSslUseSystemCaFile               ,-    setSessionSslUseSystemCaFile            ,----- ** Timeout-    SessionTimeoutPropertyInfo              ,-    constructSessionTimeout                 ,-    getSessionTimeout                       ,-    sessionTimeout                          ,-    setSessionTimeout                       ,----- ** TlsDatabase-    SessionTlsDatabasePropertyInfo          ,-    clearSessionTlsDatabase                 ,-    constructSessionTlsDatabase             ,-    getSessionTlsDatabase                   ,-    sessionTlsDatabase                      ,-    setSessionTlsDatabase                   ,----- ** TlsInteraction-    SessionTlsInteractionPropertyInfo       ,-    clearSessionTlsInteraction              ,-    constructSessionTlsInteraction          ,-    getSessionTlsInteraction                ,-    sessionTlsInteraction                   ,-    setSessionTlsInteraction                ,----- ** UseNtlm-    SessionUseNtlmPropertyInfo              ,-    constructSessionUseNtlm                 ,-    getSessionUseNtlm                       ,-    sessionUseNtlm                          ,-    setSessionUseNtlm                       ,----- ** UseThreadContext-    SessionUseThreadContextPropertyInfo     ,-    constructSessionUseThreadContext        ,-    getSessionUseThreadContext              ,-    sessionUseThreadContext                 ,-    setSessionUseThreadContext              ,----- ** UserAgent-    SessionUserAgentPropertyInfo            ,-    clearSessionUserAgent                   ,-    constructSessionUserAgent               ,-    getSessionUserAgent                     ,-    sessionUserAgent                        ,-    setSessionUserAgent                     ,----- -- * Signals--- ** Authenticate-    SessionAuthenticateCallback             ,-    SessionAuthenticateCallbackC            ,-    SessionAuthenticateSignalInfo           ,-    afterSessionAuthenticate                ,-    mkSessionAuthenticateCallback           ,-    noSessionAuthenticateCallback           ,-    onSessionAuthenticate                   ,-    sessionAuthenticateCallbackWrapper      ,-    sessionAuthenticateClosure              ,----- ** ConnectionCreated-    SessionConnectionCreatedCallback        ,-    SessionConnectionCreatedCallbackC       ,-    SessionConnectionCreatedSignalInfo      ,-    afterSessionConnectionCreated           ,-    mkSessionConnectionCreatedCallback      ,-    noSessionConnectionCreatedCallback      ,-    onSessionConnectionCreated              ,-    sessionConnectionCreatedCallbackWrapper ,-    sessionConnectionCreatedClosure         ,----- ** RequestQueued-    SessionRequestQueuedCallback            ,-    SessionRequestQueuedCallbackC           ,-    SessionRequestQueuedSignalInfo          ,-    afterSessionRequestQueued               ,-    mkSessionRequestQueuedCallback          ,-    noSessionRequestQueuedCallback          ,-    onSessionRequestQueued                  ,-    sessionRequestQueuedCallbackWrapper     ,-    sessionRequestQueuedClosure             ,----- ** RequestStarted-    SessionRequestStartedCallback           ,-    SessionRequestStartedCallbackC          ,-    SessionRequestStartedSignalInfo         ,-    afterSessionRequestStarted              ,-    mkSessionRequestStartedCallback         ,-    noSessionRequestStartedCallback         ,-    onSessionRequestStarted                 ,-    sessionRequestStartedCallbackWrapper    ,-    sessionRequestStartedClosure            ,----- ** RequestUnqueued-    SessionRequestUnqueuedCallback          ,-    SessionRequestUnqueuedCallbackC         ,-    SessionRequestUnqueuedSignalInfo        ,-    afterSessionRequestUnqueued             ,-    mkSessionRequestUnqueuedCallback        ,-    noSessionRequestUnqueuedCallback        ,-    onSessionRequestUnqueued                ,-    sessionRequestUnqueuedCallbackWrapper   ,-    sessionRequestUnqueuedClosure           ,----- ** Tunneling-    SessionTunnelingCallback                ,-    SessionTunnelingCallbackC               ,-    SessionTunnelingSignalInfo              ,-    afterSessionTunneling                   ,-    mkSessionTunnelingCallback              ,-    noSessionTunnelingCallback              ,-    onSessionTunneling                      ,-    sessionTunnelingCallbackWrapper         ,-    sessionTunnelingClosure                 ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject-import qualified GI.Gio as Gio--newtype Session = Session (ForeignPtr Session)-foreign import ccall "soup_session_get_type"-    c_soup_session_get_type :: IO GType--type instance ParentTypes Session = SessionParentTypes-type SessionParentTypes = '[GObject.Object]--instance GObject Session where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_session_get_type-    --class GObject o => SessionK o-instance (GObject o, IsDescendantOf Session o) => SessionK o--toSession :: SessionK 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.ObjectBindPropertyMethodInfo-    ResolveSessionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveSessionMethod "cancelMessage" o = SessionCancelMessageMethodInfo-    ResolveSessionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveSessionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveSessionMethod "hasFeature" o = SessionHasFeatureMethodInfo-    ResolveSessionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveSessionMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveSessionMethod "notifyByPspec" o = GObject.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.ObjectRefMethodInfo-    ResolveSessionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveSessionMethod "removeFeature" o = SessionRemoveFeatureMethodInfo-    ResolveSessionMethod "removeFeatureByType" o = SessionRemoveFeatureByTypeMethodInfo-    ResolveSessionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveSessionMethod "replaceQdata" o = GObject.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.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.ObjectStealDataMethodInfo-    ResolveSessionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveSessionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveSessionMethod "unpauseMessage" o = SessionUnpauseMessageMethodInfo-    ResolveSessionMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveSessionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveSessionMethod "websocketConnectAsync" o = SessionWebsocketConnectAsyncMethodInfo-    ResolveSessionMethod "websocketConnectFinish" o = SessionWebsocketConnectFinishMethodInfo-    ResolveSessionMethod "wouldRedirect" o = SessionWouldRedirectMethodInfo-    ResolveSessionMethod "getAsyncContext" o = SessionGetAsyncContextMethodInfo-    ResolveSessionMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveSessionMethod "getFeature" o = SessionGetFeatureMethodInfo-    ResolveSessionMethod "getFeatureForMessage" o = SessionGetFeatureForMessageMethodInfo-    ResolveSessionMethod "getFeatures" o = SessionGetFeaturesMethodInfo-    ResolveSessionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveSessionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveSessionMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveSessionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveSessionMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveSessionMethod t Session, MethodInfo info Session p) => IsLabelProxy t (Session -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSessionMethod t Session, MethodInfo info Session p) => IsLabel t (Session -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal Session::authenticate-type SessionAuthenticateCallback =-    Message ->-    Auth ->-    Bool ->-    IO ()--noSessionAuthenticateCallback :: Maybe SessionAuthenticateCallback-noSessionAuthenticateCallback = Nothing--type SessionAuthenticateCallbackC =-    Ptr () ->                               -- object-    Ptr Message ->-    Ptr Auth ->-    CInt ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkSessionAuthenticateCallback :: SessionAuthenticateCallbackC -> IO (FunPtr SessionAuthenticateCallbackC)--sessionAuthenticateClosure :: SessionAuthenticateCallback -> IO Closure-sessionAuthenticateClosure cb = newCClosure =<< mkSessionAuthenticateCallback wrapped-    where wrapped = sessionAuthenticateCallbackWrapper cb--sessionAuthenticateCallbackWrapper ::-    SessionAuthenticateCallback ->-    Ptr () ->-    Ptr Message ->-    Ptr Auth ->-    CInt ->-    Ptr () ->-    IO ()-sessionAuthenticateCallbackWrapper _cb _ msg auth retrying _ = do-    msg' <- (newObject Message) msg-    auth' <- (newObject 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-    cb' <- mkSessionAuthenticateCallback (sessionAuthenticateCallbackWrapper cb)-    connectSignalFunPtr obj "authenticate" cb' after---- signal Session::connection-created-type SessionConnectionCreatedCallback =-    GObject.Object ->-    IO ()--noSessionConnectionCreatedCallback :: Maybe SessionConnectionCreatedCallback-noSessionConnectionCreatedCallback = Nothing--type SessionConnectionCreatedCallbackC =-    Ptr () ->                               -- object-    Ptr GObject.Object ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkSessionConnectionCreatedCallback :: SessionConnectionCreatedCallbackC -> IO (FunPtr SessionConnectionCreatedCallbackC)--sessionConnectionCreatedClosure :: SessionConnectionCreatedCallback -> IO Closure-sessionConnectionCreatedClosure cb = newCClosure =<< mkSessionConnectionCreatedCallback wrapped-    where wrapped = sessionConnectionCreatedCallbackWrapper cb--sessionConnectionCreatedCallbackWrapper ::-    SessionConnectionCreatedCallback ->-    Ptr () ->-    Ptr GObject.Object ->-    Ptr () ->-    IO ()-sessionConnectionCreatedCallbackWrapper _cb _ connection _ = do-    connection' <- (newObject GObject.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-    cb' <- mkSessionConnectionCreatedCallback (sessionConnectionCreatedCallbackWrapper cb)-    connectSignalFunPtr obj "connection-created" cb' after---- signal Session::request-queued-type SessionRequestQueuedCallback =-    Message ->-    IO ()--noSessionRequestQueuedCallback :: Maybe SessionRequestQueuedCallback-noSessionRequestQueuedCallback = Nothing--type SessionRequestQueuedCallbackC =-    Ptr () ->                               -- object-    Ptr Message ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkSessionRequestQueuedCallback :: SessionRequestQueuedCallbackC -> IO (FunPtr SessionRequestQueuedCallbackC)--sessionRequestQueuedClosure :: SessionRequestQueuedCallback -> IO Closure-sessionRequestQueuedClosure cb = newCClosure =<< mkSessionRequestQueuedCallback wrapped-    where wrapped = sessionRequestQueuedCallbackWrapper cb--sessionRequestQueuedCallbackWrapper ::-    SessionRequestQueuedCallback ->-    Ptr () ->-    Ptr Message ->-    Ptr () ->-    IO ()-sessionRequestQueuedCallbackWrapper _cb _ msg _ = do-    msg' <- (newObject 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-    cb' <- mkSessionRequestQueuedCallback (sessionRequestQueuedCallbackWrapper cb)-    connectSignalFunPtr obj "request-queued" cb' after---- signal Session::request-started-type SessionRequestStartedCallback =-    Message ->-    Socket ->-    IO ()--noSessionRequestStartedCallback :: Maybe SessionRequestStartedCallback-noSessionRequestStartedCallback = Nothing--type SessionRequestStartedCallbackC =-    Ptr () ->                               -- object-    Ptr Message ->-    Ptr Socket ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkSessionRequestStartedCallback :: SessionRequestStartedCallbackC -> IO (FunPtr SessionRequestStartedCallbackC)--sessionRequestStartedClosure :: SessionRequestStartedCallback -> IO Closure-sessionRequestStartedClosure cb = newCClosure =<< mkSessionRequestStartedCallback wrapped-    where wrapped = sessionRequestStartedCallbackWrapper cb--sessionRequestStartedCallbackWrapper ::-    SessionRequestStartedCallback ->-    Ptr () ->-    Ptr Message ->-    Ptr Socket ->-    Ptr () ->-    IO ()-sessionRequestStartedCallbackWrapper _cb _ msg socket _ = do-    msg' <- (newObject Message) msg-    socket' <- (newObject 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-    cb' <- mkSessionRequestStartedCallback (sessionRequestStartedCallbackWrapper cb)-    connectSignalFunPtr obj "request-started" cb' after---- signal Session::request-unqueued-type SessionRequestUnqueuedCallback =-    Message ->-    IO ()--noSessionRequestUnqueuedCallback :: Maybe SessionRequestUnqueuedCallback-noSessionRequestUnqueuedCallback = Nothing--type SessionRequestUnqueuedCallbackC =-    Ptr () ->                               -- object-    Ptr Message ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkSessionRequestUnqueuedCallback :: SessionRequestUnqueuedCallbackC -> IO (FunPtr SessionRequestUnqueuedCallbackC)--sessionRequestUnqueuedClosure :: SessionRequestUnqueuedCallback -> IO Closure-sessionRequestUnqueuedClosure cb = newCClosure =<< mkSessionRequestUnqueuedCallback wrapped-    where wrapped = sessionRequestUnqueuedCallbackWrapper cb--sessionRequestUnqueuedCallbackWrapper ::-    SessionRequestUnqueuedCallback ->-    Ptr () ->-    Ptr Message ->-    Ptr () ->-    IO ()-sessionRequestUnqueuedCallbackWrapper _cb _ msg _ = do-    msg' <- (newObject 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-    cb' <- mkSessionRequestUnqueuedCallback (sessionRequestUnqueuedCallbackWrapper cb)-    connectSignalFunPtr obj "request-unqueued" cb' after---- signal Session::tunneling-type SessionTunnelingCallback =-    GObject.Object ->-    IO ()--noSessionTunnelingCallback :: Maybe SessionTunnelingCallback-noSessionTunnelingCallback = Nothing--type SessionTunnelingCallbackC =-    Ptr () ->                               -- object-    Ptr GObject.Object ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkSessionTunnelingCallback :: SessionTunnelingCallbackC -> IO (FunPtr SessionTunnelingCallbackC)--sessionTunnelingClosure :: SessionTunnelingCallback -> IO Closure-sessionTunnelingClosure cb = newCClosure =<< mkSessionTunnelingCallback wrapped-    where wrapped = sessionTunnelingCallbackWrapper cb--sessionTunnelingCallbackWrapper ::-    SessionTunnelingCallback ->-    Ptr () ->-    Ptr GObject.Object ->-    Ptr () ->-    IO ()-sessionTunnelingCallbackWrapper _cb _ connection _ = do-    connection' <- (newObject GObject.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-    cb' <- mkSessionTunnelingCallback (sessionTunnelingCallbackWrapper cb)-    connectSignalFunPtr obj "tunneling" cb' after---- VVV Prop "accept-language"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getSessionAcceptLanguage :: (MonadIO m, SessionK o) => o -> m (Maybe T.Text)-getSessionAcceptLanguage obj = liftIO $ getObjectPropertyString obj "accept-language"--setSessionAcceptLanguage :: (MonadIO m, SessionK o) => o -> T.Text -> m ()-setSessionAcceptLanguage obj val = liftIO $ setObjectPropertyString obj "accept-language" (Just val)--constructSessionAcceptLanguage :: T.Text -> IO ([Char], GValue)-constructSessionAcceptLanguage val = constructObjectPropertyString "accept-language" (Just val)--clearSessionAcceptLanguage :: (MonadIO m, SessionK 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 = SessionK-    type AttrGetType SessionAcceptLanguagePropertyInfo = (Maybe T.Text)-    type AttrLabel SessionAcceptLanguagePropertyInfo = "accept-language"-    attrGet _ = getSessionAcceptLanguage-    attrSet _ = setSessionAcceptLanguage-    attrConstruct _ = constructSessionAcceptLanguage-    attrClear _ = clearSessionAcceptLanguage---- VVV Prop "accept-language-auto"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getSessionAcceptLanguageAuto :: (MonadIO m, SessionK o) => o -> m Bool-getSessionAcceptLanguageAuto obj = liftIO $ getObjectPropertyBool obj "accept-language-auto"--setSessionAcceptLanguageAuto :: (MonadIO m, SessionK o) => o -> Bool -> m ()-setSessionAcceptLanguageAuto obj val = liftIO $ setObjectPropertyBool obj "accept-language-auto" val--constructSessionAcceptLanguageAuto :: Bool -> IO ([Char], GValue)-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 = SessionK-    type AttrGetType SessionAcceptLanguageAutoPropertyInfo = Bool-    type AttrLabel SessionAcceptLanguageAutoPropertyInfo = "accept-language-auto"-    attrGet _ = getSessionAcceptLanguageAuto-    attrSet _ = setSessionAcceptLanguageAuto-    attrConstruct _ = constructSessionAcceptLanguageAuto-    attrClear _ = undefined---- VVV Prop "async-context"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getSessionAsyncContext :: (MonadIO m, SessionK o) => o -> m (Ptr ())-getSessionAsyncContext obj = liftIO $ getObjectPropertyPtr obj "async-context"--constructSessionAsyncContext :: Ptr () -> IO ([Char], GValue)-constructSessionAsyncContext val = constructObjectPropertyPtr "async-context" val--data SessionAsyncContextPropertyInfo-instance AttrInfo SessionAsyncContextPropertyInfo where-    type AttrAllowedOps SessionAsyncContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionAsyncContextPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint SessionAsyncContextPropertyInfo = SessionK-    type AttrGetType SessionAsyncContextPropertyInfo = (Ptr ())-    type AttrLabel SessionAsyncContextPropertyInfo = "async-context"-    attrGet _ = getSessionAsyncContext-    attrSet _ = undefined-    attrConstruct _ = constructSessionAsyncContext-    attrClear _ = undefined---- VVV Prop "http-aliases"-   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getSessionHttpAliases :: (MonadIO m, SessionK o) => o -> m (Maybe [T.Text])-getSessionHttpAliases obj = liftIO $ getObjectPropertyStringArray obj "http-aliases"--setSessionHttpAliases :: (MonadIO m, SessionK o) => o -> [T.Text] -> m ()-setSessionHttpAliases obj val = liftIO $ setObjectPropertyStringArray obj "http-aliases" (Just val)--constructSessionHttpAliases :: [T.Text] -> IO ([Char], GValue)-constructSessionHttpAliases val = constructObjectPropertyStringArray "http-aliases" (Just val)--clearSessionHttpAliases :: (MonadIO m, SessionK 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 = SessionK-    type AttrGetType SessionHttpAliasesPropertyInfo = (Maybe [T.Text])-    type AttrLabel SessionHttpAliasesPropertyInfo = "http-aliases"-    attrGet _ = getSessionHttpAliases-    attrSet _ = setSessionHttpAliases-    attrConstruct _ = constructSessionHttpAliases-    attrClear _ = clearSessionHttpAliases---- VVV Prop "https-aliases"-   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getSessionHttpsAliases :: (MonadIO m, SessionK o) => o -> m (Maybe [T.Text])-getSessionHttpsAliases obj = liftIO $ getObjectPropertyStringArray obj "https-aliases"--setSessionHttpsAliases :: (MonadIO m, SessionK o) => o -> [T.Text] -> m ()-setSessionHttpsAliases obj val = liftIO $ setObjectPropertyStringArray obj "https-aliases" (Just val)--constructSessionHttpsAliases :: [T.Text] -> IO ([Char], GValue)-constructSessionHttpsAliases val = constructObjectPropertyStringArray "https-aliases" (Just val)--clearSessionHttpsAliases :: (MonadIO m, SessionK 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 = SessionK-    type AttrGetType SessionHttpsAliasesPropertyInfo = (Maybe [T.Text])-    type AttrLabel SessionHttpsAliasesPropertyInfo = "https-aliases"-    attrGet _ = getSessionHttpsAliases-    attrSet _ = setSessionHttpsAliases-    attrConstruct _ = constructSessionHttpsAliases-    attrClear _ = clearSessionHttpsAliases---- VVV Prop "idle-timeout"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getSessionIdleTimeout :: (MonadIO m, SessionK o) => o -> m Word32-getSessionIdleTimeout obj = liftIO $ getObjectPropertyUInt32 obj "idle-timeout"--setSessionIdleTimeout :: (MonadIO m, SessionK o) => o -> Word32 -> m ()-setSessionIdleTimeout obj val = liftIO $ setObjectPropertyUInt32 obj "idle-timeout" val--constructSessionIdleTimeout :: Word32 -> IO ([Char], GValue)-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 = SessionK-    type AttrGetType SessionIdleTimeoutPropertyInfo = Word32-    type AttrLabel SessionIdleTimeoutPropertyInfo = "idle-timeout"-    attrGet _ = getSessionIdleTimeout-    attrSet _ = setSessionIdleTimeout-    attrConstruct _ = constructSessionIdleTimeout-    attrClear _ = undefined---- VVV Prop "local-address"-   -- Type: TInterface "Soup" "Address"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getSessionLocalAddress :: (MonadIO m, SessionK o) => o -> m (Maybe Address)-getSessionLocalAddress obj = liftIO $ getObjectPropertyObject obj "local-address" Address--constructSessionLocalAddress :: (AddressK a) => a -> IO ([Char], GValue)-constructSessionLocalAddress val = constructObjectPropertyObject "local-address" (Just val)--data SessionLocalAddressPropertyInfo-instance AttrInfo SessionLocalAddressPropertyInfo where-    type AttrAllowedOps SessionLocalAddressPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SessionLocalAddressPropertyInfo = AddressK-    type AttrBaseTypeConstraint SessionLocalAddressPropertyInfo = SessionK-    type AttrGetType SessionLocalAddressPropertyInfo = (Maybe Address)-    type AttrLabel SessionLocalAddressPropertyInfo = "local-address"-    attrGet _ = getSessionLocalAddress-    attrSet _ = undefined-    attrConstruct _ = constructSessionLocalAddress-    attrClear _ = undefined---- VVV Prop "max-conns"-   -- Type: TBasicType TInt-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getSessionMaxConns :: (MonadIO m, SessionK o) => o -> m Int32-getSessionMaxConns obj = liftIO $ getObjectPropertyInt32 obj "max-conns"--setSessionMaxConns :: (MonadIO m, SessionK o) => o -> Int32 -> m ()-setSessionMaxConns obj val = liftIO $ setObjectPropertyInt32 obj "max-conns" val--constructSessionMaxConns :: Int32 -> IO ([Char], GValue)-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 = SessionK-    type AttrGetType SessionMaxConnsPropertyInfo = Int32-    type AttrLabel SessionMaxConnsPropertyInfo = "max-conns"-    attrGet _ = getSessionMaxConns-    attrSet _ = setSessionMaxConns-    attrConstruct _ = constructSessionMaxConns-    attrClear _ = undefined---- VVV Prop "max-conns-per-host"-   -- Type: TBasicType TInt-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getSessionMaxConnsPerHost :: (MonadIO m, SessionK o) => o -> m Int32-getSessionMaxConnsPerHost obj = liftIO $ getObjectPropertyInt32 obj "max-conns-per-host"--setSessionMaxConnsPerHost :: (MonadIO m, SessionK o) => o -> Int32 -> m ()-setSessionMaxConnsPerHost obj val = liftIO $ setObjectPropertyInt32 obj "max-conns-per-host" val--constructSessionMaxConnsPerHost :: Int32 -> IO ([Char], GValue)-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 = SessionK-    type AttrGetType SessionMaxConnsPerHostPropertyInfo = Int32-    type AttrLabel SessionMaxConnsPerHostPropertyInfo = "max-conns-per-host"-    attrGet _ = getSessionMaxConnsPerHost-    attrSet _ = setSessionMaxConnsPerHost-    attrConstruct _ = constructSessionMaxConnsPerHost-    attrClear _ = undefined---- VVV Prop "proxy-resolver"-   -- Type: TInterface "Gio" "ProxyResolver"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getSessionProxyResolver :: (MonadIO m, SessionK o) => o -> m (Maybe Gio.ProxyResolver)-getSessionProxyResolver obj = liftIO $ getObjectPropertyObject obj "proxy-resolver" Gio.ProxyResolver--setSessionProxyResolver :: (MonadIO m, SessionK o, Gio.ProxyResolverK a) => o -> a -> m ()-setSessionProxyResolver obj val = liftIO $ setObjectPropertyObject obj "proxy-resolver" (Just val)--constructSessionProxyResolver :: (Gio.ProxyResolverK a) => a -> IO ([Char], GValue)-constructSessionProxyResolver val = constructObjectPropertyObject "proxy-resolver" (Just val)--clearSessionProxyResolver :: (MonadIO m, SessionK o) => o -> m ()-clearSessionProxyResolver obj = liftIO $ setObjectPropertyObject obj "proxy-resolver" (Nothing :: Maybe Gio.ProxyResolver)--data SessionProxyResolverPropertyInfo-instance AttrInfo SessionProxyResolverPropertyInfo where-    type AttrAllowedOps SessionProxyResolverPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SessionProxyResolverPropertyInfo = Gio.ProxyResolverK-    type AttrBaseTypeConstraint SessionProxyResolverPropertyInfo = SessionK-    type AttrGetType SessionProxyResolverPropertyInfo = (Maybe Gio.ProxyResolver)-    type AttrLabel SessionProxyResolverPropertyInfo = "proxy-resolver"-    attrGet _ = getSessionProxyResolver-    attrSet _ = setSessionProxyResolver-    attrConstruct _ = constructSessionProxyResolver-    attrClear _ = clearSessionProxyResolver---- VVV Prop "proxy-uri"-   -- Type: TInterface "Soup" "URI"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getSessionProxyUri :: (MonadIO m, SessionK o) => o -> m (Maybe URI)-getSessionProxyUri obj = liftIO $ getObjectPropertyBoxed obj "proxy-uri" URI--setSessionProxyUri :: (MonadIO m, SessionK o) => o -> URI -> m ()-setSessionProxyUri obj val = liftIO $ setObjectPropertyBoxed obj "proxy-uri" (Just val)--constructSessionProxyUri :: URI -> IO ([Char], GValue)-constructSessionProxyUri val = constructObjectPropertyBoxed "proxy-uri" (Just val)--clearSessionProxyUri :: (MonadIO m, SessionK o) => o -> m ()-clearSessionProxyUri obj = liftIO $ setObjectPropertyBoxed obj "proxy-uri" (Nothing :: Maybe URI)--data SessionProxyUriPropertyInfo-instance AttrInfo SessionProxyUriPropertyInfo where-    type AttrAllowedOps SessionProxyUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SessionProxyUriPropertyInfo = (~) URI-    type AttrBaseTypeConstraint SessionProxyUriPropertyInfo = SessionK-    type AttrGetType SessionProxyUriPropertyInfo = (Maybe URI)-    type AttrLabel SessionProxyUriPropertyInfo = "proxy-uri"-    attrGet _ = getSessionProxyUri-    attrSet _ = setSessionProxyUri-    attrConstruct _ = constructSessionProxyUri-    attrClear _ = clearSessionProxyUri---- VVV Prop "ssl-ca-file"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getSessionSslCaFile :: (MonadIO m, SessionK o) => o -> m (Maybe T.Text)-getSessionSslCaFile obj = liftIO $ getObjectPropertyString obj "ssl-ca-file"--setSessionSslCaFile :: (MonadIO m, SessionK o) => o -> T.Text -> m ()-setSessionSslCaFile obj val = liftIO $ setObjectPropertyString obj "ssl-ca-file" (Just val)--constructSessionSslCaFile :: T.Text -> IO ([Char], GValue)-constructSessionSslCaFile val = constructObjectPropertyString "ssl-ca-file" (Just val)--clearSessionSslCaFile :: (MonadIO m, SessionK 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 = SessionK-    type AttrGetType SessionSslCaFilePropertyInfo = (Maybe T.Text)-    type AttrLabel SessionSslCaFilePropertyInfo = "ssl-ca-file"-    attrGet _ = getSessionSslCaFile-    attrSet _ = setSessionSslCaFile-    attrConstruct _ = constructSessionSslCaFile-    attrClear _ = clearSessionSslCaFile---- VVV Prop "ssl-strict"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getSessionSslStrict :: (MonadIO m, SessionK o) => o -> m Bool-getSessionSslStrict obj = liftIO $ getObjectPropertyBool obj "ssl-strict"--setSessionSslStrict :: (MonadIO m, SessionK o) => o -> Bool -> m ()-setSessionSslStrict obj val = liftIO $ setObjectPropertyBool obj "ssl-strict" val--constructSessionSslStrict :: Bool -> IO ([Char], GValue)-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 = SessionK-    type AttrGetType SessionSslStrictPropertyInfo = Bool-    type AttrLabel SessionSslStrictPropertyInfo = "ssl-strict"-    attrGet _ = getSessionSslStrict-    attrSet _ = setSessionSslStrict-    attrConstruct _ = constructSessionSslStrict-    attrClear _ = undefined---- VVV Prop "ssl-use-system-ca-file"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getSessionSslUseSystemCaFile :: (MonadIO m, SessionK o) => o -> m Bool-getSessionSslUseSystemCaFile obj = liftIO $ getObjectPropertyBool obj "ssl-use-system-ca-file"--setSessionSslUseSystemCaFile :: (MonadIO m, SessionK o) => o -> Bool -> m ()-setSessionSslUseSystemCaFile obj val = liftIO $ setObjectPropertyBool obj "ssl-use-system-ca-file" val--constructSessionSslUseSystemCaFile :: Bool -> IO ([Char], GValue)-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 = SessionK-    type AttrGetType SessionSslUseSystemCaFilePropertyInfo = Bool-    type AttrLabel SessionSslUseSystemCaFilePropertyInfo = "ssl-use-system-ca-file"-    attrGet _ = getSessionSslUseSystemCaFile-    attrSet _ = setSessionSslUseSystemCaFile-    attrConstruct _ = constructSessionSslUseSystemCaFile-    attrClear _ = undefined---- VVV Prop "timeout"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getSessionTimeout :: (MonadIO m, SessionK o) => o -> m Word32-getSessionTimeout obj = liftIO $ getObjectPropertyUInt32 obj "timeout"--setSessionTimeout :: (MonadIO m, SessionK o) => o -> Word32 -> m ()-setSessionTimeout obj val = liftIO $ setObjectPropertyUInt32 obj "timeout" val--constructSessionTimeout :: Word32 -> IO ([Char], GValue)-constructSessionTimeout val = constructObjectPropertyUInt32 "timeout" val--data SessionTimeoutPropertyInfo-instance AttrInfo SessionTimeoutPropertyInfo where-    type AttrAllowedOps SessionTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionTimeoutPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint SessionTimeoutPropertyInfo = SessionK-    type AttrGetType SessionTimeoutPropertyInfo = Word32-    type AttrLabel SessionTimeoutPropertyInfo = "timeout"-    attrGet _ = getSessionTimeout-    attrSet _ = setSessionTimeout-    attrConstruct _ = constructSessionTimeout-    attrClear _ = undefined---- VVV Prop "tls-database"-   -- Type: TInterface "Gio" "TlsDatabase"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getSessionTlsDatabase :: (MonadIO m, SessionK o) => o -> m (Maybe Gio.TlsDatabase)-getSessionTlsDatabase obj = liftIO $ getObjectPropertyObject obj "tls-database" Gio.TlsDatabase--setSessionTlsDatabase :: (MonadIO m, SessionK o, Gio.TlsDatabaseK a) => o -> a -> m ()-setSessionTlsDatabase obj val = liftIO $ setObjectPropertyObject obj "tls-database" (Just val)--constructSessionTlsDatabase :: (Gio.TlsDatabaseK a) => a -> IO ([Char], GValue)-constructSessionTlsDatabase val = constructObjectPropertyObject "tls-database" (Just val)--clearSessionTlsDatabase :: (MonadIO m, SessionK o) => o -> m ()-clearSessionTlsDatabase obj = liftIO $ setObjectPropertyObject obj "tls-database" (Nothing :: Maybe Gio.TlsDatabase)--data SessionTlsDatabasePropertyInfo-instance AttrInfo SessionTlsDatabasePropertyInfo where-    type AttrAllowedOps SessionTlsDatabasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SessionTlsDatabasePropertyInfo = Gio.TlsDatabaseK-    type AttrBaseTypeConstraint SessionTlsDatabasePropertyInfo = SessionK-    type AttrGetType SessionTlsDatabasePropertyInfo = (Maybe Gio.TlsDatabase)-    type AttrLabel SessionTlsDatabasePropertyInfo = "tls-database"-    attrGet _ = getSessionTlsDatabase-    attrSet _ = setSessionTlsDatabase-    attrConstruct _ = constructSessionTlsDatabase-    attrClear _ = clearSessionTlsDatabase---- VVV Prop "tls-interaction"-   -- Type: TInterface "Gio" "TlsInteraction"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getSessionTlsInteraction :: (MonadIO m, SessionK o) => o -> m (Maybe Gio.TlsInteraction)-getSessionTlsInteraction obj = liftIO $ getObjectPropertyObject obj "tls-interaction" Gio.TlsInteraction--setSessionTlsInteraction :: (MonadIO m, SessionK o, Gio.TlsInteractionK a) => o -> a -> m ()-setSessionTlsInteraction obj val = liftIO $ setObjectPropertyObject obj "tls-interaction" (Just val)--constructSessionTlsInteraction :: (Gio.TlsInteractionK a) => a -> IO ([Char], GValue)-constructSessionTlsInteraction val = constructObjectPropertyObject "tls-interaction" (Just val)--clearSessionTlsInteraction :: (MonadIO m, SessionK o) => o -> m ()-clearSessionTlsInteraction obj = liftIO $ setObjectPropertyObject obj "tls-interaction" (Nothing :: Maybe Gio.TlsInteraction)--data SessionTlsInteractionPropertyInfo-instance AttrInfo SessionTlsInteractionPropertyInfo where-    type AttrAllowedOps SessionTlsInteractionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SessionTlsInteractionPropertyInfo = Gio.TlsInteractionK-    type AttrBaseTypeConstraint SessionTlsInteractionPropertyInfo = SessionK-    type AttrGetType SessionTlsInteractionPropertyInfo = (Maybe Gio.TlsInteraction)-    type AttrLabel SessionTlsInteractionPropertyInfo = "tls-interaction"-    attrGet _ = getSessionTlsInteraction-    attrSet _ = setSessionTlsInteraction-    attrConstruct _ = constructSessionTlsInteraction-    attrClear _ = clearSessionTlsInteraction---- VVV Prop "use-ntlm"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getSessionUseNtlm :: (MonadIO m, SessionK o) => o -> m Bool-getSessionUseNtlm obj = liftIO $ getObjectPropertyBool obj "use-ntlm"--setSessionUseNtlm :: (MonadIO m, SessionK o) => o -> Bool -> m ()-setSessionUseNtlm obj val = liftIO $ setObjectPropertyBool obj "use-ntlm" val--constructSessionUseNtlm :: Bool -> IO ([Char], GValue)-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 = SessionK-    type AttrGetType SessionUseNtlmPropertyInfo = Bool-    type AttrLabel SessionUseNtlmPropertyInfo = "use-ntlm"-    attrGet _ = getSessionUseNtlm-    attrSet _ = setSessionUseNtlm-    attrConstruct _ = constructSessionUseNtlm-    attrClear _ = undefined---- VVV Prop "use-thread-context"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getSessionUseThreadContext :: (MonadIO m, SessionK o) => o -> m Bool-getSessionUseThreadContext obj = liftIO $ getObjectPropertyBool obj "use-thread-context"--setSessionUseThreadContext :: (MonadIO m, SessionK o) => o -> Bool -> m ()-setSessionUseThreadContext obj val = liftIO $ setObjectPropertyBool obj "use-thread-context" val--constructSessionUseThreadContext :: Bool -> IO ([Char], GValue)-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 = SessionK-    type AttrGetType SessionUseThreadContextPropertyInfo = Bool-    type AttrLabel SessionUseThreadContextPropertyInfo = "use-thread-context"-    attrGet _ = getSessionUseThreadContext-    attrSet _ = setSessionUseThreadContext-    attrConstruct _ = constructSessionUseThreadContext-    attrClear _ = undefined---- VVV Prop "user-agent"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getSessionUserAgent :: (MonadIO m, SessionK o) => o -> m (Maybe T.Text)-getSessionUserAgent obj = liftIO $ getObjectPropertyString obj "user-agent"--setSessionUserAgent :: (MonadIO m, SessionK o) => o -> T.Text -> m ()-setSessionUserAgent obj val = liftIO $ setObjectPropertyString obj "user-agent" (Just val)--constructSessionUserAgent :: T.Text -> IO ([Char], GValue)-constructSessionUserAgent val = constructObjectPropertyString "user-agent" (Just val)--clearSessionUserAgent :: (MonadIO m, SessionK 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 = SessionK-    type AttrGetType SessionUserAgentPropertyInfo = (Maybe T.Text)-    type AttrLabel SessionUserAgentPropertyInfo = "user-agent"-    attrGet _ = getSessionUserAgent-    attrSet _ = setSessionUserAgent-    attrConstruct _ = constructSessionUserAgent-    attrClear _ = clearSessionUserAgent--type instance 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 SignalList Session = SessionSignalList-type SessionSignalList = ('[ '("authenticate", SessionAuthenticateSignalInfo), '("connectionCreated", SessionConnectionCreatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("requestQueued", SessionRequestQueuedSignalInfo), '("requestStarted", SessionRequestStartedSignalInfo), '("requestUnqueued", SessionRequestUnqueuedSignalInfo), '("tunneling", SessionTunnelingSignalInfo)] :: [(Symbol, *)])---- method Session::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Soup" "Session")--- throws : False--- Skip return : False--foreign import ccall "soup_session_new" soup_session_new :: -    IO (Ptr Session)---sessionNew ::-    (MonadIO m) =>-    m Session                               -- result-sessionNew  = liftIO $ do-    result <- soup_session_new-    checkUnexpectedReturnNULL "soup_session_new" result-    result' <- (wrapObject Session) result-    return result'---- method Session::abort--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_session_abort" soup_session_abort :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    IO ()---sessionAbort ::-    (MonadIO m, SessionK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-sessionAbort _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_session_abort _obj'-    touchManagedPtr _obj-    return ()--data SessionAbortMethodInfo-instance (signature ~ (m ()), MonadIO m, SessionK a) => MethodInfo SessionAbortMethodInfo a signature where-    overloadedMethod _ = sessionAbort---- method Session::add_feature--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_session_add_feature" soup_session_add_feature :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr SessionFeature ->                   -- feature : TInterface "Soup" "SessionFeature"-    IO ()---sessionAddFeature ::-    (MonadIO m, SessionK a, SessionFeatureK b) =>-    a                                       -- _obj-    -> b                                    -- feature-    -> m ()                                 -- result-sessionAddFeature _obj feature = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let feature' = unsafeManagedPtrCastPtr feature-    soup_session_add_feature _obj' feature'-    touchManagedPtr _obj-    touchManagedPtr feature-    return ()--data SessionAddFeatureMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, SessionK a, SessionFeatureK b) => MethodInfo SessionAddFeatureMethodInfo a signature where-    overloadedMethod _ = sessionAddFeature---- method Session::add_feature_by_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_session_add_feature_by_type" soup_session_add_feature_by_type :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    CGType ->                               -- feature_type : TBasicType TGType-    IO ()---sessionAddFeatureByType ::-    (MonadIO m, SessionK a) =>-    a                                       -- _obj-    -> GType                                -- featureType-    -> m ()                                 -- result-sessionAddFeatureByType _obj featureType = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let featureType' = gtypeToCGType featureType-    soup_session_add_feature_by_type _obj' featureType'-    touchManagedPtr _obj-    return ()--data SessionAddFeatureByTypeMethodInfo-instance (signature ~ (GType -> m ()), MonadIO m, SessionK a) => MethodInfo SessionAddFeatureByTypeMethodInfo a signature where-    overloadedMethod _ = sessionAddFeatureByType---- method Session::cancel_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "status_code", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_session_cancel_message" soup_session_cancel_message :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    Word32 ->                               -- status_code : TBasicType TUInt-    IO ()---sessionCancelMessage ::-    (MonadIO m, SessionK a, MessageK b) =>-    a                                       -- _obj-    -> b                                    -- msg-    -> Word32                               -- statusCode-    -> m ()                                 -- result-sessionCancelMessage _obj msg statusCode = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    soup_session_cancel_message _obj' msg' statusCode-    touchManagedPtr _obj-    touchManagedPtr msg-    return ()--data SessionCancelMessageMethodInfo-instance (signature ~ (b -> Word32 -> m ()), MonadIO m, SessionK a, MessageK b) => MethodInfo SessionCancelMessageMethodInfo a signature where-    overloadedMethod _ = sessionCancelMessage---- method Session::get_async_context--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GLib" "MainContext")--- throws : False--- Skip return : False--foreign import ccall "soup_session_get_async_context" soup_session_get_async_context :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    IO (Ptr GLib.MainContext)---sessionGetAsyncContext ::-    (MonadIO m, SessionK a) =>-    a                                       -- _obj-    -> m (Maybe GLib.MainContext)           -- result-sessionGetAsyncContext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_session_get_async_context _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newBoxed GLib.MainContext) result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data SessionGetAsyncContextMethodInfo-instance (signature ~ (m (Maybe GLib.MainContext)), MonadIO m, SessionK a) => MethodInfo SessionGetAsyncContextMethodInfo a signature where-    overloadedMethod _ = sessionGetAsyncContext---- method Session::get_feature--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "SessionFeature")--- throws : False--- Skip return : False--foreign import ccall "soup_session_get_feature" soup_session_get_feature :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    CGType ->                               -- feature_type : TBasicType TGType-    IO (Ptr SessionFeature)---sessionGetFeature ::-    (MonadIO m, SessionK a) =>-    a                                       -- _obj-    -> GType                                -- featureType-    -> m (Maybe SessionFeature)             -- result-sessionGetFeature _obj featureType = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let featureType' = gtypeToCGType featureType-    result <- soup_session_get_feature _obj' featureType'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject SessionFeature) result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data SessionGetFeatureMethodInfo-instance (signature ~ (GType -> m (Maybe SessionFeature)), MonadIO m, SessionK a) => MethodInfo SessionGetFeatureMethodInfo a signature where-    overloadedMethod _ = sessionGetFeature---- method Session::get_feature_for_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "SessionFeature")--- throws : False--- Skip return : False--foreign import ccall "soup_session_get_feature_for_message" soup_session_get_feature_for_message :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    CGType ->                               -- feature_type : TBasicType TGType-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO (Ptr SessionFeature)---sessionGetFeatureForMessage ::-    (MonadIO m, SessionK a, MessageK b) =>-    a                                       -- _obj-    -> GType                                -- featureType-    -> b                                    -- msg-    -> m (Maybe SessionFeature)             -- result-sessionGetFeatureForMessage _obj featureType msg = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let featureType' = gtypeToCGType featureType-    let msg' = unsafeManagedPtrCastPtr msg-    result <- soup_session_get_feature_for_message _obj' featureType' msg'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject SessionFeature) result'-        return result''-    touchManagedPtr _obj-    touchManagedPtr msg-    return maybeResult--data SessionGetFeatureForMessageMethodInfo-instance (signature ~ (GType -> b -> m (Maybe SessionFeature)), MonadIO m, SessionK a, MessageK b) => MethodInfo SessionGetFeatureForMessageMethodInfo a signature where-    overloadedMethod _ = sessionGetFeatureForMessage---- method Session::get_features--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGSList (TInterface "Soup" "SessionFeature"))--- throws : False--- Skip return : False--foreign import ccall "soup_session_get_features" soup_session_get_features :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    CGType ->                               -- feature_type : TBasicType TGType-    IO (Ptr (GSList (Ptr SessionFeature)))---sessionGetFeatures ::-    (MonadIO m, SessionK a) =>-    a                                       -- _obj-    -> GType                                -- featureType-    -> m [SessionFeature]                   -- result-sessionGetFeatures _obj featureType = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let featureType' = gtypeToCGType featureType-    result <- soup_session_get_features _obj' featureType'-    result' <- unpackGSList result-    result'' <- mapM (newObject SessionFeature) result'-    g_slist_free result-    touchManagedPtr _obj-    return result''--data SessionGetFeaturesMethodInfo-instance (signature ~ (GType -> m [SessionFeature]), MonadIO m, SessionK a) => MethodInfo SessionGetFeaturesMethodInfo a signature where-    overloadedMethod _ = sessionGetFeatures---- method Session::has_feature--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_session_has_feature" soup_session_has_feature :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    CGType ->                               -- feature_type : TBasicType TGType-    IO CInt---sessionHasFeature ::-    (MonadIO m, SessionK a) =>-    a                                       -- _obj-    -> GType                                -- featureType-    -> m Bool                               -- result-sessionHasFeature _obj featureType = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let featureType' = gtypeToCGType featureType-    result <- soup_session_has_feature _obj' featureType'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SessionHasFeatureMethodInfo-instance (signature ~ (GType -> m Bool), MonadIO m, SessionK a) => MethodInfo SessionHasFeatureMethodInfo a signature where-    overloadedMethod _ = sessionHasFeature---- method Session::pause_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_session_pause_message" soup_session_pause_message :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO ()---sessionPauseMessage ::-    (MonadIO m, SessionK a, MessageK b) =>-    a                                       -- _obj-    -> b                                    -- msg-    -> m ()                                 -- result-sessionPauseMessage _obj msg = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    soup_session_pause_message _obj' msg'-    touchManagedPtr _obj-    touchManagedPtr msg-    return ()--data SessionPauseMessageMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, SessionK a, MessageK b) => MethodInfo SessionPauseMessageMethodInfo a signature where-    overloadedMethod _ = sessionPauseMessage---- method Session::prefetch_dns--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Soup" "AddressCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_session_prefetch_dns" soup_session_prefetch_dns :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    CString ->                              -- hostname : TBasicType TUTF8-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr AddressCallbackC ->              -- callback : TInterface "Soup" "AddressCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---sessionPrefetchDns ::-    (MonadIO m, SessionK a, Gio.CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- hostname-    -> Maybe (b)                            -- cancellable-    -> Maybe (AddressCallback)              -- callback-    -> m ()                                 -- result-sessionPrefetchDns _obj hostname cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    hostname' <- textToCString hostname-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr AddressCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkAddressCallback (addressCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    soup_session_prefetch_dns _obj' hostname' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem hostname'-    return ()--data SessionPrefetchDnsMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> Maybe (AddressCallback) -> m ()), MonadIO m, SessionK a, Gio.CancellableK b) => MethodInfo SessionPrefetchDnsMethodInfo a signature where-    overloadedMethod _ = sessionPrefetchDns---- method Session::prepare_for_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_session_prepare_for_uri" soup_session_prepare_for_uri :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr URI ->                              -- uri : TInterface "Soup" "URI"-    IO ()--{-# DEPRECATED sessionPrepareForUri ["(Since version 2.38)","use soup_session_prefetch_dns() instead"]#-}-sessionPrepareForUri ::-    (MonadIO m, SessionK a) =>-    a                                       -- _obj-    -> URI                                  -- uri-    -> m ()                                 -- result-sessionPrepareForUri _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let uri' = unsafeManagedPtrGetPtr uri-    soup_session_prepare_for_uri _obj' uri'-    touchManagedPtr _obj-    touchManagedPtr uri-    return ()--data SessionPrepareForUriMethodInfo-instance (signature ~ (URI -> m ()), MonadIO m, SessionK a) => MethodInfo SessionPrepareForUriMethodInfo a signature where-    overloadedMethod _ = sessionPrepareForUri---- method Session::queue_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "callback", argType = TInterface "Soup" "SessionCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_session_queue_message" soup_session_queue_message :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    FunPtr SessionCallbackC ->              -- callback : TInterface "Soup" "SessionCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---sessionQueueMessage ::-    (MonadIO m, SessionK a, MessageK b) =>-    a                                       -- _obj-    -> b                                    -- msg-    -> Maybe (SessionCallback)              -- callback-    -> m ()                                 -- result-sessionQueueMessage _obj msg callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    msg' <- refObject msg-    ptrcallback <- callocMem :: IO (Ptr (FunPtr SessionCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- mkSessionCallback (sessionCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    soup_session_queue_message _obj' msg' maybeCallback userData-    touchManagedPtr _obj-    touchManagedPtr msg-    return ()--data SessionQueueMessageMethodInfo-instance (signature ~ (b -> Maybe (SessionCallback) -> m ()), MonadIO m, SessionK a, MessageK b) => MethodInfo SessionQueueMessageMethodInfo a signature where-    overloadedMethod _ = sessionQueueMessage---- method Session::redirect_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_session_redirect_message" soup_session_redirect_message :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO CInt---sessionRedirectMessage ::-    (MonadIO m, SessionK a, MessageK b) =>-    a                                       -- _obj-    -> b                                    -- msg-    -> m Bool                               -- result-sessionRedirectMessage _obj msg = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    result <- soup_session_redirect_message _obj' msg'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr msg-    return result'--data SessionRedirectMessageMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, SessionK a, MessageK b) => MethodInfo SessionRedirectMessageMethodInfo a signature where-    overloadedMethod _ = sessionRedirectMessage---- method Session::remove_feature--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature", argType = TInterface "Soup" "SessionFeature", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_session_remove_feature" soup_session_remove_feature :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr SessionFeature ->                   -- feature : TInterface "Soup" "SessionFeature"-    IO ()---sessionRemoveFeature ::-    (MonadIO m, SessionK a, SessionFeatureK b) =>-    a                                       -- _obj-    -> b                                    -- feature-    -> m ()                                 -- result-sessionRemoveFeature _obj feature = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let feature' = unsafeManagedPtrCastPtr feature-    soup_session_remove_feature _obj' feature'-    touchManagedPtr _obj-    touchManagedPtr feature-    return ()--data SessionRemoveFeatureMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, SessionK a, SessionFeatureK b) => MethodInfo SessionRemoveFeatureMethodInfo a signature where-    overloadedMethod _ = sessionRemoveFeature---- method Session::remove_feature_by_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_session_remove_feature_by_type" soup_session_remove_feature_by_type :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    CGType ->                               -- feature_type : TBasicType TGType-    IO ()---sessionRemoveFeatureByType ::-    (MonadIO m, SessionK a) =>-    a                                       -- _obj-    -> GType                                -- featureType-    -> m ()                                 -- result-sessionRemoveFeatureByType _obj featureType = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let featureType' = gtypeToCGType featureType-    soup_session_remove_feature_by_type _obj' featureType'-    touchManagedPtr _obj-    return ()--data SessionRemoveFeatureByTypeMethodInfo-instance (signature ~ (GType -> m ()), MonadIO m, SessionK a) => MethodInfo SessionRemoveFeatureByTypeMethodInfo a signature where-    overloadedMethod _ = sessionRemoveFeatureByType---- method Session::request--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Request")--- throws : True--- Skip return : False--foreign import ccall "soup_session_request" soup_session_request :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    CString ->                              -- uri_string : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Request)---sessionRequest ::-    (MonadIO m, SessionK a) =>-    a                                       -- _obj-    -> T.Text                               -- uriString-    -> m Request                            -- result-sessionRequest _obj uriString = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    uriString' <- textToCString uriString-    onException (do-        result <- propagateGError $ soup_session_request _obj' uriString'-        checkUnexpectedReturnNULL "soup_session_request" result-        result' <- (wrapObject Request) result-        touchManagedPtr _obj-        freeMem uriString'-        return result'-     ) (do-        freeMem uriString'-     )--data SessionRequestMethodInfo-instance (signature ~ (T.Text -> m Request), MonadIO m, SessionK a) => MethodInfo SessionRequestMethodInfo a signature where-    overloadedMethod _ = sessionRequest---- method Session::request_http--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "RequestHTTP")--- throws : True--- Skip return : False--foreign import ccall "soup_session_request_http" soup_session_request_http :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    CString ->                              -- method : TBasicType TUTF8-    CString ->                              -- uri_string : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr RequestHTTP)---sessionRequestHttp ::-    (MonadIO m, SessionK a) =>-    a                                       -- _obj-    -> T.Text                               -- method-    -> T.Text                               -- uriString-    -> m RequestHTTP                        -- result-sessionRequestHttp _obj method uriString = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    method' <- textToCString method-    uriString' <- textToCString uriString-    onException (do-        result <- propagateGError $ soup_session_request_http _obj' method' uriString'-        checkUnexpectedReturnNULL "soup_session_request_http" result-        result' <- (wrapObject RequestHTTP) result-        touchManagedPtr _obj-        freeMem method'-        freeMem uriString'-        return result'-     ) (do-        freeMem method'-        freeMem uriString'-     )--data SessionRequestHttpMethodInfo-instance (signature ~ (T.Text -> T.Text -> m RequestHTTP), MonadIO m, SessionK a) => MethodInfo SessionRequestHttpMethodInfo a signature where-    overloadedMethod _ = sessionRequestHttp---- method Session::request_http_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "RequestHTTP")--- throws : True--- Skip return : False--foreign import ccall "soup_session_request_http_uri" soup_session_request_http_uri :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    CString ->                              -- method : TBasicType TUTF8-    Ptr URI ->                              -- uri : TInterface "Soup" "URI"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr RequestHTTP)---sessionRequestHttpUri ::-    (MonadIO m, SessionK a) =>-    a                                       -- _obj-    -> T.Text                               -- method-    -> URI                                  -- uri-    -> m RequestHTTP                        -- result-sessionRequestHttpUri _obj method uri = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    method' <- textToCString method-    let uri' = unsafeManagedPtrGetPtr uri-    onException (do-        result <- propagateGError $ soup_session_request_http_uri _obj' method' uri'-        checkUnexpectedReturnNULL "soup_session_request_http_uri" result-        result' <- (wrapObject RequestHTTP) result-        touchManagedPtr _obj-        touchManagedPtr uri-        freeMem method'-        return result'-     ) (do-        freeMem method'-     )--data SessionRequestHttpUriMethodInfo-instance (signature ~ (T.Text -> URI -> m RequestHTTP), MonadIO m, SessionK a) => MethodInfo SessionRequestHttpUriMethodInfo a signature where-    overloadedMethod _ = sessionRequestHttpUri---- method Session::request_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Request")--- throws : True--- Skip return : False--foreign import ccall "soup_session_request_uri" soup_session_request_uri :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr URI ->                              -- uri : TInterface "Soup" "URI"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Request)---sessionRequestUri ::-    (MonadIO m, SessionK a) =>-    a                                       -- _obj-    -> URI                                  -- uri-    -> m Request                            -- result-sessionRequestUri _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let uri' = unsafeManagedPtrGetPtr uri-    onException (do-        result <- propagateGError $ soup_session_request_uri _obj' uri'-        checkUnexpectedReturnNULL "soup_session_request_uri" result-        result' <- (wrapObject Request) result-        touchManagedPtr _obj-        touchManagedPtr uri-        return result'-     ) (do-        return ()-     )--data SessionRequestUriMethodInfo-instance (signature ~ (URI -> m Request), MonadIO m, SessionK a) => MethodInfo SessionRequestUriMethodInfo a signature where-    overloadedMethod _ = sessionRequestUri---- method Session::requeue_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_session_requeue_message" soup_session_requeue_message :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO ()---sessionRequeueMessage ::-    (MonadIO m, SessionK a, MessageK b) =>-    a                                       -- _obj-    -> b                                    -- msg-    -> m ()                                 -- result-sessionRequeueMessage _obj msg = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    soup_session_requeue_message _obj' msg'-    touchManagedPtr _obj-    touchManagedPtr msg-    return ()--data SessionRequeueMessageMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, SessionK a, MessageK b) => MethodInfo SessionRequeueMessageMethodInfo a signature where-    overloadedMethod _ = sessionRequeueMessage---- method Session::send--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "InputStream")--- throws : True--- Skip return : False--foreign import ccall "soup_session_send" soup_session_send :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.InputStream)---sessionSend ::-    (MonadIO m, SessionK a, MessageK b, Gio.CancellableK c) =>-    a                                       -- _obj-    -> b                                    -- msg-    -> Maybe (c)                            -- cancellable-    -> m Gio.InputStream                    -- result-sessionSend _obj msg cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ soup_session_send _obj' msg' maybeCancellable-        checkUnexpectedReturnNULL "soup_session_send" result-        result' <- (wrapObject Gio.InputStream) result-        touchManagedPtr _obj-        touchManagedPtr msg-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--data SessionSendMethodInfo-instance (signature ~ (b -> Maybe (c) -> m Gio.InputStream), MonadIO m, SessionK a, MessageK b, Gio.CancellableK c) => MethodInfo SessionSendMethodInfo a signature where-    overloadedMethod _ = sessionSend---- method Session::send_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_session_send_async" soup_session_send_async :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---sessionSendAsync ::-    (MonadIO m, SessionK a, MessageK b, Gio.CancellableK c) =>-    a                                       -- _obj-    -> b                                    -- msg-    -> Maybe (c)                            -- cancellable-    -> Maybe (Gio.AsyncReadyCallback)       -- callback-    -> m ()                                 -- result-sessionSendAsync _obj msg cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    soup_session_send_async _obj' msg' maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    touchManagedPtr msg-    whenJust cancellable touchManagedPtr-    return ()--data SessionSendAsyncMethodInfo-instance (signature ~ (b -> Maybe (c) -> Maybe (Gio.AsyncReadyCallback) -> m ()), MonadIO m, SessionK a, MessageK b, Gio.CancellableK c) => MethodInfo SessionSendAsyncMethodInfo a signature where-    overloadedMethod _ = sessionSendAsync---- method Session::send_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "InputStream")--- throws : True--- Skip return : False--foreign import ccall "soup_session_send_finish" soup_session_send_finish :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.InputStream)---sessionSendFinish ::-    (MonadIO m, SessionK a, Gio.AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m Gio.InputStream                    -- result-sessionSendFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ soup_session_send_finish _obj' result_'-        checkUnexpectedReturnNULL "soup_session_send_finish" result-        result' <- (wrapObject Gio.InputStream) result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--data SessionSendFinishMethodInfo-instance (signature ~ (b -> m Gio.InputStream), MonadIO m, SessionK a, Gio.AsyncResultK b) => MethodInfo SessionSendFinishMethodInfo a signature where-    overloadedMethod _ = sessionSendFinish---- method Session::send_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "soup_session_send_message" soup_session_send_message :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO Word32---sessionSendMessage ::-    (MonadIO m, SessionK a, MessageK b) =>-    a                                       -- _obj-    -> b                                    -- msg-    -> m Word32                             -- result-sessionSendMessage _obj msg = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    result <- soup_session_send_message _obj' msg'-    touchManagedPtr _obj-    touchManagedPtr msg-    return result--data SessionSendMessageMethodInfo-instance (signature ~ (b -> m Word32), MonadIO m, SessionK a, MessageK b) => MethodInfo SessionSendMessageMethodInfo a signature where-    overloadedMethod _ = sessionSendMessage---- method Session::steal_connection--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "IOStream")--- throws : False--- Skip return : False--foreign import ccall "soup_session_steal_connection" soup_session_steal_connection :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO (Ptr Gio.IOStream)---sessionStealConnection ::-    (MonadIO m, SessionK a, MessageK b) =>-    a                                       -- _obj-    -> b                                    -- msg-    -> m Gio.IOStream                       -- result-sessionStealConnection _obj msg = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    result <- soup_session_steal_connection _obj' msg'-    checkUnexpectedReturnNULL "soup_session_steal_connection" result-    result' <- (wrapObject Gio.IOStream) result-    touchManagedPtr _obj-    touchManagedPtr msg-    return result'--data SessionStealConnectionMethodInfo-instance (signature ~ (b -> m Gio.IOStream), MonadIO m, SessionK a, MessageK b) => MethodInfo SessionStealConnectionMethodInfo a signature where-    overloadedMethod _ = sessionStealConnection---- method Session::unpause_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_session_unpause_message" soup_session_unpause_message :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO ()---sessionUnpauseMessage ::-    (MonadIO m, SessionK a, MessageK b) =>-    a                                       -- _obj-    -> b                                    -- msg-    -> m ()                                 -- result-sessionUnpauseMessage _obj msg = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    soup_session_unpause_message _obj' msg'-    touchManagedPtr _obj-    touchManagedPtr msg-    return ()--data SessionUnpauseMessageMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, SessionK a, MessageK b) => MethodInfo SessionUnpauseMessageMethodInfo a signature where-    overloadedMethod _ = sessionUnpauseMessage---- method Session::websocket_connect_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Gio" "AsyncReadyCallback", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_session_websocket_connect_async" soup_session_websocket_connect_async :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    CString ->                              -- origin : TBasicType TUTF8-    Ptr CString ->                          -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8)-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr Gio.AsyncReadyCallbackC ->       -- callback : TInterface "Gio" "AsyncReadyCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---sessionWebsocketConnectAsync ::-    (MonadIO m, SessionK a, MessageK b, Gio.CancellableK c) =>-    a                                       -- _obj-    -> b                                    -- msg-    -> Maybe (T.Text)                       -- origin-    -> Maybe ([T.Text])                     -- protocols-    -> Maybe (c)                            -- cancellable-    -> Maybe (Gio.AsyncReadyCallback)       -- callback-    -> m ()                                 -- result-sessionWebsocketConnectAsync _obj msg origin protocols cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let 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-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.AsyncReadyCallbackC))-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            jCallback' <- Gio.mkAsyncReadyCallback (Gio.asyncReadyCallbackWrapper (Just ptrcallback) jCallback)-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    soup_session_websocket_connect_async _obj' msg' maybeOrigin maybeProtocols maybeCancellable maybeCallback userData-    touchManagedPtr _obj-    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.AsyncReadyCallback) -> m ()), MonadIO m, SessionK a, MessageK b, Gio.CancellableK c) => MethodInfo SessionWebsocketConnectAsyncMethodInfo a signature where-    overloadedMethod _ = sessionWebsocketConnectAsync---- method Session::websocket_connect_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface "Gio" "AsyncResult", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "WebsocketConnection")--- throws : True--- Skip return : False--foreign import ccall "soup_session_websocket_connect_finish" soup_session_websocket_connect_finish :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr Gio.AsyncResult ->                  -- result : TInterface "Gio" "AsyncResult"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr WebsocketConnection)---sessionWebsocketConnectFinish ::-    (MonadIO m, SessionK a, Gio.AsyncResultK b) =>-    a                                       -- _obj-    -> b                                    -- result_-    -> m WebsocketConnection                -- result-sessionWebsocketConnectFinish _obj result_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let result_' = unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ soup_session_websocket_connect_finish _obj' result_'-        checkUnexpectedReturnNULL "soup_session_websocket_connect_finish" result-        result' <- (wrapObject WebsocketConnection) result-        touchManagedPtr _obj-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--data SessionWebsocketConnectFinishMethodInfo-instance (signature ~ (b -> m WebsocketConnection), MonadIO m, SessionK a, Gio.AsyncResultK b) => MethodInfo SessionWebsocketConnectFinishMethodInfo a signature where-    overloadedMethod _ = sessionWebsocketConnectFinish---- method Session::would_redirect--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Session", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface "Soup" "Message", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_session_would_redirect" soup_session_would_redirect :: -    Ptr Session ->                          -- _obj : TInterface "Soup" "Session"-    Ptr Message ->                          -- msg : TInterface "Soup" "Message"-    IO CInt---sessionWouldRedirect ::-    (MonadIO m, SessionK a, MessageK b) =>-    a                                       -- _obj-    -> b                                    -- msg-    -> m Bool                               -- result-sessionWouldRedirect _obj msg = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let msg' = unsafeManagedPtrCastPtr msg-    result <- soup_session_would_redirect _obj' msg'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr msg-    return result'--data SessionWouldRedirectMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, SessionK a, MessageK b) => MethodInfo SessionWouldRedirectMethodInfo a signature where-    overloadedMethod _ = sessionWouldRedirect--
− GI/Soup/Objects/Session.hs-boot 
@@ -1,69 +0,0 @@-module GI.Soup.Objects.Session where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Session = Session (ForeignPtr Session)-instance GObject Session where-class GObject o => SessionK o-instance (GObject o, IsDescendantOf Session o) => SessionK o-data SessionAcceptLanguagePropertyInfo-data SessionAcceptLanguageAutoPropertyInfo-data SessionAsyncContextPropertyInfo-data SessionHttpAliasesPropertyInfo-data SessionHttpsAliasesPropertyInfo-data SessionIdleTimeoutPropertyInfo-data SessionLocalAddressPropertyInfo-data SessionMaxConnsPropertyInfo-data SessionMaxConnsPerHostPropertyInfo-data SessionProxyResolverPropertyInfo-data SessionProxyUriPropertyInfo-data SessionSslCaFilePropertyInfo-data SessionSslStrictPropertyInfo-data SessionSslUseSystemCaFilePropertyInfo-data SessionTimeoutPropertyInfo-data SessionTlsDatabasePropertyInfo-data SessionTlsInteractionPropertyInfo-data SessionUseNtlmPropertyInfo-data SessionUseThreadContextPropertyInfo-data SessionUserAgentPropertyInfo-data SessionAuthenticateSignalInfo-data SessionConnectionCreatedSignalInfo-data SessionRequestQueuedSignalInfo-data SessionRequestStartedSignalInfo-data SessionRequestUnqueuedSignalInfo-data SessionTunnelingSignalInfo-data SessionAbortMethodInfo-data SessionAddFeatureMethodInfo-data SessionAddFeatureByTypeMethodInfo-data SessionCancelMessageMethodInfo-data SessionGetAsyncContextMethodInfo-data SessionGetFeatureMethodInfo-data SessionGetFeatureForMessageMethodInfo-data SessionGetFeaturesMethodInfo-data SessionHasFeatureMethodInfo-data SessionPauseMessageMethodInfo-data SessionPrefetchDnsMethodInfo-data SessionPrepareForUriMethodInfo-data SessionQueueMessageMethodInfo-data SessionRedirectMessageMethodInfo-data SessionRemoveFeatureMethodInfo-data SessionRemoveFeatureByTypeMethodInfo-data SessionRequestMethodInfo-data SessionRequestHttpMethodInfo-data SessionRequestHttpUriMethodInfo-data SessionRequestUriMethodInfo-data SessionRequeueMessageMethodInfo-data SessionSendMethodInfo-data SessionSendAsyncMethodInfo-data SessionSendFinishMethodInfo-data SessionSendMessageMethodInfo-data SessionStealConnectionMethodInfo-data SessionUnpauseMessageMethodInfo-data SessionWebsocketConnectAsyncMethodInfo-data SessionWebsocketConnectFinishMethodInfo-data SessionWouldRedirectMethodInfo
− GI/Soup/Objects/SessionAsync.hs 
@@ -1,150 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Objects.SessionAsync-    ( ---- * Exported types-    SessionAsync(..)                        ,-    SessionAsyncK                           ,-    toSessionAsync                          ,-    noSessionAsync                          ,--- -- * Methods--- ** sessionAsyncNew-    sessionAsyncNew                         ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GObject as GObject--newtype SessionAsync = SessionAsync (ForeignPtr SessionAsync)-foreign import ccall "soup_session_async_get_type"-    c_soup_session_async_get_type :: IO GType--type instance ParentTypes SessionAsync = SessionAsyncParentTypes-type SessionAsyncParentTypes = '[Session, GObject.Object]--instance GObject SessionAsync where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_session_async_get_type-    --class GObject o => SessionAsyncK o-instance (GObject o, IsDescendantOf SessionAsync o) => SessionAsyncK o--toSessionAsync :: SessionAsyncK o => o -> IO SessionAsync-toSessionAsync = unsafeCastTo SessionAsync--noSessionAsync :: Maybe SessionAsync-noSessionAsync = Nothing--type family ResolveSessionAsyncMethod (t :: Symbol) (o :: *) :: * where-    ResolveSessionAsyncMethod "abort" o = SessionAbortMethodInfo-    ResolveSessionAsyncMethod "addFeature" o = SessionAddFeatureMethodInfo-    ResolveSessionAsyncMethod "addFeatureByType" o = SessionAddFeatureByTypeMethodInfo-    ResolveSessionAsyncMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveSessionAsyncMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveSessionAsyncMethod "cancelMessage" o = SessionCancelMessageMethodInfo-    ResolveSessionAsyncMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveSessionAsyncMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveSessionAsyncMethod "hasFeature" o = SessionHasFeatureMethodInfo-    ResolveSessionAsyncMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveSessionAsyncMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveSessionAsyncMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveSessionAsyncMethod "pauseMessage" o = SessionPauseMessageMethodInfo-    ResolveSessionAsyncMethod "prefetchDns" o = SessionPrefetchDnsMethodInfo-    ResolveSessionAsyncMethod "prepareForUri" o = SessionPrepareForUriMethodInfo-    ResolveSessionAsyncMethod "queueMessage" o = SessionQueueMessageMethodInfo-    ResolveSessionAsyncMethod "redirectMessage" o = SessionRedirectMessageMethodInfo-    ResolveSessionAsyncMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveSessionAsyncMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveSessionAsyncMethod "removeFeature" o = SessionRemoveFeatureMethodInfo-    ResolveSessionAsyncMethod "removeFeatureByType" o = SessionRemoveFeatureByTypeMethodInfo-    ResolveSessionAsyncMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveSessionAsyncMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveSessionAsyncMethod "request" o = SessionRequestMethodInfo-    ResolveSessionAsyncMethod "requestHttp" o = SessionRequestHttpMethodInfo-    ResolveSessionAsyncMethod "requestHttpUri" o = SessionRequestHttpUriMethodInfo-    ResolveSessionAsyncMethod "requestUri" o = SessionRequestUriMethodInfo-    ResolveSessionAsyncMethod "requeueMessage" o = SessionRequeueMessageMethodInfo-    ResolveSessionAsyncMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveSessionAsyncMethod "send" o = SessionSendMethodInfo-    ResolveSessionAsyncMethod "sendAsync" o = SessionSendAsyncMethodInfo-    ResolveSessionAsyncMethod "sendFinish" o = SessionSendFinishMethodInfo-    ResolveSessionAsyncMethod "sendMessage" o = SessionSendMessageMethodInfo-    ResolveSessionAsyncMethod "stealConnection" o = SessionStealConnectionMethodInfo-    ResolveSessionAsyncMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveSessionAsyncMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveSessionAsyncMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveSessionAsyncMethod "unpauseMessage" o = SessionUnpauseMessageMethodInfo-    ResolveSessionAsyncMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveSessionAsyncMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveSessionAsyncMethod "websocketConnectAsync" o = SessionWebsocketConnectAsyncMethodInfo-    ResolveSessionAsyncMethod "websocketConnectFinish" o = SessionWebsocketConnectFinishMethodInfo-    ResolveSessionAsyncMethod "wouldRedirect" o = SessionWouldRedirectMethodInfo-    ResolveSessionAsyncMethod "getAsyncContext" o = SessionGetAsyncContextMethodInfo-    ResolveSessionAsyncMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveSessionAsyncMethod "getFeature" o = SessionGetFeatureMethodInfo-    ResolveSessionAsyncMethod "getFeatureForMessage" o = SessionGetFeatureForMessageMethodInfo-    ResolveSessionAsyncMethod "getFeatures" o = SessionGetFeaturesMethodInfo-    ResolveSessionAsyncMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveSessionAsyncMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveSessionAsyncMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveSessionAsyncMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveSessionAsyncMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveSessionAsyncMethod t SessionAsync, MethodInfo info SessionAsync p) => IsLabelProxy t (SessionAsync -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSessionAsyncMethod t SessionAsync, MethodInfo info SessionAsync p) => IsLabel t (SessionAsync -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList SessionAsync = SessionAsyncAttributeList-type SessionAsyncAttributeList = ('[ '("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, *)])--type instance SignalList SessionAsync = SessionAsyncSignalList-type SessionAsyncSignalList = ('[ '("authenticate", SessionAuthenticateSignalInfo), '("connectionCreated", SessionConnectionCreatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("requestQueued", SessionRequestQueuedSignalInfo), '("requestStarted", SessionRequestStartedSignalInfo), '("requestUnqueued", SessionRequestUnqueuedSignalInfo), '("tunneling", SessionTunnelingSignalInfo)] :: [(Symbol, *)])---- method SessionAsync::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Soup" "SessionAsync")--- throws : False--- Skip return : False--foreign import ccall "soup_session_async_new" soup_session_async_new :: -    IO (Ptr SessionAsync)--{-# DEPRECATED sessionAsyncNew ["#SoupSessionAsync is deprecated; use a plain","#SoupSession, created with soup_session_new(). See the <link","linkend=\"libsoup-session-porting\">porting guide</link>."]#-}-sessionAsyncNew ::-    (MonadIO m) =>-    m SessionAsync                          -- result-sessionAsyncNew  = liftIO $ do-    result <- soup_session_async_new-    checkUnexpectedReturnNULL "soup_session_async_new" result-    result' <- (wrapObject SessionAsync) result-    return result'--
− GI/Soup/Objects/SessionAsync.hs-boot 
@@ -1,13 +0,0 @@-module GI.Soup.Objects.SessionAsync where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype SessionAsync = SessionAsync (ForeignPtr SessionAsync)-instance GObject SessionAsync where-class GObject o => SessionAsyncK o-instance (GObject o, IsDescendantOf SessionAsync o) => SessionAsyncK o
− GI/Soup/Objects/SessionSync.hs 
@@ -1,150 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Objects.SessionSync-    ( ---- * Exported types-    SessionSync(..)                         ,-    SessionSyncK                            ,-    toSessionSync                           ,-    noSessionSync                           ,--- -- * Methods--- ** sessionSyncNew-    sessionSyncNew                          ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GObject as GObject--newtype SessionSync = SessionSync (ForeignPtr SessionSync)-foreign import ccall "soup_session_sync_get_type"-    c_soup_session_sync_get_type :: IO GType--type instance ParentTypes SessionSync = SessionSyncParentTypes-type SessionSyncParentTypes = '[Session, GObject.Object]--instance GObject SessionSync where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_session_sync_get_type-    --class GObject o => SessionSyncK o-instance (GObject o, IsDescendantOf SessionSync o) => SessionSyncK o--toSessionSync :: SessionSyncK o => o -> IO SessionSync-toSessionSync = unsafeCastTo SessionSync--noSessionSync :: Maybe SessionSync-noSessionSync = Nothing--type family ResolveSessionSyncMethod (t :: Symbol) (o :: *) :: * where-    ResolveSessionSyncMethod "abort" o = SessionAbortMethodInfo-    ResolveSessionSyncMethod "addFeature" o = SessionAddFeatureMethodInfo-    ResolveSessionSyncMethod "addFeatureByType" o = SessionAddFeatureByTypeMethodInfo-    ResolveSessionSyncMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveSessionSyncMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveSessionSyncMethod "cancelMessage" o = SessionCancelMessageMethodInfo-    ResolveSessionSyncMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveSessionSyncMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveSessionSyncMethod "hasFeature" o = SessionHasFeatureMethodInfo-    ResolveSessionSyncMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveSessionSyncMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveSessionSyncMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveSessionSyncMethod "pauseMessage" o = SessionPauseMessageMethodInfo-    ResolveSessionSyncMethod "prefetchDns" o = SessionPrefetchDnsMethodInfo-    ResolveSessionSyncMethod "prepareForUri" o = SessionPrepareForUriMethodInfo-    ResolveSessionSyncMethod "queueMessage" o = SessionQueueMessageMethodInfo-    ResolveSessionSyncMethod "redirectMessage" o = SessionRedirectMessageMethodInfo-    ResolveSessionSyncMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveSessionSyncMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveSessionSyncMethod "removeFeature" o = SessionRemoveFeatureMethodInfo-    ResolveSessionSyncMethod "removeFeatureByType" o = SessionRemoveFeatureByTypeMethodInfo-    ResolveSessionSyncMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveSessionSyncMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveSessionSyncMethod "request" o = SessionRequestMethodInfo-    ResolveSessionSyncMethod "requestHttp" o = SessionRequestHttpMethodInfo-    ResolveSessionSyncMethod "requestHttpUri" o = SessionRequestHttpUriMethodInfo-    ResolveSessionSyncMethod "requestUri" o = SessionRequestUriMethodInfo-    ResolveSessionSyncMethod "requeueMessage" o = SessionRequeueMessageMethodInfo-    ResolveSessionSyncMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveSessionSyncMethod "send" o = SessionSendMethodInfo-    ResolveSessionSyncMethod "sendAsync" o = SessionSendAsyncMethodInfo-    ResolveSessionSyncMethod "sendFinish" o = SessionSendFinishMethodInfo-    ResolveSessionSyncMethod "sendMessage" o = SessionSendMessageMethodInfo-    ResolveSessionSyncMethod "stealConnection" o = SessionStealConnectionMethodInfo-    ResolveSessionSyncMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveSessionSyncMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveSessionSyncMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveSessionSyncMethod "unpauseMessage" o = SessionUnpauseMessageMethodInfo-    ResolveSessionSyncMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveSessionSyncMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveSessionSyncMethod "websocketConnectAsync" o = SessionWebsocketConnectAsyncMethodInfo-    ResolveSessionSyncMethod "websocketConnectFinish" o = SessionWebsocketConnectFinishMethodInfo-    ResolveSessionSyncMethod "wouldRedirect" o = SessionWouldRedirectMethodInfo-    ResolveSessionSyncMethod "getAsyncContext" o = SessionGetAsyncContextMethodInfo-    ResolveSessionSyncMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveSessionSyncMethod "getFeature" o = SessionGetFeatureMethodInfo-    ResolveSessionSyncMethod "getFeatureForMessage" o = SessionGetFeatureForMessageMethodInfo-    ResolveSessionSyncMethod "getFeatures" o = SessionGetFeaturesMethodInfo-    ResolveSessionSyncMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveSessionSyncMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveSessionSyncMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveSessionSyncMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveSessionSyncMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveSessionSyncMethod t SessionSync, MethodInfo info SessionSync p) => IsLabelProxy t (SessionSync -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSessionSyncMethod t SessionSync, MethodInfo info SessionSync p) => IsLabel t (SessionSync -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList SessionSync = SessionSyncAttributeList-type SessionSyncAttributeList = ('[ '("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, *)])--type instance SignalList SessionSync = SessionSyncSignalList-type SessionSyncSignalList = ('[ '("authenticate", SessionAuthenticateSignalInfo), '("connectionCreated", SessionConnectionCreatedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("requestQueued", SessionRequestQueuedSignalInfo), '("requestStarted", SessionRequestStartedSignalInfo), '("requestUnqueued", SessionRequestUnqueuedSignalInfo), '("tunneling", SessionTunnelingSignalInfo)] :: [(Symbol, *)])---- method SessionSync::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Soup" "SessionSync")--- throws : False--- Skip return : False--foreign import ccall "soup_session_sync_new" soup_session_sync_new :: -    IO (Ptr SessionSync)--{-# DEPRECATED sessionSyncNew ["#SoupSessionSync is deprecated; use a plain","#SoupSession, created with soup_session_new(). See the <link","linkend=\"libsoup-session-porting\">porting guide</link>."]#-}-sessionSyncNew ::-    (MonadIO m) =>-    m SessionSync                           -- result-sessionSyncNew  = liftIO $ do-    result <- soup_session_sync_new-    checkUnexpectedReturnNULL "soup_session_sync_new" result-    result' <- (wrapObject SessionSync) result-    return result'--
− GI/Soup/Objects/SessionSync.hs-boot 
@@ -1,13 +0,0 @@-module GI.Soup.Objects.SessionSync where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype SessionSync = SessionSync (ForeignPtr SessionSync)-instance GObject SessionSync where-class GObject o => SessionSyncK o-instance (GObject o, IsDescendantOf SessionSync o) => SessionSyncK o
− GI/Soup/Objects/Socket.hs 
@@ -1,1539 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Objects.Socket-    ( ---- * Exported types-    Socket(..)                              ,-    SocketK                                 ,-    toSocket                                ,-    noSocket                                ,--- -- * Methods--- ** socketConnectAsync-    SocketConnectAsyncMethodInfo            ,-    socketConnectAsync                      ,----- ** socketConnectSync-    SocketConnectSyncMethodInfo             ,-    socketConnectSync                       ,----- ** socketDisconnect-    SocketDisconnectMethodInfo              ,-    socketDisconnect                        ,----- ** socketGetFd-    SocketGetFdMethodInfo                   ,-    socketGetFd                             ,----- ** socketGetLocalAddress-    SocketGetLocalAddressMethodInfo         ,-    socketGetLocalAddress                   ,----- ** socketGetRemoteAddress-    SocketGetRemoteAddressMethodInfo        ,-    socketGetRemoteAddress                  ,----- ** socketIsConnected-    SocketIsConnectedMethodInfo             ,-    socketIsConnected                       ,----- ** socketIsSsl-    SocketIsSslMethodInfo                   ,-    socketIsSsl                             ,----- ** socketListen-    SocketListenMethodInfo                  ,-    socketListen                            ,----- ** socketRead-    SocketReadMethodInfo                    ,-    socketRead                              ,----- ** socketReadUntil-    SocketReadUntilMethodInfo               ,-    socketReadUntil                         ,----- ** socketStartProxySsl-    SocketStartProxySslMethodInfo           ,-    socketStartProxySsl                     ,----- ** socketStartSsl-    SocketStartSslMethodInfo                ,-    socketStartSsl                          ,----- ** socketWrite-    SocketWriteMethodInfo                   ,-    socketWrite                             ,----- -- * Properties--- ** AsyncContext-    SocketAsyncContextPropertyInfo          ,-    constructSocketAsyncContext             ,-    getSocketAsyncContext                   ,-    socketAsyncContext                      ,----- ** Fd-    SocketFdPropertyInfo                    ,-    constructSocketFd                       ,-    getSocketFd                             ,-    socketFd                                ,----- ** Gsocket-    SocketGsocketPropertyInfo               ,-    constructSocketGsocket                  ,-    socketGsocket                           ,----- ** Iostream-    SocketIostreamPropertyInfo              ,-    constructSocketIostream                 ,-    socketIostream                          ,----- ** Ipv6Only-    SocketIpv6OnlyPropertyInfo              ,-    constructSocketIpv6Only                 ,-    getSocketIpv6Only                       ,-    setSocketIpv6Only                       ,-    socketIpv6Only                          ,----- ** IsServer-    SocketIsServerPropertyInfo              ,-    getSocketIsServer                       ,-    socketIsServer                          ,----- ** LocalAddress-    SocketLocalAddressPropertyInfo          ,-    constructSocketLocalAddress             ,-    getSocketLocalAddress                   ,-    socketLocalAddress                      ,----- ** NonBlocking-    SocketNonBlockingPropertyInfo           ,-    constructSocketNonBlocking              ,-    getSocketNonBlocking                    ,-    setSocketNonBlocking                    ,-    socketNonBlocking                       ,----- ** RemoteAddress-    SocketRemoteAddressPropertyInfo         ,-    constructSocketRemoteAddress            ,-    getSocketRemoteAddress                  ,-    socketRemoteAddress                     ,----- ** SslCreds-    SocketSslCredsPropertyInfo              ,-    constructSocketSslCreds                 ,-    getSocketSslCreds                       ,-    setSocketSslCreds                       ,-    socketSslCreds                          ,----- ** SslFallback-    SocketSslFallbackPropertyInfo           ,-    constructSocketSslFallback              ,-    getSocketSslFallback                    ,-    socketSslFallback                       ,----- ** SslStrict-    SocketSslStrictPropertyInfo             ,-    constructSocketSslStrict                ,-    getSocketSslStrict                      ,-    socketSslStrict                         ,----- ** Timeout-    SocketTimeoutPropertyInfo               ,-    constructSocketTimeout                  ,-    getSocketTimeout                        ,-    setSocketTimeout                        ,-    socketTimeout                           ,----- ** TlsCertificate-    SocketTlsCertificatePropertyInfo        ,-    getSocketTlsCertificate                 ,-    socketTlsCertificate                    ,----- ** TlsErrors-    SocketTlsErrorsPropertyInfo             ,-    getSocketTlsErrors                      ,-    socketTlsErrors                         ,----- ** TrustedCertificate-    SocketTrustedCertificatePropertyInfo    ,-    getSocketTrustedCertificate             ,-    socketTrustedCertificate                ,----- ** UseThreadContext-    SocketUseThreadContextPropertyInfo      ,-    constructSocketUseThreadContext         ,-    getSocketUseThreadContext               ,-    socketUseThreadContext                  ,----- -- * Signals--- ** Disconnected-    SocketDisconnectedCallback              ,-    SocketDisconnectedCallbackC             ,-    SocketDisconnectedSignalInfo            ,-    afterSocketDisconnected                 ,-    mkSocketDisconnectedCallback            ,-    noSocketDisconnectedCallback            ,-    onSocketDisconnected                    ,-    socketDisconnectedCallbackWrapper       ,-    socketDisconnectedClosure               ,----- ** Event-    SocketEventCallback                     ,-    SocketEventCallbackC                    ,-    SocketEventSignalInfo                   ,-    afterSocketEvent                        ,-    mkSocketEventCallback                   ,-    noSocketEventCallback                   ,-    onSocketEvent                           ,-    socketEventCallbackWrapper              ,-    socketEventClosure                      ,----- ** NewConnection-    SocketNewConnectionCallback             ,-    SocketNewConnectionCallbackC            ,-    SocketNewConnectionSignalInfo           ,-    afterSocketNewConnection                ,-    mkSocketNewConnectionCallback           ,-    noSocketNewConnectionCallback           ,-    onSocketNewConnection                   ,-    socketNewConnectionCallbackWrapper      ,-    socketNewConnectionClosure              ,----- ** Readable-    SocketReadableCallback                  ,-    SocketReadableCallbackC                 ,-    SocketReadableSignalInfo                ,-    afterSocketReadable                     ,-    mkSocketReadableCallback                ,-    noSocketReadableCallback                ,-    onSocketReadable                        ,-    socketReadableCallbackWrapper           ,-    socketReadableClosure                   ,----- ** Writable-    SocketWritableCallback                  ,-    SocketWritableCallbackC                 ,-    SocketWritableSignalInfo                ,-    afterSocketWritable                     ,-    mkSocketWritableCallback                ,-    noSocketWritableCallback                ,-    onSocketWritable                        ,-    socketWritableCallbackWrapper           ,-    socketWritableClosure                   ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GObject as GObject-import qualified GI.Gio as Gio--newtype Socket = Socket (ForeignPtr Socket)-foreign import ccall "soup_socket_get_type"-    c_soup_socket_get_type :: IO GType--type instance ParentTypes Socket = SocketParentTypes-type SocketParentTypes = '[GObject.Object, Gio.Initable]--instance GObject Socket where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_socket_get_type-    --class GObject o => SocketK o-instance (GObject o, IsDescendantOf Socket o) => SocketK o--toSocket :: SocketK o => o -> IO Socket-toSocket = unsafeCastTo Socket--noSocket :: Maybe Socket-noSocket = Nothing--type family ResolveSocketMethod (t :: Symbol) (o :: *) :: * where-    ResolveSocketMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveSocketMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveSocketMethod "connectAsync" o = SocketConnectAsyncMethodInfo-    ResolveSocketMethod "connectSync" o = SocketConnectSyncMethodInfo-    ResolveSocketMethod "disconnect" o = SocketDisconnectMethodInfo-    ResolveSocketMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveSocketMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveSocketMethod "init" o = Gio.InitableInitMethodInfo-    ResolveSocketMethod "isConnected" o = SocketIsConnectedMethodInfo-    ResolveSocketMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveSocketMethod "isSsl" o = SocketIsSslMethodInfo-    ResolveSocketMethod "listen" o = SocketListenMethodInfo-    ResolveSocketMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveSocketMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveSocketMethod "read" o = SocketReadMethodInfo-    ResolveSocketMethod "readUntil" o = SocketReadUntilMethodInfo-    ResolveSocketMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveSocketMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveSocketMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveSocketMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveSocketMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveSocketMethod "startProxySsl" o = SocketStartProxySslMethodInfo-    ResolveSocketMethod "startSsl" o = SocketStartSslMethodInfo-    ResolveSocketMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveSocketMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveSocketMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveSocketMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveSocketMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveSocketMethod "write" o = SocketWriteMethodInfo-    ResolveSocketMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveSocketMethod "getFd" o = SocketGetFdMethodInfo-    ResolveSocketMethod "getLocalAddress" o = SocketGetLocalAddressMethodInfo-    ResolveSocketMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveSocketMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveSocketMethod "getRemoteAddress" o = SocketGetRemoteAddressMethodInfo-    ResolveSocketMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveSocketMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveSocketMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveSocketMethod t Socket, MethodInfo info Socket p) => IsLabelProxy t (Socket -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveSocketMethod t Socket, MethodInfo info Socket p) => IsLabel t (Socket -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal Socket::disconnected-type SocketDisconnectedCallback =-    IO ()--noSocketDisconnectedCallback :: Maybe SocketDisconnectedCallback-noSocketDisconnectedCallback = Nothing--type SocketDisconnectedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkSocketDisconnectedCallback :: SocketDisconnectedCallbackC -> IO (FunPtr SocketDisconnectedCallbackC)--socketDisconnectedClosure :: SocketDisconnectedCallback -> IO Closure-socketDisconnectedClosure cb = newCClosure =<< mkSocketDisconnectedCallback wrapped-    where wrapped = socketDisconnectedCallbackWrapper cb--socketDisconnectedCallbackWrapper ::-    SocketDisconnectedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-socketDisconnectedCallbackWrapper _cb _ _ = do-    _cb --onSocketDisconnected :: (GObject a, MonadIO m) => a -> SocketDisconnectedCallback -> m SignalHandlerId-onSocketDisconnected obj cb = liftIO $ connectSocketDisconnected obj cb SignalConnectBefore-afterSocketDisconnected :: (GObject a, MonadIO m) => a -> SocketDisconnectedCallback -> m SignalHandlerId-afterSocketDisconnected obj cb = connectSocketDisconnected obj cb SignalConnectAfter--connectSocketDisconnected :: (GObject a, MonadIO m) =>-                             a -> SocketDisconnectedCallback -> SignalConnectMode -> m SignalHandlerId-connectSocketDisconnected obj cb after = liftIO $ do-    cb' <- mkSocketDisconnectedCallback (socketDisconnectedCallbackWrapper cb)-    connectSignalFunPtr obj "disconnected" cb' after---- signal Socket::event-type SocketEventCallback =-    Gio.SocketClientEvent ->-    Gio.IOStream ->-    IO ()--noSocketEventCallback :: Maybe SocketEventCallback-noSocketEventCallback = Nothing--type SocketEventCallbackC =-    Ptr () ->                               -- object-    CUInt ->-    Ptr Gio.IOStream ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkSocketEventCallback :: SocketEventCallbackC -> IO (FunPtr SocketEventCallbackC)--socketEventClosure :: SocketEventCallback -> IO Closure-socketEventClosure cb = newCClosure =<< mkSocketEventCallback wrapped-    where wrapped = socketEventCallbackWrapper cb--socketEventCallbackWrapper ::-    SocketEventCallback ->-    Ptr () ->-    CUInt ->-    Ptr Gio.IOStream ->-    Ptr () ->-    IO ()-socketEventCallbackWrapper _cb _ event connection _ = do-    let event' = (toEnum . fromIntegral) event-    connection' <- (newObject Gio.IOStream) connection-    _cb  event' connection'--onSocketEvent :: (GObject a, MonadIO m) => a -> SocketEventCallback -> m SignalHandlerId-onSocketEvent obj cb = liftIO $ connectSocketEvent obj cb SignalConnectBefore-afterSocketEvent :: (GObject a, MonadIO m) => a -> SocketEventCallback -> m SignalHandlerId-afterSocketEvent obj cb = connectSocketEvent obj cb SignalConnectAfter--connectSocketEvent :: (GObject a, MonadIO m) =>-                      a -> SocketEventCallback -> SignalConnectMode -> m SignalHandlerId-connectSocketEvent obj cb after = liftIO $ do-    cb' <- mkSocketEventCallback (socketEventCallbackWrapper cb)-    connectSignalFunPtr obj "event" cb' after---- signal Socket::new-connection-type SocketNewConnectionCallback =-    Socket ->-    IO ()--noSocketNewConnectionCallback :: Maybe SocketNewConnectionCallback-noSocketNewConnectionCallback = Nothing--type SocketNewConnectionCallbackC =-    Ptr () ->                               -- object-    Ptr Socket ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkSocketNewConnectionCallback :: SocketNewConnectionCallbackC -> IO (FunPtr SocketNewConnectionCallbackC)--socketNewConnectionClosure :: SocketNewConnectionCallback -> IO Closure-socketNewConnectionClosure cb = newCClosure =<< mkSocketNewConnectionCallback wrapped-    where wrapped = socketNewConnectionCallbackWrapper cb--socketNewConnectionCallbackWrapper ::-    SocketNewConnectionCallback ->-    Ptr () ->-    Ptr Socket ->-    Ptr () ->-    IO ()-socketNewConnectionCallbackWrapper _cb _ new _ = do-    new' <- (newObject Socket) new-    _cb  new'--onSocketNewConnection :: (GObject a, MonadIO m) => a -> SocketNewConnectionCallback -> m SignalHandlerId-onSocketNewConnection obj cb = liftIO $ connectSocketNewConnection obj cb SignalConnectBefore-afterSocketNewConnection :: (GObject a, MonadIO m) => a -> SocketNewConnectionCallback -> m SignalHandlerId-afterSocketNewConnection obj cb = connectSocketNewConnection obj cb SignalConnectAfter--connectSocketNewConnection :: (GObject a, MonadIO m) =>-                              a -> SocketNewConnectionCallback -> SignalConnectMode -> m SignalHandlerId-connectSocketNewConnection obj cb after = liftIO $ do-    cb' <- mkSocketNewConnectionCallback (socketNewConnectionCallbackWrapper cb)-    connectSignalFunPtr obj "new-connection" cb' after---- signal Socket::readable-type SocketReadableCallback =-    IO ()--noSocketReadableCallback :: Maybe SocketReadableCallback-noSocketReadableCallback = Nothing--type SocketReadableCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkSocketReadableCallback :: SocketReadableCallbackC -> IO (FunPtr SocketReadableCallbackC)--socketReadableClosure :: SocketReadableCallback -> IO Closure-socketReadableClosure cb = newCClosure =<< mkSocketReadableCallback wrapped-    where wrapped = socketReadableCallbackWrapper cb--socketReadableCallbackWrapper ::-    SocketReadableCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-socketReadableCallbackWrapper _cb _ _ = do-    _cb --onSocketReadable :: (GObject a, MonadIO m) => a -> SocketReadableCallback -> m SignalHandlerId-onSocketReadable obj cb = liftIO $ connectSocketReadable obj cb SignalConnectBefore-afterSocketReadable :: (GObject a, MonadIO m) => a -> SocketReadableCallback -> m SignalHandlerId-afterSocketReadable obj cb = connectSocketReadable obj cb SignalConnectAfter--connectSocketReadable :: (GObject a, MonadIO m) =>-                         a -> SocketReadableCallback -> SignalConnectMode -> m SignalHandlerId-connectSocketReadable obj cb after = liftIO $ do-    cb' <- mkSocketReadableCallback (socketReadableCallbackWrapper cb)-    connectSignalFunPtr obj "readable" cb' after---- signal Socket::writable-type SocketWritableCallback =-    IO ()--noSocketWritableCallback :: Maybe SocketWritableCallback-noSocketWritableCallback = Nothing--type SocketWritableCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkSocketWritableCallback :: SocketWritableCallbackC -> IO (FunPtr SocketWritableCallbackC)--socketWritableClosure :: SocketWritableCallback -> IO Closure-socketWritableClosure cb = newCClosure =<< mkSocketWritableCallback wrapped-    where wrapped = socketWritableCallbackWrapper cb--socketWritableCallbackWrapper ::-    SocketWritableCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-socketWritableCallbackWrapper _cb _ _ = do-    _cb --onSocketWritable :: (GObject a, MonadIO m) => a -> SocketWritableCallback -> m SignalHandlerId-onSocketWritable obj cb = liftIO $ connectSocketWritable obj cb SignalConnectBefore-afterSocketWritable :: (GObject a, MonadIO m) => a -> SocketWritableCallback -> m SignalHandlerId-afterSocketWritable obj cb = connectSocketWritable obj cb SignalConnectAfter--connectSocketWritable :: (GObject a, MonadIO m) =>-                         a -> SocketWritableCallback -> SignalConnectMode -> m SignalHandlerId-connectSocketWritable obj cb after = liftIO $ do-    cb' <- mkSocketWritableCallback (socketWritableCallbackWrapper cb)-    connectSignalFunPtr obj "writable" cb' after---- VVV Prop "async-context"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getSocketAsyncContext :: (MonadIO m, SocketK o) => o -> m (Ptr ())-getSocketAsyncContext obj = liftIO $ getObjectPropertyPtr obj "async-context"--constructSocketAsyncContext :: Ptr () -> IO ([Char], GValue)-constructSocketAsyncContext val = constructObjectPropertyPtr "async-context" val--data SocketAsyncContextPropertyInfo-instance AttrInfo SocketAsyncContextPropertyInfo where-    type AttrAllowedOps SocketAsyncContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketAsyncContextPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint SocketAsyncContextPropertyInfo = SocketK-    type AttrGetType SocketAsyncContextPropertyInfo = (Ptr ())-    type AttrLabel SocketAsyncContextPropertyInfo = "async-context"-    attrGet _ = getSocketAsyncContext-    attrSet _ = undefined-    attrConstruct _ = constructSocketAsyncContext-    attrClear _ = undefined---- VVV Prop "fd"-   -- Type: TBasicType TInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getSocketFd :: (MonadIO m, SocketK o) => o -> m Int32-getSocketFd obj = liftIO $ getObjectPropertyInt32 obj "fd"--constructSocketFd :: Int32 -> IO ([Char], GValue)-constructSocketFd val = constructObjectPropertyInt32 "fd" val--data SocketFdPropertyInfo-instance AttrInfo SocketFdPropertyInfo where-    type AttrAllowedOps SocketFdPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketFdPropertyInfo = (~) Int32-    type AttrBaseTypeConstraint SocketFdPropertyInfo = SocketK-    type AttrGetType SocketFdPropertyInfo = Int32-    type AttrLabel SocketFdPropertyInfo = "fd"-    attrGet _ = getSocketFd-    attrSet _ = undefined-    attrConstruct _ = constructSocketFd-    attrClear _ = undefined---- VVV Prop "gsocket"-   -- Type: TInterface "Gio" "Socket"-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--constructSocketGsocket :: (Gio.SocketK a) => a -> IO ([Char], GValue)-constructSocketGsocket val = constructObjectPropertyObject "gsocket" (Just val)--data SocketGsocketPropertyInfo-instance AttrInfo SocketGsocketPropertyInfo where-    type AttrAllowedOps SocketGsocketPropertyInfo = '[ 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint SocketGsocketPropertyInfo = Gio.SocketK-    type AttrBaseTypeConstraint SocketGsocketPropertyInfo = SocketK-    type AttrGetType SocketGsocketPropertyInfo = ()-    type AttrLabel SocketGsocketPropertyInfo = "gsocket"-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructSocketGsocket-    attrClear _ = undefined---- VVV Prop "iostream"-   -- Type: TInterface "Gio" "IOStream"-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--constructSocketIostream :: (Gio.IOStreamK a) => a -> IO ([Char], GValue)-constructSocketIostream val = constructObjectPropertyObject "iostream" (Just val)--data SocketIostreamPropertyInfo-instance AttrInfo SocketIostreamPropertyInfo where-    type AttrAllowedOps SocketIostreamPropertyInfo = '[ 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint SocketIostreamPropertyInfo = Gio.IOStreamK-    type AttrBaseTypeConstraint SocketIostreamPropertyInfo = SocketK-    type AttrGetType SocketIostreamPropertyInfo = ()-    type AttrLabel SocketIostreamPropertyInfo = "iostream"-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructSocketIostream-    attrClear _ = undefined---- VVV Prop "ipv6-only"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getSocketIpv6Only :: (MonadIO m, SocketK o) => o -> m Bool-getSocketIpv6Only obj = liftIO $ getObjectPropertyBool obj "ipv6-only"--setSocketIpv6Only :: (MonadIO m, SocketK o) => o -> Bool -> m ()-setSocketIpv6Only obj val = liftIO $ setObjectPropertyBool obj "ipv6-only" val--constructSocketIpv6Only :: Bool -> IO ([Char], GValue)-constructSocketIpv6Only val = constructObjectPropertyBool "ipv6-only" val--data SocketIpv6OnlyPropertyInfo-instance AttrInfo SocketIpv6OnlyPropertyInfo where-    type AttrAllowedOps SocketIpv6OnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketIpv6OnlyPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SocketIpv6OnlyPropertyInfo = SocketK-    type AttrGetType SocketIpv6OnlyPropertyInfo = Bool-    type AttrLabel SocketIpv6OnlyPropertyInfo = "ipv6-only"-    attrGet _ = getSocketIpv6Only-    attrSet _ = setSocketIpv6Only-    attrConstruct _ = constructSocketIpv6Only-    attrClear _ = undefined---- VVV Prop "is-server"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getSocketIsServer :: (MonadIO m, SocketK o) => o -> m Bool-getSocketIsServer obj = liftIO $ getObjectPropertyBool obj "is-server"--data SocketIsServerPropertyInfo-instance AttrInfo SocketIsServerPropertyInfo where-    type AttrAllowedOps SocketIsServerPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint SocketIsServerPropertyInfo = (~) ()-    type AttrBaseTypeConstraint SocketIsServerPropertyInfo = SocketK-    type AttrGetType SocketIsServerPropertyInfo = Bool-    type AttrLabel SocketIsServerPropertyInfo = "is-server"-    attrGet _ = getSocketIsServer-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "local-address"-   -- Type: TInterface "Soup" "Address"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getSocketLocalAddress :: (MonadIO m, SocketK o) => o -> m Address-getSocketLocalAddress obj = liftIO $ checkUnexpectedNothing "getSocketLocalAddress" $ getObjectPropertyObject obj "local-address" Address--constructSocketLocalAddress :: (AddressK a) => a -> IO ([Char], GValue)-constructSocketLocalAddress val = constructObjectPropertyObject "local-address" (Just val)--data SocketLocalAddressPropertyInfo-instance AttrInfo SocketLocalAddressPropertyInfo where-    type AttrAllowedOps SocketLocalAddressPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SocketLocalAddressPropertyInfo = AddressK-    type AttrBaseTypeConstraint SocketLocalAddressPropertyInfo = SocketK-    type AttrGetType SocketLocalAddressPropertyInfo = Address-    type AttrLabel SocketLocalAddressPropertyInfo = "local-address"-    attrGet _ = getSocketLocalAddress-    attrSet _ = undefined-    attrConstruct _ = constructSocketLocalAddress-    attrClear _ = undefined---- VVV Prop "non-blocking"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getSocketNonBlocking :: (MonadIO m, SocketK o) => o -> m Bool-getSocketNonBlocking obj = liftIO $ getObjectPropertyBool obj "non-blocking"--setSocketNonBlocking :: (MonadIO m, SocketK o) => o -> Bool -> m ()-setSocketNonBlocking obj val = liftIO $ setObjectPropertyBool obj "non-blocking" val--constructSocketNonBlocking :: Bool -> IO ([Char], GValue)-constructSocketNonBlocking val = constructObjectPropertyBool "non-blocking" val--data SocketNonBlockingPropertyInfo-instance AttrInfo SocketNonBlockingPropertyInfo where-    type AttrAllowedOps SocketNonBlockingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketNonBlockingPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SocketNonBlockingPropertyInfo = SocketK-    type AttrGetType SocketNonBlockingPropertyInfo = Bool-    type AttrLabel SocketNonBlockingPropertyInfo = "non-blocking"-    attrGet _ = getSocketNonBlocking-    attrSet _ = setSocketNonBlocking-    attrConstruct _ = constructSocketNonBlocking-    attrClear _ = undefined---- VVV Prop "remote-address"-   -- Type: TInterface "Soup" "Address"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getSocketRemoteAddress :: (MonadIO m, SocketK o) => o -> m Address-getSocketRemoteAddress obj = liftIO $ checkUnexpectedNothing "getSocketRemoteAddress" $ getObjectPropertyObject obj "remote-address" Address--constructSocketRemoteAddress :: (AddressK a) => a -> IO ([Char], GValue)-constructSocketRemoteAddress val = constructObjectPropertyObject "remote-address" (Just val)--data SocketRemoteAddressPropertyInfo-instance AttrInfo SocketRemoteAddressPropertyInfo where-    type AttrAllowedOps SocketRemoteAddressPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SocketRemoteAddressPropertyInfo = AddressK-    type AttrBaseTypeConstraint SocketRemoteAddressPropertyInfo = SocketK-    type AttrGetType SocketRemoteAddressPropertyInfo = Address-    type AttrLabel SocketRemoteAddressPropertyInfo = "remote-address"-    attrGet _ = getSocketRemoteAddress-    attrSet _ = undefined-    attrConstruct _ = constructSocketRemoteAddress-    attrClear _ = undefined---- VVV Prop "ssl-creds"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getSocketSslCreds :: (MonadIO m, SocketK o) => o -> m (Ptr ())-getSocketSslCreds obj = liftIO $ getObjectPropertyPtr obj "ssl-creds"--setSocketSslCreds :: (MonadIO m, SocketK o) => o -> Ptr () -> m ()-setSocketSslCreds obj val = liftIO $ setObjectPropertyPtr obj "ssl-creds" val--constructSocketSslCreds :: Ptr () -> IO ([Char], GValue)-constructSocketSslCreds val = constructObjectPropertyPtr "ssl-creds" val--data SocketSslCredsPropertyInfo-instance AttrInfo SocketSslCredsPropertyInfo where-    type AttrAllowedOps SocketSslCredsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketSslCredsPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint SocketSslCredsPropertyInfo = SocketK-    type AttrGetType SocketSslCredsPropertyInfo = (Ptr ())-    type AttrLabel SocketSslCredsPropertyInfo = "ssl-creds"-    attrGet _ = getSocketSslCreds-    attrSet _ = setSocketSslCreds-    attrConstruct _ = constructSocketSslCreds-    attrClear _ = undefined---- VVV Prop "ssl-fallback"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getSocketSslFallback :: (MonadIO m, SocketK o) => o -> m Bool-getSocketSslFallback obj = liftIO $ getObjectPropertyBool obj "ssl-fallback"--constructSocketSslFallback :: Bool -> IO ([Char], GValue)-constructSocketSslFallback val = constructObjectPropertyBool "ssl-fallback" val--data SocketSslFallbackPropertyInfo-instance AttrInfo SocketSslFallbackPropertyInfo where-    type AttrAllowedOps SocketSslFallbackPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketSslFallbackPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SocketSslFallbackPropertyInfo = SocketK-    type AttrGetType SocketSslFallbackPropertyInfo = Bool-    type AttrLabel SocketSslFallbackPropertyInfo = "ssl-fallback"-    attrGet _ = getSocketSslFallback-    attrSet _ = undefined-    attrConstruct _ = constructSocketSslFallback-    attrClear _ = undefined---- VVV Prop "ssl-strict"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getSocketSslStrict :: (MonadIO m, SocketK o) => o -> m Bool-getSocketSslStrict obj = liftIO $ getObjectPropertyBool obj "ssl-strict"--constructSocketSslStrict :: Bool -> IO ([Char], GValue)-constructSocketSslStrict val = constructObjectPropertyBool "ssl-strict" val--data SocketSslStrictPropertyInfo-instance AttrInfo SocketSslStrictPropertyInfo where-    type AttrAllowedOps SocketSslStrictPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketSslStrictPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SocketSslStrictPropertyInfo = SocketK-    type AttrGetType SocketSslStrictPropertyInfo = Bool-    type AttrLabel SocketSslStrictPropertyInfo = "ssl-strict"-    attrGet _ = getSocketSslStrict-    attrSet _ = undefined-    attrConstruct _ = constructSocketSslStrict-    attrClear _ = undefined---- VVV Prop "timeout"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getSocketTimeout :: (MonadIO m, SocketK o) => o -> m Word32-getSocketTimeout obj = liftIO $ getObjectPropertyUInt32 obj "timeout"--setSocketTimeout :: (MonadIO m, SocketK o) => o -> Word32 -> m ()-setSocketTimeout obj val = liftIO $ setObjectPropertyUInt32 obj "timeout" val--constructSocketTimeout :: Word32 -> IO ([Char], GValue)-constructSocketTimeout val = constructObjectPropertyUInt32 "timeout" val--data SocketTimeoutPropertyInfo-instance AttrInfo SocketTimeoutPropertyInfo where-    type AttrAllowedOps SocketTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketTimeoutPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint SocketTimeoutPropertyInfo = SocketK-    type AttrGetType SocketTimeoutPropertyInfo = Word32-    type AttrLabel SocketTimeoutPropertyInfo = "timeout"-    attrGet _ = getSocketTimeout-    attrSet _ = setSocketTimeout-    attrConstruct _ = constructSocketTimeout-    attrClear _ = undefined---- VVV Prop "tls-certificate"-   -- Type: TInterface "Gio" "TlsCertificate"-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getSocketTlsCertificate :: (MonadIO m, SocketK o) => o -> m (Maybe Gio.TlsCertificate)-getSocketTlsCertificate obj = liftIO $ getObjectPropertyObject obj "tls-certificate" Gio.TlsCertificate--data SocketTlsCertificatePropertyInfo-instance AttrInfo SocketTlsCertificatePropertyInfo where-    type AttrAllowedOps SocketTlsCertificatePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SocketTlsCertificatePropertyInfo = (~) ()-    type AttrBaseTypeConstraint SocketTlsCertificatePropertyInfo = SocketK-    type AttrGetType SocketTlsCertificatePropertyInfo = (Maybe Gio.TlsCertificate)-    type AttrLabel SocketTlsCertificatePropertyInfo = "tls-certificate"-    attrGet _ = getSocketTlsCertificate-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "tls-errors"-   -- Type: TInterface "Gio" "TlsCertificateFlags"-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getSocketTlsErrors :: (MonadIO m, SocketK o) => o -> m [Gio.TlsCertificateFlags]-getSocketTlsErrors obj = liftIO $ getObjectPropertyFlags obj "tls-errors"--data SocketTlsErrorsPropertyInfo-instance AttrInfo SocketTlsErrorsPropertyInfo where-    type AttrAllowedOps SocketTlsErrorsPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint SocketTlsErrorsPropertyInfo = (~) ()-    type AttrBaseTypeConstraint SocketTlsErrorsPropertyInfo = SocketK-    type AttrGetType SocketTlsErrorsPropertyInfo = [Gio.TlsCertificateFlags]-    type AttrLabel SocketTlsErrorsPropertyInfo = "tls-errors"-    attrGet _ = getSocketTlsErrors-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "trusted-certificate"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getSocketTrustedCertificate :: (MonadIO m, SocketK o) => o -> m Bool-getSocketTrustedCertificate obj = liftIO $ getObjectPropertyBool obj "trusted-certificate"--data SocketTrustedCertificatePropertyInfo-instance AttrInfo SocketTrustedCertificatePropertyInfo where-    type AttrAllowedOps SocketTrustedCertificatePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint SocketTrustedCertificatePropertyInfo = (~) ()-    type AttrBaseTypeConstraint SocketTrustedCertificatePropertyInfo = SocketK-    type AttrGetType SocketTrustedCertificatePropertyInfo = Bool-    type AttrLabel SocketTrustedCertificatePropertyInfo = "trusted-certificate"-    attrGet _ = getSocketTrustedCertificate-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "use-thread-context"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getSocketUseThreadContext :: (MonadIO m, SocketK o) => o -> m Bool-getSocketUseThreadContext obj = liftIO $ getObjectPropertyBool obj "use-thread-context"--constructSocketUseThreadContext :: Bool -> IO ([Char], GValue)-constructSocketUseThreadContext val = constructObjectPropertyBool "use-thread-context" val--data SocketUseThreadContextPropertyInfo-instance AttrInfo SocketUseThreadContextPropertyInfo where-    type AttrAllowedOps SocketUseThreadContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketUseThreadContextPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SocketUseThreadContextPropertyInfo = SocketK-    type AttrGetType SocketUseThreadContextPropertyInfo = Bool-    type AttrLabel SocketUseThreadContextPropertyInfo = "use-thread-context"-    attrGet _ = getSocketUseThreadContext-    attrSet _ = undefined-    attrConstruct _ = constructSocketUseThreadContext-    attrClear _ = undefined--type instance AttributeList Socket = SocketAttributeList-type SocketAttributeList = ('[ '("asyncContext", SocketAsyncContextPropertyInfo), '("fd", SocketFdPropertyInfo), '("gsocket", SocketGsocketPropertyInfo), '("iostream", SocketIostreamPropertyInfo), '("ipv6Only", SocketIpv6OnlyPropertyInfo), '("isServer", SocketIsServerPropertyInfo), '("localAddress", SocketLocalAddressPropertyInfo), '("nonBlocking", SocketNonBlockingPropertyInfo), '("remoteAddress", SocketRemoteAddressPropertyInfo), '("sslCreds", SocketSslCredsPropertyInfo), '("sslFallback", SocketSslFallbackPropertyInfo), '("sslStrict", SocketSslStrictPropertyInfo), '("timeout", SocketTimeoutPropertyInfo), '("tlsCertificate", SocketTlsCertificatePropertyInfo), '("tlsErrors", SocketTlsErrorsPropertyInfo), '("trustedCertificate", SocketTrustedCertificatePropertyInfo), '("useThreadContext", SocketUseThreadContextPropertyInfo)] :: [(Symbol, *)])--socketAsyncContext :: AttrLabelProxy "asyncContext"-socketAsyncContext = AttrLabelProxy--socketFd :: AttrLabelProxy "fd"-socketFd = AttrLabelProxy--socketGsocket :: AttrLabelProxy "gsocket"-socketGsocket = AttrLabelProxy--socketIostream :: AttrLabelProxy "iostream"-socketIostream = AttrLabelProxy--socketIpv6Only :: AttrLabelProxy "ipv6Only"-socketIpv6Only = AttrLabelProxy--socketIsServer :: AttrLabelProxy "isServer"-socketIsServer = AttrLabelProxy--socketLocalAddress :: AttrLabelProxy "localAddress"-socketLocalAddress = AttrLabelProxy--socketNonBlocking :: AttrLabelProxy "nonBlocking"-socketNonBlocking = AttrLabelProxy--socketRemoteAddress :: AttrLabelProxy "remoteAddress"-socketRemoteAddress = AttrLabelProxy--socketSslCreds :: AttrLabelProxy "sslCreds"-socketSslCreds = AttrLabelProxy--socketSslFallback :: AttrLabelProxy "sslFallback"-socketSslFallback = AttrLabelProxy--socketSslStrict :: AttrLabelProxy "sslStrict"-socketSslStrict = AttrLabelProxy--socketTimeout :: AttrLabelProxy "timeout"-socketTimeout = AttrLabelProxy--socketTlsCertificate :: AttrLabelProxy "tlsCertificate"-socketTlsCertificate = AttrLabelProxy--socketTlsErrors :: AttrLabelProxy "tlsErrors"-socketTlsErrors = AttrLabelProxy--socketTrustedCertificate :: AttrLabelProxy "trustedCertificate"-socketTrustedCertificate = AttrLabelProxy--socketUseThreadContext :: AttrLabelProxy "useThreadContext"-socketUseThreadContext = AttrLabelProxy--data SocketDisconnectedSignalInfo-instance SignalInfo SocketDisconnectedSignalInfo where-    type HaskellCallbackType SocketDisconnectedSignalInfo = SocketDisconnectedCallback-    connectSignal _ = connectSocketDisconnected--data SocketEventSignalInfo-instance SignalInfo SocketEventSignalInfo where-    type HaskellCallbackType SocketEventSignalInfo = SocketEventCallback-    connectSignal _ = connectSocketEvent--data SocketNewConnectionSignalInfo-instance SignalInfo SocketNewConnectionSignalInfo where-    type HaskellCallbackType SocketNewConnectionSignalInfo = SocketNewConnectionCallback-    connectSignal _ = connectSocketNewConnection--data SocketReadableSignalInfo-instance SignalInfo SocketReadableSignalInfo where-    type HaskellCallbackType SocketReadableSignalInfo = SocketReadableCallback-    connectSignal _ = connectSocketReadable--data SocketWritableSignalInfo-instance SignalInfo SocketWritableSignalInfo where-    type HaskellCallbackType SocketWritableSignalInfo = SocketWritableCallback-    connectSignal _ = connectSocketWritable--type instance SignalList Socket = SocketSignalList-type SocketSignalList = ('[ '("disconnected", SocketDisconnectedSignalInfo), '("event", SocketEventSignalInfo), '("newConnection", SocketNewConnectionSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("readable", SocketReadableSignalInfo), '("writable", SocketWritableSignalInfo)] :: [(Symbol, *)])---- method Socket::connect_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface "Soup" "SocketCallback", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_socket_connect_async" soup_socket_connect_async :: -    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    FunPtr SocketCallbackC ->               -- callback : TInterface "Soup" "SocketCallback"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---socketConnectAsync ::-    (MonadIO m, SocketK a, Gio.CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> SocketCallback                       -- callback-    -> m ()                                 -- result-socketConnectAsync _obj cancellable callback = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr SocketCallbackC))-    callback' <- mkSocketCallback (socketCallbackWrapper (Just ptrcallback) callback)-    poke ptrcallback callback'-    let userData = nullPtr-    soup_socket_connect_async _obj' maybeCancellable callback' userData-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return ()--data SocketConnectAsyncMethodInfo-instance (signature ~ (Maybe (b) -> SocketCallback -> m ()), MonadIO m, SocketK a, Gio.CancellableK b) => MethodInfo SocketConnectAsyncMethodInfo a signature where-    overloadedMethod _ = socketConnectAsync---- method Socket::connect_sync--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "soup_socket_connect_sync" soup_socket_connect_sync :: -    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    IO Word32---socketConnectSync ::-    (MonadIO m, SocketK a, Gio.CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m Word32                             -- result-socketConnectSync _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    result <- soup_socket_connect_sync _obj' maybeCancellable-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return result--data SocketConnectSyncMethodInfo-instance (signature ~ (Maybe (b) -> m Word32), MonadIO m, SocketK a, Gio.CancellableK b) => MethodInfo SocketConnectSyncMethodInfo a signature where-    overloadedMethod _ = socketConnectSync---- method Socket::disconnect--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_socket_disconnect" soup_socket_disconnect :: -    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"-    IO ()---socketDisconnect ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-socketDisconnect _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    soup_socket_disconnect _obj'-    touchManagedPtr _obj-    return ()--data SocketDisconnectMethodInfo-instance (signature ~ (m ()), MonadIO m, SocketK a) => MethodInfo SocketDisconnectMethodInfo a signature where-    overloadedMethod _ = socketDisconnect---- method Socket::get_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "soup_socket_get_fd" soup_socket_get_fd :: -    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"-    IO Int32---socketGetFd ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-socketGetFd _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_socket_get_fd _obj'-    touchManagedPtr _obj-    return result--data SocketGetFdMethodInfo-instance (signature ~ (m Int32), MonadIO m, SocketK a) => MethodInfo SocketGetFdMethodInfo a signature where-    overloadedMethod _ = socketGetFd---- method Socket::get_local_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Address")--- throws : False--- Skip return : False--foreign import ccall "soup_socket_get_local_address" soup_socket_get_local_address :: -    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"-    IO (Ptr Address)---socketGetLocalAddress ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> m Address                            -- result-socketGetLocalAddress _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_socket_get_local_address _obj'-    checkUnexpectedReturnNULL "soup_socket_get_local_address" result-    result' <- (newObject Address) result-    touchManagedPtr _obj-    return result'--data SocketGetLocalAddressMethodInfo-instance (signature ~ (m Address), MonadIO m, SocketK a) => MethodInfo SocketGetLocalAddressMethodInfo a signature where-    overloadedMethod _ = socketGetLocalAddress---- method Socket::get_remote_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Address")--- throws : False--- Skip return : False--foreign import ccall "soup_socket_get_remote_address" soup_socket_get_remote_address :: -    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"-    IO (Ptr Address)---socketGetRemoteAddress ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> m Address                            -- result-socketGetRemoteAddress _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_socket_get_remote_address _obj'-    checkUnexpectedReturnNULL "soup_socket_get_remote_address" result-    result' <- (newObject Address) result-    touchManagedPtr _obj-    return result'--data SocketGetRemoteAddressMethodInfo-instance (signature ~ (m Address), MonadIO m, SocketK a) => MethodInfo SocketGetRemoteAddressMethodInfo a signature where-    overloadedMethod _ = socketGetRemoteAddress---- method Socket::is_connected--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_socket_is_connected" soup_socket_is_connected :: -    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"-    IO CInt---socketIsConnected ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-socketIsConnected _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_socket_is_connected _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SocketIsConnectedMethodInfo-instance (signature ~ (m Bool), MonadIO m, SocketK a) => MethodInfo SocketIsConnectedMethodInfo a signature where-    overloadedMethod _ = socketIsConnected---- method Socket::is_ssl--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_socket_is_ssl" soup_socket_is_ssl :: -    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"-    IO CInt---socketIsSsl ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-socketIsSsl _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_socket_is_ssl _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SocketIsSslMethodInfo-instance (signature ~ (m Bool), MonadIO m, SocketK a) => MethodInfo SocketIsSslMethodInfo a signature where-    overloadedMethod _ = socketIsSsl---- method Socket::listen--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_socket_listen" soup_socket_listen :: -    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"-    IO CInt---socketListen ::-    (MonadIO m, SocketK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-socketListen _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_socket_listen _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data SocketListenMethodInfo-instance (signature ~ (m Bool), MonadIO m, SocketK a) => MethodInfo SocketListenMethodInfo a signature where-    overloadedMethod _ = socketListen---- method Socket::read--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "nread", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TInterface "Soup" "SocketIOStatus")--- throws : True--- Skip return : False--foreign import ccall "soup_socket_read" soup_socket_read :: -    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- len : TBasicType TUInt64-    Ptr Word64 ->                           -- nread : TBasicType TUInt64-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CUInt---socketRead ::-    (MonadIO m, SocketK a, Gio.CancellableK b) =>-    a                                       -- _obj-    -> ByteString                           -- buffer-    -> Maybe (b)                            -- cancellable-    -> m (SocketIOStatus,Word64)            -- result-socketRead _obj buffer cancellable = liftIO $ do-    let len = fromIntegral $ B.length buffer-    let _obj' = unsafeManagedPtrCastPtr _obj-    buffer' <- packByteString buffer-    nread <- allocMem :: IO (Ptr Word64)-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ soup_socket_read _obj' buffer' len nread maybeCancellable-        let result' = (toEnum . fromIntegral) result-        nread' <- peek nread-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        freeMem nread-        return (result', nread')-     ) (do-        freeMem buffer'-        freeMem nread-     )--data SocketReadMethodInfo-instance (signature ~ (ByteString -> Maybe (b) -> m (SocketIOStatus,Word64)), MonadIO m, SocketK a, Gio.CancellableK b) => MethodInfo SocketReadMethodInfo a signature where-    overloadedMethod _ = socketRead---- method Socket::read_until--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "boundary", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "boundary_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "nread", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "got_boundary", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TInterface "Soup" "SocketIOStatus")--- throws : True--- Skip return : False--foreign import ccall "soup_socket_read_until" soup_socket_read_until :: -    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- len : TBasicType TUInt64-    Ptr () ->                               -- boundary : TBasicType TPtr-    Word64 ->                               -- boundary_len : TBasicType TUInt64-    Ptr Word64 ->                           -- nread : TBasicType TUInt64-    CInt ->                                 -- got_boundary : TBasicType TBoolean-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CUInt---socketReadUntil ::-    (MonadIO m, SocketK a, Gio.CancellableK b) =>-    a                                       -- _obj-    -> ByteString                           -- buffer-    -> Ptr ()                               -- boundary-    -> Word64                               -- boundaryLen-    -> Bool                                 -- gotBoundary-    -> Maybe (b)                            -- cancellable-    -> m (SocketIOStatus,Word64)            -- result-socketReadUntil _obj buffer boundary boundaryLen gotBoundary cancellable = liftIO $ do-    let len = fromIntegral $ B.length buffer-    let _obj' = unsafeManagedPtrCastPtr _obj-    buffer' <- packByteString buffer-    nread <- allocMem :: IO (Ptr Word64)-    let gotBoundary' = (fromIntegral . fromEnum) gotBoundary-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ soup_socket_read_until _obj' buffer' len boundary boundaryLen nread gotBoundary' maybeCancellable-        let result' = (toEnum . fromIntegral) result-        nread' <- peek nread-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        freeMem nread-        return (result', nread')-     ) (do-        freeMem buffer'-        freeMem nread-     )--data SocketReadUntilMethodInfo-instance (signature ~ (ByteString -> Ptr () -> Word64 -> Bool -> Maybe (b) -> m (SocketIOStatus,Word64)), MonadIO m, SocketK a, Gio.CancellableK b) => MethodInfo SocketReadUntilMethodInfo a signature where-    overloadedMethod _ = socketReadUntil---- method Socket::start_proxy_ssl--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ssl_host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_socket_start_proxy_ssl" soup_socket_start_proxy_ssl :: -    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"-    CString ->                              -- ssl_host : TBasicType TUTF8-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    IO CInt---socketStartProxySsl ::-    (MonadIO m, SocketK a, Gio.CancellableK b) =>-    a                                       -- _obj-    -> T.Text                               -- sslHost-    -> Maybe (b)                            -- cancellable-    -> m Bool                               -- result-socketStartProxySsl _obj sslHost cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    sslHost' <- textToCString sslHost-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    result <- soup_socket_start_proxy_ssl _obj' sslHost' maybeCancellable-    let result' = (/= 0) result-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    freeMem sslHost'-    return result'--data SocketStartProxySslMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> m Bool), MonadIO m, SocketK a, Gio.CancellableK b) => MethodInfo SocketStartProxySslMethodInfo a signature where-    overloadedMethod _ = socketStartProxySsl---- method Socket::start_ssl--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_socket_start_ssl" soup_socket_start_ssl :: -    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    IO CInt---socketStartSsl ::-    (MonadIO m, SocketK a, Gio.CancellableK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cancellable-    -> m Bool                               -- result-socketStartSsl _obj cancellable = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    result <- soup_socket_start_ssl _obj' maybeCancellable-    let result' = (/= 0) result-    touchManagedPtr _obj-    whenJust cancellable touchManagedPtr-    return result'--data SocketStartSslMethodInfo-instance (signature ~ (Maybe (b) -> m Bool), MonadIO m, SocketK a, Gio.CancellableK b) => MethodInfo SocketStartSslMethodInfo a signature where-    overloadedMethod _ = socketStartSsl---- method Socket::write--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Socket", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "nwrote", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cancellable", argType = TInterface "Gio" "Cancellable", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TInterface "Soup" "SocketIOStatus")--- throws : True--- Skip return : False--foreign import ccall "soup_socket_write" soup_socket_write :: -    Ptr Socket ->                           -- _obj : TInterface "Soup" "Socket"-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- len : TBasicType TUInt64-    Ptr Word64 ->                           -- nwrote : TBasicType TUInt64-    Ptr Gio.Cancellable ->                  -- cancellable : TInterface "Gio" "Cancellable"-    Ptr (Ptr GError) ->                     -- error-    IO CUInt---socketWrite ::-    (MonadIO m, SocketK a, Gio.CancellableK b) =>-    a                                       -- _obj-    -> ByteString                           -- buffer-    -> Maybe (b)                            -- cancellable-    -> m (SocketIOStatus,Word64)            -- result-socketWrite _obj buffer cancellable = liftIO $ do-    let len = fromIntegral $ B.length buffer-    let _obj' = unsafeManagedPtrCastPtr _obj-    buffer' <- packByteString buffer-    nwrote <- allocMem :: IO (Ptr Word64)-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            let jCancellable' = unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ soup_socket_write _obj' buffer' len nwrote maybeCancellable-        let result' = (toEnum . fromIntegral) result-        nwrote' <- peek nwrote-        touchManagedPtr _obj-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        freeMem nwrote-        return (result', nwrote')-     ) (do-        freeMem buffer'-        freeMem nwrote-     )--data SocketWriteMethodInfo-instance (signature ~ (ByteString -> Maybe (b) -> m (SocketIOStatus,Word64)), MonadIO m, SocketK a, Gio.CancellableK b) => MethodInfo SocketWriteMethodInfo a signature where-    overloadedMethod _ = socketWrite--
− GI/Soup/Objects/Socket.hs-boot 
@@ -1,49 +0,0 @@-module GI.Soup.Objects.Socket where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Socket = Socket (ForeignPtr Socket)-instance GObject Socket where-class GObject o => SocketK o-instance (GObject o, IsDescendantOf Socket o) => SocketK o-data SocketAsyncContextPropertyInfo-data SocketFdPropertyInfo-data SocketGsocketPropertyInfo-data SocketIostreamPropertyInfo-data SocketIpv6OnlyPropertyInfo-data SocketIsServerPropertyInfo-data SocketLocalAddressPropertyInfo-data SocketNonBlockingPropertyInfo-data SocketRemoteAddressPropertyInfo-data SocketSslCredsPropertyInfo-data SocketSslFallbackPropertyInfo-data SocketSslStrictPropertyInfo-data SocketTimeoutPropertyInfo-data SocketTlsCertificatePropertyInfo-data SocketTlsErrorsPropertyInfo-data SocketTrustedCertificatePropertyInfo-data SocketUseThreadContextPropertyInfo-data SocketDisconnectedSignalInfo-data SocketEventSignalInfo-data SocketNewConnectionSignalInfo-data SocketReadableSignalInfo-data SocketWritableSignalInfo-data SocketConnectAsyncMethodInfo-data SocketConnectSyncMethodInfo-data SocketDisconnectMethodInfo-data SocketGetFdMethodInfo-data SocketGetLocalAddressMethodInfo-data SocketGetRemoteAddressMethodInfo-data SocketIsConnectedMethodInfo-data SocketIsSslMethodInfo-data SocketListenMethodInfo-data SocketReadMethodInfo-data SocketReadUntilMethodInfo-data SocketStartProxySslMethodInfo-data SocketStartSslMethodInfo-data SocketWriteMethodInfo
− GI/Soup/Objects/WebsocketConnection.hs 
@@ -1,977 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Objects.WebsocketConnection-    ( ---- * Exported types-    WebsocketConnection(..)                 ,-    WebsocketConnectionK                    ,-    toWebsocketConnection                   ,-    noWebsocketConnection                   ,--- -- * Methods--- ** websocketConnectionClose-    WebsocketConnectionCloseMethodInfo      ,-    websocketConnectionClose                ,----- ** websocketConnectionGetCloseCode-    WebsocketConnectionGetCloseCodeMethodInfo,-    websocketConnectionGetCloseCode         ,----- ** websocketConnectionGetCloseData-    WebsocketConnectionGetCloseDataMethodInfo,-    websocketConnectionGetCloseData         ,----- ** websocketConnectionGetConnectionType-    WebsocketConnectionGetConnectionTypeMethodInfo,-    websocketConnectionGetConnectionType    ,----- ** websocketConnectionGetIoStream-    WebsocketConnectionGetIoStreamMethodInfo,-    websocketConnectionGetIoStream          ,----- ** websocketConnectionGetOrigin-    WebsocketConnectionGetOriginMethodInfo  ,-    websocketConnectionGetOrigin            ,----- ** websocketConnectionGetProtocol-    WebsocketConnectionGetProtocolMethodInfo,-    websocketConnectionGetProtocol          ,----- ** websocketConnectionGetState-    WebsocketConnectionGetStateMethodInfo   ,-    websocketConnectionGetState             ,----- ** websocketConnectionGetUri-    WebsocketConnectionGetUriMethodInfo     ,-    websocketConnectionGetUri               ,----- ** websocketConnectionNew-    websocketConnectionNew                  ,----- ** websocketConnectionSendBinary-    WebsocketConnectionSendBinaryMethodInfo ,-    websocketConnectionSendBinary           ,----- ** websocketConnectionSendText-    WebsocketConnectionSendTextMethodInfo   ,-    websocketConnectionSendText             ,----- -- * Properties--- ** ConnectionType-    WebsocketConnectionConnectionTypePropertyInfo,-    constructWebsocketConnectionConnectionType,-    getWebsocketConnectionConnectionType    ,-    websocketConnectionConnectionType       ,----- ** IoStream-    WebsocketConnectionIoStreamPropertyInfo ,-    constructWebsocketConnectionIoStream    ,-    getWebsocketConnectionIoStream          ,-    websocketConnectionIoStream             ,----- ** Origin-    WebsocketConnectionOriginPropertyInfo   ,-    constructWebsocketConnectionOrigin      ,-    getWebsocketConnectionOrigin            ,-    websocketConnectionOrigin               ,----- ** Protocol-    WebsocketConnectionProtocolPropertyInfo ,-    constructWebsocketConnectionProtocol    ,-    getWebsocketConnectionProtocol          ,-    websocketConnectionProtocol             ,----- ** State-    WebsocketConnectionStatePropertyInfo    ,-    getWebsocketConnectionState             ,-    websocketConnectionState                ,----- ** Uri-    WebsocketConnectionUriPropertyInfo      ,-    constructWebsocketConnectionUri         ,-    getWebsocketConnectionUri               ,-    websocketConnectionUri                  ,----- -- * Signals--- ** Closed-    WebsocketConnectionClosedCallback       ,-    WebsocketConnectionClosedCallbackC      ,-    WebsocketConnectionClosedSignalInfo     ,-    afterWebsocketConnectionClosed          ,-    mkWebsocketConnectionClosedCallback     ,-    noWebsocketConnectionClosedCallback     ,-    onWebsocketConnectionClosed             ,-    websocketConnectionClosedCallbackWrapper,-    websocketConnectionClosedClosure        ,----- ** Closing-    WebsocketConnectionClosingCallback      ,-    WebsocketConnectionClosingCallbackC     ,-    WebsocketConnectionClosingSignalInfo    ,-    afterWebsocketConnectionClosing         ,-    mkWebsocketConnectionClosingCallback    ,-    noWebsocketConnectionClosingCallback    ,-    onWebsocketConnectionClosing            ,-    websocketConnectionClosingCallbackWrapper,-    websocketConnectionClosingClosure       ,----- ** Error-    WebsocketConnectionErrorCallback        ,-    WebsocketConnectionErrorCallbackC       ,-    WebsocketConnectionErrorSignalInfo      ,-    afterWebsocketConnectionError           ,-    mkWebsocketConnectionErrorCallback      ,-    noWebsocketConnectionErrorCallback      ,-    onWebsocketConnectionError              ,-    websocketConnectionErrorCallbackWrapper ,-    websocketConnectionErrorClosure         ,----- ** Message-    WebsocketConnectionMessageCallback      ,-    WebsocketConnectionMessageCallbackC     ,-    WebsocketConnectionMessageSignalInfo    ,-    afterWebsocketConnectionMessage         ,-    mkWebsocketConnectionMessageCallback    ,-    noWebsocketConnectionMessageCallback    ,-    onWebsocketConnectionMessage            ,-    websocketConnectionMessageCallbackWrapper,-    websocketConnectionMessageClosure       ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GObject as GObject-import qualified GI.Gio as Gio--newtype WebsocketConnection = WebsocketConnection (ForeignPtr WebsocketConnection)-foreign import ccall "soup_websocket_connection_get_type"-    c_soup_websocket_connection_get_type :: IO GType--type instance ParentTypes WebsocketConnection = WebsocketConnectionParentTypes-type WebsocketConnectionParentTypes = '[GObject.Object]--instance GObject WebsocketConnection where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_soup_websocket_connection_get_type-    --class GObject o => WebsocketConnectionK o-instance (GObject o, IsDescendantOf WebsocketConnection o) => WebsocketConnectionK o--toWebsocketConnection :: WebsocketConnectionK o => o -> IO WebsocketConnection-toWebsocketConnection = unsafeCastTo WebsocketConnection--noWebsocketConnection :: Maybe WebsocketConnection-noWebsocketConnection = Nothing--type family ResolveWebsocketConnectionMethod (t :: Symbol) (o :: *) :: * where-    ResolveWebsocketConnectionMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveWebsocketConnectionMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveWebsocketConnectionMethod "close" o = WebsocketConnectionCloseMethodInfo-    ResolveWebsocketConnectionMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveWebsocketConnectionMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveWebsocketConnectionMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveWebsocketConnectionMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveWebsocketConnectionMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveWebsocketConnectionMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveWebsocketConnectionMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveWebsocketConnectionMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveWebsocketConnectionMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveWebsocketConnectionMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveWebsocketConnectionMethod "sendBinary" o = WebsocketConnectionSendBinaryMethodInfo-    ResolveWebsocketConnectionMethod "sendText" o = WebsocketConnectionSendTextMethodInfo-    ResolveWebsocketConnectionMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveWebsocketConnectionMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveWebsocketConnectionMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveWebsocketConnectionMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveWebsocketConnectionMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveWebsocketConnectionMethod "getCloseCode" o = WebsocketConnectionGetCloseCodeMethodInfo-    ResolveWebsocketConnectionMethod "getCloseData" o = WebsocketConnectionGetCloseDataMethodInfo-    ResolveWebsocketConnectionMethod "getConnectionType" o = WebsocketConnectionGetConnectionTypeMethodInfo-    ResolveWebsocketConnectionMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveWebsocketConnectionMethod "getIoStream" o = WebsocketConnectionGetIoStreamMethodInfo-    ResolveWebsocketConnectionMethod "getOrigin" o = WebsocketConnectionGetOriginMethodInfo-    ResolveWebsocketConnectionMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveWebsocketConnectionMethod "getProtocol" o = WebsocketConnectionGetProtocolMethodInfo-    ResolveWebsocketConnectionMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveWebsocketConnectionMethod "getState" o = WebsocketConnectionGetStateMethodInfo-    ResolveWebsocketConnectionMethod "getUri" o = WebsocketConnectionGetUriMethodInfo-    ResolveWebsocketConnectionMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveWebsocketConnectionMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveWebsocketConnectionMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveWebsocketConnectionMethod t WebsocketConnection, MethodInfo info WebsocketConnection p) => IsLabelProxy t (WebsocketConnection -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveWebsocketConnectionMethod t WebsocketConnection, MethodInfo info WebsocketConnection p) => IsLabel t (WebsocketConnection -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal WebsocketConnection::closed-type WebsocketConnectionClosedCallback =-    IO ()--noWebsocketConnectionClosedCallback :: Maybe WebsocketConnectionClosedCallback-noWebsocketConnectionClosedCallback = Nothing--type WebsocketConnectionClosedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebsocketConnectionClosedCallback :: WebsocketConnectionClosedCallbackC -> IO (FunPtr WebsocketConnectionClosedCallbackC)--websocketConnectionClosedClosure :: WebsocketConnectionClosedCallback -> IO Closure-websocketConnectionClosedClosure cb = newCClosure =<< mkWebsocketConnectionClosedCallback wrapped-    where wrapped = websocketConnectionClosedCallbackWrapper cb--websocketConnectionClosedCallbackWrapper ::-    WebsocketConnectionClosedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-websocketConnectionClosedCallbackWrapper _cb _ _ = do-    _cb --onWebsocketConnectionClosed :: (GObject a, MonadIO m) => a -> WebsocketConnectionClosedCallback -> m SignalHandlerId-onWebsocketConnectionClosed obj cb = liftIO $ connectWebsocketConnectionClosed obj cb SignalConnectBefore-afterWebsocketConnectionClosed :: (GObject a, MonadIO m) => a -> WebsocketConnectionClosedCallback -> m SignalHandlerId-afterWebsocketConnectionClosed obj cb = connectWebsocketConnectionClosed obj cb SignalConnectAfter--connectWebsocketConnectionClosed :: (GObject a, MonadIO m) =>-                                    a -> WebsocketConnectionClosedCallback -> SignalConnectMode -> m SignalHandlerId-connectWebsocketConnectionClosed obj cb after = liftIO $ do-    cb' <- mkWebsocketConnectionClosedCallback (websocketConnectionClosedCallbackWrapper cb)-    connectSignalFunPtr obj "closed" cb' after---- signal WebsocketConnection::closing-type WebsocketConnectionClosingCallback =-    IO ()--noWebsocketConnectionClosingCallback :: Maybe WebsocketConnectionClosingCallback-noWebsocketConnectionClosingCallback = Nothing--type WebsocketConnectionClosingCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebsocketConnectionClosingCallback :: WebsocketConnectionClosingCallbackC -> IO (FunPtr WebsocketConnectionClosingCallbackC)--websocketConnectionClosingClosure :: WebsocketConnectionClosingCallback -> IO Closure-websocketConnectionClosingClosure cb = newCClosure =<< mkWebsocketConnectionClosingCallback wrapped-    where wrapped = websocketConnectionClosingCallbackWrapper cb--websocketConnectionClosingCallbackWrapper ::-    WebsocketConnectionClosingCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-websocketConnectionClosingCallbackWrapper _cb _ _ = do-    _cb --onWebsocketConnectionClosing :: (GObject a, MonadIO m) => a -> WebsocketConnectionClosingCallback -> m SignalHandlerId-onWebsocketConnectionClosing obj cb = liftIO $ connectWebsocketConnectionClosing obj cb SignalConnectBefore-afterWebsocketConnectionClosing :: (GObject a, MonadIO m) => a -> WebsocketConnectionClosingCallback -> m SignalHandlerId-afterWebsocketConnectionClosing obj cb = connectWebsocketConnectionClosing obj cb SignalConnectAfter--connectWebsocketConnectionClosing :: (GObject a, MonadIO m) =>-                                     a -> WebsocketConnectionClosingCallback -> SignalConnectMode -> m SignalHandlerId-connectWebsocketConnectionClosing obj cb after = liftIO $ do-    cb' <- mkWebsocketConnectionClosingCallback (websocketConnectionClosingCallbackWrapper cb)-    connectSignalFunPtr obj "closing" cb' after---- signal WebsocketConnection::error-type WebsocketConnectionErrorCallback =-    GError ->-    IO ()--noWebsocketConnectionErrorCallback :: Maybe WebsocketConnectionErrorCallback-noWebsocketConnectionErrorCallback = Nothing--type WebsocketConnectionErrorCallbackC =-    Ptr () ->                               -- object-    Ptr GError ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebsocketConnectionErrorCallback :: WebsocketConnectionErrorCallbackC -> IO (FunPtr WebsocketConnectionErrorCallbackC)--websocketConnectionErrorClosure :: WebsocketConnectionErrorCallback -> IO Closure-websocketConnectionErrorClosure cb = newCClosure =<< mkWebsocketConnectionErrorCallback wrapped-    where wrapped = websocketConnectionErrorCallbackWrapper cb--websocketConnectionErrorCallbackWrapper ::-    WebsocketConnectionErrorCallback ->-    Ptr () ->-    Ptr GError ->-    Ptr () ->-    IO ()-websocketConnectionErrorCallbackWrapper _cb _ error_ _ = do-    error_' <- (newBoxed GError) error_-    _cb  error_'--onWebsocketConnectionError :: (GObject a, MonadIO m) => a -> WebsocketConnectionErrorCallback -> m SignalHandlerId-onWebsocketConnectionError obj cb = liftIO $ connectWebsocketConnectionError obj cb SignalConnectBefore-afterWebsocketConnectionError :: (GObject a, MonadIO m) => a -> WebsocketConnectionErrorCallback -> m SignalHandlerId-afterWebsocketConnectionError obj cb = connectWebsocketConnectionError obj cb SignalConnectAfter--connectWebsocketConnectionError :: (GObject a, MonadIO m) =>-                                   a -> WebsocketConnectionErrorCallback -> SignalConnectMode -> m SignalHandlerId-connectWebsocketConnectionError obj cb after = liftIO $ do-    cb' <- mkWebsocketConnectionErrorCallback (websocketConnectionErrorCallbackWrapper cb)-    connectSignalFunPtr obj "error" cb' after---- signal WebsocketConnection::message-type WebsocketConnectionMessageCallback =-    Int32 ->-    GLib.Bytes ->-    IO ()--noWebsocketConnectionMessageCallback :: Maybe WebsocketConnectionMessageCallback-noWebsocketConnectionMessageCallback = Nothing--type WebsocketConnectionMessageCallbackC =-    Ptr () ->                               -- object-    Int32 ->-    Ptr GLib.Bytes ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWebsocketConnectionMessageCallback :: WebsocketConnectionMessageCallbackC -> IO (FunPtr WebsocketConnectionMessageCallbackC)--websocketConnectionMessageClosure :: WebsocketConnectionMessageCallback -> IO Closure-websocketConnectionMessageClosure cb = newCClosure =<< mkWebsocketConnectionMessageCallback wrapped-    where wrapped = websocketConnectionMessageCallbackWrapper cb--websocketConnectionMessageCallbackWrapper ::-    WebsocketConnectionMessageCallback ->-    Ptr () ->-    Int32 ->-    Ptr GLib.Bytes ->-    Ptr () ->-    IO ()-websocketConnectionMessageCallbackWrapper _cb _ type_ message _ = do-    message' <- (newBoxed GLib.Bytes) message-    _cb  type_ message'--onWebsocketConnectionMessage :: (GObject a, MonadIO m) => a -> WebsocketConnectionMessageCallback -> m SignalHandlerId-onWebsocketConnectionMessage obj cb = liftIO $ connectWebsocketConnectionMessage obj cb SignalConnectBefore-afterWebsocketConnectionMessage :: (GObject a, MonadIO m) => a -> WebsocketConnectionMessageCallback -> m SignalHandlerId-afterWebsocketConnectionMessage obj cb = connectWebsocketConnectionMessage obj cb SignalConnectAfter--connectWebsocketConnectionMessage :: (GObject a, MonadIO m) =>-                                     a -> WebsocketConnectionMessageCallback -> SignalConnectMode -> m SignalHandlerId-connectWebsocketConnectionMessage obj cb after = liftIO $ do-    cb' <- mkWebsocketConnectionMessageCallback (websocketConnectionMessageCallbackWrapper cb)-    connectSignalFunPtr obj "message" cb' after---- VVV Prop "connection-type"-   -- Type: TInterface "Soup" "WebsocketConnectionType"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getWebsocketConnectionConnectionType :: (MonadIO m, WebsocketConnectionK o) => o -> m WebsocketConnectionType-getWebsocketConnectionConnectionType obj = liftIO $ getObjectPropertyEnum obj "connection-type"--constructWebsocketConnectionConnectionType :: WebsocketConnectionType -> IO ([Char], GValue)-constructWebsocketConnectionConnectionType val = constructObjectPropertyEnum "connection-type" val--data WebsocketConnectionConnectionTypePropertyInfo-instance AttrInfo WebsocketConnectionConnectionTypePropertyInfo where-    type AttrAllowedOps WebsocketConnectionConnectionTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint WebsocketConnectionConnectionTypePropertyInfo = (~) WebsocketConnectionType-    type AttrBaseTypeConstraint WebsocketConnectionConnectionTypePropertyInfo = WebsocketConnectionK-    type AttrGetType WebsocketConnectionConnectionTypePropertyInfo = WebsocketConnectionType-    type AttrLabel WebsocketConnectionConnectionTypePropertyInfo = "connection-type"-    attrGet _ = getWebsocketConnectionConnectionType-    attrSet _ = undefined-    attrConstruct _ = constructWebsocketConnectionConnectionType-    attrClear _ = undefined---- VVV Prop "io-stream"-   -- Type: TInterface "Gio" "IOStream"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getWebsocketConnectionIoStream :: (MonadIO m, WebsocketConnectionK o) => o -> m Gio.IOStream-getWebsocketConnectionIoStream obj = liftIO $ checkUnexpectedNothing "getWebsocketConnectionIoStream" $ getObjectPropertyObject obj "io-stream" Gio.IOStream--constructWebsocketConnectionIoStream :: (Gio.IOStreamK a) => a -> IO ([Char], GValue)-constructWebsocketConnectionIoStream val = constructObjectPropertyObject "io-stream" (Just val)--data WebsocketConnectionIoStreamPropertyInfo-instance AttrInfo WebsocketConnectionIoStreamPropertyInfo where-    type AttrAllowedOps WebsocketConnectionIoStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint WebsocketConnectionIoStreamPropertyInfo = Gio.IOStreamK-    type AttrBaseTypeConstraint WebsocketConnectionIoStreamPropertyInfo = WebsocketConnectionK-    type AttrGetType WebsocketConnectionIoStreamPropertyInfo = Gio.IOStream-    type AttrLabel WebsocketConnectionIoStreamPropertyInfo = "io-stream"-    attrGet _ = getWebsocketConnectionIoStream-    attrSet _ = undefined-    attrConstruct _ = constructWebsocketConnectionIoStream-    attrClear _ = undefined---- VVV Prop "origin"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just True,Nothing)--getWebsocketConnectionOrigin :: (MonadIO m, WebsocketConnectionK o) => o -> m (Maybe T.Text)-getWebsocketConnectionOrigin obj = liftIO $ getObjectPropertyString obj "origin"--constructWebsocketConnectionOrigin :: T.Text -> IO ([Char], GValue)-constructWebsocketConnectionOrigin val = constructObjectPropertyString "origin" (Just val)--data WebsocketConnectionOriginPropertyInfo-instance AttrInfo WebsocketConnectionOriginPropertyInfo where-    type AttrAllowedOps WebsocketConnectionOriginPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint WebsocketConnectionOriginPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint WebsocketConnectionOriginPropertyInfo = WebsocketConnectionK-    type AttrGetType WebsocketConnectionOriginPropertyInfo = (Maybe T.Text)-    type AttrLabel WebsocketConnectionOriginPropertyInfo = "origin"-    attrGet _ = getWebsocketConnectionOrigin-    attrSet _ = undefined-    attrConstruct _ = constructWebsocketConnectionOrigin-    attrClear _ = undefined---- VVV Prop "protocol"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just True,Nothing)--getWebsocketConnectionProtocol :: (MonadIO m, WebsocketConnectionK o) => o -> m (Maybe T.Text)-getWebsocketConnectionProtocol obj = liftIO $ getObjectPropertyString obj "protocol"--constructWebsocketConnectionProtocol :: T.Text -> IO ([Char], GValue)-constructWebsocketConnectionProtocol val = constructObjectPropertyString "protocol" (Just val)--data WebsocketConnectionProtocolPropertyInfo-instance AttrInfo WebsocketConnectionProtocolPropertyInfo where-    type AttrAllowedOps WebsocketConnectionProtocolPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint WebsocketConnectionProtocolPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint WebsocketConnectionProtocolPropertyInfo = WebsocketConnectionK-    type AttrGetType WebsocketConnectionProtocolPropertyInfo = (Maybe T.Text)-    type AttrLabel WebsocketConnectionProtocolPropertyInfo = "protocol"-    attrGet _ = getWebsocketConnectionProtocol-    attrSet _ = undefined-    attrConstruct _ = constructWebsocketConnectionProtocol-    attrClear _ = undefined---- VVV Prop "state"-   -- Type: TInterface "Soup" "WebsocketState"-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--getWebsocketConnectionState :: (MonadIO m, WebsocketConnectionK o) => o -> m WebsocketState-getWebsocketConnectionState obj = liftIO $ getObjectPropertyEnum obj "state"--data WebsocketConnectionStatePropertyInfo-instance AttrInfo WebsocketConnectionStatePropertyInfo where-    type AttrAllowedOps WebsocketConnectionStatePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint WebsocketConnectionStatePropertyInfo = (~) ()-    type AttrBaseTypeConstraint WebsocketConnectionStatePropertyInfo = WebsocketConnectionK-    type AttrGetType WebsocketConnectionStatePropertyInfo = WebsocketState-    type AttrLabel WebsocketConnectionStatePropertyInfo = "state"-    attrGet _ = getWebsocketConnectionState-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "uri"-   -- Type: TInterface "Soup" "URI"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getWebsocketConnectionUri :: (MonadIO m, WebsocketConnectionK o) => o -> m URI-getWebsocketConnectionUri obj = liftIO $ checkUnexpectedNothing "getWebsocketConnectionUri" $ getObjectPropertyBoxed obj "uri" URI--constructWebsocketConnectionUri :: URI -> IO ([Char], GValue)-constructWebsocketConnectionUri val = constructObjectPropertyBoxed "uri" (Just val)--data WebsocketConnectionUriPropertyInfo-instance AttrInfo WebsocketConnectionUriPropertyInfo where-    type AttrAllowedOps WebsocketConnectionUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint WebsocketConnectionUriPropertyInfo = (~) URI-    type AttrBaseTypeConstraint WebsocketConnectionUriPropertyInfo = WebsocketConnectionK-    type AttrGetType WebsocketConnectionUriPropertyInfo = URI-    type AttrLabel WebsocketConnectionUriPropertyInfo = "uri"-    attrGet _ = getWebsocketConnectionUri-    attrSet _ = undefined-    attrConstruct _ = constructWebsocketConnectionUri-    attrClear _ = undefined--type instance AttributeList WebsocketConnection = WebsocketConnectionAttributeList-type WebsocketConnectionAttributeList = ('[ '("connectionType", WebsocketConnectionConnectionTypePropertyInfo), '("ioStream", WebsocketConnectionIoStreamPropertyInfo), '("origin", WebsocketConnectionOriginPropertyInfo), '("protocol", WebsocketConnectionProtocolPropertyInfo), '("state", WebsocketConnectionStatePropertyInfo), '("uri", WebsocketConnectionUriPropertyInfo)] :: [(Symbol, *)])--websocketConnectionConnectionType :: AttrLabelProxy "connectionType"-websocketConnectionConnectionType = AttrLabelProxy--websocketConnectionIoStream :: AttrLabelProxy "ioStream"-websocketConnectionIoStream = AttrLabelProxy--websocketConnectionOrigin :: AttrLabelProxy "origin"-websocketConnectionOrigin = AttrLabelProxy--websocketConnectionProtocol :: AttrLabelProxy "protocol"-websocketConnectionProtocol = AttrLabelProxy--websocketConnectionState :: AttrLabelProxy "state"-websocketConnectionState = AttrLabelProxy--websocketConnectionUri :: AttrLabelProxy "uri"-websocketConnectionUri = AttrLabelProxy--data WebsocketConnectionClosedSignalInfo-instance SignalInfo WebsocketConnectionClosedSignalInfo where-    type HaskellCallbackType WebsocketConnectionClosedSignalInfo = WebsocketConnectionClosedCallback-    connectSignal _ = connectWebsocketConnectionClosed--data WebsocketConnectionClosingSignalInfo-instance SignalInfo WebsocketConnectionClosingSignalInfo where-    type HaskellCallbackType WebsocketConnectionClosingSignalInfo = WebsocketConnectionClosingCallback-    connectSignal _ = connectWebsocketConnectionClosing--data WebsocketConnectionErrorSignalInfo-instance SignalInfo WebsocketConnectionErrorSignalInfo where-    type HaskellCallbackType WebsocketConnectionErrorSignalInfo = WebsocketConnectionErrorCallback-    connectSignal _ = connectWebsocketConnectionError--data WebsocketConnectionMessageSignalInfo-instance SignalInfo WebsocketConnectionMessageSignalInfo where-    type HaskellCallbackType WebsocketConnectionMessageSignalInfo = WebsocketConnectionMessageCallback-    connectSignal _ = connectWebsocketConnectionMessage--type instance SignalList WebsocketConnection = WebsocketConnectionSignalList-type WebsocketConnectionSignalList = ('[ '("closed", WebsocketConnectionClosedSignalInfo), '("closing", WebsocketConnectionClosingSignalInfo), '("error", WebsocketConnectionErrorSignalInfo), '("message", WebsocketConnectionMessageSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method WebsocketConnection::new--- method type : Constructor--- Args : [Arg {argCName = "stream", argType = TInterface "Gio" "IOStream", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Soup" "WebsocketConnectionType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "WebsocketConnection")--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_new" soup_websocket_connection_new :: -    Ptr Gio.IOStream ->                     -- stream : TInterface "Gio" "IOStream"-    Ptr URI ->                              -- uri : TInterface "Soup" "URI"-    CUInt ->                                -- type : TInterface "Soup" "WebsocketConnectionType"-    CString ->                              -- origin : TBasicType TUTF8-    CString ->                              -- protocol : TBasicType TUTF8-    IO (Ptr WebsocketConnection)---websocketConnectionNew ::-    (MonadIO m, Gio.IOStreamK a) =>-    a                                       -- stream-    -> URI                                  -- uri-    -> WebsocketConnectionType              -- type_-    -> Maybe (T.Text)                       -- origin-    -> Maybe (T.Text)                       -- protocol-    -> m WebsocketConnection                -- result-websocketConnectionNew stream uri type_ origin protocol = liftIO $ do-    let stream' = unsafeManagedPtrCastPtr stream-    let uri' = unsafeManagedPtrGetPtr uri-    let type_' = (fromIntegral . fromEnum) type_-    maybeOrigin <- case origin of-        Nothing -> return nullPtr-        Just jOrigin -> do-            jOrigin' <- textToCString jOrigin-            return jOrigin'-    maybeProtocol <- case protocol of-        Nothing -> return nullPtr-        Just jProtocol -> do-            jProtocol' <- textToCString jProtocol-            return jProtocol'-    result <- soup_websocket_connection_new stream' uri' type_' maybeOrigin maybeProtocol-    checkUnexpectedReturnNULL "soup_websocket_connection_new" result-    result' <- (wrapObject WebsocketConnection) result-    touchManagedPtr stream-    touchManagedPtr uri-    freeMem maybeOrigin-    freeMem maybeProtocol-    return result'---- method WebsocketConnection::close--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "code", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_close" soup_websocket_connection_close :: -    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"-    Word16 ->                               -- code : TBasicType TUInt16-    CString ->                              -- data : TBasicType TUTF8-    IO ()---websocketConnectionClose ::-    (MonadIO m, WebsocketConnectionK a) =>-    a                                       -- _obj-    -> Word16                               -- code-    -> Maybe (T.Text)                       -- data_-    -> m ()                                 -- result-websocketConnectionClose _obj code data_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeData_ <- case data_ of-        Nothing -> return nullPtr-        Just jData_ -> do-            jData_' <- textToCString jData_-            return jData_'-    soup_websocket_connection_close _obj' code maybeData_-    touchManagedPtr _obj-    freeMem maybeData_-    return ()--data WebsocketConnectionCloseMethodInfo-instance (signature ~ (Word16 -> Maybe (T.Text) -> m ()), MonadIO m, WebsocketConnectionK a) => MethodInfo WebsocketConnectionCloseMethodInfo a signature where-    overloadedMethod _ = websocketConnectionClose---- method WebsocketConnection::get_close_code--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt16)--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_get_close_code" soup_websocket_connection_get_close_code :: -    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"-    IO Word16---websocketConnectionGetCloseCode ::-    (MonadIO m, WebsocketConnectionK a) =>-    a                                       -- _obj-    -> m Word16                             -- result-websocketConnectionGetCloseCode _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_websocket_connection_get_close_code _obj'-    touchManagedPtr _obj-    return result--data WebsocketConnectionGetCloseCodeMethodInfo-instance (signature ~ (m Word16), MonadIO m, WebsocketConnectionK a) => MethodInfo WebsocketConnectionGetCloseCodeMethodInfo a signature where-    overloadedMethod _ = websocketConnectionGetCloseCode---- method WebsocketConnection::get_close_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_get_close_data" soup_websocket_connection_get_close_data :: -    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"-    IO CString---websocketConnectionGetCloseData ::-    (MonadIO m, WebsocketConnectionK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-websocketConnectionGetCloseData _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_websocket_connection_get_close_data _obj'-    checkUnexpectedReturnNULL "soup_websocket_connection_get_close_data" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data WebsocketConnectionGetCloseDataMethodInfo-instance (signature ~ (m T.Text), MonadIO m, WebsocketConnectionK a) => MethodInfo WebsocketConnectionGetCloseDataMethodInfo a signature where-    overloadedMethod _ = websocketConnectionGetCloseData---- method WebsocketConnection::get_connection_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "WebsocketConnectionType")--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_get_connection_type" soup_websocket_connection_get_connection_type :: -    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"-    IO CUInt---websocketConnectionGetConnectionType ::-    (MonadIO m, WebsocketConnectionK a) =>-    a                                       -- _obj-    -> m WebsocketConnectionType            -- result-websocketConnectionGetConnectionType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_websocket_connection_get_connection_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data WebsocketConnectionGetConnectionTypeMethodInfo-instance (signature ~ (m WebsocketConnectionType), MonadIO m, WebsocketConnectionK a) => MethodInfo WebsocketConnectionGetConnectionTypeMethodInfo a signature where-    overloadedMethod _ = websocketConnectionGetConnectionType---- method WebsocketConnection::get_io_stream--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "IOStream")--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_get_io_stream" soup_websocket_connection_get_io_stream :: -    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"-    IO (Ptr Gio.IOStream)---websocketConnectionGetIoStream ::-    (MonadIO m, WebsocketConnectionK a) =>-    a                                       -- _obj-    -> m Gio.IOStream                       -- result-websocketConnectionGetIoStream _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_websocket_connection_get_io_stream _obj'-    checkUnexpectedReturnNULL "soup_websocket_connection_get_io_stream" result-    result' <- (newObject Gio.IOStream) result-    touchManagedPtr _obj-    return result'--data WebsocketConnectionGetIoStreamMethodInfo-instance (signature ~ (m Gio.IOStream), MonadIO m, WebsocketConnectionK a) => MethodInfo WebsocketConnectionGetIoStreamMethodInfo a signature where-    overloadedMethod _ = websocketConnectionGetIoStream---- method WebsocketConnection::get_origin--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_get_origin" soup_websocket_connection_get_origin :: -    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"-    IO CString---websocketConnectionGetOrigin ::-    (MonadIO m, WebsocketConnectionK a) =>-    a                                       -- _obj-    -> m (Maybe T.Text)                     -- result-websocketConnectionGetOrigin _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_websocket_connection_get_origin _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data WebsocketConnectionGetOriginMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, WebsocketConnectionK a) => MethodInfo WebsocketConnectionGetOriginMethodInfo a signature where-    overloadedMethod _ = websocketConnectionGetOrigin---- method WebsocketConnection::get_protocol--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_get_protocol" soup_websocket_connection_get_protocol :: -    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"-    IO CString---websocketConnectionGetProtocol ::-    (MonadIO m, WebsocketConnectionK a) =>-    a                                       -- _obj-    -> m (Maybe T.Text)                     -- result-websocketConnectionGetProtocol _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_websocket_connection_get_protocol _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data WebsocketConnectionGetProtocolMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, WebsocketConnectionK a) => MethodInfo WebsocketConnectionGetProtocolMethodInfo a signature where-    overloadedMethod _ = websocketConnectionGetProtocol---- method WebsocketConnection::get_state--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "WebsocketState")--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_get_state" soup_websocket_connection_get_state :: -    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"-    IO CUInt---websocketConnectionGetState ::-    (MonadIO m, WebsocketConnectionK a) =>-    a                                       -- _obj-    -> m WebsocketState                     -- result-websocketConnectionGetState _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_websocket_connection_get_state _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data WebsocketConnectionGetStateMethodInfo-instance (signature ~ (m WebsocketState), MonadIO m, WebsocketConnectionK a) => MethodInfo WebsocketConnectionGetStateMethodInfo a signature where-    overloadedMethod _ = websocketConnectionGetState---- method WebsocketConnection::get_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "URI")--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_get_uri" soup_websocket_connection_get_uri :: -    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"-    IO (Ptr URI)---websocketConnectionGetUri ::-    (MonadIO m, WebsocketConnectionK a) =>-    a                                       -- _obj-    -> m URI                                -- result-websocketConnectionGetUri _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- soup_websocket_connection_get_uri _obj'-    checkUnexpectedReturnNULL "soup_websocket_connection_get_uri" result-    result' <- (newBoxed URI) result-    touchManagedPtr _obj-    return result'--data WebsocketConnectionGetUriMethodInfo-instance (signature ~ (m URI), MonadIO m, WebsocketConnectionK a) => MethodInfo WebsocketConnectionGetUriMethodInfo a signature where-    overloadedMethod _ = websocketConnectionGetUri---- method WebsocketConnection::send_binary--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_send_binary" soup_websocket_connection_send_binary :: -    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"-    Ptr Word8 ->                            -- data : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- length : TBasicType TUInt64-    IO ()---websocketConnectionSendBinary ::-    (MonadIO m, WebsocketConnectionK a) =>-    a                                       -- _obj-    -> ByteString                           -- data_-    -> m ()                                 -- result-websocketConnectionSendBinary _obj data_ = liftIO $ do-    let length_ = fromIntegral $ B.length data_-    let _obj' = unsafeManagedPtrCastPtr _obj-    data_' <- packByteString data_-    soup_websocket_connection_send_binary _obj' data_' length_-    touchManagedPtr _obj-    freeMem data_'-    return ()--data WebsocketConnectionSendBinaryMethodInfo-instance (signature ~ (ByteString -> m ()), MonadIO m, WebsocketConnectionK a) => MethodInfo WebsocketConnectionSendBinaryMethodInfo a signature where-    overloadedMethod _ = websocketConnectionSendBinary---- method WebsocketConnection::send_text--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "WebsocketConnection", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_send_text" soup_websocket_connection_send_text :: -    Ptr WebsocketConnection ->              -- _obj : TInterface "Soup" "WebsocketConnection"-    CString ->                              -- text : TBasicType TUTF8-    IO ()---websocketConnectionSendText ::-    (MonadIO m, WebsocketConnectionK a) =>-    a                                       -- _obj-    -> T.Text                               -- text-    -> m ()                                 -- result-websocketConnectionSendText _obj text = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    text' <- textToCString text-    soup_websocket_connection_send_text _obj' text'-    touchManagedPtr _obj-    freeMem text'-    return ()--data WebsocketConnectionSendTextMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, WebsocketConnectionK a) => MethodInfo WebsocketConnectionSendTextMethodInfo a signature where-    overloadedMethod _ = websocketConnectionSendText--
− GI/Soup/Objects/WebsocketConnection.hs-boot 
@@ -1,34 +0,0 @@-module GI.Soup.Objects.WebsocketConnection where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype WebsocketConnection = WebsocketConnection (ForeignPtr WebsocketConnection)-instance GObject WebsocketConnection where-class GObject o => WebsocketConnectionK o-instance (GObject o, IsDescendantOf WebsocketConnection o) => WebsocketConnectionK o-data WebsocketConnectionConnectionTypePropertyInfo-data WebsocketConnectionIoStreamPropertyInfo-data WebsocketConnectionOriginPropertyInfo-data WebsocketConnectionProtocolPropertyInfo-data WebsocketConnectionStatePropertyInfo-data WebsocketConnectionUriPropertyInfo-data WebsocketConnectionClosedSignalInfo-data WebsocketConnectionClosingSignalInfo-data WebsocketConnectionErrorSignalInfo-data WebsocketConnectionMessageSignalInfo-data WebsocketConnectionCloseMethodInfo-data WebsocketConnectionGetCloseCodeMethodInfo-data WebsocketConnectionGetCloseDataMethodInfo-data WebsocketConnectionGetConnectionTypeMethodInfo-data WebsocketConnectionGetIoStreamMethodInfo-data WebsocketConnectionGetOriginMethodInfo-data WebsocketConnectionGetProtocolMethodInfo-data WebsocketConnectionGetStateMethodInfo-data WebsocketConnectionGetUriMethodInfo-data WebsocketConnectionSendBinaryMethodInfo-data WebsocketConnectionSendTextMethodInfo
− GI/Soup/Structs.hs 
@@ -1,53 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Structs-    (     module GI.Soup.Structs.Buffer           ,-    module GI.Soup.Structs.ClientContext    ,-    module GI.Soup.Structs.Connection       ,-    module GI.Soup.Structs.Cookie           ,-    module GI.Soup.Structs.Date             ,-    module GI.Soup.Structs.MessageBody      ,-    module GI.Soup.Structs.MessageHeaders   ,-    module GI.Soup.Structs.MessageHeadersIter,-    module GI.Soup.Structs.MessageQueue     ,-    module GI.Soup.Structs.MessageQueueItem ,-    module GI.Soup.Structs.Multipart        ,-    module GI.Soup.Structs.Range            ,-    module GI.Soup.Structs.URI              ,-    module GI.Soup.Structs.XMLRPCParams     ,---    ) where--import GI.Soup.Structs.Buffer-import GI.Soup.Structs.ClientContext-import GI.Soup.Structs.Connection-import GI.Soup.Structs.Cookie-import GI.Soup.Structs.Date-import GI.Soup.Structs.MessageBody-import GI.Soup.Structs.MessageHeaders-import GI.Soup.Structs.MessageHeadersIter-import GI.Soup.Structs.MessageQueue-import GI.Soup.Structs.MessageQueueItem-import GI.Soup.Structs.Multipart-import GI.Soup.Structs.Range-import GI.Soup.Structs.URI-import GI.Soup.Structs.XMLRPCParams--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks--
− GI/Soup/Structs/Buffer.hs 
@@ -1,435 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A data buffer, generally used to represent a chunk of a-#SoupMessageBody.--@data is a #char because that's generally convenient; in some-situations you may need to cast it to #guchar or another type.--}--module GI.Soup.Structs.Buffer-    ( ---- * Exported types-    Buffer(..)                              ,-    newZeroBuffer                           ,-    noBuffer                                ,--- -- * Methods--- ** bufferCopy-    BufferCopyMethodInfo                    ,-    bufferCopy                              ,----- ** bufferFree-    BufferFreeMethodInfo                    ,-    bufferFree                              ,----- ** bufferGetAsBytes-    BufferGetAsBytesMethodInfo              ,-    bufferGetAsBytes                        ,----- ** bufferGetData-    BufferGetDataMethodInfo                 ,-    bufferGetData                           ,----- ** bufferGetOwner-    BufferGetOwnerMethodInfo                ,-    bufferGetOwner                          ,----- ** bufferNew-    bufferNew                               ,----- ** bufferNewSubbuffer-    BufferNewSubbufferMethodInfo            ,-    bufferNewSubbuffer                      ,----- ** bufferNewWithOwner-    bufferNewWithOwner                      ,----- -- * Properties--- ** Data-    bufferClearData                         ,-    bufferData                              ,-    bufferReadData                          ,-    bufferWriteData                         ,----- ** Length-    bufferLength                            ,-    bufferReadLength                        ,-    bufferWriteLength                       ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GLib as GLib--newtype Buffer = Buffer (ForeignPtr Buffer)-foreign import ccall "soup_buffer_get_type" c_soup_buffer_get_type :: -    IO GType--instance BoxedObject Buffer where-    boxedType _ = c_soup_buffer_get_type---- | Construct a `Buffer` struct initialized to zero.-newZeroBuffer :: MonadIO m => m Buffer-newZeroBuffer = liftIO $ callocBoxedBytes 16 >>= wrapBoxed Buffer--instance tag ~ 'AttrSet => Constructible Buffer tag where-    new _ attrs = do-        o <- newZeroBuffer-        GI.Attributes.set o attrs-        return o---noBuffer :: Maybe Buffer-noBuffer = Nothing--bufferReadData :: MonadIO m => Buffer -> m (Ptr ())-bufferReadData s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr ())-    return val--bufferWriteData :: MonadIO m => Buffer -> Ptr () -> m ()-bufferWriteData s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr ())--bufferClearData :: MonadIO m => Buffer -> m ()-bufferClearData s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr ())--data BufferDataFieldInfo-instance AttrInfo BufferDataFieldInfo where-    type AttrAllowedOps BufferDataFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint BufferDataFieldInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint BufferDataFieldInfo = (~) Buffer-    type AttrGetType BufferDataFieldInfo = Ptr ()-    type AttrLabel BufferDataFieldInfo = "data"-    attrGet _ = bufferReadData-    attrSet _ = bufferWriteData-    attrConstruct = undefined-    attrClear _ = bufferClearData--bufferData :: AttrLabelProxy "data"-bufferData = AttrLabelProxy---bufferReadLength :: MonadIO m => Buffer -> m Word64-bufferReadLength s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Word64-    return val--bufferWriteLength :: MonadIO m => Buffer -> Word64 -> m ()-bufferWriteLength s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Word64)--data BufferLengthFieldInfo-instance AttrInfo BufferLengthFieldInfo where-    type AttrAllowedOps BufferLengthFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint BufferLengthFieldInfo = (~) Word64-    type AttrBaseTypeConstraint BufferLengthFieldInfo = (~) Buffer-    type AttrGetType BufferLengthFieldInfo = Word64-    type AttrLabel BufferLengthFieldInfo = "length"-    attrGet _ = bufferReadLength-    attrSet _ = bufferWriteLength-    attrConstruct = undefined-    attrClear _ = undefined--bufferLength :: AttrLabelProxy "length"-bufferLength = AttrLabelProxy----type instance AttributeList Buffer = BufferAttributeList-type BufferAttributeList = ('[ '("data", BufferDataFieldInfo), '("length", BufferLengthFieldInfo)] :: [(Symbol, *)])---- method Buffer::new--- method type : Constructor--- Args : [Arg {argCName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TInterface "Soup" "Buffer")--- throws : False--- Skip return : False--foreign import ccall "soup_buffer_new_take" soup_buffer_new_take :: -    Ptr Word8 ->                            -- data : TCArray False (-1) 1 (TBasicType TUInt8)-    Word64 ->                               -- length : TBasicType TUInt64-    IO (Ptr Buffer)---bufferNew ::-    (MonadIO m) =>-    ByteString                              -- data_-    -> m Buffer                             -- result-bufferNew data_ = liftIO $ do-    let length_ = fromIntegral $ B.length data_-    data_' <- packByteString data_-    result <- soup_buffer_new_take data_' length_-    checkUnexpectedReturnNULL "soup_buffer_new_take" result-    result' <- (wrapBoxed Buffer) result-    return result'---- method Buffer::new_with_owner--- method type : Constructor--- Args : [Arg {argCName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "owner", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "owner_dnotify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TInterface "Soup" "Buffer")--- throws : False--- Skip return : False--foreign import ccall "soup_buffer_new_with_owner" soup_buffer_new_with_owner :: -    Ptr Word8 ->                            -- data : TCArray False (-1) 1 (TBasicType TUInt8)-    Word64 ->                               -- length : TBasicType TUInt64-    Ptr () ->                               -- owner : TBasicType TPtr-    FunPtr GLib.DestroyNotifyC ->           -- owner_dnotify : TInterface "GLib" "DestroyNotify"-    IO (Ptr Buffer)---bufferNewWithOwner ::-    (MonadIO m) =>-    ByteString                              -- data_-    -> Ptr ()                               -- owner-    -> Maybe (GLib.DestroyNotify)           -- ownerDnotify-    -> m Buffer                             -- result-bufferNewWithOwner data_ owner ownerDnotify = liftIO $ do-    let length_ = fromIntegral $ B.length data_-    data_' <- packByteString data_-    ptrownerDnotify <- callocMem :: IO (Ptr (FunPtr GLib.DestroyNotifyC))-    maybeOwnerDnotify <- case ownerDnotify of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jOwnerDnotify -> do-            jOwnerDnotify' <- GLib.mkDestroyNotify (GLib.destroyNotifyWrapper (Just ptrownerDnotify) jOwnerDnotify)-            poke ptrownerDnotify jOwnerDnotify'-            return jOwnerDnotify'-    result <- soup_buffer_new_with_owner data_' length_ owner maybeOwnerDnotify-    checkUnexpectedReturnNULL "soup_buffer_new_with_owner" result-    result' <- (wrapBoxed Buffer) result-    freeMem data_'-    return result'---- method Buffer::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Buffer")--- throws : False--- Skip return : False--foreign import ccall "soup_buffer_copy" soup_buffer_copy :: -    Ptr Buffer ->                           -- _obj : TInterface "Soup" "Buffer"-    IO (Ptr Buffer)---bufferCopy ::-    (MonadIO m) =>-    Buffer                                  -- _obj-    -> m Buffer                             -- result-bufferCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_buffer_copy _obj'-    checkUnexpectedReturnNULL "soup_buffer_copy" result-    result' <- (wrapBoxed Buffer) result-    touchManagedPtr _obj-    return result'--data BufferCopyMethodInfo-instance (signature ~ (m Buffer), MonadIO m) => MethodInfo BufferCopyMethodInfo Buffer signature where-    overloadedMethod _ = bufferCopy---- method Buffer::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_buffer_free" soup_buffer_free :: -    Ptr Buffer ->                           -- _obj : TInterface "Soup" "Buffer"-    IO ()---bufferFree ::-    (MonadIO m) =>-    Buffer                                  -- _obj-    -> m ()                                 -- result-bufferFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_buffer_free _obj'-    touchManagedPtr _obj-    return ()--data BufferFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo BufferFreeMethodInfo Buffer signature where-    overloadedMethod _ = bufferFree---- method Buffer::get_as_bytes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GLib" "Bytes")--- throws : False--- Skip return : False--foreign import ccall "soup_buffer_get_as_bytes" soup_buffer_get_as_bytes :: -    Ptr Buffer ->                           -- _obj : TInterface "Soup" "Buffer"-    IO (Ptr GLib.Bytes)---bufferGetAsBytes ::-    (MonadIO m) =>-    Buffer                                  -- _obj-    -> m GLib.Bytes                         -- result-bufferGetAsBytes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_buffer_get_as_bytes _obj'-    checkUnexpectedReturnNULL "soup_buffer_get_as_bytes" result-    result' <- (wrapBoxed GLib.Bytes) result-    touchManagedPtr _obj-    return result'--data BufferGetAsBytesMethodInfo-instance (signature ~ (m GLib.Bytes), MonadIO m) => MethodInfo BufferGetAsBytesMethodInfo Buffer signature where-    overloadedMethod _ = bufferGetAsBytes---- method Buffer::get_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_buffer_get_data" soup_buffer_get_data :: -    Ptr Buffer ->                           -- _obj : TInterface "Soup" "Buffer"-    Ptr (Ptr Word8) ->                      -- data : TCArray False (-1) 2 (TBasicType TUInt8)-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    IO ()---bufferGetData ::-    (MonadIO m) =>-    Buffer                                  -- _obj-    -> m (ByteString)                       -- result-bufferGetData _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    data_ <- allocMem :: IO (Ptr (Ptr Word8))-    length_ <- allocMem :: IO (Ptr Word64)-    soup_buffer_get_data _obj' data_ length_-    length_' <- peek length_-    data_' <- peek data_-    data_'' <- (unpackByteStringWithLength length_') data_'-    touchManagedPtr _obj-    freeMem data_-    freeMem length_-    return data_''--data BufferGetDataMethodInfo-instance (signature ~ (m (ByteString)), MonadIO m) => MethodInfo BufferGetDataMethodInfo Buffer signature where-    overloadedMethod _ = bufferGetData---- method Buffer::get_owner--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TPtr)--- throws : False--- Skip return : False--foreign import ccall "soup_buffer_get_owner" soup_buffer_get_owner :: -    Ptr Buffer ->                           -- _obj : TInterface "Soup" "Buffer"-    IO (Ptr ())---bufferGetOwner ::-    (MonadIO m) =>-    Buffer                                  -- _obj-    -> m (Ptr ())                           -- result-bufferGetOwner _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_buffer_get_owner _obj'-    touchManagedPtr _obj-    return result--data BufferGetOwnerMethodInfo-instance (signature ~ (m (Ptr ())), MonadIO m) => MethodInfo BufferGetOwnerMethodInfo Buffer signature where-    overloadedMethod _ = bufferGetOwner---- method Buffer::new_subbuffer--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Buffer")--- throws : False--- Skip return : False--foreign import ccall "soup_buffer_new_subbuffer" soup_buffer_new_subbuffer :: -    Ptr Buffer ->                           -- _obj : TInterface "Soup" "Buffer"-    Word64 ->                               -- offset : TBasicType TUInt64-    Word64 ->                               -- length : TBasicType TUInt64-    IO (Ptr Buffer)---bufferNewSubbuffer ::-    (MonadIO m) =>-    Buffer                                  -- _obj-    -> Word64                               -- offset-    -> Word64                               -- length_-    -> m Buffer                             -- result-bufferNewSubbuffer _obj offset length_ = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_buffer_new_subbuffer _obj' offset length_-    checkUnexpectedReturnNULL "soup_buffer_new_subbuffer" result-    result' <- (wrapBoxed Buffer) result-    touchManagedPtr _obj-    return result'--data BufferNewSubbufferMethodInfo-instance (signature ~ (Word64 -> Word64 -> m Buffer), MonadIO m) => MethodInfo BufferNewSubbufferMethodInfo Buffer signature where-    overloadedMethod _ = bufferNewSubbuffer--type family ResolveBufferMethod (t :: Symbol) (o :: *) :: * where-    ResolveBufferMethod "copy" o = BufferCopyMethodInfo-    ResolveBufferMethod "free" o = BufferFreeMethodInfo-    ResolveBufferMethod "newSubbuffer" o = BufferNewSubbufferMethodInfo-    ResolveBufferMethod "getAsBytes" o = BufferGetAsBytesMethodInfo-    ResolveBufferMethod "getData" o = BufferGetDataMethodInfo-    ResolveBufferMethod "getOwner" o = BufferGetOwnerMethodInfo-    ResolveBufferMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveBufferMethod t Buffer, MethodInfo info Buffer p) => IsLabelProxy t (Buffer -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveBufferMethod t Buffer, MethodInfo info Buffer p) => IsLabel t (Buffer -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Soup/Structs/Buffer.hs-boot 
@@ -1,17 +0,0 @@-module GI.Soup.Structs.Buffer where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Buffer = Buffer (ForeignPtr Buffer)-instance BoxedObject Buffer where-data BufferCopyMethodInfo-data BufferFreeMethodInfo-data BufferGetAsBytesMethodInfo-data BufferGetDataMethodInfo-data BufferGetOwnerMethodInfo-data BufferNewSubbufferMethodInfo
− GI/Soup/Structs/ClientContext.hs 
@@ -1,392 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A #SoupClientContext provides additional information about the-client making a particular request. In particular, you can use-soup_client_context_get_auth_domain() and-soup_client_context_get_auth_user() to determine if HTTP-authentication was used successfully.--soup_client_context_get_remote_address() and/or-soup_client_context_get_host() can be used to get information for-logging or debugging purposes. soup_client_context_get_gsocket() may-also be of use in some situations (eg, tracking when multiple-requests are made on the same connection).--}--module GI.Soup.Structs.ClientContext-    ( ---- * Exported types-    ClientContext(..)                       ,-    noClientContext                         ,--- -- * Methods--- ** clientContextGetAddress-    ClientContextGetAddressMethodInfo       ,-    clientContextGetAddress                 ,----- ** clientContextGetAuthDomain-    ClientContextGetAuthDomainMethodInfo    ,-    clientContextGetAuthDomain              ,----- ** clientContextGetAuthUser-    ClientContextGetAuthUserMethodInfo      ,-    clientContextGetAuthUser                ,----- ** clientContextGetGsocket-    ClientContextGetGsocketMethodInfo       ,-    clientContextGetGsocket                 ,----- ** clientContextGetHost-    ClientContextGetHostMethodInfo          ,-    clientContextGetHost                    ,----- ** clientContextGetLocalAddress-    ClientContextGetLocalAddressMethodInfo  ,-    clientContextGetLocalAddress            ,----- ** clientContextGetRemoteAddress-    ClientContextGetRemoteAddressMethodInfo ,-    clientContextGetRemoteAddress           ,----- ** clientContextGetSocket-    ClientContextGetSocketMethodInfo        ,-    clientContextGetSocket                  ,----- ** clientContextStealConnection-    ClientContextStealConnectionMethodInfo  ,-    clientContextStealConnection            ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.Gio as Gio--newtype ClientContext = ClientContext (ForeignPtr ClientContext)-foreign import ccall "soup_client_context_get_type" c_soup_client_context_get_type :: -    IO GType--instance BoxedObject ClientContext where-    boxedType _ = c_soup_client_context_get_type--noClientContext :: Maybe ClientContext-noClientContext = Nothing---type instance AttributeList ClientContext = ClientContextAttributeList-type ClientContextAttributeList = ('[ ] :: [(Symbol, *)])---- method ClientContext::get_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Address")--- throws : False--- Skip return : False--foreign import ccall "soup_client_context_get_address" soup_client_context_get_address :: -    Ptr ClientContext ->                    -- _obj : TInterface "Soup" "ClientContext"-    IO (Ptr Address)--{-# DEPRECATED clientContextGetAddress ["Use soup_client_context_get_remote_address(), which returns","a #GSocketAddress."]#-}-clientContextGetAddress ::-    (MonadIO m) =>-    ClientContext                           -- _obj-    -> m (Maybe Address)                    -- result-clientContextGetAddress _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_client_context_get_address _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Address) result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data ClientContextGetAddressMethodInfo-instance (signature ~ (m (Maybe Address)), MonadIO m) => MethodInfo ClientContextGetAddressMethodInfo ClientContext signature where-    overloadedMethod _ = clientContextGetAddress---- method ClientContext::get_auth_domain--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "AuthDomain")--- throws : False--- Skip return : False--foreign import ccall "soup_client_context_get_auth_domain" soup_client_context_get_auth_domain :: -    Ptr ClientContext ->                    -- _obj : TInterface "Soup" "ClientContext"-    IO (Ptr AuthDomain)---clientContextGetAuthDomain ::-    (MonadIO m) =>-    ClientContext                           -- _obj-    -> m (Maybe AuthDomain)                 -- result-clientContextGetAuthDomain _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_client_context_get_auth_domain _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject AuthDomain) result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data ClientContextGetAuthDomainMethodInfo-instance (signature ~ (m (Maybe AuthDomain)), MonadIO m) => MethodInfo ClientContextGetAuthDomainMethodInfo ClientContext signature where-    overloadedMethod _ = clientContextGetAuthDomain---- method ClientContext::get_auth_user--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_client_context_get_auth_user" soup_client_context_get_auth_user :: -    Ptr ClientContext ->                    -- _obj : TInterface "Soup" "ClientContext"-    IO CString---clientContextGetAuthUser ::-    (MonadIO m) =>-    ClientContext                           -- _obj-    -> m (Maybe T.Text)                     -- result-clientContextGetAuthUser _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_client_context_get_auth_user _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data ClientContextGetAuthUserMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m) => MethodInfo ClientContextGetAuthUserMethodInfo ClientContext signature where-    overloadedMethod _ = clientContextGetAuthUser---- method ClientContext::get_gsocket--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "Socket")--- throws : False--- Skip return : False--foreign import ccall "soup_client_context_get_gsocket" soup_client_context_get_gsocket :: -    Ptr ClientContext ->                    -- _obj : TInterface "Soup" "ClientContext"-    IO (Ptr Gio.Socket)---clientContextGetGsocket ::-    (MonadIO m) =>-    ClientContext                           -- _obj-    -> m (Maybe Gio.Socket)                 -- result-clientContextGetGsocket _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_client_context_get_gsocket _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Gio.Socket) result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data ClientContextGetGsocketMethodInfo-instance (signature ~ (m (Maybe Gio.Socket)), MonadIO m) => MethodInfo ClientContextGetGsocketMethodInfo ClientContext signature where-    overloadedMethod _ = clientContextGetGsocket---- method ClientContext::get_host--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_client_context_get_host" soup_client_context_get_host :: -    Ptr ClientContext ->                    -- _obj : TInterface "Soup" "ClientContext"-    IO CString---clientContextGetHost ::-    (MonadIO m) =>-    ClientContext                           -- _obj-    -> m (Maybe T.Text)                     -- result-clientContextGetHost _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_client_context_get_host _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data ClientContextGetHostMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m) => MethodInfo ClientContextGetHostMethodInfo ClientContext signature where-    overloadedMethod _ = clientContextGetHost---- method ClientContext::get_local_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketAddress")--- throws : False--- Skip return : False--foreign import ccall "soup_client_context_get_local_address" soup_client_context_get_local_address :: -    Ptr ClientContext ->                    -- _obj : TInterface "Soup" "ClientContext"-    IO (Ptr Gio.SocketAddress)---clientContextGetLocalAddress ::-    (MonadIO m) =>-    ClientContext                           -- _obj-    -> m (Maybe Gio.SocketAddress)          -- result-clientContextGetLocalAddress _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_client_context_get_local_address _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Gio.SocketAddress) result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data ClientContextGetLocalAddressMethodInfo-instance (signature ~ (m (Maybe Gio.SocketAddress)), MonadIO m) => MethodInfo ClientContextGetLocalAddressMethodInfo ClientContext signature where-    overloadedMethod _ = clientContextGetLocalAddress---- method ClientContext::get_remote_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "SocketAddress")--- throws : False--- Skip return : False--foreign import ccall "soup_client_context_get_remote_address" soup_client_context_get_remote_address :: -    Ptr ClientContext ->                    -- _obj : TInterface "Soup" "ClientContext"-    IO (Ptr Gio.SocketAddress)---clientContextGetRemoteAddress ::-    (MonadIO m) =>-    ClientContext                           -- _obj-    -> m (Maybe Gio.SocketAddress)          -- result-clientContextGetRemoteAddress _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_client_context_get_remote_address _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Gio.SocketAddress) result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data ClientContextGetRemoteAddressMethodInfo-instance (signature ~ (m (Maybe Gio.SocketAddress)), MonadIO m) => MethodInfo ClientContextGetRemoteAddressMethodInfo ClientContext signature where-    overloadedMethod _ = clientContextGetRemoteAddress---- method ClientContext::get_socket--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Socket")--- throws : False--- Skip return : False--foreign import ccall "soup_client_context_get_socket" soup_client_context_get_socket :: -    Ptr ClientContext ->                    -- _obj : TInterface "Soup" "ClientContext"-    IO (Ptr Socket)--{-# DEPRECATED clientContextGetSocket ["use soup_client_context_get_gsocket(), which returns","a #GSocket."]#-}-clientContextGetSocket ::-    (MonadIO m) =>-    ClientContext                           -- _obj-    -> m Socket                             -- result-clientContextGetSocket _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_client_context_get_socket _obj'-    checkUnexpectedReturnNULL "soup_client_context_get_socket" result-    result' <- (newObject Socket) result-    touchManagedPtr _obj-    return result'--data ClientContextGetSocketMethodInfo-instance (signature ~ (m Socket), MonadIO m) => MethodInfo ClientContextGetSocketMethodInfo ClientContext signature where-    overloadedMethod _ = clientContextGetSocket---- method ClientContext::steal_connection--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "ClientContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gio" "IOStream")--- throws : False--- Skip return : False--foreign import ccall "soup_client_context_steal_connection" soup_client_context_steal_connection :: -    Ptr ClientContext ->                    -- _obj : TInterface "Soup" "ClientContext"-    IO (Ptr Gio.IOStream)---clientContextStealConnection ::-    (MonadIO m) =>-    ClientContext                           -- _obj-    -> m Gio.IOStream                       -- result-clientContextStealConnection _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_client_context_steal_connection _obj'-    checkUnexpectedReturnNULL "soup_client_context_steal_connection" result-    result' <- (wrapObject Gio.IOStream) result-    touchManagedPtr _obj-    return result'--data ClientContextStealConnectionMethodInfo-instance (signature ~ (m Gio.IOStream), MonadIO m) => MethodInfo ClientContextStealConnectionMethodInfo ClientContext signature where-    overloadedMethod _ = clientContextStealConnection--type family ResolveClientContextMethod (t :: Symbol) (o :: *) :: * where-    ResolveClientContextMethod "stealConnection" o = ClientContextStealConnectionMethodInfo-    ResolveClientContextMethod "getAddress" o = ClientContextGetAddressMethodInfo-    ResolveClientContextMethod "getAuthDomain" o = ClientContextGetAuthDomainMethodInfo-    ResolveClientContextMethod "getAuthUser" o = ClientContextGetAuthUserMethodInfo-    ResolveClientContextMethod "getGsocket" o = ClientContextGetGsocketMethodInfo-    ResolveClientContextMethod "getHost" o = ClientContextGetHostMethodInfo-    ResolveClientContextMethod "getLocalAddress" o = ClientContextGetLocalAddressMethodInfo-    ResolveClientContextMethod "getRemoteAddress" o = ClientContextGetRemoteAddressMethodInfo-    ResolveClientContextMethod "getSocket" o = ClientContextGetSocketMethodInfo-    ResolveClientContextMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveClientContextMethod t ClientContext, MethodInfo info ClientContext p) => IsLabelProxy t (ClientContext -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveClientContextMethod t ClientContext, MethodInfo info ClientContext p) => IsLabel t (ClientContext -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Soup/Structs/ClientContext.hs-boot 
@@ -1,20 +0,0 @@-module GI.Soup.Structs.ClientContext where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype ClientContext = ClientContext (ForeignPtr ClientContext)-instance BoxedObject ClientContext where-data ClientContextGetAddressMethodInfo-data ClientContextGetAuthDomainMethodInfo-data ClientContextGetAuthUserMethodInfo-data ClientContextGetGsocketMethodInfo-data ClientContextGetHostMethodInfo-data ClientContextGetLocalAddressMethodInfo-data ClientContextGetRemoteAddressMethodInfo-data ClientContextGetSocketMethodInfo-data ClientContextStealConnectionMethodInfo
− GI/Soup/Structs/Connection.hs 
@@ -1,54 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Structs.Connection-    ( ---- * Exported types-    Connection(..)                          ,-    noConnection                            ,---    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks--newtype Connection = Connection (ForeignPtr Connection)--- XXX Wrapping a foreign struct/union with no known destructor or size, leak?-instance WrappedPtr Connection where-    wrappedPtrCalloc = return nullPtr-    wrappedPtrCopy = return-    wrappedPtrFree = Nothing--noConnection :: Maybe Connection-noConnection = Nothing---type instance AttributeList Connection = ConnectionAttributeList-type ConnectionAttributeList = ('[ ] :: [(Symbol, *)])--type family ResolveConnectionMethod (t :: Symbol) (o :: *) :: * where-    ResolveConnectionMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveConnectionMethod t Connection, MethodInfo info Connection p) => IsLabelProxy t (Connection -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveConnectionMethod t Connection, MethodInfo info Connection p) => IsLabel t (Connection -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Soup/Structs/Connection.hs-boot 
@@ -1,11 +0,0 @@-module GI.Soup.Structs.Connection where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Connection = Connection (ForeignPtr Connection)-instance WrappedPtr Connection where
− GI/Soup/Structs/Cookie.hs 
@@ -1,1220 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--An HTTP cookie.--@name and @value will be set for all cookies. If the cookie is-generated from a string that appears to have no name, then @name-will be the empty string.--@domain and @path give the host or domain, and path within that-host/domain, to restrict this cookie to. If @domain starts with-".", that indicates a domain (which matches the string after the-".", or any hostname that has @domain as a suffix). Otherwise, it-is a hostname and must match exactly.--@expires will be non-%NULL if the cookie uses either the original-"expires" attribute, or the newer "max-age" attribute. If @expires-is %NULL, it indicates that neither "expires" nor "max-age" was-specified, and the cookie expires at the end of the session.--If @http_only is set, the cookie should not be exposed to untrusted-code (eg, javascript), so as to minimize the danger posed by-cross-site scripting attacks.--}--module GI.Soup.Structs.Cookie-    ( ---- * Exported types-    Cookie(..)                              ,-    newZeroCookie                           ,-    noCookie                                ,--- -- * Methods--- ** cookieAppliesToUri-    CookieAppliesToUriMethodInfo            ,-    cookieAppliesToUri                      ,----- ** cookieCopy-    CookieCopyMethodInfo                    ,-    cookieCopy                              ,----- ** cookieDomainMatches-    CookieDomainMatchesMethodInfo           ,-    cookieDomainMatches                     ,----- ** cookieEqual-    CookieEqualMethodInfo                   ,-    cookieEqual                             ,----- ** cookieFree-    CookieFreeMethodInfo                    ,-    cookieFree                              ,----- ** cookieGetDomain-    CookieGetDomainMethodInfo               ,-    cookieGetDomain                         ,----- ** cookieGetExpires-    CookieGetExpiresMethodInfo              ,-    cookieGetExpires                        ,----- ** cookieGetHttpOnly-    CookieGetHttpOnlyMethodInfo             ,-    cookieGetHttpOnly                       ,----- ** cookieGetName-    CookieGetNameMethodInfo                 ,-    cookieGetName                           ,----- ** cookieGetPath-    CookieGetPathMethodInfo                 ,-    cookieGetPath                           ,----- ** cookieGetSecure-    CookieGetSecureMethodInfo               ,-    cookieGetSecure                         ,----- ** cookieGetValue-    CookieGetValueMethodInfo                ,-    cookieGetValue                          ,----- ** cookieNew-    cookieNew                               ,----- ** cookieParse-    cookieParse                             ,----- ** cookieSetDomain-    CookieSetDomainMethodInfo               ,-    cookieSetDomain                         ,----- ** cookieSetExpires-    CookieSetExpiresMethodInfo              ,-    cookieSetExpires                        ,----- ** cookieSetHttpOnly-    CookieSetHttpOnlyMethodInfo             ,-    cookieSetHttpOnly                       ,----- ** cookieSetMaxAge-    CookieSetMaxAgeMethodInfo               ,-    cookieSetMaxAge                         ,----- ** cookieSetName-    CookieSetNameMethodInfo                 ,-    cookieSetName                           ,----- ** cookieSetPath-    CookieSetPathMethodInfo                 ,-    cookieSetPath                           ,----- ** cookieSetSecure-    CookieSetSecureMethodInfo               ,-    cookieSetSecure                         ,----- ** cookieSetValue-    CookieSetValueMethodInfo                ,-    cookieSetValue                          ,----- ** cookieToCookieHeader-    CookieToCookieHeaderMethodInfo          ,-    cookieToCookieHeader                    ,----- ** cookieToSetCookieHeader-    CookieToSetCookieHeaderMethodInfo       ,-    cookieToSetCookieHeader                 ,----- -- * Properties--- ** Domain-    cookieClearDomain                       ,-    cookieDomain                            ,-    cookieReadDomain                        ,-    cookieWriteDomain                       ,----- ** Expires-    cookieClearExpires                      ,-    cookieExpires                           ,-    cookieReadExpires                       ,-    cookieWriteExpires                      ,----- ** HttpOnly-    cookieHttpOnly                          ,-    cookieReadHttpOnly                      ,-    cookieWriteHttpOnly                     ,----- ** Name-    cookieClearName                         ,-    cookieName                              ,-    cookieReadName                          ,-    cookieWriteName                         ,----- ** Path-    cookieClearPath                         ,-    cookiePath                              ,-    cookieReadPath                          ,-    cookieWritePath                         ,----- ** Secure-    cookieReadSecure                        ,-    cookieSecure                            ,-    cookieWriteSecure                       ,----- ** Value-    cookieClearValue                        ,-    cookieReadValue                         ,-    cookieValue                             ,-    cookieWriteValue                        ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks--newtype Cookie = Cookie (ForeignPtr Cookie)-foreign import ccall "soup_cookie_get_type" c_soup_cookie_get_type :: -    IO GType--instance BoxedObject Cookie where-    boxedType _ = c_soup_cookie_get_type---- | Construct a `Cookie` struct initialized to zero.-newZeroCookie :: MonadIO m => m Cookie-newZeroCookie = liftIO $ callocBoxedBytes 48 >>= wrapBoxed Cookie--instance tag ~ 'AttrSet => Constructible Cookie tag where-    new _ attrs = do-        o <- newZeroCookie-        GI.Attributes.set o attrs-        return o---noCookie :: Maybe Cookie-noCookie = Nothing--cookieReadName :: MonadIO m => Cookie -> m (Maybe T.Text)-cookieReadName s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--cookieWriteName :: MonadIO m => Cookie -> CString -> m ()-cookieWriteName s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: CString)--cookieClearName :: MonadIO m => Cookie -> m ()-cookieClearName s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: CString)--data CookieNameFieldInfo-instance AttrInfo CookieNameFieldInfo where-    type AttrAllowedOps CookieNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint CookieNameFieldInfo = (~) CString-    type AttrBaseTypeConstraint CookieNameFieldInfo = (~) Cookie-    type AttrGetType CookieNameFieldInfo = Maybe T.Text-    type AttrLabel CookieNameFieldInfo = "name"-    attrGet _ = cookieReadName-    attrSet _ = cookieWriteName-    attrConstruct = undefined-    attrClear _ = cookieClearName--cookieName :: AttrLabelProxy "name"-cookieName = AttrLabelProxy---cookieReadValue :: MonadIO m => Cookie -> m (Maybe T.Text)-cookieReadValue s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--cookieWriteValue :: MonadIO m => Cookie -> CString -> m ()-cookieWriteValue s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: CString)--cookieClearValue :: MonadIO m => Cookie -> m ()-cookieClearValue s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: CString)--data CookieValueFieldInfo-instance AttrInfo CookieValueFieldInfo where-    type AttrAllowedOps CookieValueFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint CookieValueFieldInfo = (~) CString-    type AttrBaseTypeConstraint CookieValueFieldInfo = (~) Cookie-    type AttrGetType CookieValueFieldInfo = Maybe T.Text-    type AttrLabel CookieValueFieldInfo = "value"-    attrGet _ = cookieReadValue-    attrSet _ = cookieWriteValue-    attrConstruct = undefined-    attrClear _ = cookieClearValue--cookieValue :: AttrLabelProxy "value"-cookieValue = AttrLabelProxy---cookieReadDomain :: MonadIO m => Cookie -> m (Maybe T.Text)-cookieReadDomain s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--cookieWriteDomain :: MonadIO m => Cookie -> CString -> m ()-cookieWriteDomain s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: CString)--cookieClearDomain :: MonadIO m => Cookie -> m ()-cookieClearDomain s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (nullPtr :: CString)--data CookieDomainFieldInfo-instance AttrInfo CookieDomainFieldInfo where-    type AttrAllowedOps CookieDomainFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint CookieDomainFieldInfo = (~) CString-    type AttrBaseTypeConstraint CookieDomainFieldInfo = (~) Cookie-    type AttrGetType CookieDomainFieldInfo = Maybe T.Text-    type AttrLabel CookieDomainFieldInfo = "domain"-    attrGet _ = cookieReadDomain-    attrSet _ = cookieWriteDomain-    attrConstruct = undefined-    attrClear _ = cookieClearDomain--cookieDomain :: AttrLabelProxy "domain"-cookieDomain = AttrLabelProxy---cookieReadPath :: MonadIO m => Cookie -> m (Maybe T.Text)-cookieReadPath s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--cookieWritePath :: MonadIO m => Cookie -> CString -> m ()-cookieWritePath s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: CString)--cookieClearPath :: MonadIO m => Cookie -> m ()-cookieClearPath s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (nullPtr :: CString)--data CookiePathFieldInfo-instance AttrInfo CookiePathFieldInfo where-    type AttrAllowedOps CookiePathFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint CookiePathFieldInfo = (~) CString-    type AttrBaseTypeConstraint CookiePathFieldInfo = (~) Cookie-    type AttrGetType CookiePathFieldInfo = Maybe T.Text-    type AttrLabel CookiePathFieldInfo = "path"-    attrGet _ = cookieReadPath-    attrSet _ = cookieWritePath-    attrConstruct = undefined-    attrClear _ = cookieClearPath--cookiePath :: AttrLabelProxy "path"-cookiePath = AttrLabelProxy---cookieReadExpires :: MonadIO m => Cookie -> m (Maybe Date)-cookieReadExpires s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO (Ptr Date)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newBoxed Date) val'-        return val''-    return result--cookieWriteExpires :: MonadIO m => Cookie -> Ptr Date -> m ()-cookieWriteExpires s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (val :: Ptr Date)--cookieClearExpires :: MonadIO m => Cookie -> m ()-cookieClearExpires s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (nullPtr :: Ptr Date)--data CookieExpiresFieldInfo-instance AttrInfo CookieExpiresFieldInfo where-    type AttrAllowedOps CookieExpiresFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint CookieExpiresFieldInfo = (~) (Ptr Date)-    type AttrBaseTypeConstraint CookieExpiresFieldInfo = (~) Cookie-    type AttrGetType CookieExpiresFieldInfo = Maybe Date-    type AttrLabel CookieExpiresFieldInfo = "expires"-    attrGet _ = cookieReadExpires-    attrSet _ = cookieWriteExpires-    attrConstruct = undefined-    attrClear _ = cookieClearExpires--cookieExpires :: AttrLabelProxy "expires"-cookieExpires = AttrLabelProxy---cookieReadSecure :: MonadIO m => Cookie -> m Bool-cookieReadSecure s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO CInt-    let val' = (/= 0) val-    return val'--cookieWriteSecure :: MonadIO m => Cookie -> Bool -> m ()-cookieWriteSecure s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 40) (val' :: CInt)--data CookieSecureFieldInfo-instance AttrInfo CookieSecureFieldInfo where-    type AttrAllowedOps CookieSecureFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint CookieSecureFieldInfo = (~) Bool-    type AttrBaseTypeConstraint CookieSecureFieldInfo = (~) Cookie-    type AttrGetType CookieSecureFieldInfo = Bool-    type AttrLabel CookieSecureFieldInfo = "secure"-    attrGet _ = cookieReadSecure-    attrSet _ = cookieWriteSecure-    attrConstruct = undefined-    attrClear _ = undefined--cookieSecure :: AttrLabelProxy "secure"-cookieSecure = AttrLabelProxy---cookieReadHttpOnly :: MonadIO m => Cookie -> m Bool-cookieReadHttpOnly s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 44) :: IO CInt-    let val' = (/= 0) val-    return val'--cookieWriteHttpOnly :: MonadIO m => Cookie -> Bool -> m ()-cookieWriteHttpOnly s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 44) (val' :: CInt)--data CookieHttpOnlyFieldInfo-instance AttrInfo CookieHttpOnlyFieldInfo where-    type AttrAllowedOps CookieHttpOnlyFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint CookieHttpOnlyFieldInfo = (~) Bool-    type AttrBaseTypeConstraint CookieHttpOnlyFieldInfo = (~) Cookie-    type AttrGetType CookieHttpOnlyFieldInfo = Bool-    type AttrLabel CookieHttpOnlyFieldInfo = "http_only"-    attrGet _ = cookieReadHttpOnly-    attrSet _ = cookieWriteHttpOnly-    attrConstruct = undefined-    attrClear _ = undefined--cookieHttpOnly :: AttrLabelProxy "httpOnly"-cookieHttpOnly = AttrLabelProxy----type instance AttributeList Cookie = CookieAttributeList-type CookieAttributeList = ('[ '("name", CookieNameFieldInfo), '("value", CookieValueFieldInfo), '("domain", CookieDomainFieldInfo), '("path", CookiePathFieldInfo), '("expires", CookieExpiresFieldInfo), '("secure", CookieSecureFieldInfo), '("httpOnly", CookieHttpOnlyFieldInfo)] :: [(Symbol, *)])---- method Cookie::new--- method type : Constructor--- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_age", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Cookie")--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_new" soup_cookie_new :: -    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- value : TBasicType TUTF8-    CString ->                              -- domain : TBasicType TUTF8-    CString ->                              -- path : TBasicType TUTF8-    Int32 ->                                -- max_age : TBasicType TInt-    IO (Ptr Cookie)---cookieNew ::-    (MonadIO m) =>-    T.Text                                  -- name-    -> T.Text                               -- value-    -> T.Text                               -- domain-    -> T.Text                               -- path-    -> Int32                                -- maxAge-    -> m Cookie                             -- result-cookieNew name value domain path maxAge = liftIO $ do-    name' <- textToCString name-    value' <- textToCString value-    domain' <- textToCString domain-    path' <- textToCString path-    result <- soup_cookie_new name' value' domain' path' maxAge-    checkUnexpectedReturnNULL "soup_cookie_new" result-    result' <- (wrapBoxed Cookie) result-    freeMem name'-    freeMem value'-    freeMem domain'-    freeMem path'-    return result'---- method Cookie::applies_to_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_applies_to_uri" soup_cookie_applies_to_uri :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    Ptr URI ->                              -- uri : TInterface "Soup" "URI"-    IO CInt---cookieAppliesToUri ::-    (MonadIO m) =>-    Cookie                                  -- _obj-    -> URI                                  -- uri-    -> m Bool                               -- result-cookieAppliesToUri _obj uri = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let uri' = unsafeManagedPtrGetPtr uri-    result <- soup_cookie_applies_to_uri _obj' uri'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr uri-    return result'--data CookieAppliesToUriMethodInfo-instance (signature ~ (URI -> m Bool), MonadIO m) => MethodInfo CookieAppliesToUriMethodInfo Cookie signature where-    overloadedMethod _ = cookieAppliesToUri---- method Cookie::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Cookie")--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_copy" soup_cookie_copy :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    IO (Ptr Cookie)---cookieCopy ::-    (MonadIO m) =>-    Cookie                                  -- _obj-    -> m Cookie                             -- result-cookieCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_cookie_copy _obj'-    checkUnexpectedReturnNULL "soup_cookie_copy" result-    result' <- (wrapBoxed Cookie) result-    touchManagedPtr _obj-    return result'--data CookieCopyMethodInfo-instance (signature ~ (m Cookie), MonadIO m) => MethodInfo CookieCopyMethodInfo Cookie signature where-    overloadedMethod _ = cookieCopy---- method Cookie::domain_matches--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_domain_matches" soup_cookie_domain_matches :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    CString ->                              -- host : TBasicType TUTF8-    IO CInt---cookieDomainMatches ::-    (MonadIO m) =>-    Cookie                                  -- _obj-    -> T.Text                               -- host-    -> m Bool                               -- result-cookieDomainMatches _obj host = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    host' <- textToCString host-    result <- soup_cookie_domain_matches _obj' host'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem host'-    return result'--data CookieDomainMatchesMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m) => MethodInfo CookieDomainMatchesMethodInfo Cookie signature where-    overloadedMethod _ = cookieDomainMatches---- method Cookie::equal--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie2", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_equal" soup_cookie_equal :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    Ptr Cookie ->                           -- cookie2 : TInterface "Soup" "Cookie"-    IO CInt---cookieEqual ::-    (MonadIO m) =>-    Cookie                                  -- _obj-    -> Cookie                               -- cookie2-    -> m Bool                               -- result-cookieEqual _obj cookie2 = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let cookie2' = unsafeManagedPtrGetPtr cookie2-    result <- soup_cookie_equal _obj' cookie2'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr cookie2-    return result'--data CookieEqualMethodInfo-instance (signature ~ (Cookie -> m Bool), MonadIO m) => MethodInfo CookieEqualMethodInfo Cookie signature where-    overloadedMethod _ = cookieEqual---- method Cookie::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_free" soup_cookie_free :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    IO ()---cookieFree ::-    (MonadIO m) =>-    Cookie                                  -- _obj-    -> m ()                                 -- result-cookieFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_cookie_free _obj'-    touchManagedPtr _obj-    return ()--data CookieFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo CookieFreeMethodInfo Cookie signature where-    overloadedMethod _ = cookieFree---- method Cookie::get_domain--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_get_domain" soup_cookie_get_domain :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    IO CString---cookieGetDomain ::-    (MonadIO m) =>-    Cookie                                  -- _obj-    -> m T.Text                             -- result-cookieGetDomain _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_cookie_get_domain _obj'-    checkUnexpectedReturnNULL "soup_cookie_get_domain" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data CookieGetDomainMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo CookieGetDomainMethodInfo Cookie signature where-    overloadedMethod _ = cookieGetDomain---- method Cookie::get_expires--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Date")--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_get_expires" soup_cookie_get_expires :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    IO (Ptr Date)---cookieGetExpires ::-    (MonadIO m) =>-    Cookie                                  -- _obj-    -> m Date                               -- result-cookieGetExpires _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_cookie_get_expires _obj'-    checkUnexpectedReturnNULL "soup_cookie_get_expires" result-    result' <- (newBoxed Date) result-    touchManagedPtr _obj-    return result'--data CookieGetExpiresMethodInfo-instance (signature ~ (m Date), MonadIO m) => MethodInfo CookieGetExpiresMethodInfo Cookie signature where-    overloadedMethod _ = cookieGetExpires---- method Cookie::get_http_only--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_get_http_only" soup_cookie_get_http_only :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    IO CInt---cookieGetHttpOnly ::-    (MonadIO m) =>-    Cookie                                  -- _obj-    -> m Bool                               -- result-cookieGetHttpOnly _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_cookie_get_http_only _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data CookieGetHttpOnlyMethodInfo-instance (signature ~ (m Bool), MonadIO m) => MethodInfo CookieGetHttpOnlyMethodInfo Cookie signature where-    overloadedMethod _ = cookieGetHttpOnly---- method Cookie::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_get_name" soup_cookie_get_name :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    IO CString---cookieGetName ::-    (MonadIO m) =>-    Cookie                                  -- _obj-    -> m T.Text                             -- result-cookieGetName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_cookie_get_name _obj'-    checkUnexpectedReturnNULL "soup_cookie_get_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data CookieGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo CookieGetNameMethodInfo Cookie signature where-    overloadedMethod _ = cookieGetName---- method Cookie::get_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_get_path" soup_cookie_get_path :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    IO CString---cookieGetPath ::-    (MonadIO m) =>-    Cookie                                  -- _obj-    -> m T.Text                             -- result-cookieGetPath _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_cookie_get_path _obj'-    checkUnexpectedReturnNULL "soup_cookie_get_path" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data CookieGetPathMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo CookieGetPathMethodInfo Cookie signature where-    overloadedMethod _ = cookieGetPath---- method Cookie::get_secure--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_get_secure" soup_cookie_get_secure :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    IO CInt---cookieGetSecure ::-    (MonadIO m) =>-    Cookie                                  -- _obj-    -> m Bool                               -- result-cookieGetSecure _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_cookie_get_secure _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data CookieGetSecureMethodInfo-instance (signature ~ (m Bool), MonadIO m) => MethodInfo CookieGetSecureMethodInfo Cookie signature where-    overloadedMethod _ = cookieGetSecure---- method Cookie::get_value--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_get_value" soup_cookie_get_value :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    IO CString---cookieGetValue ::-    (MonadIO m) =>-    Cookie                                  -- _obj-    -> m T.Text                             -- result-cookieGetValue _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_cookie_get_value _obj'-    checkUnexpectedReturnNULL "soup_cookie_get_value" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data CookieGetValueMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo CookieGetValueMethodInfo Cookie signature where-    overloadedMethod _ = cookieGetValue---- method Cookie::set_domain--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_set_domain" soup_cookie_set_domain :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    CString ->                              -- domain : TBasicType TUTF8-    IO ()---cookieSetDomain ::-    (MonadIO m) =>-    Cookie                                  -- _obj-    -> T.Text                               -- domain-    -> m ()                                 -- result-cookieSetDomain _obj domain = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    domain' <- textToCString domain-    soup_cookie_set_domain _obj' domain'-    touchManagedPtr _obj-    freeMem domain'-    return ()--data CookieSetDomainMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo CookieSetDomainMethodInfo Cookie signature where-    overloadedMethod _ = cookieSetDomain---- method Cookie::set_expires--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expires", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_set_expires" soup_cookie_set_expires :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    Ptr Date ->                             -- expires : TInterface "Soup" "Date"-    IO ()---cookieSetExpires ::-    (MonadIO m) =>-    Cookie                                  -- _obj-    -> Date                                 -- expires-    -> m ()                                 -- result-cookieSetExpires _obj expires = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let expires' = unsafeManagedPtrGetPtr expires-    soup_cookie_set_expires _obj' expires'-    touchManagedPtr _obj-    touchManagedPtr expires-    return ()--data CookieSetExpiresMethodInfo-instance (signature ~ (Date -> m ()), MonadIO m) => MethodInfo CookieSetExpiresMethodInfo Cookie signature where-    overloadedMethod _ = cookieSetExpires---- method Cookie::set_http_only--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "http_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_set_http_only" soup_cookie_set_http_only :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    CInt ->                                 -- http_only : TBasicType TBoolean-    IO ()---cookieSetHttpOnly ::-    (MonadIO m) =>-    Cookie                                  -- _obj-    -> Bool                                 -- httpOnly-    -> m ()                                 -- result-cookieSetHttpOnly _obj httpOnly = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let httpOnly' = (fromIntegral . fromEnum) httpOnly-    soup_cookie_set_http_only _obj' httpOnly'-    touchManagedPtr _obj-    return ()--data CookieSetHttpOnlyMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m) => MethodInfo CookieSetHttpOnlyMethodInfo Cookie signature where-    overloadedMethod _ = cookieSetHttpOnly---- method Cookie::set_max_age--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_age", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_set_max_age" soup_cookie_set_max_age :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    Int32 ->                                -- max_age : TBasicType TInt-    IO ()---cookieSetMaxAge ::-    (MonadIO m) =>-    Cookie                                  -- _obj-    -> Int32                                -- maxAge-    -> m ()                                 -- result-cookieSetMaxAge _obj maxAge = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_cookie_set_max_age _obj' maxAge-    touchManagedPtr _obj-    return ()--data CookieSetMaxAgeMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m) => MethodInfo CookieSetMaxAgeMethodInfo Cookie signature where-    overloadedMethod _ = cookieSetMaxAge---- method Cookie::set_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_set_name" soup_cookie_set_name :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    CString ->                              -- name : TBasicType TUTF8-    IO ()---cookieSetName ::-    (MonadIO m) =>-    Cookie                                  -- _obj-    -> T.Text                               -- name-    -> m ()                                 -- result-cookieSetName _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name' <- textToCString name-    soup_cookie_set_name _obj' name'-    touchManagedPtr _obj-    freeMem name'-    return ()--data CookieSetNameMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo CookieSetNameMethodInfo Cookie signature where-    overloadedMethod _ = cookieSetName---- method Cookie::set_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_set_path" soup_cookie_set_path :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    CString ->                              -- path : TBasicType TUTF8-    IO ()---cookieSetPath ::-    (MonadIO m) =>-    Cookie                                  -- _obj-    -> T.Text                               -- path-    -> m ()                                 -- result-cookieSetPath _obj path = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    path' <- textToCString path-    soup_cookie_set_path _obj' path'-    touchManagedPtr _obj-    freeMem path'-    return ()--data CookieSetPathMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo CookieSetPathMethodInfo Cookie signature where-    overloadedMethod _ = cookieSetPath---- method Cookie::set_secure--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "secure", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_set_secure" soup_cookie_set_secure :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    CInt ->                                 -- secure : TBasicType TBoolean-    IO ()---cookieSetSecure ::-    (MonadIO m) =>-    Cookie                                  -- _obj-    -> Bool                                 -- secure-    -> m ()                                 -- result-cookieSetSecure _obj secure = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let secure' = (fromIntegral . fromEnum) secure-    soup_cookie_set_secure _obj' secure'-    touchManagedPtr _obj-    return ()--data CookieSetSecureMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m) => MethodInfo CookieSetSecureMethodInfo Cookie signature where-    overloadedMethod _ = cookieSetSecure---- method Cookie::set_value--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_set_value" soup_cookie_set_value :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    CString ->                              -- value : TBasicType TUTF8-    IO ()---cookieSetValue ::-    (MonadIO m) =>-    Cookie                                  -- _obj-    -> T.Text                               -- value-    -> m ()                                 -- result-cookieSetValue _obj value = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    value' <- textToCString value-    soup_cookie_set_value _obj' value'-    touchManagedPtr _obj-    freeMem value'-    return ()--data CookieSetValueMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo CookieSetValueMethodInfo Cookie signature where-    overloadedMethod _ = cookieSetValue---- method Cookie::to_cookie_header--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_to_cookie_header" soup_cookie_to_cookie_header :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    IO CString---cookieToCookieHeader ::-    (MonadIO m) =>-    Cookie                                  -- _obj-    -> m T.Text                             -- result-cookieToCookieHeader _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_cookie_to_cookie_header _obj'-    checkUnexpectedReturnNULL "soup_cookie_to_cookie_header" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data CookieToCookieHeaderMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo CookieToCookieHeaderMethodInfo Cookie signature where-    overloadedMethod _ = cookieToCookieHeader---- method Cookie::to_set_cookie_header--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Cookie", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_to_set_cookie_header" soup_cookie_to_set_cookie_header :: -    Ptr Cookie ->                           -- _obj : TInterface "Soup" "Cookie"-    IO CString---cookieToSetCookieHeader ::-    (MonadIO m) =>-    Cookie                                  -- _obj-    -> m T.Text                             -- result-cookieToSetCookieHeader _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_cookie_to_set_cookie_header _obj'-    checkUnexpectedReturnNULL "soup_cookie_to_set_cookie_header" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data CookieToSetCookieHeaderMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo CookieToSetCookieHeaderMethodInfo Cookie signature where-    overloadedMethod _ = cookieToSetCookieHeader---- method Cookie::parse--- method type : MemberFunction--- Args : [Arg {argCName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Cookie")--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_parse" soup_cookie_parse :: -    CString ->                              -- header : TBasicType TUTF8-    Ptr URI ->                              -- origin : TInterface "Soup" "URI"-    IO (Ptr Cookie)---cookieParse ::-    (MonadIO m) =>-    T.Text                                  -- header-    -> URI                                  -- origin-    -> m (Maybe Cookie)                     -- result-cookieParse header origin = liftIO $ do-    header' <- textToCString header-    let origin' = unsafeManagedPtrGetPtr origin-    result <- soup_cookie_parse header' origin'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapBoxed Cookie) result'-        return result''-    touchManagedPtr origin-    freeMem header'-    return maybeResult--type family ResolveCookieMethod (t :: Symbol) (o :: *) :: * where-    ResolveCookieMethod "appliesToUri" o = CookieAppliesToUriMethodInfo-    ResolveCookieMethod "copy" o = CookieCopyMethodInfo-    ResolveCookieMethod "domainMatches" o = CookieDomainMatchesMethodInfo-    ResolveCookieMethod "equal" o = CookieEqualMethodInfo-    ResolveCookieMethod "free" o = CookieFreeMethodInfo-    ResolveCookieMethod "toCookieHeader" o = CookieToCookieHeaderMethodInfo-    ResolveCookieMethod "toSetCookieHeader" o = CookieToSetCookieHeaderMethodInfo-    ResolveCookieMethod "getDomain" o = CookieGetDomainMethodInfo-    ResolveCookieMethod "getExpires" o = CookieGetExpiresMethodInfo-    ResolveCookieMethod "getHttpOnly" o = CookieGetHttpOnlyMethodInfo-    ResolveCookieMethod "getName" o = CookieGetNameMethodInfo-    ResolveCookieMethod "getPath" o = CookieGetPathMethodInfo-    ResolveCookieMethod "getSecure" o = CookieGetSecureMethodInfo-    ResolveCookieMethod "getValue" o = CookieGetValueMethodInfo-    ResolveCookieMethod "setDomain" o = CookieSetDomainMethodInfo-    ResolveCookieMethod "setExpires" o = CookieSetExpiresMethodInfo-    ResolveCookieMethod "setHttpOnly" o = CookieSetHttpOnlyMethodInfo-    ResolveCookieMethod "setMaxAge" o = CookieSetMaxAgeMethodInfo-    ResolveCookieMethod "setName" o = CookieSetNameMethodInfo-    ResolveCookieMethod "setPath" o = CookieSetPathMethodInfo-    ResolveCookieMethod "setSecure" o = CookieSetSecureMethodInfo-    ResolveCookieMethod "setValue" o = CookieSetValueMethodInfo-    ResolveCookieMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveCookieMethod t Cookie, MethodInfo info Cookie p) => IsLabelProxy t (Cookie -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveCookieMethod t Cookie, MethodInfo info Cookie p) => IsLabel t (Cookie -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Soup/Structs/Cookie.hs-boot 
@@ -1,33 +0,0 @@-module GI.Soup.Structs.Cookie where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Cookie = Cookie (ForeignPtr Cookie)-instance BoxedObject Cookie where-data CookieAppliesToUriMethodInfo-data CookieCopyMethodInfo-data CookieDomainMatchesMethodInfo-data CookieEqualMethodInfo-data CookieFreeMethodInfo-data CookieGetDomainMethodInfo-data CookieGetExpiresMethodInfo-data CookieGetHttpOnlyMethodInfo-data CookieGetNameMethodInfo-data CookieGetPathMethodInfo-data CookieGetSecureMethodInfo-data CookieGetValueMethodInfo-data CookieSetDomainMethodInfo-data CookieSetExpiresMethodInfo-data CookieSetHttpOnlyMethodInfo-data CookieSetMaxAgeMethodInfo-data CookieSetNameMethodInfo-data CookieSetPathMethodInfo-data CookieSetSecureMethodInfo-data CookieSetValueMethodInfo-data CookieToCookieHeaderMethodInfo-data CookieToSetCookieHeaderMethodInfo
− GI/Soup/Structs/Date.hs 
@@ -1,926 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A date and time. The date is assumed to be in the (proleptic)-Gregorian calendar. The time is in UTC if @utc is %TRUE. Otherwise,-the time is a local time, and @offset gives the offset from UTC in-minutes (such that adding @offset to the time would give the-correct UTC time). If @utc is %FALSE and @offset is 0, then the-%SoupDate represents a "floating" time with no associated timezone-information.--}--module GI.Soup.Structs.Date-    ( ---- * Exported types-    Date(..)                                ,-    newZeroDate                             ,-    noDate                                  ,--- -- * Methods--- ** dateCopy-    DateCopyMethodInfo                      ,-    dateCopy                                ,----- ** dateFree-    DateFreeMethodInfo                      ,-    dateFree                                ,----- ** dateGetDay-    DateGetDayMethodInfo                    ,-    dateGetDay                              ,----- ** dateGetHour-    DateGetHourMethodInfo                   ,-    dateGetHour                             ,----- ** dateGetMinute-    DateGetMinuteMethodInfo                 ,-    dateGetMinute                           ,----- ** dateGetMonth-    DateGetMonthMethodInfo                  ,-    dateGetMonth                            ,----- ** dateGetOffset-    DateGetOffsetMethodInfo                 ,-    dateGetOffset                           ,----- ** dateGetSecond-    DateGetSecondMethodInfo                 ,-    dateGetSecond                           ,----- ** dateGetUtc-    DateGetUtcMethodInfo                    ,-    dateGetUtc                              ,----- ** dateGetYear-    DateGetYearMethodInfo                   ,-    dateGetYear                             ,----- ** dateIsPast-    DateIsPastMethodInfo                    ,-    dateIsPast                              ,----- ** dateNew-    dateNew                                 ,----- ** dateNewFromNow-    dateNewFromNow                          ,----- ** dateNewFromString-    dateNewFromString                       ,----- ** dateNewFromTimeT-    dateNewFromTimeT                        ,----- ** dateToString-    DateToStringMethodInfo                  ,-    dateToString                            ,----- ** dateToTimeT-    DateToTimeTMethodInfo                   ,-    dateToTimeT                             ,----- ** dateToTimeval-    DateToTimevalMethodInfo                 ,-    dateToTimeval                           ,----- -- * Properties--- ** Day-    dateDay                                 ,-    dateReadDay                             ,-    dateWriteDay                            ,----- ** Hour-    dateHour                                ,-    dateReadHour                            ,-    dateWriteHour                           ,----- ** Minute-    dateMinute                              ,-    dateReadMinute                          ,-    dateWriteMinute                         ,----- ** Month-    dateMonth                               ,-    dateReadMonth                           ,-    dateWriteMonth                          ,----- ** Offset-    dateOffset                              ,-    dateReadOffset                          ,-    dateWriteOffset                         ,----- ** Second-    dateReadSecond                          ,-    dateSecond                              ,-    dateWriteSecond                         ,----- ** Utc-    dateReadUtc                             ,-    dateUtc                                 ,-    dateWriteUtc                            ,----- ** Year-    dateReadYear                            ,-    dateWriteYear                           ,-    dateYear                                ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks-import qualified GI.GLib as GLib--newtype Date = Date (ForeignPtr Date)-foreign import ccall "soup_date_get_type" c_soup_date_get_type :: -    IO GType--instance BoxedObject Date where-    boxedType _ = c_soup_date_get_type---- | Construct a `Date` struct initialized to zero.-newZeroDate :: MonadIO m => m Date-newZeroDate = liftIO $ callocBoxedBytes 32 >>= wrapBoxed Date--instance tag ~ 'AttrSet => Constructible Date tag where-    new _ attrs = do-        o <- newZeroDate-        GI.Attributes.set o attrs-        return o---noDate :: Maybe Date-noDate = Nothing--dateReadYear :: MonadIO m => Date -> m Int32-dateReadYear s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--dateWriteYear :: MonadIO m => Date -> Int32 -> m ()-dateWriteYear s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Int32)--data DateYearFieldInfo-instance AttrInfo DateYearFieldInfo where-    type AttrAllowedOps DateYearFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint DateYearFieldInfo = (~) Int32-    type AttrBaseTypeConstraint DateYearFieldInfo = (~) Date-    type AttrGetType DateYearFieldInfo = Int32-    type AttrLabel DateYearFieldInfo = "year"-    attrGet _ = dateReadYear-    attrSet _ = dateWriteYear-    attrConstruct = undefined-    attrClear _ = undefined--dateYear :: AttrLabelProxy "year"-dateYear = AttrLabelProxy---dateReadMonth :: MonadIO m => Date -> m Int32-dateReadMonth s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 4) :: IO Int32-    return val--dateWriteMonth :: MonadIO m => Date -> Int32 -> m ()-dateWriteMonth s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 4) (val :: Int32)--data DateMonthFieldInfo-instance AttrInfo DateMonthFieldInfo where-    type AttrAllowedOps DateMonthFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint DateMonthFieldInfo = (~) Int32-    type AttrBaseTypeConstraint DateMonthFieldInfo = (~) Date-    type AttrGetType DateMonthFieldInfo = Int32-    type AttrLabel DateMonthFieldInfo = "month"-    attrGet _ = dateReadMonth-    attrSet _ = dateWriteMonth-    attrConstruct = undefined-    attrClear _ = undefined--dateMonth :: AttrLabelProxy "month"-dateMonth = AttrLabelProxy---dateReadDay :: MonadIO m => Date -> m Int32-dateReadDay s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Int32-    return val--dateWriteDay :: MonadIO m => Date -> Int32 -> m ()-dateWriteDay s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Int32)--data DateDayFieldInfo-instance AttrInfo DateDayFieldInfo where-    type AttrAllowedOps DateDayFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint DateDayFieldInfo = (~) Int32-    type AttrBaseTypeConstraint DateDayFieldInfo = (~) Date-    type AttrGetType DateDayFieldInfo = Int32-    type AttrLabel DateDayFieldInfo = "day"-    attrGet _ = dateReadDay-    attrSet _ = dateWriteDay-    attrConstruct = undefined-    attrClear _ = undefined--dateDay :: AttrLabelProxy "day"-dateDay = AttrLabelProxy---dateReadHour :: MonadIO m => Date -> m Int32-dateReadHour s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 12) :: IO Int32-    return val--dateWriteHour :: MonadIO m => Date -> Int32 -> m ()-dateWriteHour s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 12) (val :: Int32)--data DateHourFieldInfo-instance AttrInfo DateHourFieldInfo where-    type AttrAllowedOps DateHourFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint DateHourFieldInfo = (~) Int32-    type AttrBaseTypeConstraint DateHourFieldInfo = (~) Date-    type AttrGetType DateHourFieldInfo = Int32-    type AttrLabel DateHourFieldInfo = "hour"-    attrGet _ = dateReadHour-    attrSet _ = dateWriteHour-    attrConstruct = undefined-    attrClear _ = undefined--dateHour :: AttrLabelProxy "hour"-dateHour = AttrLabelProxy---dateReadMinute :: MonadIO m => Date -> m Int32-dateReadMinute s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int32-    return val--dateWriteMinute :: MonadIO m => Date -> Int32 -> m ()-dateWriteMinute s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Int32)--data DateMinuteFieldInfo-instance AttrInfo DateMinuteFieldInfo where-    type AttrAllowedOps DateMinuteFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint DateMinuteFieldInfo = (~) Int32-    type AttrBaseTypeConstraint DateMinuteFieldInfo = (~) Date-    type AttrGetType DateMinuteFieldInfo = Int32-    type AttrLabel DateMinuteFieldInfo = "minute"-    attrGet _ = dateReadMinute-    attrSet _ = dateWriteMinute-    attrConstruct = undefined-    attrClear _ = undefined--dateMinute :: AttrLabelProxy "minute"-dateMinute = AttrLabelProxy---dateReadSecond :: MonadIO m => Date -> m Int32-dateReadSecond s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO Int32-    return val--dateWriteSecond :: MonadIO m => Date -> Int32 -> m ()-dateWriteSecond s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 20) (val :: Int32)--data DateSecondFieldInfo-instance AttrInfo DateSecondFieldInfo where-    type AttrAllowedOps DateSecondFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint DateSecondFieldInfo = (~) Int32-    type AttrBaseTypeConstraint DateSecondFieldInfo = (~) Date-    type AttrGetType DateSecondFieldInfo = Int32-    type AttrLabel DateSecondFieldInfo = "second"-    attrGet _ = dateReadSecond-    attrSet _ = dateWriteSecond-    attrConstruct = undefined-    attrClear _ = undefined--dateSecond :: AttrLabelProxy "second"-dateSecond = AttrLabelProxy---dateReadUtc :: MonadIO m => Date -> m Bool-dateReadUtc s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CInt-    let val' = (/= 0) val-    return val'--dateWriteUtc :: MonadIO m => Date -> Bool -> m ()-dateWriteUtc s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 24) (val' :: CInt)--data DateUtcFieldInfo-instance AttrInfo DateUtcFieldInfo where-    type AttrAllowedOps DateUtcFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint DateUtcFieldInfo = (~) Bool-    type AttrBaseTypeConstraint DateUtcFieldInfo = (~) Date-    type AttrGetType DateUtcFieldInfo = Bool-    type AttrLabel DateUtcFieldInfo = "utc"-    attrGet _ = dateReadUtc-    attrSet _ = dateWriteUtc-    attrConstruct = undefined-    attrClear _ = undefined--dateUtc :: AttrLabelProxy "utc"-dateUtc = AttrLabelProxy---dateReadOffset :: MonadIO m => Date -> m Int32-dateReadOffset s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 28) :: IO Int32-    return val--dateWriteOffset :: MonadIO m => Date -> Int32 -> m ()-dateWriteOffset s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 28) (val :: Int32)--data DateOffsetFieldInfo-instance AttrInfo DateOffsetFieldInfo where-    type AttrAllowedOps DateOffsetFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint DateOffsetFieldInfo = (~) Int32-    type AttrBaseTypeConstraint DateOffsetFieldInfo = (~) Date-    type AttrGetType DateOffsetFieldInfo = Int32-    type AttrLabel DateOffsetFieldInfo = "offset"-    attrGet _ = dateReadOffset-    attrSet _ = dateWriteOffset-    attrConstruct = undefined-    attrClear _ = undefined--dateOffset :: AttrLabelProxy "offset"-dateOffset = AttrLabelProxy----type instance AttributeList Date = DateAttributeList-type DateAttributeList = ('[ '("year", DateYearFieldInfo), '("month", DateMonthFieldInfo), '("day", DateDayFieldInfo), '("hour", DateHourFieldInfo), '("minute", DateMinuteFieldInfo), '("second", DateSecondFieldInfo), '("utc", DateUtcFieldInfo), '("offset", DateOffsetFieldInfo)] :: [(Symbol, *)])---- method Date::new--- method type : Constructor--- Args : [Arg {argCName = "year", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "month", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hour", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minute", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "second", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Date")--- throws : False--- Skip return : False--foreign import ccall "soup_date_new" soup_date_new :: -    Int32 ->                                -- year : TBasicType TInt-    Int32 ->                                -- month : TBasicType TInt-    Int32 ->                                -- day : TBasicType TInt-    Int32 ->                                -- hour : TBasicType TInt-    Int32 ->                                -- minute : TBasicType TInt-    Int32 ->                                -- second : TBasicType TInt-    IO (Ptr Date)---dateNew ::-    (MonadIO m) =>-    Int32                                   -- year-    -> Int32                                -- month-    -> Int32                                -- day-    -> Int32                                -- hour-    -> Int32                                -- minute-    -> Int32                                -- second-    -> m Date                               -- result-dateNew year month day hour minute second = liftIO $ do-    result <- soup_date_new year month day hour minute second-    checkUnexpectedReturnNULL "soup_date_new" result-    result' <- (wrapBoxed Date) result-    return result'---- method Date::new_from_now--- method type : Constructor--- Args : [Arg {argCName = "offset_seconds", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Date")--- throws : False--- Skip return : False--foreign import ccall "soup_date_new_from_now" soup_date_new_from_now :: -    Int32 ->                                -- offset_seconds : TBasicType TInt-    IO (Ptr Date)---dateNewFromNow ::-    (MonadIO m) =>-    Int32                                   -- offsetSeconds-    -> m Date                               -- result-dateNewFromNow offsetSeconds = liftIO $ do-    result <- soup_date_new_from_now offsetSeconds-    checkUnexpectedReturnNULL "soup_date_new_from_now" result-    result' <- (wrapBoxed Date) result-    return result'---- method Date::new_from_string--- method type : Constructor--- Args : [Arg {argCName = "date_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Date")--- throws : False--- Skip return : False--foreign import ccall "soup_date_new_from_string" soup_date_new_from_string :: -    CString ->                              -- date_string : TBasicType TUTF8-    IO (Ptr Date)---dateNewFromString ::-    (MonadIO m) =>-    T.Text                                  -- dateString-    -> m (Maybe Date)                       -- result-dateNewFromString dateString = liftIO $ do-    dateString' <- textToCString dateString-    result <- soup_date_new_from_string dateString'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapBoxed Date) result'-        return result''-    freeMem dateString'-    return maybeResult---- method Date::new_from_time_t--- method type : Constructor--- Args : [Arg {argCName = "when", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Date")--- throws : False--- Skip return : False--foreign import ccall "soup_date_new_from_time_t" soup_date_new_from_time_t :: -    CLong ->                                -- when : TBasicType TLong-    IO (Ptr Date)---dateNewFromTimeT ::-    (MonadIO m) =>-    CLong                                   -- when_-    -> m Date                               -- result-dateNewFromTimeT when_ = liftIO $ do-    result <- soup_date_new_from_time_t when_-    checkUnexpectedReturnNULL "soup_date_new_from_time_t" result-    result' <- (wrapBoxed Date) result-    return result'---- method Date::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Date")--- throws : False--- Skip return : False--foreign import ccall "soup_date_copy" soup_date_copy :: -    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"-    IO (Ptr Date)---dateCopy ::-    (MonadIO m) =>-    Date                                    -- _obj-    -> m Date                               -- result-dateCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_date_copy _obj'-    checkUnexpectedReturnNULL "soup_date_copy" result-    result' <- (wrapBoxed Date) result-    touchManagedPtr _obj-    return result'--data DateCopyMethodInfo-instance (signature ~ (m Date), MonadIO m) => MethodInfo DateCopyMethodInfo Date signature where-    overloadedMethod _ = dateCopy---- method Date::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_date_free" soup_date_free :: -    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"-    IO ()---dateFree ::-    (MonadIO m) =>-    Date                                    -- _obj-    -> m ()                                 -- result-dateFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_date_free _obj'-    touchManagedPtr _obj-    return ()--data DateFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo DateFreeMethodInfo Date signature where-    overloadedMethod _ = dateFree---- method Date::get_day--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "soup_date_get_day" soup_date_get_day :: -    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"-    IO Int32---dateGetDay ::-    (MonadIO m) =>-    Date                                    -- _obj-    -> m Int32                              -- result-dateGetDay _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_date_get_day _obj'-    touchManagedPtr _obj-    return result--data DateGetDayMethodInfo-instance (signature ~ (m Int32), MonadIO m) => MethodInfo DateGetDayMethodInfo Date signature where-    overloadedMethod _ = dateGetDay---- method Date::get_hour--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "soup_date_get_hour" soup_date_get_hour :: -    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"-    IO Int32---dateGetHour ::-    (MonadIO m) =>-    Date                                    -- _obj-    -> m Int32                              -- result-dateGetHour _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_date_get_hour _obj'-    touchManagedPtr _obj-    return result--data DateGetHourMethodInfo-instance (signature ~ (m Int32), MonadIO m) => MethodInfo DateGetHourMethodInfo Date signature where-    overloadedMethod _ = dateGetHour---- method Date::get_minute--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "soup_date_get_minute" soup_date_get_minute :: -    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"-    IO Int32---dateGetMinute ::-    (MonadIO m) =>-    Date                                    -- _obj-    -> m Int32                              -- result-dateGetMinute _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_date_get_minute _obj'-    touchManagedPtr _obj-    return result--data DateGetMinuteMethodInfo-instance (signature ~ (m Int32), MonadIO m) => MethodInfo DateGetMinuteMethodInfo Date signature where-    overloadedMethod _ = dateGetMinute---- method Date::get_month--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "soup_date_get_month" soup_date_get_month :: -    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"-    IO Int32---dateGetMonth ::-    (MonadIO m) =>-    Date                                    -- _obj-    -> m Int32                              -- result-dateGetMonth _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_date_get_month _obj'-    touchManagedPtr _obj-    return result--data DateGetMonthMethodInfo-instance (signature ~ (m Int32), MonadIO m) => MethodInfo DateGetMonthMethodInfo Date signature where-    overloadedMethod _ = dateGetMonth---- method Date::get_offset--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "soup_date_get_offset" soup_date_get_offset :: -    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"-    IO Int32---dateGetOffset ::-    (MonadIO m) =>-    Date                                    -- _obj-    -> m Int32                              -- result-dateGetOffset _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_date_get_offset _obj'-    touchManagedPtr _obj-    return result--data DateGetOffsetMethodInfo-instance (signature ~ (m Int32), MonadIO m) => MethodInfo DateGetOffsetMethodInfo Date signature where-    overloadedMethod _ = dateGetOffset---- method Date::get_second--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "soup_date_get_second" soup_date_get_second :: -    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"-    IO Int32---dateGetSecond ::-    (MonadIO m) =>-    Date                                    -- _obj-    -> m Int32                              -- result-dateGetSecond _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_date_get_second _obj'-    touchManagedPtr _obj-    return result--data DateGetSecondMethodInfo-instance (signature ~ (m Int32), MonadIO m) => MethodInfo DateGetSecondMethodInfo Date signature where-    overloadedMethod _ = dateGetSecond---- method Date::get_utc--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "soup_date_get_utc" soup_date_get_utc :: -    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"-    IO Int32---dateGetUtc ::-    (MonadIO m) =>-    Date                                    -- _obj-    -> m Int32                              -- result-dateGetUtc _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_date_get_utc _obj'-    touchManagedPtr _obj-    return result--data DateGetUtcMethodInfo-instance (signature ~ (m Int32), MonadIO m) => MethodInfo DateGetUtcMethodInfo Date signature where-    overloadedMethod _ = dateGetUtc---- method Date::get_year--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "soup_date_get_year" soup_date_get_year :: -    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"-    IO Int32---dateGetYear ::-    (MonadIO m) =>-    Date                                    -- _obj-    -> m Int32                              -- result-dateGetYear _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_date_get_year _obj'-    touchManagedPtr _obj-    return result--data DateGetYearMethodInfo-instance (signature ~ (m Int32), MonadIO m) => MethodInfo DateGetYearMethodInfo Date signature where-    overloadedMethod _ = dateGetYear---- method Date::is_past--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_date_is_past" soup_date_is_past :: -    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"-    IO CInt---dateIsPast ::-    (MonadIO m) =>-    Date                                    -- _obj-    -> m Bool                               -- result-dateIsPast _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_date_is_past _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DateIsPastMethodInfo-instance (signature ~ (m Bool), MonadIO m) => MethodInfo DateIsPastMethodInfo Date signature where-    overloadedMethod _ = dateIsPast---- method Date::to_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface "Soup" "DateFormat", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_date_to_string" soup_date_to_string :: -    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"-    CUInt ->                                -- format : TInterface "Soup" "DateFormat"-    IO CString---dateToString ::-    (MonadIO m) =>-    Date                                    -- _obj-    -> DateFormat                           -- format-    -> m T.Text                             -- result-dateToString _obj format = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let format' = (fromIntegral . fromEnum) format-    result <- soup_date_to_string _obj' format'-    checkUnexpectedReturnNULL "soup_date_to_string" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data DateToStringMethodInfo-instance (signature ~ (DateFormat -> m T.Text), MonadIO m) => MethodInfo DateToStringMethodInfo Date signature where-    overloadedMethod _ = dateToString---- method Date::to_time_t--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TLong)--- throws : False--- Skip return : False--foreign import ccall "soup_date_to_time_t" soup_date_to_time_t :: -    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"-    IO CLong---dateToTimeT ::-    (MonadIO m) =>-    Date                                    -- _obj-    -> m CLong                              -- result-dateToTimeT _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_date_to_time_t _obj'-    touchManagedPtr _obj-    return result--data DateToTimeTMethodInfo-instance (signature ~ (m CLong), MonadIO m) => MethodInfo DateToTimeTMethodInfo Date signature where-    overloadedMethod _ = dateToTimeT---- method Date::to_timeval--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Date", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time", argType = TInterface "GLib" "TimeVal", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_date_to_timeval" soup_date_to_timeval :: -    Ptr Date ->                             -- _obj : TInterface "Soup" "Date"-    Ptr GLib.TimeVal ->                     -- time : TInterface "GLib" "TimeVal"-    IO ()---dateToTimeval ::-    (MonadIO m) =>-    Date                                    -- _obj-    -> m (GLib.TimeVal)                     -- result-dateToTimeval _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    time <- callocBytes 16 :: IO (Ptr GLib.TimeVal)-    soup_date_to_timeval _obj' time-    time' <- (wrapPtr GLib.TimeVal) time-    touchManagedPtr _obj-    return time'--data DateToTimevalMethodInfo-instance (signature ~ (m (GLib.TimeVal)), MonadIO m) => MethodInfo DateToTimevalMethodInfo Date signature where-    overloadedMethod _ = dateToTimeval--type family ResolveDateMethod (t :: Symbol) (o :: *) :: * where-    ResolveDateMethod "copy" o = DateCopyMethodInfo-    ResolveDateMethod "free" o = DateFreeMethodInfo-    ResolveDateMethod "isPast" o = DateIsPastMethodInfo-    ResolveDateMethod "toString" o = DateToStringMethodInfo-    ResolveDateMethod "toTimeT" o = DateToTimeTMethodInfo-    ResolveDateMethod "toTimeval" o = DateToTimevalMethodInfo-    ResolveDateMethod "getDay" o = DateGetDayMethodInfo-    ResolveDateMethod "getHour" o = DateGetHourMethodInfo-    ResolveDateMethod "getMinute" o = DateGetMinuteMethodInfo-    ResolveDateMethod "getMonth" o = DateGetMonthMethodInfo-    ResolveDateMethod "getOffset" o = DateGetOffsetMethodInfo-    ResolveDateMethod "getSecond" o = DateGetSecondMethodInfo-    ResolveDateMethod "getUtc" o = DateGetUtcMethodInfo-    ResolveDateMethod "getYear" o = DateGetYearMethodInfo-    ResolveDateMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDateMethod t Date, MethodInfo info Date p) => IsLabelProxy t (Date -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDateMethod t Date, MethodInfo info Date p) => IsLabel t (Date -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Soup/Structs/Date.hs-boot 
@@ -1,25 +0,0 @@-module GI.Soup.Structs.Date where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Date = Date (ForeignPtr Date)-instance BoxedObject Date where-data DateCopyMethodInfo-data DateFreeMethodInfo-data DateGetDayMethodInfo-data DateGetHourMethodInfo-data DateGetMinuteMethodInfo-data DateGetMonthMethodInfo-data DateGetOffsetMethodInfo-data DateGetSecondMethodInfo-data DateGetUtcMethodInfo-data DateGetYearMethodInfo-data DateIsPastMethodInfo-data DateToStringMethodInfo-data DateToTimeTMethodInfo-data DateToTimevalMethodInfo
− GI/Soup/Structs/MessageBody.hs 
@@ -1,572 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A #SoupMessage request or response body.--Note that while @length always reflects the full length of the-message body, @data is normally %NULL, and will only be filled in-after soup_message_body_flatten() is called. For client-side-messages, this automatically happens for the response body after it-has been fully read, unless you set the-%SOUP_MESSAGE_OVERWRITE_CHUNKS flags. Likewise, for server-side-messages, the request body is automatically filled in after being-read.--As an added bonus, when @data is filled in, it is always terminated-with a '\0' byte (which is not reflected in @length).--}--module GI.Soup.Structs.MessageBody-    ( ---- * Exported types-    MessageBody(..)                         ,-    newZeroMessageBody                      ,-    noMessageBody                           ,--- -- * Methods--- ** messageBodyAppend-    MessageBodyAppendMethodInfo             ,-    messageBodyAppend                       ,----- ** messageBodyAppendBuffer-    MessageBodyAppendBufferMethodInfo       ,-    messageBodyAppendBuffer                 ,----- ** messageBodyComplete-    MessageBodyCompleteMethodInfo           ,-    messageBodyComplete                     ,----- ** messageBodyFlatten-    MessageBodyFlattenMethodInfo            ,-    messageBodyFlatten                      ,----- ** messageBodyFree-    MessageBodyFreeMethodInfo               ,-    messageBodyFree                         ,----- ** messageBodyGetAccumulate-    MessageBodyGetAccumulateMethodInfo      ,-    messageBodyGetAccumulate                ,----- ** messageBodyGetChunk-    MessageBodyGetChunkMethodInfo           ,-    messageBodyGetChunk                     ,----- ** messageBodyGotChunk-    MessageBodyGotChunkMethodInfo           ,-    messageBodyGotChunk                     ,----- ** messageBodyNew-    messageBodyNew                          ,----- ** messageBodySetAccumulate-    MessageBodySetAccumulateMethodInfo      ,-    messageBodySetAccumulate                ,----- ** messageBodyTruncate-    MessageBodyTruncateMethodInfo           ,-    messageBodyTruncate                     ,----- ** messageBodyWroteChunk-    MessageBodyWroteChunkMethodInfo         ,-    messageBodyWroteChunk                   ,----- -- * Properties--- ** Data-    messageBodyClearData                    ,-    messageBodyData                         ,-    messageBodyReadData                     ,-    messageBodyWriteData                    ,----- ** Length-    messageBodyLength                       ,-    messageBodyReadLength                   ,-    messageBodyWriteLength                  ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks--newtype MessageBody = MessageBody (ForeignPtr MessageBody)-foreign import ccall "soup_message_body_get_type" c_soup_message_body_get_type :: -    IO GType--instance BoxedObject MessageBody where-    boxedType _ = c_soup_message_body_get_type---- | Construct a `MessageBody` struct initialized to zero.-newZeroMessageBody :: MonadIO m => m MessageBody-newZeroMessageBody = liftIO $ callocBoxedBytes 16 >>= wrapBoxed MessageBody--instance tag ~ 'AttrSet => Constructible MessageBody tag where-    new _ attrs = do-        o <- newZeroMessageBody-        GI.Attributes.set o attrs-        return o---noMessageBody :: Maybe MessageBody-noMessageBody = Nothing--messageBodyReadData :: MonadIO m => MessageBody -> m (Maybe T.Text)-messageBodyReadData s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--messageBodyWriteData :: MonadIO m => MessageBody -> CString -> m ()-messageBodyWriteData s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: CString)--messageBodyClearData :: MonadIO m => MessageBody -> m ()-messageBodyClearData s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: CString)--data MessageBodyDataFieldInfo-instance AttrInfo MessageBodyDataFieldInfo where-    type AttrAllowedOps MessageBodyDataFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint MessageBodyDataFieldInfo = (~) CString-    type AttrBaseTypeConstraint MessageBodyDataFieldInfo = (~) MessageBody-    type AttrGetType MessageBodyDataFieldInfo = Maybe T.Text-    type AttrLabel MessageBodyDataFieldInfo = "data"-    attrGet _ = messageBodyReadData-    attrSet _ = messageBodyWriteData-    attrConstruct = undefined-    attrClear _ = messageBodyClearData--messageBodyData :: AttrLabelProxy "data"-messageBodyData = AttrLabelProxy---messageBodyReadLength :: MonadIO m => MessageBody -> m Int64-messageBodyReadLength s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Int64-    return val--messageBodyWriteLength :: MonadIO m => MessageBody -> Int64 -> m ()-messageBodyWriteLength s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Int64)--data MessageBodyLengthFieldInfo-instance AttrInfo MessageBodyLengthFieldInfo where-    type AttrAllowedOps MessageBodyLengthFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint MessageBodyLengthFieldInfo = (~) Int64-    type AttrBaseTypeConstraint MessageBodyLengthFieldInfo = (~) MessageBody-    type AttrGetType MessageBodyLengthFieldInfo = Int64-    type AttrLabel MessageBodyLengthFieldInfo = "length"-    attrGet _ = messageBodyReadLength-    attrSet _ = messageBodyWriteLength-    attrConstruct = undefined-    attrClear _ = undefined--messageBodyLength :: AttrLabelProxy "length"-messageBodyLength = AttrLabelProxy----type instance AttributeList MessageBody = MessageBodyAttributeList-type MessageBodyAttributeList = ('[ '("data", MessageBodyDataFieldInfo), '("length", MessageBodyLengthFieldInfo)] :: [(Symbol, *)])---- method MessageBody::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Soup" "MessageBody")--- throws : False--- Skip return : False--foreign import ccall "soup_message_body_new" soup_message_body_new :: -    IO (Ptr MessageBody)---messageBodyNew ::-    (MonadIO m) =>-    m MessageBody                           -- result-messageBodyNew  = liftIO $ do-    result <- soup_message_body_new-    checkUnexpectedReturnNULL "soup_message_body_new" result-    result' <- (wrapBoxed MessageBody) result-    return result'---- method MessageBody::append_buffer--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_body_append_buffer" soup_message_body_append_buffer :: -    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"-    Ptr Buffer ->                           -- buffer : TInterface "Soup" "Buffer"-    IO ()---messageBodyAppendBuffer ::-    (MonadIO m) =>-    MessageBody                             -- _obj-    -> Buffer                               -- buffer-    -> m ()                                 -- result-messageBodyAppendBuffer _obj buffer = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let buffer' = unsafeManagedPtrGetPtr buffer-    soup_message_body_append_buffer _obj' buffer'-    touchManagedPtr _obj-    touchManagedPtr buffer-    return ()--data MessageBodyAppendBufferMethodInfo-instance (signature ~ (Buffer -> m ()), MonadIO m) => MethodInfo MessageBodyAppendBufferMethodInfo MessageBody signature where-    overloadedMethod _ = messageBodyAppendBuffer---- method MessageBody::append--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_body_append_take" soup_message_body_append_take :: -    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"-    Ptr Word8 ->                            -- data : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- length : TBasicType TUInt64-    IO ()---messageBodyAppend ::-    (MonadIO m) =>-    MessageBody                             -- _obj-    -> ByteString                           -- data_-    -> m ()                                 -- result-messageBodyAppend _obj data_ = liftIO $ do-    let length_ = fromIntegral $ B.length data_-    let _obj' = unsafeManagedPtrGetPtr _obj-    data_' <- packByteString data_-    soup_message_body_append_take _obj' data_' length_-    touchManagedPtr _obj-    return ()--data MessageBodyAppendMethodInfo-instance (signature ~ (ByteString -> m ()), MonadIO m) => MethodInfo MessageBodyAppendMethodInfo MessageBody signature where-    overloadedMethod _ = messageBodyAppend---- method MessageBody::complete--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_body_complete" soup_message_body_complete :: -    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"-    IO ()---messageBodyComplete ::-    (MonadIO m) =>-    MessageBody                             -- _obj-    -> m ()                                 -- result-messageBodyComplete _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_message_body_complete _obj'-    touchManagedPtr _obj-    return ()--data MessageBodyCompleteMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo MessageBodyCompleteMethodInfo MessageBody signature where-    overloadedMethod _ = messageBodyComplete---- method MessageBody::flatten--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Buffer")--- throws : False--- Skip return : False--foreign import ccall "soup_message_body_flatten" soup_message_body_flatten :: -    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"-    IO (Ptr Buffer)---messageBodyFlatten ::-    (MonadIO m) =>-    MessageBody                             -- _obj-    -> m Buffer                             -- result-messageBodyFlatten _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_message_body_flatten _obj'-    checkUnexpectedReturnNULL "soup_message_body_flatten" result-    result' <- (wrapBoxed Buffer) result-    touchManagedPtr _obj-    return result'--data MessageBodyFlattenMethodInfo-instance (signature ~ (m Buffer), MonadIO m) => MethodInfo MessageBodyFlattenMethodInfo MessageBody signature where-    overloadedMethod _ = messageBodyFlatten---- method MessageBody::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_body_free" soup_message_body_free :: -    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"-    IO ()---messageBodyFree ::-    (MonadIO m) =>-    MessageBody                             -- _obj-    -> m ()                                 -- result-messageBodyFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_message_body_free _obj'-    touchManagedPtr _obj-    return ()--data MessageBodyFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo MessageBodyFreeMethodInfo MessageBody signature where-    overloadedMethod _ = messageBodyFree---- method MessageBody::get_accumulate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_message_body_get_accumulate" soup_message_body_get_accumulate :: -    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"-    IO CInt---messageBodyGetAccumulate ::-    (MonadIO m) =>-    MessageBody                             -- _obj-    -> m Bool                               -- result-messageBodyGetAccumulate _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_message_body_get_accumulate _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data MessageBodyGetAccumulateMethodInfo-instance (signature ~ (m Bool), MonadIO m) => MethodInfo MessageBodyGetAccumulateMethodInfo MessageBody signature where-    overloadedMethod _ = messageBodyGetAccumulate---- method MessageBody::get_chunk--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Buffer")--- throws : False--- Skip return : False--foreign import ccall "soup_message_body_get_chunk" soup_message_body_get_chunk :: -    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"-    Int64 ->                                -- offset : TBasicType TInt64-    IO (Ptr Buffer)---messageBodyGetChunk ::-    (MonadIO m) =>-    MessageBody                             -- _obj-    -> Int64                                -- offset-    -> m (Maybe Buffer)                     -- result-messageBodyGetChunk _obj offset = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_message_body_get_chunk _obj' offset-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapBoxed Buffer) result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data MessageBodyGetChunkMethodInfo-instance (signature ~ (Int64 -> m (Maybe Buffer)), MonadIO m) => MethodInfo MessageBodyGetChunkMethodInfo MessageBody signature where-    overloadedMethod _ = messageBodyGetChunk---- method MessageBody::got_chunk--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_body_got_chunk" soup_message_body_got_chunk :: -    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"-    Ptr Buffer ->                           -- chunk : TInterface "Soup" "Buffer"-    IO ()---messageBodyGotChunk ::-    (MonadIO m) =>-    MessageBody                             -- _obj-    -> Buffer                               -- chunk-    -> m ()                                 -- result-messageBodyGotChunk _obj chunk = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let chunk' = unsafeManagedPtrGetPtr chunk-    soup_message_body_got_chunk _obj' chunk'-    touchManagedPtr _obj-    touchManagedPtr chunk-    return ()--data MessageBodyGotChunkMethodInfo-instance (signature ~ (Buffer -> m ()), MonadIO m) => MethodInfo MessageBodyGotChunkMethodInfo MessageBody signature where-    overloadedMethod _ = messageBodyGotChunk---- method MessageBody::set_accumulate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accumulate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_body_set_accumulate" soup_message_body_set_accumulate :: -    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"-    CInt ->                                 -- accumulate : TBasicType TBoolean-    IO ()---messageBodySetAccumulate ::-    (MonadIO m) =>-    MessageBody                             -- _obj-    -> Bool                                 -- accumulate-    -> m ()                                 -- result-messageBodySetAccumulate _obj accumulate = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let accumulate' = (fromIntegral . fromEnum) accumulate-    soup_message_body_set_accumulate _obj' accumulate'-    touchManagedPtr _obj-    return ()--data MessageBodySetAccumulateMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m) => MethodInfo MessageBodySetAccumulateMethodInfo MessageBody signature where-    overloadedMethod _ = messageBodySetAccumulate---- method MessageBody::truncate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_body_truncate" soup_message_body_truncate :: -    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"-    IO ()---messageBodyTruncate ::-    (MonadIO m) =>-    MessageBody                             -- _obj-    -> m ()                                 -- result-messageBodyTruncate _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_message_body_truncate _obj'-    touchManagedPtr _obj-    return ()--data MessageBodyTruncateMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo MessageBodyTruncateMethodInfo MessageBody signature where-    overloadedMethod _ = messageBodyTruncate---- method MessageBody::wrote_chunk--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chunk", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_body_wrote_chunk" soup_message_body_wrote_chunk :: -    Ptr MessageBody ->                      -- _obj : TInterface "Soup" "MessageBody"-    Ptr Buffer ->                           -- chunk : TInterface "Soup" "Buffer"-    IO ()---messageBodyWroteChunk ::-    (MonadIO m) =>-    MessageBody                             -- _obj-    -> Buffer                               -- chunk-    -> m ()                                 -- result-messageBodyWroteChunk _obj chunk = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let chunk' = unsafeManagedPtrGetPtr chunk-    soup_message_body_wrote_chunk _obj' chunk'-    touchManagedPtr _obj-    touchManagedPtr chunk-    return ()--data MessageBodyWroteChunkMethodInfo-instance (signature ~ (Buffer -> m ()), MonadIO m) => MethodInfo MessageBodyWroteChunkMethodInfo MessageBody signature where-    overloadedMethod _ = messageBodyWroteChunk--type family ResolveMessageBodyMethod (t :: Symbol) (o :: *) :: * where-    ResolveMessageBodyMethod "appendBuffer" o = MessageBodyAppendBufferMethodInfo-    ResolveMessageBodyMethod "append" o = MessageBodyAppendMethodInfo-    ResolveMessageBodyMethod "complete" o = MessageBodyCompleteMethodInfo-    ResolveMessageBodyMethod "flatten" o = MessageBodyFlattenMethodInfo-    ResolveMessageBodyMethod "free" o = MessageBodyFreeMethodInfo-    ResolveMessageBodyMethod "gotChunk" o = MessageBodyGotChunkMethodInfo-    ResolveMessageBodyMethod "truncate" o = MessageBodyTruncateMethodInfo-    ResolveMessageBodyMethod "wroteChunk" o = MessageBodyWroteChunkMethodInfo-    ResolveMessageBodyMethod "getAccumulate" o = MessageBodyGetAccumulateMethodInfo-    ResolveMessageBodyMethod "getChunk" o = MessageBodyGetChunkMethodInfo-    ResolveMessageBodyMethod "setAccumulate" o = MessageBodySetAccumulateMethodInfo-    ResolveMessageBodyMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveMessageBodyMethod t MessageBody, MethodInfo info MessageBody p) => IsLabelProxy t (MessageBody -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveMessageBodyMethod t MessageBody, MethodInfo info MessageBody p) => IsLabel t (MessageBody -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Soup/Structs/MessageBody.hs-boot 
@@ -1,22 +0,0 @@-module GI.Soup.Structs.MessageBody where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype MessageBody = MessageBody (ForeignPtr MessageBody)-instance BoxedObject MessageBody where-data MessageBodyAppendBufferMethodInfo-data MessageBodyAppendMethodInfo-data MessageBodyCompleteMethodInfo-data MessageBodyFlattenMethodInfo-data MessageBodyFreeMethodInfo-data MessageBodyGetAccumulateMethodInfo-data MessageBodyGetChunkMethodInfo-data MessageBodyGotChunkMethodInfo-data MessageBodySetAccumulateMethodInfo-data MessageBodyTruncateMethodInfo-data MessageBodyWroteChunkMethodInfo
− GI/Soup/Structs/MessageHeaders.hs 
@@ -1,1227 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--The HTTP message headers associated with a request or response.--}--module GI.Soup.Structs.MessageHeaders-    ( ---- * Exported types-    MessageHeaders(..)                      ,-    noMessageHeaders                        ,--- -- * Methods--- ** messageHeadersAppend-    MessageHeadersAppendMethodInfo          ,-    messageHeadersAppend                    ,----- ** messageHeadersCleanConnectionHeaders-    MessageHeadersCleanConnectionHeadersMethodInfo,-    messageHeadersCleanConnectionHeaders    ,----- ** messageHeadersClear-    MessageHeadersClearMethodInfo           ,-    messageHeadersClear                     ,----- ** messageHeadersForeach-    MessageHeadersForeachMethodInfo         ,-    messageHeadersForeach                   ,----- ** messageHeadersFree-    MessageHeadersFreeMethodInfo            ,-    messageHeadersFree                      ,----- ** messageHeadersFreeRanges-    MessageHeadersFreeRangesMethodInfo      ,-    messageHeadersFreeRanges                ,----- ** messageHeadersGet-    MessageHeadersGetMethodInfo             ,-    messageHeadersGet                       ,----- ** messageHeadersGetContentDisposition-    MessageHeadersGetContentDispositionMethodInfo,-    messageHeadersGetContentDisposition     ,----- ** messageHeadersGetContentLength-    MessageHeadersGetContentLengthMethodInfo,-    messageHeadersGetContentLength          ,----- ** messageHeadersGetContentRange-    MessageHeadersGetContentRangeMethodInfo ,-    messageHeadersGetContentRange           ,----- ** messageHeadersGetContentType-    MessageHeadersGetContentTypeMethodInfo  ,-    messageHeadersGetContentType            ,----- ** messageHeadersGetEncoding-    MessageHeadersGetEncodingMethodInfo     ,-    messageHeadersGetEncoding               ,----- ** messageHeadersGetExpectations-    MessageHeadersGetExpectationsMethodInfo ,-    messageHeadersGetExpectations           ,----- ** messageHeadersGetHeadersType-    MessageHeadersGetHeadersTypeMethodInfo  ,-    messageHeadersGetHeadersType            ,----- ** messageHeadersGetList-    MessageHeadersGetListMethodInfo         ,-    messageHeadersGetList                   ,----- ** messageHeadersGetOne-    MessageHeadersGetOneMethodInfo          ,-    messageHeadersGetOne                    ,----- ** messageHeadersGetRanges-    MessageHeadersGetRangesMethodInfo       ,-    messageHeadersGetRanges                 ,----- ** messageHeadersHeaderContains-    MessageHeadersHeaderContainsMethodInfo  ,-    messageHeadersHeaderContains            ,----- ** messageHeadersHeaderEquals-    MessageHeadersHeaderEqualsMethodInfo    ,-    messageHeadersHeaderEquals              ,----- ** messageHeadersNew-    messageHeadersNew                       ,----- ** messageHeadersRemove-    MessageHeadersRemoveMethodInfo          ,-    messageHeadersRemove                    ,----- ** messageHeadersReplace-    MessageHeadersReplaceMethodInfo         ,-    messageHeadersReplace                   ,----- ** messageHeadersSetContentDisposition-    MessageHeadersSetContentDispositionMethodInfo,-    messageHeadersSetContentDisposition     ,----- ** messageHeadersSetContentLength-    MessageHeadersSetContentLengthMethodInfo,-    messageHeadersSetContentLength          ,----- ** messageHeadersSetContentRange-    MessageHeadersSetContentRangeMethodInfo ,-    messageHeadersSetContentRange           ,----- ** messageHeadersSetContentType-    MessageHeadersSetContentTypeMethodInfo  ,-    messageHeadersSetContentType            ,----- ** messageHeadersSetEncoding-    MessageHeadersSetEncodingMethodInfo     ,-    messageHeadersSetEncoding               ,----- ** messageHeadersSetExpectations-    MessageHeadersSetExpectationsMethodInfo ,-    messageHeadersSetExpectations           ,----- ** messageHeadersSetRange-    MessageHeadersSetRangeMethodInfo        ,-    messageHeadersSetRange                  ,----- ** messageHeadersSetRanges-    MessageHeadersSetRangesMethodInfo       ,-    messageHeadersSetRanges                 ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks--newtype MessageHeaders = MessageHeaders (ForeignPtr MessageHeaders)-foreign import ccall "soup_message_headers_get_type" c_soup_message_headers_get_type :: -    IO GType--instance BoxedObject MessageHeaders where-    boxedType _ = c_soup_message_headers_get_type--noMessageHeaders :: Maybe MessageHeaders-noMessageHeaders = Nothing---type instance AttributeList MessageHeaders = MessageHeadersAttributeList-type MessageHeadersAttributeList = ('[ ] :: [(Symbol, *)])---- method MessageHeaders::new--- method type : Constructor--- Args : [Arg {argCName = "type", argType = TInterface "Soup" "MessageHeadersType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "MessageHeaders")--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_new" soup_message_headers_new :: -    CUInt ->                                -- type : TInterface "Soup" "MessageHeadersType"-    IO (Ptr MessageHeaders)---messageHeadersNew ::-    (MonadIO m) =>-    MessageHeadersType                      -- type_-    -> m MessageHeaders                     -- result-messageHeadersNew type_ = liftIO $ do-    let type_' = (fromIntegral . fromEnum) type_-    result <- soup_message_headers_new type_'-    checkUnexpectedReturnNULL "soup_message_headers_new" result-    result' <- (wrapBoxed MessageHeaders) result-    return result'---- method MessageHeaders::append--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_append" soup_message_headers_append :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- value : TBasicType TUTF8-    IO ()---messageHeadersAppend ::-    (MonadIO m) =>-    MessageHeaders                          -- _obj-    -> T.Text                               -- name-    -> T.Text                               -- value-    -> m ()                                 -- result-messageHeadersAppend _obj name value = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name' <- textToCString name-    value' <- textToCString value-    soup_message_headers_append _obj' name' value'-    touchManagedPtr _obj-    freeMem name'-    freeMem value'-    return ()--data MessageHeadersAppendMethodInfo-instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m) => MethodInfo MessageHeadersAppendMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersAppend---- method MessageHeaders::clean_connection_headers--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_clean_connection_headers" soup_message_headers_clean_connection_headers :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    IO ()---messageHeadersCleanConnectionHeaders ::-    (MonadIO m) =>-    MessageHeaders                          -- _obj-    -> m ()                                 -- result-messageHeadersCleanConnectionHeaders _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_message_headers_clean_connection_headers _obj'-    touchManagedPtr _obj-    return ()--data MessageHeadersCleanConnectionHeadersMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo MessageHeadersCleanConnectionHeadersMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersCleanConnectionHeaders---- method MessageHeaders::clear--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_clear" soup_message_headers_clear :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    IO ()---messageHeadersClear ::-    (MonadIO m) =>-    MessageHeaders                          -- _obj-    -> m ()                                 -- result-messageHeadersClear _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_message_headers_clear _obj'-    touchManagedPtr _obj-    return ()--data MessageHeadersClearMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo MessageHeadersClearMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersClear---- method MessageHeaders::foreach--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Soup" "MessageHeadersForeachFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_foreach" soup_message_headers_foreach :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    FunPtr MessageHeadersForeachFuncC ->    -- func : TInterface "Soup" "MessageHeadersForeachFunc"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---messageHeadersForeach ::-    (MonadIO m) =>-    MessageHeaders                          -- _obj-    -> MessageHeadersForeachFunc            -- func-    -> m ()                                 -- result-messageHeadersForeach _obj func = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    func' <- mkMessageHeadersForeachFunc (messageHeadersForeachFuncWrapper Nothing func)-    let userData = nullPtr-    soup_message_headers_foreach _obj' func' userData-    safeFreeFunPtr $ castFunPtrToPtr func'-    touchManagedPtr _obj-    return ()--data MessageHeadersForeachMethodInfo-instance (signature ~ (MessageHeadersForeachFunc -> m ()), MonadIO m) => MethodInfo MessageHeadersForeachMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersForeach---- method MessageHeaders::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_free" soup_message_headers_free :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    IO ()---messageHeadersFree ::-    (MonadIO m) =>-    MessageHeaders                          -- _obj-    -> m ()                                 -- result-messageHeadersFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_message_headers_free _obj'-    touchManagedPtr _obj-    return ()--data MessageHeadersFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo MessageHeadersFreeMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersFree---- method MessageHeaders::free_ranges--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ranges", argType = TInterface "Soup" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_free_ranges" soup_message_headers_free_ranges :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    Ptr Range ->                            -- ranges : TInterface "Soup" "Range"-    IO ()---messageHeadersFreeRanges ::-    (MonadIO m) =>-    MessageHeaders                          -- _obj-    -> Range                                -- ranges-    -> m ()                                 -- result-messageHeadersFreeRanges _obj ranges = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let ranges' = unsafeManagedPtrGetPtr ranges-    soup_message_headers_free_ranges _obj' ranges'-    touchManagedPtr _obj-    touchManagedPtr ranges-    return ()--data MessageHeadersFreeRangesMethodInfo-instance (signature ~ (Range -> m ()), MonadIO m) => MethodInfo MessageHeadersFreeRangesMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersFreeRanges---- method MessageHeaders::get--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_get" soup_message_headers_get :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    CString ->                              -- name : TBasicType TUTF8-    IO CString--{-# DEPRECATED messageHeadersGet ["Use soup_message_headers_get_one() or","soup_message_headers_get_list() instead."]#-}-messageHeadersGet ::-    (MonadIO m) =>-    MessageHeaders                          -- _obj-    -> T.Text                               -- name-    -> m (Maybe T.Text)                     -- result-messageHeadersGet _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name' <- textToCString name-    result <- soup_message_headers_get _obj' name'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr _obj-    freeMem name'-    return maybeResult--data MessageHeadersGetMethodInfo-instance (signature ~ (T.Text -> m (Maybe T.Text)), MonadIO m) => MethodInfo MessageHeadersGetMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersGet---- method MessageHeaders::get_content_disposition--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "disposition", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_get_content_disposition" soup_message_headers_get_content_disposition :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    Ptr CString ->                          -- disposition : TBasicType TUTF8-    Ptr (Ptr (GHashTable CString CString)) -> -- params : TGHash (TBasicType TUTF8) (TBasicType TUTF8)-    IO CInt---messageHeadersGetContentDisposition ::-    (MonadIO m) =>-    MessageHeaders                          -- _obj-    -> m (Bool,T.Text,(Map.Map T.Text T.Text))-- result-messageHeadersGetContentDisposition _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    disposition <- allocMem :: IO (Ptr CString)-    params <- allocMem :: IO (Ptr (Ptr (GHashTable CString CString)))-    result <- soup_message_headers_get_content_disposition _obj' disposition params-    let result' = (/= 0) result-    disposition' <- peek disposition-    disposition'' <- cstringToText disposition'-    freeMem disposition'-    params' <- peek params-    params'' <- unpackGHashTable params'-    let params''' = mapFirst cstringUnpackPtr params''-    params'''' <- mapFirstA cstringToText params'''-    let params''''' = mapSecond cstringUnpackPtr params''''-    params'''''' <- mapSecondA cstringToText params'''''-    let params''''''' = Map.fromList params''''''-    unrefGHashTable params'-    touchManagedPtr _obj-    freeMem disposition-    freeMem params-    return (result', disposition'', params''''''')--data MessageHeadersGetContentDispositionMethodInfo-instance (signature ~ (m (Bool,T.Text,(Map.Map T.Text T.Text))), MonadIO m) => MethodInfo MessageHeadersGetContentDispositionMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersGetContentDisposition---- method MessageHeaders::get_content_length--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt64)--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_get_content_length" soup_message_headers_get_content_length :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    IO Int64---messageHeadersGetContentLength ::-    (MonadIO m) =>-    MessageHeaders                          -- _obj-    -> m Int64                              -- result-messageHeadersGetContentLength _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_message_headers_get_content_length _obj'-    touchManagedPtr _obj-    return result--data MessageHeadersGetContentLengthMethodInfo-instance (signature ~ (m Int64), MonadIO m) => MethodInfo MessageHeadersGetContentLengthMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersGetContentLength---- method MessageHeaders::get_content_range--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "total_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_get_content_range" soup_message_headers_get_content_range :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    Int64 ->                                -- start : TBasicType TInt64-    Int64 ->                                -- end : TBasicType TInt64-    Int64 ->                                -- total_length : TBasicType TInt64-    IO CInt---messageHeadersGetContentRange ::-    (MonadIO m) =>-    MessageHeaders                          -- _obj-    -> Int64                                -- start-    -> Int64                                -- end-    -> Int64                                -- totalLength-    -> m Bool                               -- result-messageHeadersGetContentRange _obj start end totalLength = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_message_headers_get_content_range _obj' start end totalLength-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data MessageHeadersGetContentRangeMethodInfo-instance (signature ~ (Int64 -> Int64 -> Int64 -> m Bool), MonadIO m) => MethodInfo MessageHeadersGetContentRangeMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersGetContentRange---- method MessageHeaders::get_content_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_get_content_type" soup_message_headers_get_content_type :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    Ptr (Ptr (GHashTable CString CString)) -> -- params : TGHash (TBasicType TUTF8) (TBasicType TUTF8)-    IO CString---messageHeadersGetContentType ::-    (MonadIO m) =>-    MessageHeaders                          -- _obj-    -> m ((Maybe T.Text),(Map.Map T.Text T.Text))-- result-messageHeadersGetContentType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    params <- allocMem :: IO (Ptr (Ptr (GHashTable CString CString)))-    result <- soup_message_headers_get_content_type _obj' params-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    params' <- peek params-    params'' <- unpackGHashTable params'-    let params''' = mapFirst cstringUnpackPtr params''-    params'''' <- mapFirstA cstringToText params'''-    let params''''' = mapSecond cstringUnpackPtr params''''-    params'''''' <- mapSecondA cstringToText params'''''-    let params''''''' = Map.fromList params''''''-    unrefGHashTable params'-    touchManagedPtr _obj-    freeMem params-    return (maybeResult, params''''''')--data MessageHeadersGetContentTypeMethodInfo-instance (signature ~ (m ((Maybe T.Text),(Map.Map T.Text T.Text))), MonadIO m) => MethodInfo MessageHeadersGetContentTypeMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersGetContentType---- method MessageHeaders::get_encoding--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Encoding")--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_get_encoding" soup_message_headers_get_encoding :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    IO CUInt---messageHeadersGetEncoding ::-    (MonadIO m) =>-    MessageHeaders                          -- _obj-    -> m Encoding                           -- result-messageHeadersGetEncoding _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_message_headers_get_encoding _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data MessageHeadersGetEncodingMethodInfo-instance (signature ~ (m Encoding), MonadIO m) => MethodInfo MessageHeadersGetEncodingMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersGetEncoding---- method MessageHeaders::get_expectations--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Expectation")--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_get_expectations" soup_message_headers_get_expectations :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    IO CUInt---messageHeadersGetExpectations ::-    (MonadIO m) =>-    MessageHeaders                          -- _obj-    -> m [Expectation]                      -- result-messageHeadersGetExpectations _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_message_headers_get_expectations _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'--data MessageHeadersGetExpectationsMethodInfo-instance (signature ~ (m [Expectation]), MonadIO m) => MethodInfo MessageHeadersGetExpectationsMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersGetExpectations---- method MessageHeaders::get_headers_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "MessageHeadersType")--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_get_headers_type" soup_message_headers_get_headers_type :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    IO CUInt---messageHeadersGetHeadersType ::-    (MonadIO m) =>-    MessageHeaders                          -- _obj-    -> m MessageHeadersType                 -- result-messageHeadersGetHeadersType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_message_headers_get_headers_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data MessageHeadersGetHeadersTypeMethodInfo-instance (signature ~ (m MessageHeadersType), MonadIO m) => MethodInfo MessageHeadersGetHeadersTypeMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersGetHeadersType---- method MessageHeaders::get_list--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_get_list" soup_message_headers_get_list :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    CString ->                              -- name : TBasicType TUTF8-    IO CString---messageHeadersGetList ::-    (MonadIO m) =>-    MessageHeaders                          -- _obj-    -> T.Text                               -- name-    -> m (Maybe T.Text)                     -- result-messageHeadersGetList _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name' <- textToCString name-    result <- soup_message_headers_get_list _obj' name'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr _obj-    freeMem name'-    return maybeResult--data MessageHeadersGetListMethodInfo-instance (signature ~ (T.Text -> m (Maybe T.Text)), MonadIO m) => MethodInfo MessageHeadersGetListMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersGetList---- method MessageHeaders::get_one--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_get_one" soup_message_headers_get_one :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    CString ->                              -- name : TBasicType TUTF8-    IO CString---messageHeadersGetOne ::-    (MonadIO m) =>-    MessageHeaders                          -- _obj-    -> T.Text                               -- name-    -> m (Maybe T.Text)                     -- result-messageHeadersGetOne _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name' <- textToCString name-    result <- soup_message_headers_get_one _obj' name'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr _obj-    freeMem name'-    return maybeResult--data MessageHeadersGetOneMethodInfo-instance (signature ~ (T.Text -> m (Maybe T.Text)), MonadIO m) => MethodInfo MessageHeadersGetOneMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersGetOne---- method MessageHeaders::get_ranges--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "total_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ranges", argType = TCArray False (-1) 3 (TInterface "Soup" "Range"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_get_ranges" soup_message_headers_get_ranges :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    Int64 ->                                -- total_length : TBasicType TInt64-    Ptr (Ptr Range) ->                      -- ranges : TCArray False (-1) 3 (TInterface "Soup" "Range")-    Ptr Int32 ->                            -- length : TBasicType TInt-    IO CInt---messageHeadersGetRanges ::-    (MonadIO m) =>-    MessageHeaders                          -- _obj-    -> Int64                                -- totalLength-    -> m (Bool,[Range])                     -- result-messageHeadersGetRanges _obj totalLength = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    ranges <- allocMem :: IO (Ptr (Ptr Range))-    length_ <- allocMem :: IO (Ptr Int32)-    result <- soup_message_headers_get_ranges _obj' totalLength ranges length_-    length_' <- peek length_-    let result' = (/= 0) result-    ranges' <- peek ranges-    ranges'' <- (unpackBlockArrayWithLength 16 length_') ranges'-    ranges''' <- mapM (wrapPtr Range) ranges''-    freeMem ranges'-    touchManagedPtr _obj-    freeMem ranges-    freeMem length_-    return (result', ranges''')--data MessageHeadersGetRangesMethodInfo-instance (signature ~ (Int64 -> m (Bool,[Range])), MonadIO m) => MethodInfo MessageHeadersGetRangesMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersGetRanges---- method MessageHeaders::header_contains--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "token", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_header_contains" soup_message_headers_header_contains :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- token : TBasicType TUTF8-    IO CInt---messageHeadersHeaderContains ::-    (MonadIO m) =>-    MessageHeaders                          -- _obj-    -> T.Text                               -- name-    -> T.Text                               -- token-    -> m Bool                               -- result-messageHeadersHeaderContains _obj name token = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name' <- textToCString name-    token' <- textToCString token-    result <- soup_message_headers_header_contains _obj' name' token'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem name'-    freeMem token'-    return result'--data MessageHeadersHeaderContainsMethodInfo-instance (signature ~ (T.Text -> T.Text -> m Bool), MonadIO m) => MethodInfo MessageHeadersHeaderContainsMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersHeaderContains---- method MessageHeaders::header_equals--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_header_equals" soup_message_headers_header_equals :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- value : TBasicType TUTF8-    IO CInt---messageHeadersHeaderEquals ::-    (MonadIO m) =>-    MessageHeaders                          -- _obj-    -> T.Text                               -- name-    -> T.Text                               -- value-    -> m Bool                               -- result-messageHeadersHeaderEquals _obj name value = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name' <- textToCString name-    value' <- textToCString value-    result <- soup_message_headers_header_equals _obj' name' value'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem name'-    freeMem value'-    return result'--data MessageHeadersHeaderEqualsMethodInfo-instance (signature ~ (T.Text -> T.Text -> m Bool), MonadIO m) => MethodInfo MessageHeadersHeaderEqualsMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersHeaderEquals---- method MessageHeaders::remove--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_remove" soup_message_headers_remove :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    CString ->                              -- name : TBasicType TUTF8-    IO ()---messageHeadersRemove ::-    (MonadIO m) =>-    MessageHeaders                          -- _obj-    -> T.Text                               -- name-    -> m ()                                 -- result-messageHeadersRemove _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name' <- textToCString name-    soup_message_headers_remove _obj' name'-    touchManagedPtr _obj-    freeMem name'-    return ()--data MessageHeadersRemoveMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo MessageHeadersRemoveMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersRemove---- method MessageHeaders::replace--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_replace" soup_message_headers_replace :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- value : TBasicType TUTF8-    IO ()---messageHeadersReplace ::-    (MonadIO m) =>-    MessageHeaders                          -- _obj-    -> T.Text                               -- name-    -> T.Text                               -- value-    -> m ()                                 -- result-messageHeadersReplace _obj name value = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name' <- textToCString name-    value' <- textToCString value-    soup_message_headers_replace _obj' name' value'-    touchManagedPtr _obj-    freeMem name'-    freeMem value'-    return ()--data MessageHeadersReplaceMethodInfo-instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m) => MethodInfo MessageHeadersReplaceMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersReplace---- method MessageHeaders::set_content_disposition--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "disposition", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_set_content_disposition" soup_message_headers_set_content_disposition :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    CString ->                              -- disposition : TBasicType TUTF8-    Ptr (GHashTable CString CString) ->     -- params : TGHash (TBasicType TUTF8) (TBasicType TUTF8)-    IO ()---messageHeadersSetContentDisposition ::-    (MonadIO m) =>-    MessageHeaders                          -- _obj-    -> T.Text                               -- disposition-    -> Maybe (Map.Map T.Text T.Text)        -- params-    -> m ()                                 -- result-messageHeadersSetContentDisposition _obj disposition params = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    disposition' <- textToCString disposition-    maybeParams <- case params of-        Nothing -> return nullPtr-        Just jParams -> do-            let jParams' = Map.toList jParams-            jParams'' <- mapFirstA textToCString jParams'-            jParams''' <- mapSecondA textToCString jParams''-            let jParams'''' = mapFirst cstringPackPtr jParams'''-            let jParams''''' = mapSecond cstringPackPtr jParams''''-            jParams'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) jParams'''''-            return jParams''''''-    soup_message_headers_set_content_disposition _obj' disposition' maybeParams-    touchManagedPtr _obj-    freeMem disposition'-    unrefGHashTable maybeParams-    return ()--data MessageHeadersSetContentDispositionMethodInfo-instance (signature ~ (T.Text -> Maybe (Map.Map T.Text T.Text) -> m ()), MonadIO m) => MethodInfo MessageHeadersSetContentDispositionMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersSetContentDisposition---- method MessageHeaders::set_content_length--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_set_content_length" soup_message_headers_set_content_length :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    Int64 ->                                -- content_length : TBasicType TInt64-    IO ()---messageHeadersSetContentLength ::-    (MonadIO m) =>-    MessageHeaders                          -- _obj-    -> Int64                                -- contentLength-    -> m ()                                 -- result-messageHeadersSetContentLength _obj contentLength = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_message_headers_set_content_length _obj' contentLength-    touchManagedPtr _obj-    return ()--data MessageHeadersSetContentLengthMethodInfo-instance (signature ~ (Int64 -> m ()), MonadIO m) => MethodInfo MessageHeadersSetContentLengthMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersSetContentLength---- method MessageHeaders::set_content_range--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "total_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_set_content_range" soup_message_headers_set_content_range :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    Int64 ->                                -- start : TBasicType TInt64-    Int64 ->                                -- end : TBasicType TInt64-    Int64 ->                                -- total_length : TBasicType TInt64-    IO ()---messageHeadersSetContentRange ::-    (MonadIO m) =>-    MessageHeaders                          -- _obj-    -> Int64                                -- start-    -> Int64                                -- end-    -> Int64                                -- totalLength-    -> m ()                                 -- result-messageHeadersSetContentRange _obj start end totalLength = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_message_headers_set_content_range _obj' start end totalLength-    touchManagedPtr _obj-    return ()--data MessageHeadersSetContentRangeMethodInfo-instance (signature ~ (Int64 -> Int64 -> Int64 -> m ()), MonadIO m) => MethodInfo MessageHeadersSetContentRangeMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersSetContentRange---- method MessageHeaders::set_content_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_set_content_type" soup_message_headers_set_content_type :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    CString ->                              -- content_type : TBasicType TUTF8-    Ptr (GHashTable CString CString) ->     -- params : TGHash (TBasicType TUTF8) (TBasicType TUTF8)-    IO ()---messageHeadersSetContentType ::-    (MonadIO m) =>-    MessageHeaders                          -- _obj-    -> T.Text                               -- contentType-    -> Maybe (Map.Map T.Text T.Text)        -- params-    -> m ()                                 -- result-messageHeadersSetContentType _obj contentType params = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    contentType' <- textToCString contentType-    maybeParams <- case params of-        Nothing -> return nullPtr-        Just jParams -> do-            let jParams' = Map.toList jParams-            jParams'' <- mapFirstA textToCString jParams'-            jParams''' <- mapSecondA textToCString jParams''-            let jParams'''' = mapFirst cstringPackPtr jParams'''-            let jParams''''' = mapSecond cstringPackPtr jParams''''-            jParams'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) jParams'''''-            return jParams''''''-    soup_message_headers_set_content_type _obj' contentType' maybeParams-    touchManagedPtr _obj-    freeMem contentType'-    unrefGHashTable maybeParams-    return ()--data MessageHeadersSetContentTypeMethodInfo-instance (signature ~ (T.Text -> Maybe (Map.Map T.Text T.Text) -> m ()), MonadIO m) => MethodInfo MessageHeadersSetContentTypeMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersSetContentType---- method MessageHeaders::set_encoding--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "encoding", argType = TInterface "Soup" "Encoding", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_set_encoding" soup_message_headers_set_encoding :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    CUInt ->                                -- encoding : TInterface "Soup" "Encoding"-    IO ()---messageHeadersSetEncoding ::-    (MonadIO m) =>-    MessageHeaders                          -- _obj-    -> Encoding                             -- encoding-    -> m ()                                 -- result-messageHeadersSetEncoding _obj encoding = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let encoding' = (fromIntegral . fromEnum) encoding-    soup_message_headers_set_encoding _obj' encoding'-    touchManagedPtr _obj-    return ()--data MessageHeadersSetEncodingMethodInfo-instance (signature ~ (Encoding -> m ()), MonadIO m) => MethodInfo MessageHeadersSetEncodingMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersSetEncoding---- method MessageHeaders::set_expectations--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expectations", argType = TInterface "Soup" "Expectation", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_set_expectations" soup_message_headers_set_expectations :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    CUInt ->                                -- expectations : TInterface "Soup" "Expectation"-    IO ()---messageHeadersSetExpectations ::-    (MonadIO m) =>-    MessageHeaders                          -- _obj-    -> [Expectation]                        -- expectations-    -> m ()                                 -- result-messageHeadersSetExpectations _obj expectations = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let expectations' = gflagsToWord expectations-    soup_message_headers_set_expectations _obj' expectations'-    touchManagedPtr _obj-    return ()--data MessageHeadersSetExpectationsMethodInfo-instance (signature ~ ([Expectation] -> m ()), MonadIO m) => MethodInfo MessageHeadersSetExpectationsMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersSetExpectations---- method MessageHeaders::set_range--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_set_range" soup_message_headers_set_range :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    Int64 ->                                -- start : TBasicType TInt64-    Int64 ->                                -- end : TBasicType TInt64-    IO ()---messageHeadersSetRange ::-    (MonadIO m) =>-    MessageHeaders                          -- _obj-    -> Int64                                -- start-    -> Int64                                -- end-    -> m ()                                 -- result-messageHeadersSetRange _obj start end = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_message_headers_set_range _obj' start end-    touchManagedPtr _obj-    return ()--data MessageHeadersSetRangeMethodInfo-instance (signature ~ (Int64 -> Int64 -> m ()), MonadIO m) => MethodInfo MessageHeadersSetRangeMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersSetRange---- method MessageHeaders::set_ranges--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ranges", argType = TInterface "Soup" "Range", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_set_ranges" soup_message_headers_set_ranges :: -    Ptr MessageHeaders ->                   -- _obj : TInterface "Soup" "MessageHeaders"-    Ptr Range ->                            -- ranges : TInterface "Soup" "Range"-    Int32 ->                                -- length : TBasicType TInt-    IO ()---messageHeadersSetRanges ::-    (MonadIO m) =>-    MessageHeaders                          -- _obj-    -> Range                                -- ranges-    -> Int32                                -- length_-    -> m ()                                 -- result-messageHeadersSetRanges _obj ranges length_ = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let ranges' = unsafeManagedPtrGetPtr ranges-    soup_message_headers_set_ranges _obj' ranges' length_-    touchManagedPtr _obj-    touchManagedPtr ranges-    return ()--data MessageHeadersSetRangesMethodInfo-instance (signature ~ (Range -> Int32 -> m ()), MonadIO m) => MethodInfo MessageHeadersSetRangesMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersSetRanges--type family ResolveMessageHeadersMethod (t :: Symbol) (o :: *) :: * where-    ResolveMessageHeadersMethod "append" o = MessageHeadersAppendMethodInfo-    ResolveMessageHeadersMethod "cleanConnectionHeaders" o = MessageHeadersCleanConnectionHeadersMethodInfo-    ResolveMessageHeadersMethod "clear" o = MessageHeadersClearMethodInfo-    ResolveMessageHeadersMethod "foreach" o = MessageHeadersForeachMethodInfo-    ResolveMessageHeadersMethod "free" o = MessageHeadersFreeMethodInfo-    ResolveMessageHeadersMethod "freeRanges" o = MessageHeadersFreeRangesMethodInfo-    ResolveMessageHeadersMethod "get" o = MessageHeadersGetMethodInfo-    ResolveMessageHeadersMethod "headerContains" o = MessageHeadersHeaderContainsMethodInfo-    ResolveMessageHeadersMethod "headerEquals" o = MessageHeadersHeaderEqualsMethodInfo-    ResolveMessageHeadersMethod "remove" o = MessageHeadersRemoveMethodInfo-    ResolveMessageHeadersMethod "replace" o = MessageHeadersReplaceMethodInfo-    ResolveMessageHeadersMethod "getContentDisposition" o = MessageHeadersGetContentDispositionMethodInfo-    ResolveMessageHeadersMethod "getContentLength" o = MessageHeadersGetContentLengthMethodInfo-    ResolveMessageHeadersMethod "getContentRange" o = MessageHeadersGetContentRangeMethodInfo-    ResolveMessageHeadersMethod "getContentType" o = MessageHeadersGetContentTypeMethodInfo-    ResolveMessageHeadersMethod "getEncoding" o = MessageHeadersGetEncodingMethodInfo-    ResolveMessageHeadersMethod "getExpectations" o = MessageHeadersGetExpectationsMethodInfo-    ResolveMessageHeadersMethod "getHeadersType" o = MessageHeadersGetHeadersTypeMethodInfo-    ResolveMessageHeadersMethod "getList" o = MessageHeadersGetListMethodInfo-    ResolveMessageHeadersMethod "getOne" o = MessageHeadersGetOneMethodInfo-    ResolveMessageHeadersMethod "getRanges" o = MessageHeadersGetRangesMethodInfo-    ResolveMessageHeadersMethod "setContentDisposition" o = MessageHeadersSetContentDispositionMethodInfo-    ResolveMessageHeadersMethod "setContentLength" o = MessageHeadersSetContentLengthMethodInfo-    ResolveMessageHeadersMethod "setContentRange" o = MessageHeadersSetContentRangeMethodInfo-    ResolveMessageHeadersMethod "setContentType" o = MessageHeadersSetContentTypeMethodInfo-    ResolveMessageHeadersMethod "setEncoding" o = MessageHeadersSetEncodingMethodInfo-    ResolveMessageHeadersMethod "setExpectations" o = MessageHeadersSetExpectationsMethodInfo-    ResolveMessageHeadersMethod "setRange" o = MessageHeadersSetRangeMethodInfo-    ResolveMessageHeadersMethod "setRanges" o = MessageHeadersSetRangesMethodInfo-    ResolveMessageHeadersMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveMessageHeadersMethod t MessageHeaders, MethodInfo info MessageHeaders p) => IsLabelProxy t (MessageHeaders -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveMessageHeadersMethod t MessageHeaders, MethodInfo info MessageHeaders p) => IsLabel t (MessageHeaders -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Soup/Structs/MessageHeaders.hs-boot 
@@ -1,40 +0,0 @@-module GI.Soup.Structs.MessageHeaders where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype MessageHeaders = MessageHeaders (ForeignPtr MessageHeaders)-instance BoxedObject MessageHeaders where-data MessageHeadersAppendMethodInfo-data MessageHeadersCleanConnectionHeadersMethodInfo-data MessageHeadersClearMethodInfo-data MessageHeadersForeachMethodInfo-data MessageHeadersFreeMethodInfo-data MessageHeadersFreeRangesMethodInfo-data MessageHeadersGetMethodInfo-data MessageHeadersGetContentDispositionMethodInfo-data MessageHeadersGetContentLengthMethodInfo-data MessageHeadersGetContentRangeMethodInfo-data MessageHeadersGetContentTypeMethodInfo-data MessageHeadersGetEncodingMethodInfo-data MessageHeadersGetExpectationsMethodInfo-data MessageHeadersGetHeadersTypeMethodInfo-data MessageHeadersGetListMethodInfo-data MessageHeadersGetOneMethodInfo-data MessageHeadersGetRangesMethodInfo-data MessageHeadersHeaderContainsMethodInfo-data MessageHeadersHeaderEqualsMethodInfo-data MessageHeadersRemoveMethodInfo-data MessageHeadersReplaceMethodInfo-data MessageHeadersSetContentDispositionMethodInfo-data MessageHeadersSetContentLengthMethodInfo-data MessageHeadersSetContentRangeMethodInfo-data MessageHeadersSetContentTypeMethodInfo-data MessageHeadersSetEncodingMethodInfo-data MessageHeadersSetExpectationsMethodInfo-data MessageHeadersSetRangeMethodInfo-data MessageHeadersSetRangesMethodInfo
− GI/Soup/Structs/MessageHeadersIter.hs 
@@ -1,151 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--An opaque type used to iterate over a %SoupMessageHeaders-structure.--After intializing the iterator with-soup_message_headers_iter_init(), call-soup_message_headers_iter_next() to fetch data from it.--You may not modify the headers while iterating over them.--}--module GI.Soup.Structs.MessageHeadersIter-    ( ---- * Exported types-    MessageHeadersIter(..)                  ,-    newZeroMessageHeadersIter               ,-    noMessageHeadersIter                    ,--- -- * Methods--- ** messageHeadersIterInit-    messageHeadersIterInit                  ,----- ** messageHeadersIterNext-    MessageHeadersIterNextMethodInfo        ,-    messageHeadersIterNext                  ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks--newtype MessageHeadersIter = MessageHeadersIter (ForeignPtr MessageHeadersIter)-instance WrappedPtr MessageHeadersIter where-    wrappedPtrCalloc = callocBytes 24-    wrappedPtrCopy = copyPtr 24-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `MessageHeadersIter` struct initialized to zero.-newZeroMessageHeadersIter :: MonadIO m => m MessageHeadersIter-newZeroMessageHeadersIter = liftIO $ wrappedPtrCalloc >>= wrapPtr MessageHeadersIter--instance tag ~ 'AttrSet => Constructible MessageHeadersIter tag where-    new _ attrs = do-        o <- newZeroMessageHeadersIter-        GI.Attributes.set o attrs-        return o---noMessageHeadersIter :: Maybe MessageHeadersIter-noMessageHeadersIter = Nothing---type instance AttributeList MessageHeadersIter = MessageHeadersIterAttributeList-type MessageHeadersIterAttributeList = ('[ ] :: [(Symbol, *)])---- method MessageHeadersIter::next--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "MessageHeadersIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_iter_next" soup_message_headers_iter_next :: -    Ptr MessageHeadersIter ->               -- _obj : TInterface "Soup" "MessageHeadersIter"-    Ptr CString ->                          -- name : TBasicType TUTF8-    Ptr CString ->                          -- value : TBasicType TUTF8-    IO CInt---messageHeadersIterNext ::-    (MonadIO m) =>-    MessageHeadersIter                      -- _obj-    -> m (Bool,T.Text,T.Text)               -- result-messageHeadersIterNext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    name <- allocMem :: IO (Ptr CString)-    value <- allocMem :: IO (Ptr CString)-    result <- soup_message_headers_iter_next _obj' name value-    let result' = (/= 0) result-    name' <- peek name-    name'' <- cstringToText name'-    value' <- peek value-    value'' <- cstringToText value'-    touchManagedPtr _obj-    freeMem name-    freeMem value-    return (result', name'', value'')--data MessageHeadersIterNextMethodInfo-instance (signature ~ (m (Bool,T.Text,T.Text)), MonadIO m) => MethodInfo MessageHeadersIterNextMethodInfo MessageHeadersIter signature where-    overloadedMethod _ = messageHeadersIterNext---- method MessageHeadersIter::init--- method type : MemberFunction--- Args : [Arg {argCName = "iter", argType = TInterface "Soup" "MessageHeadersIter", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "hdrs", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_iter_init" soup_message_headers_iter_init :: -    Ptr MessageHeadersIter ->               -- iter : TInterface "Soup" "MessageHeadersIter"-    Ptr MessageHeaders ->                   -- hdrs : TInterface "Soup" "MessageHeaders"-    IO ()---messageHeadersIterInit ::-    (MonadIO m) =>-    MessageHeaders                          -- hdrs-    -> m (MessageHeadersIter)               -- result-messageHeadersIterInit hdrs = liftIO $ do-    iter <- callocBytes 24 :: IO (Ptr MessageHeadersIter)-    let hdrs' = unsafeManagedPtrGetPtr hdrs-    soup_message_headers_iter_init iter hdrs'-    iter' <- (wrapPtr MessageHeadersIter) iter-    touchManagedPtr hdrs-    return iter'--type family ResolveMessageHeadersIterMethod (t :: Symbol) (o :: *) :: * where-    ResolveMessageHeadersIterMethod "next" o = MessageHeadersIterNextMethodInfo-    ResolveMessageHeadersIterMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveMessageHeadersIterMethod t MessageHeadersIter, MethodInfo info MessageHeadersIter p) => IsLabelProxy t (MessageHeadersIter -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveMessageHeadersIterMethod t MessageHeadersIter, MethodInfo info MessageHeadersIter p) => IsLabel t (MessageHeadersIter -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Soup/Structs/MessageHeadersIter.hs-boot 
@@ -1,12 +0,0 @@-module GI.Soup.Structs.MessageHeadersIter where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype MessageHeadersIter = MessageHeadersIter (ForeignPtr MessageHeadersIter)-instance WrappedPtr MessageHeadersIter where-data MessageHeadersIterNextMethodInfo
− GI/Soup/Structs/MessageQueue.hs 
@@ -1,54 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Structs.MessageQueue-    ( ---- * Exported types-    MessageQueue(..)                        ,-    noMessageQueue                          ,---    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks--newtype MessageQueue = MessageQueue (ForeignPtr MessageQueue)--- XXX Wrapping a foreign struct/union with no known destructor or size, leak?-instance WrappedPtr MessageQueue where-    wrappedPtrCalloc = return nullPtr-    wrappedPtrCopy = return-    wrappedPtrFree = Nothing--noMessageQueue :: Maybe MessageQueue-noMessageQueue = Nothing---type instance AttributeList MessageQueue = MessageQueueAttributeList-type MessageQueueAttributeList = ('[ ] :: [(Symbol, *)])--type family ResolveMessageQueueMethod (t :: Symbol) (o :: *) :: * where-    ResolveMessageQueueMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveMessageQueueMethod t MessageQueue, MethodInfo info MessageQueue p) => IsLabelProxy t (MessageQueue -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveMessageQueueMethod t MessageQueue, MethodInfo info MessageQueue p) => IsLabel t (MessageQueue -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Soup/Structs/MessageQueue.hs-boot 
@@ -1,11 +0,0 @@-module GI.Soup.Structs.MessageQueue where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype MessageQueue = MessageQueue (ForeignPtr MessageQueue)-instance WrappedPtr MessageQueue where
− GI/Soup/Structs/MessageQueueItem.hs 
@@ -1,54 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Soup.Structs.MessageQueueItem-    ( ---- * Exported types-    MessageQueueItem(..)                    ,-    noMessageQueueItem                      ,---    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks--newtype MessageQueueItem = MessageQueueItem (ForeignPtr MessageQueueItem)--- XXX Wrapping a foreign struct/union with no known destructor or size, leak?-instance WrappedPtr MessageQueueItem where-    wrappedPtrCalloc = return nullPtr-    wrappedPtrCopy = return-    wrappedPtrFree = Nothing--noMessageQueueItem :: Maybe MessageQueueItem-noMessageQueueItem = Nothing---type instance AttributeList MessageQueueItem = MessageQueueItemAttributeList-type MessageQueueItemAttributeList = ('[ ] :: [(Symbol, *)])--type family ResolveMessageQueueItemMethod (t :: Symbol) (o :: *) :: * where-    ResolveMessageQueueItemMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveMessageQueueItemMethod t MessageQueueItem, MethodInfo info MessageQueueItem p) => IsLabelProxy t (MessageQueueItem -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveMessageQueueItemMethod t MessageQueueItem, MethodInfo info MessageQueueItem p) => IsLabel t (MessageQueueItem -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Soup/Structs/MessageQueueItem.hs-boot 
@@ -1,11 +0,0 @@-module GI.Soup.Structs.MessageQueueItem where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype MessageQueueItem = MessageQueueItem (ForeignPtr MessageQueueItem)-instance WrappedPtr MessageQueueItem where
− GI/Soup/Structs/Multipart.hs 
@@ -1,414 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Represents a multipart HTTP message body, parsed according to the-syntax of RFC 2046. Of particular interest to HTTP are-<literal>multipart/byte-ranges</literal> and-<literal>multipart/form-data</literal>.--Although the headers of a #SoupMultipart body part will contain the-full headers from that body part, libsoup does not interpret them-according to MIME rules. For example, each body part is assumed to-have "binary" Content-Transfer-Encoding, even if its headers-explicitly state otherwise. In other words, don't try to use-#SoupMultipart for handling real MIME multiparts.--}--module GI.Soup.Structs.Multipart-    ( ---- * Exported types-    Multipart(..)                           ,-    noMultipart                             ,--- -- * Methods--- ** multipartAppendFormFile-    MultipartAppendFormFileMethodInfo       ,-    multipartAppendFormFile                 ,----- ** multipartAppendFormString-    MultipartAppendFormStringMethodInfo     ,-    multipartAppendFormString               ,----- ** multipartAppendPart-    MultipartAppendPartMethodInfo           ,-    multipartAppendPart                     ,----- ** multipartFree-    MultipartFreeMethodInfo                 ,-    multipartFree                           ,----- ** multipartGetLength-    MultipartGetLengthMethodInfo            ,-    multipartGetLength                      ,----- ** multipartGetPart-    MultipartGetPartMethodInfo              ,-    multipartGetPart                        ,----- ** multipartNew-    multipartNew                            ,----- ** multipartNewFromMessage-    multipartNewFromMessage                 ,----- ** multipartToMessage-    MultipartToMessageMethodInfo            ,-    multipartToMessage                      ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks--newtype Multipart = Multipart (ForeignPtr Multipart)-foreign import ccall "soup_multipart_get_type" c_soup_multipart_get_type :: -    IO GType--instance BoxedObject Multipart where-    boxedType _ = c_soup_multipart_get_type--noMultipart :: Maybe Multipart-noMultipart = Nothing---type instance AttributeList Multipart = MultipartAttributeList-type MultipartAttributeList = ('[ ] :: [(Symbol, *)])---- method Multipart::new--- method type : Constructor--- Args : [Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Multipart")--- throws : False--- Skip return : False--foreign import ccall "soup_multipart_new" soup_multipart_new :: -    CString ->                              -- mime_type : TBasicType TUTF8-    IO (Ptr Multipart)---multipartNew ::-    (MonadIO m) =>-    T.Text                                  -- mimeType-    -> m Multipart                          -- result-multipartNew mimeType = liftIO $ do-    mimeType' <- textToCString mimeType-    result <- soup_multipart_new mimeType'-    checkUnexpectedReturnNULL "soup_multipart_new" result-    result' <- (wrapBoxed Multipart) result-    freeMem mimeType'-    return result'---- method Multipart::new_from_message--- method type : Constructor--- Args : [Arg {argCName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "body", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "Multipart")--- throws : False--- Skip return : False--foreign import ccall "soup_multipart_new_from_message" soup_multipart_new_from_message :: -    Ptr MessageHeaders ->                   -- headers : TInterface "Soup" "MessageHeaders"-    Ptr MessageBody ->                      -- body : TInterface "Soup" "MessageBody"-    IO (Ptr Multipart)---multipartNewFromMessage ::-    (MonadIO m) =>-    MessageHeaders                          -- headers-    -> MessageBody                          -- body-    -> m (Maybe Multipart)                  -- result-multipartNewFromMessage headers body = liftIO $ do-    let headers' = unsafeManagedPtrGetPtr headers-    let body' = unsafeManagedPtrGetPtr body-    result <- soup_multipart_new_from_message headers' body'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapBoxed Multipart) result'-        return result''-    touchManagedPtr headers-    touchManagedPtr body-    return maybeResult---- method Multipart::append_form_file--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "body", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_multipart_append_form_file" soup_multipart_append_form_file :: -    Ptr Multipart ->                        -- _obj : TInterface "Soup" "Multipart"-    CString ->                              -- control_name : TBasicType TUTF8-    CString ->                              -- filename : TBasicType TUTF8-    CString ->                              -- content_type : TBasicType TUTF8-    Ptr Buffer ->                           -- body : TInterface "Soup" "Buffer"-    IO ()---multipartAppendFormFile ::-    (MonadIO m) =>-    Multipart                               -- _obj-    -> T.Text                               -- controlName-    -> T.Text                               -- filename-    -> T.Text                               -- contentType-    -> Buffer                               -- body-    -> m ()                                 -- result-multipartAppendFormFile _obj controlName filename contentType body = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    controlName' <- textToCString controlName-    filename' <- textToCString filename-    contentType' <- textToCString contentType-    let body' = unsafeManagedPtrGetPtr body-    soup_multipart_append_form_file _obj' controlName' filename' contentType' body'-    touchManagedPtr _obj-    touchManagedPtr body-    freeMem controlName'-    freeMem filename'-    freeMem contentType'-    return ()--data MultipartAppendFormFileMethodInfo-instance (signature ~ (T.Text -> T.Text -> T.Text -> Buffer -> m ()), MonadIO m) => MethodInfo MultipartAppendFormFileMethodInfo Multipart signature where-    overloadedMethod _ = multipartAppendFormFile---- method Multipart::append_form_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_multipart_append_form_string" soup_multipart_append_form_string :: -    Ptr Multipart ->                        -- _obj : TInterface "Soup" "Multipart"-    CString ->                              -- control_name : TBasicType TUTF8-    CString ->                              -- data : TBasicType TUTF8-    IO ()---multipartAppendFormString ::-    (MonadIO m) =>-    Multipart                               -- _obj-    -> T.Text                               -- controlName-    -> T.Text                               -- data_-    -> m ()                                 -- result-multipartAppendFormString _obj controlName data_ = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    controlName' <- textToCString controlName-    data_' <- textToCString data_-    soup_multipart_append_form_string _obj' controlName' data_'-    touchManagedPtr _obj-    freeMem controlName'-    freeMem data_'-    return ()--data MultipartAppendFormStringMethodInfo-instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m) => MethodInfo MultipartAppendFormStringMethodInfo Multipart signature where-    overloadedMethod _ = multipartAppendFormString---- method Multipart::append_part--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "body", argType = TInterface "Soup" "Buffer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_multipart_append_part" soup_multipart_append_part :: -    Ptr Multipart ->                        -- _obj : TInterface "Soup" "Multipart"-    Ptr MessageHeaders ->                   -- headers : TInterface "Soup" "MessageHeaders"-    Ptr Buffer ->                           -- body : TInterface "Soup" "Buffer"-    IO ()---multipartAppendPart ::-    (MonadIO m) =>-    Multipart                               -- _obj-    -> MessageHeaders                       -- headers-    -> Buffer                               -- body-    -> m ()                                 -- result-multipartAppendPart _obj headers body = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let headers' = unsafeManagedPtrGetPtr headers-    let body' = unsafeManagedPtrGetPtr body-    soup_multipart_append_part _obj' headers' body'-    touchManagedPtr _obj-    touchManagedPtr headers-    touchManagedPtr body-    return ()--data MultipartAppendPartMethodInfo-instance (signature ~ (MessageHeaders -> Buffer -> m ()), MonadIO m) => MethodInfo MultipartAppendPartMethodInfo Multipart signature where-    overloadedMethod _ = multipartAppendPart---- method Multipart::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_multipart_free" soup_multipart_free :: -    Ptr Multipart ->                        -- _obj : TInterface "Soup" "Multipart"-    IO ()---multipartFree ::-    (MonadIO m) =>-    Multipart                               -- _obj-    -> m ()                                 -- result-multipartFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_multipart_free _obj'-    touchManagedPtr _obj-    return ()--data MultipartFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo MultipartFreeMethodInfo Multipart signature where-    overloadedMethod _ = multipartFree---- method Multipart::get_length--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "soup_multipart_get_length" soup_multipart_get_length :: -    Ptr Multipart ->                        -- _obj : TInterface "Soup" "Multipart"-    IO Int32---multipartGetLength ::-    (MonadIO m) =>-    Multipart                               -- _obj-    -> m Int32                              -- result-multipartGetLength _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_multipart_get_length _obj'-    touchManagedPtr _obj-    return result--data MultipartGetLengthMethodInfo-instance (signature ~ (m Int32), MonadIO m) => MethodInfo MultipartGetLengthMethodInfo Multipart signature where-    overloadedMethod _ = multipartGetLength---- method Multipart::get_part--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "part", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "body", argType = TInterface "Soup" "Buffer", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_multipart_get_part" soup_multipart_get_part :: -    Ptr Multipart ->                        -- _obj : TInterface "Soup" "Multipart"-    Int32 ->                                -- part : TBasicType TInt-    Ptr (Ptr MessageHeaders) ->             -- headers : TInterface "Soup" "MessageHeaders"-    Ptr Buffer ->                           -- body : TInterface "Soup" "Buffer"-    IO CInt---multipartGetPart ::-    (MonadIO m) =>-    Multipart                               -- _obj-    -> Int32                                -- part-    -> m (Bool,MessageHeaders,Buffer)       -- result-multipartGetPart _obj part = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    headers <- allocMem :: IO (Ptr (Ptr MessageHeaders))-    body <- callocBoxedBytes 16 :: IO (Ptr Buffer)-    result <- soup_multipart_get_part _obj' part headers body-    let result' = (/= 0) result-    headers' <- peek headers-    headers'' <- (newBoxed MessageHeaders) headers'-    body' <- (wrapBoxed Buffer) body-    touchManagedPtr _obj-    freeMem headers-    return (result', headers'', body')--data MultipartGetPartMethodInfo-instance (signature ~ (Int32 -> m (Bool,MessageHeaders,Buffer)), MonadIO m) => MethodInfo MultipartGetPartMethodInfo Multipart signature where-    overloadedMethod _ = multipartGetPart---- method Multipart::to_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "Multipart", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_headers", argType = TInterface "Soup" "MessageHeaders", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_body", argType = TInterface "Soup" "MessageBody", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_multipart_to_message" soup_multipart_to_message :: -    Ptr Multipart ->                        -- _obj : TInterface "Soup" "Multipart"-    Ptr MessageHeaders ->                   -- dest_headers : TInterface "Soup" "MessageHeaders"-    Ptr MessageBody ->                      -- dest_body : TInterface "Soup" "MessageBody"-    IO ()---multipartToMessage ::-    (MonadIO m) =>-    Multipart                               -- _obj-    -> MessageHeaders                       -- destHeaders-    -> MessageBody                          -- destBody-    -> m ()                                 -- result-multipartToMessage _obj destHeaders destBody = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let destHeaders' = unsafeManagedPtrGetPtr destHeaders-    let destBody' = unsafeManagedPtrGetPtr destBody-    soup_multipart_to_message _obj' destHeaders' destBody'-    touchManagedPtr _obj-    touchManagedPtr destHeaders-    touchManagedPtr destBody-    return ()--data MultipartToMessageMethodInfo-instance (signature ~ (MessageHeaders -> MessageBody -> m ()), MonadIO m) => MethodInfo MultipartToMessageMethodInfo Multipart signature where-    overloadedMethod _ = multipartToMessage--type family ResolveMultipartMethod (t :: Symbol) (o :: *) :: * where-    ResolveMultipartMethod "appendFormFile" o = MultipartAppendFormFileMethodInfo-    ResolveMultipartMethod "appendFormString" o = MultipartAppendFormStringMethodInfo-    ResolveMultipartMethod "appendPart" o = MultipartAppendPartMethodInfo-    ResolveMultipartMethod "free" o = MultipartFreeMethodInfo-    ResolveMultipartMethod "toMessage" o = MultipartToMessageMethodInfo-    ResolveMultipartMethod "getLength" o = MultipartGetLengthMethodInfo-    ResolveMultipartMethod "getPart" o = MultipartGetPartMethodInfo-    ResolveMultipartMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveMultipartMethod t Multipart, MethodInfo info Multipart p) => IsLabelProxy t (Multipart -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveMultipartMethod t Multipart, MethodInfo info Multipart p) => IsLabel t (Multipart -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Soup/Structs/Multipart.hs-boot 
@@ -1,18 +0,0 @@-module GI.Soup.Structs.Multipart where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Multipart = Multipart (ForeignPtr Multipart)-instance BoxedObject Multipart where-data MultipartAppendFormFileMethodInfo-data MultipartAppendFormStringMethodInfo-data MultipartAppendPartMethodInfo-data MultipartFreeMethodInfo-data MultipartGetLengthMethodInfo-data MultipartGetPartMethodInfo-data MultipartToMessageMethodInfo
− GI/Soup/Structs/Range.hs 
@@ -1,145 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Represents a byte range as used in the Range header.--If @end is non-negative, then @start and @end represent the bounds-of of the range, counting from 0. (Eg, the first 500 bytes would be-represented as @start = 0 and @end = 499.)--If @end is -1 and @start is non-negative, then this represents a-range starting at @start and ending with the last byte of the-requested resource body. (Eg, all but the first 500 bytes would be-@start = 500, and @end = -1.)--If @end is -1 and @start is negative, then it represents a "suffix-range", referring to the last -@start bytes of the resource body.-(Eg, the last 500 bytes would be @start = -500 and @end = -1.)--}--module GI.Soup.Structs.Range-    ( ---- * Exported types-    Range(..)                               ,-    newZeroRange                            ,-    noRange                                 ,--- -- * Properties--- ** End-    rangeEnd                                ,-    rangeReadEnd                            ,-    rangeWriteEnd                           ,----- ** Start-    rangeReadStart                          ,-    rangeStart                              ,-    rangeWriteStart                         ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks--newtype Range = Range (ForeignPtr Range)-instance WrappedPtr Range where-    wrappedPtrCalloc = callocBytes 16-    wrappedPtrCopy = copyPtr 16-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `Range` struct initialized to zero.-newZeroRange :: MonadIO m => m Range-newZeroRange = liftIO $ wrappedPtrCalloc >>= wrapPtr Range--instance tag ~ 'AttrSet => Constructible Range tag where-    new _ attrs = do-        o <- newZeroRange-        GI.Attributes.set o attrs-        return o---noRange :: Maybe Range-noRange = Nothing--rangeReadStart :: MonadIO m => Range -> m Int64-rangeReadStart s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int64-    return val--rangeWriteStart :: MonadIO m => Range -> Int64 -> m ()-rangeWriteStart s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Int64)--data RangeStartFieldInfo-instance AttrInfo RangeStartFieldInfo where-    type AttrAllowedOps RangeStartFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint RangeStartFieldInfo = (~) Int64-    type AttrBaseTypeConstraint RangeStartFieldInfo = (~) Range-    type AttrGetType RangeStartFieldInfo = Int64-    type AttrLabel RangeStartFieldInfo = "start"-    attrGet _ = rangeReadStart-    attrSet _ = rangeWriteStart-    attrConstruct = undefined-    attrClear _ = undefined--rangeStart :: AttrLabelProxy "start"-rangeStart = AttrLabelProxy---rangeReadEnd :: MonadIO m => Range -> m Int64-rangeReadEnd s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Int64-    return val--rangeWriteEnd :: MonadIO m => Range -> Int64 -> m ()-rangeWriteEnd s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Int64)--data RangeEndFieldInfo-instance AttrInfo RangeEndFieldInfo where-    type AttrAllowedOps RangeEndFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint RangeEndFieldInfo = (~) Int64-    type AttrBaseTypeConstraint RangeEndFieldInfo = (~) Range-    type AttrGetType RangeEndFieldInfo = Int64-    type AttrLabel RangeEndFieldInfo = "end"-    attrGet _ = rangeReadEnd-    attrSet _ = rangeWriteEnd-    attrConstruct = undefined-    attrClear _ = undefined--rangeEnd :: AttrLabelProxy "end"-rangeEnd = AttrLabelProxy----type instance AttributeList Range = RangeAttributeList-type RangeAttributeList = ('[ '("start", RangeStartFieldInfo), '("end", RangeEndFieldInfo)] :: [(Symbol, *)])--type family ResolveRangeMethod (t :: Symbol) (o :: *) :: * where-    ResolveRangeMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveRangeMethod t Range, MethodInfo info Range p) => IsLabelProxy t (Range -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveRangeMethod t Range, MethodInfo info Range p) => IsLabel t (Range -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Soup/Structs/Range.hs-boot 
@@ -1,11 +0,0 @@-module GI.Soup.Structs.Range where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Range = Range (ForeignPtr Range)-instance WrappedPtr Range where
− GI/Soup/Structs/URI.hs 
@@ -1,1516 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A #SoupURI represents a (parsed) URI. #SoupURI supports RFC 3986-(URI Generic Syntax), and can parse any valid URI. However, libsoup-only uses "http" and "https" URIs internally; You can use-SOUP_URI_VALID_FOR_HTTP() to test if a #SoupURI is a valid HTTP-URI.--@scheme will always be set in any URI. It is an interned string and-is always all lowercase. (If you parse a URI with a non-lowercase-scheme, it will be converted to lowercase.) The macros-%SOUP_URI_SCHEME_HTTP and %SOUP_URI_SCHEME_HTTPS provide the-interned values for "http" and "https" and can be compared against-URI @scheme values.--@user and @password are parsed as defined in the older URI specs-(ie, separated by a colon; RFC 3986 only talks about a single-"userinfo" field). Note that @password is not included in the-output of soup_uri_to_string(). libsoup does not normally use these-fields; authentication is handled via #SoupSession signals.--@host contains the hostname, and @port the port specified in the-URI. If the URI doesn't contain a hostname, @host will be %NULL,-and if it doesn't specify a port, @port may be 0. However, for-"http" and "https" URIs, @host is guaranteed to be non-%NULL-(trying to parse an http URI with no @host will return %NULL), and-@port will always be non-0 (because libsoup knows the default value-to use when it is not specified in the URI).--@path is always non-%NULL. For http/https URIs, @path will never be-an empty string either; if the input URI has no path, the parsed-#SoupURI will have a @path of "/".--@query and @fragment are optional for all URI types.-soup_form_decode() may be useful for parsing @query.--Note that @path, @query, and @fragment may contain-%<!-- -->-encoded characters. soup_uri_new() calls-soup_uri_normalize() on them, but not soup_uri_decode(). This is-necessary to ensure that soup_uri_to_string() will generate a URI-that has exactly the same meaning as the original. (In theory,-#SoupURI should leave @user, @password, and @host partially-encoded-as well, but this would be more annoying than useful.)--}--module GI.Soup.Structs.URI-    ( ---- * Exported types-    URI(..)                                 ,-    newZeroURI                              ,-    noURI                                   ,--- -- * Methods--- ** uRICopy-    URICopyMethodInfo                       ,-    uRICopy                                 ,----- ** uRICopyHost-    URICopyHostMethodInfo                   ,-    uRICopyHost                             ,----- ** uRIDecode-    uRIDecode                               ,----- ** uRIEncode-    uRIEncode                               ,----- ** uRIEqual-    URIEqualMethodInfo                      ,-    uRIEqual                                ,----- ** uRIFree-    URIFreeMethodInfo                       ,-    uRIFree                                 ,----- ** uRIGetFragment-    URIGetFragmentMethodInfo                ,-    uRIGetFragment                          ,----- ** uRIGetHost-    URIGetHostMethodInfo                    ,-    uRIGetHost                              ,----- ** uRIGetPassword-    URIGetPasswordMethodInfo                ,-    uRIGetPassword                          ,----- ** uRIGetPath-    URIGetPathMethodInfo                    ,-    uRIGetPath                              ,----- ** uRIGetPort-    URIGetPortMethodInfo                    ,-    uRIGetPort                              ,----- ** uRIGetQuery-    URIGetQueryMethodInfo                   ,-    uRIGetQuery                             ,----- ** uRIGetScheme-    URIGetSchemeMethodInfo                  ,-    uRIGetScheme                            ,----- ** uRIGetUser-    URIGetUserMethodInfo                    ,-    uRIGetUser                              ,----- ** uRIHostEqual-    URIHostEqualMethodInfo                  ,-    uRIHostEqual                            ,----- ** uRIHostHash-    URIHostHashMethodInfo                   ,-    uRIHostHash                             ,----- ** uRINew-    uRINew                                  ,----- ** uRINewWithBase-    URINewWithBaseMethodInfo                ,-    uRINewWithBase                          ,----- ** uRINormalize-    uRINormalize                            ,----- ** uRISetFragment-    URISetFragmentMethodInfo                ,-    uRISetFragment                          ,----- ** uRISetHost-    URISetHostMethodInfo                    ,-    uRISetHost                              ,----- ** uRISetPassword-    URISetPasswordMethodInfo                ,-    uRISetPassword                          ,----- ** uRISetPath-    URISetPathMethodInfo                    ,-    uRISetPath                              ,----- ** uRISetPort-    URISetPortMethodInfo                    ,-    uRISetPort                              ,----- ** uRISetQuery-    URISetQueryMethodInfo                   ,-    uRISetQuery                             ,----- ** uRISetQueryFromForm-    URISetQueryFromFormMethodInfo           ,-    uRISetQueryFromForm                     ,----- ** uRISetScheme-    URISetSchemeMethodInfo                  ,-    uRISetScheme                            ,----- ** uRISetUser-    URISetUserMethodInfo                    ,-    uRISetUser                              ,----- ** uRIToString-    URIToStringMethodInfo                   ,-    uRIToString                             ,----- ** uRIUsesDefaultPort-    URIUsesDefaultPortMethodInfo            ,-    uRIUsesDefaultPort                      ,----- -- * Properties--- ** Fragment-    uRIClearFragment                        ,-    uRIFragment                             ,-    uRIReadFragment                         ,-    uRIWriteFragment                        ,----- ** Host-    uRIClearHost                            ,-    uRIHost                                 ,-    uRIReadHost                             ,-    uRIWriteHost                            ,----- ** Password-    uRIClearPassword                        ,-    uRIPassword                             ,-    uRIReadPassword                         ,-    uRIWritePassword                        ,----- ** Path-    uRIClearPath                            ,-    uRIPath                                 ,-    uRIReadPath                             ,-    uRIWritePath                            ,----- ** Port-    uRIPort                                 ,-    uRIReadPort                             ,-    uRIWritePort                            ,----- ** Query-    uRIClearQuery                           ,-    uRIQuery                                ,-    uRIReadQuery                            ,-    uRIWriteQuery                           ,----- ** Scheme-    uRIClearScheme                          ,-    uRIReadScheme                           ,-    uRIScheme                               ,-    uRIWriteScheme                          ,----- ** User-    uRIClearUser                            ,-    uRIReadUser                             ,-    uRIUser                                 ,-    uRIWriteUser                            ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks--newtype URI = URI (ForeignPtr URI)-foreign import ccall "soup_uri_get_type" c_soup_uri_get_type :: -    IO GType--instance BoxedObject URI where-    boxedType _ = c_soup_uri_get_type---- | Construct a `URI` struct initialized to zero.-newZeroURI :: MonadIO m => m URI-newZeroURI = liftIO $ callocBoxedBytes 64 >>= wrapBoxed URI--instance tag ~ 'AttrSet => Constructible URI tag where-    new _ attrs = do-        o <- newZeroURI-        GI.Attributes.set o attrs-        return o---noURI :: Maybe URI-noURI = Nothing--uRIReadScheme :: MonadIO m => URI -> m (Maybe T.Text)-uRIReadScheme s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--uRIWriteScheme :: MonadIO m => URI -> CString -> m ()-uRIWriteScheme s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: CString)--uRIClearScheme :: MonadIO m => URI -> m ()-uRIClearScheme s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: CString)--data URISchemeFieldInfo-instance AttrInfo URISchemeFieldInfo where-    type AttrAllowedOps URISchemeFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint URISchemeFieldInfo = (~) CString-    type AttrBaseTypeConstraint URISchemeFieldInfo = (~) URI-    type AttrGetType URISchemeFieldInfo = Maybe T.Text-    type AttrLabel URISchemeFieldInfo = "scheme"-    attrGet _ = uRIReadScheme-    attrSet _ = uRIWriteScheme-    attrConstruct = undefined-    attrClear _ = uRIClearScheme--uRIScheme :: AttrLabelProxy "scheme"-uRIScheme = AttrLabelProxy---uRIReadUser :: MonadIO m => URI -> m (Maybe T.Text)-uRIReadUser s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--uRIWriteUser :: MonadIO m => URI -> CString -> m ()-uRIWriteUser s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: CString)--uRIClearUser :: MonadIO m => URI -> m ()-uRIClearUser s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: CString)--data URIUserFieldInfo-instance AttrInfo URIUserFieldInfo where-    type AttrAllowedOps URIUserFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint URIUserFieldInfo = (~) CString-    type AttrBaseTypeConstraint URIUserFieldInfo = (~) URI-    type AttrGetType URIUserFieldInfo = Maybe T.Text-    type AttrLabel URIUserFieldInfo = "user"-    attrGet _ = uRIReadUser-    attrSet _ = uRIWriteUser-    attrConstruct = undefined-    attrClear _ = uRIClearUser--uRIUser :: AttrLabelProxy "user"-uRIUser = AttrLabelProxy---uRIReadPassword :: MonadIO m => URI -> m (Maybe T.Text)-uRIReadPassword s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--uRIWritePassword :: MonadIO m => URI -> CString -> m ()-uRIWritePassword s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: CString)--uRIClearPassword :: MonadIO m => URI -> m ()-uRIClearPassword s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (nullPtr :: CString)--data URIPasswordFieldInfo-instance AttrInfo URIPasswordFieldInfo where-    type AttrAllowedOps URIPasswordFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint URIPasswordFieldInfo = (~) CString-    type AttrBaseTypeConstraint URIPasswordFieldInfo = (~) URI-    type AttrGetType URIPasswordFieldInfo = Maybe T.Text-    type AttrLabel URIPasswordFieldInfo = "password"-    attrGet _ = uRIReadPassword-    attrSet _ = uRIWritePassword-    attrConstruct = undefined-    attrClear _ = uRIClearPassword--uRIPassword :: AttrLabelProxy "password"-uRIPassword = AttrLabelProxy---uRIReadHost :: MonadIO m => URI -> m (Maybe T.Text)-uRIReadHost s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--uRIWriteHost :: MonadIO m => URI -> CString -> m ()-uRIWriteHost s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: CString)--uRIClearHost :: MonadIO m => URI -> m ()-uRIClearHost s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (nullPtr :: CString)--data URIHostFieldInfo-instance AttrInfo URIHostFieldInfo where-    type AttrAllowedOps URIHostFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint URIHostFieldInfo = (~) CString-    type AttrBaseTypeConstraint URIHostFieldInfo = (~) URI-    type AttrGetType URIHostFieldInfo = Maybe T.Text-    type AttrLabel URIHostFieldInfo = "host"-    attrGet _ = uRIReadHost-    attrSet _ = uRIWriteHost-    attrConstruct = undefined-    attrClear _ = uRIClearHost--uRIHost :: AttrLabelProxy "host"-uRIHost = AttrLabelProxy---uRIReadPort :: MonadIO m => URI -> m Word32-uRIReadPort s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO Word32-    return val--uRIWritePort :: MonadIO m => URI -> Word32 -> m ()-uRIWritePort s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (val :: Word32)--data URIPortFieldInfo-instance AttrInfo URIPortFieldInfo where-    type AttrAllowedOps URIPortFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint URIPortFieldInfo = (~) Word32-    type AttrBaseTypeConstraint URIPortFieldInfo = (~) URI-    type AttrGetType URIPortFieldInfo = Word32-    type AttrLabel URIPortFieldInfo = "port"-    attrGet _ = uRIReadPort-    attrSet _ = uRIWritePort-    attrConstruct = undefined-    attrClear _ = undefined--uRIPort :: AttrLabelProxy "port"-uRIPort = AttrLabelProxy---uRIReadPath :: MonadIO m => URI -> m (Maybe T.Text)-uRIReadPath s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--uRIWritePath :: MonadIO m => URI -> CString -> m ()-uRIWritePath s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 40) (val :: CString)--uRIClearPath :: MonadIO m => URI -> m ()-uRIClearPath s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 40) (nullPtr :: CString)--data URIPathFieldInfo-instance AttrInfo URIPathFieldInfo where-    type AttrAllowedOps URIPathFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint URIPathFieldInfo = (~) CString-    type AttrBaseTypeConstraint URIPathFieldInfo = (~) URI-    type AttrGetType URIPathFieldInfo = Maybe T.Text-    type AttrLabel URIPathFieldInfo = "path"-    attrGet _ = uRIReadPath-    attrSet _ = uRIWritePath-    attrConstruct = undefined-    attrClear _ = uRIClearPath--uRIPath :: AttrLabelProxy "path"-uRIPath = AttrLabelProxy---uRIReadQuery :: MonadIO m => URI -> m (Maybe T.Text)-uRIReadQuery s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--uRIWriteQuery :: MonadIO m => URI -> CString -> m ()-uRIWriteQuery s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 48) (val :: CString)--uRIClearQuery :: MonadIO m => URI -> m ()-uRIClearQuery s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 48) (nullPtr :: CString)--data URIQueryFieldInfo-instance AttrInfo URIQueryFieldInfo where-    type AttrAllowedOps URIQueryFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint URIQueryFieldInfo = (~) CString-    type AttrBaseTypeConstraint URIQueryFieldInfo = (~) URI-    type AttrGetType URIQueryFieldInfo = Maybe T.Text-    type AttrLabel URIQueryFieldInfo = "query"-    attrGet _ = uRIReadQuery-    attrSet _ = uRIWriteQuery-    attrConstruct = undefined-    attrClear _ = uRIClearQuery--uRIQuery :: AttrLabelProxy "query"-uRIQuery = AttrLabelProxy---uRIReadFragment :: MonadIO m => URI -> m (Maybe T.Text)-uRIReadFragment s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 56) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--uRIWriteFragment :: MonadIO m => URI -> CString -> m ()-uRIWriteFragment s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 56) (val :: CString)--uRIClearFragment :: MonadIO m => URI -> m ()-uRIClearFragment s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 56) (nullPtr :: CString)--data URIFragmentFieldInfo-instance AttrInfo URIFragmentFieldInfo where-    type AttrAllowedOps URIFragmentFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint URIFragmentFieldInfo = (~) CString-    type AttrBaseTypeConstraint URIFragmentFieldInfo = (~) URI-    type AttrGetType URIFragmentFieldInfo = Maybe T.Text-    type AttrLabel URIFragmentFieldInfo = "fragment"-    attrGet _ = uRIReadFragment-    attrSet _ = uRIWriteFragment-    attrConstruct = undefined-    attrClear _ = uRIClearFragment--uRIFragment :: AttrLabelProxy "fragment"-uRIFragment = AttrLabelProxy----type instance AttributeList URI = URIAttributeList-type URIAttributeList = ('[ '("scheme", URISchemeFieldInfo), '("user", URIUserFieldInfo), '("password", URIPasswordFieldInfo), '("host", URIHostFieldInfo), '("port", URIPortFieldInfo), '("path", URIPathFieldInfo), '("query", URIQueryFieldInfo), '("fragment", URIFragmentFieldInfo)] :: [(Symbol, *)])---- method URI::new--- method type : Constructor--- Args : [Arg {argCName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "URI")--- throws : False--- Skip return : False--foreign import ccall "soup_uri_new" soup_uri_new :: -    CString ->                              -- uri_string : TBasicType TUTF8-    IO (Ptr URI)---uRINew ::-    (MonadIO m) =>-    Maybe (T.Text)                          -- uriString-    -> m (Maybe URI)                        -- result-uRINew uriString = liftIO $ do-    maybeUriString <- case uriString of-        Nothing -> return nullPtr-        Just jUriString -> do-            jUriString' <- textToCString jUriString-            return jUriString'-    result <- soup_uri_new maybeUriString-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapBoxed URI) result'-        return result''-    freeMem maybeUriString-    return maybeResult---- method URI::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "URI")--- throws : False--- Skip return : False--foreign import ccall "soup_uri_copy" soup_uri_copy :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    IO (Ptr URI)---uRICopy ::-    (MonadIO m) =>-    URI                                     -- _obj-    -> m URI                                -- result-uRICopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_uri_copy _obj'-    checkUnexpectedReturnNULL "soup_uri_copy" result-    result' <- (wrapBoxed URI) result-    touchManagedPtr _obj-    return result'--data URICopyMethodInfo-instance (signature ~ (m URI), MonadIO m) => MethodInfo URICopyMethodInfo URI signature where-    overloadedMethod _ = uRICopy---- method URI::copy_host--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "URI")--- throws : False--- Skip return : False--foreign import ccall "soup_uri_copy_host" soup_uri_copy_host :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    IO (Ptr URI)---uRICopyHost ::-    (MonadIO m) =>-    URI                                     -- _obj-    -> m URI                                -- result-uRICopyHost _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_uri_copy_host _obj'-    checkUnexpectedReturnNULL "soup_uri_copy_host" result-    result' <- (wrapBoxed URI) result-    touchManagedPtr _obj-    return result'--data URICopyHostMethodInfo-instance (signature ~ (m URI), MonadIO m) => MethodInfo URICopyHostMethodInfo URI signature where-    overloadedMethod _ = uRICopyHost---- method URI::equal--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri2", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_uri_equal" soup_uri_equal :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    Ptr URI ->                              -- uri2 : TInterface "Soup" "URI"-    IO CInt---uRIEqual ::-    (MonadIO m) =>-    URI                                     -- _obj-    -> URI                                  -- uri2-    -> m Bool                               -- result-uRIEqual _obj uri2 = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let uri2' = unsafeManagedPtrGetPtr uri2-    result <- soup_uri_equal _obj' uri2'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr uri2-    return result'--data URIEqualMethodInfo-instance (signature ~ (URI -> m Bool), MonadIO m) => MethodInfo URIEqualMethodInfo URI signature where-    overloadedMethod _ = uRIEqual---- method URI::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_uri_free" soup_uri_free :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    IO ()---uRIFree ::-    (MonadIO m) =>-    URI                                     -- _obj-    -> m ()                                 -- result-uRIFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_uri_free _obj'-    touchManagedPtr _obj-    return ()--data URIFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo URIFreeMethodInfo URI signature where-    overloadedMethod _ = uRIFree---- method URI::get_fragment--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_uri_get_fragment" soup_uri_get_fragment :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    IO CString---uRIGetFragment ::-    (MonadIO m) =>-    URI                                     -- _obj-    -> m T.Text                             -- result-uRIGetFragment _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_uri_get_fragment _obj'-    checkUnexpectedReturnNULL "soup_uri_get_fragment" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data URIGetFragmentMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo URIGetFragmentMethodInfo URI signature where-    overloadedMethod _ = uRIGetFragment---- method URI::get_host--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_uri_get_host" soup_uri_get_host :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    IO CString---uRIGetHost ::-    (MonadIO m) =>-    URI                                     -- _obj-    -> m T.Text                             -- result-uRIGetHost _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_uri_get_host _obj'-    checkUnexpectedReturnNULL "soup_uri_get_host" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data URIGetHostMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo URIGetHostMethodInfo URI signature where-    overloadedMethod _ = uRIGetHost---- method URI::get_password--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_uri_get_password" soup_uri_get_password :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    IO CString---uRIGetPassword ::-    (MonadIO m) =>-    URI                                     -- _obj-    -> m T.Text                             -- result-uRIGetPassword _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_uri_get_password _obj'-    checkUnexpectedReturnNULL "soup_uri_get_password" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data URIGetPasswordMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo URIGetPasswordMethodInfo URI signature where-    overloadedMethod _ = uRIGetPassword---- method URI::get_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_uri_get_path" soup_uri_get_path :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    IO CString---uRIGetPath ::-    (MonadIO m) =>-    URI                                     -- _obj-    -> m T.Text                             -- result-uRIGetPath _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_uri_get_path _obj'-    checkUnexpectedReturnNULL "soup_uri_get_path" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data URIGetPathMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo URIGetPathMethodInfo URI signature where-    overloadedMethod _ = uRIGetPath---- method URI::get_port--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "soup_uri_get_port" soup_uri_get_port :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    IO Word32---uRIGetPort ::-    (MonadIO m) =>-    URI                                     -- _obj-    -> m Word32                             -- result-uRIGetPort _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_uri_get_port _obj'-    touchManagedPtr _obj-    return result--data URIGetPortMethodInfo-instance (signature ~ (m Word32), MonadIO m) => MethodInfo URIGetPortMethodInfo URI signature where-    overloadedMethod _ = uRIGetPort---- method URI::get_query--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_uri_get_query" soup_uri_get_query :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    IO CString---uRIGetQuery ::-    (MonadIO m) =>-    URI                                     -- _obj-    -> m T.Text                             -- result-uRIGetQuery _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_uri_get_query _obj'-    checkUnexpectedReturnNULL "soup_uri_get_query" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data URIGetQueryMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo URIGetQueryMethodInfo URI signature where-    overloadedMethod _ = uRIGetQuery---- method URI::get_scheme--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_uri_get_scheme" soup_uri_get_scheme :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    IO CString---uRIGetScheme ::-    (MonadIO m) =>-    URI                                     -- _obj-    -> m T.Text                             -- result-uRIGetScheme _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_uri_get_scheme _obj'-    checkUnexpectedReturnNULL "soup_uri_get_scheme" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data URIGetSchemeMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo URIGetSchemeMethodInfo URI signature where-    overloadedMethod _ = uRIGetScheme---- method URI::get_user--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_uri_get_user" soup_uri_get_user :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    IO CString---uRIGetUser ::-    (MonadIO m) =>-    URI                                     -- _obj-    -> m T.Text                             -- result-uRIGetUser _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_uri_get_user _obj'-    checkUnexpectedReturnNULL "soup_uri_get_user" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data URIGetUserMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo URIGetUserMethodInfo URI signature where-    overloadedMethod _ = uRIGetUser---- method URI::host_equal--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "v2", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_uri_host_equal" soup_uri_host_equal :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    Ptr URI ->                              -- v2 : TInterface "Soup" "URI"-    IO CInt---uRIHostEqual ::-    (MonadIO m) =>-    URI                                     -- _obj-    -> URI                                  -- v2-    -> m Bool                               -- result-uRIHostEqual _obj v2 = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let v2' = unsafeManagedPtrGetPtr v2-    result <- soup_uri_host_equal _obj' v2'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr v2-    return result'--data URIHostEqualMethodInfo-instance (signature ~ (URI -> m Bool), MonadIO m) => MethodInfo URIHostEqualMethodInfo URI signature where-    overloadedMethod _ = uRIHostEqual---- method URI::host_hash--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "soup_uri_host_hash" soup_uri_host_hash :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    IO Word32---uRIHostHash ::-    (MonadIO m) =>-    URI                                     -- _obj-    -> m Word32                             -- result-uRIHostHash _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_uri_host_hash _obj'-    touchManagedPtr _obj-    return result--data URIHostHashMethodInfo-instance (signature ~ (m Word32), MonadIO m) => MethodInfo URIHostHashMethodInfo URI signature where-    overloadedMethod _ = uRIHostHash---- method URI::new_with_base--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Soup" "URI")--- throws : False--- Skip return : False--foreign import ccall "soup_uri_new_with_base" soup_uri_new_with_base :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    CString ->                              -- uri_string : TBasicType TUTF8-    IO (Ptr URI)---uRINewWithBase ::-    (MonadIO m) =>-    URI                                     -- _obj-    -> T.Text                               -- uriString-    -> m URI                                -- result-uRINewWithBase _obj uriString = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    uriString' <- textToCString uriString-    result <- soup_uri_new_with_base _obj' uriString'-    checkUnexpectedReturnNULL "soup_uri_new_with_base" result-    result' <- (wrapBoxed URI) result-    touchManagedPtr _obj-    freeMem uriString'-    return result'--data URINewWithBaseMethodInfo-instance (signature ~ (T.Text -> m URI), MonadIO m) => MethodInfo URINewWithBaseMethodInfo URI signature where-    overloadedMethod _ = uRINewWithBase---- method URI::set_fragment--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fragment", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_uri_set_fragment" soup_uri_set_fragment :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    CString ->                              -- fragment : TBasicType TUTF8-    IO ()---uRISetFragment ::-    (MonadIO m) =>-    URI                                     -- _obj-    -> Maybe (T.Text)                       -- fragment-    -> m ()                                 -- result-uRISetFragment _obj fragment = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    maybeFragment <- case fragment of-        Nothing -> return nullPtr-        Just jFragment -> do-            jFragment' <- textToCString jFragment-            return jFragment'-    soup_uri_set_fragment _obj' maybeFragment-    touchManagedPtr _obj-    freeMem maybeFragment-    return ()--data URISetFragmentMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m) => MethodInfo URISetFragmentMethodInfo URI signature where-    overloadedMethod _ = uRISetFragment---- method URI::set_host--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_uri_set_host" soup_uri_set_host :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    CString ->                              -- host : TBasicType TUTF8-    IO ()---uRISetHost ::-    (MonadIO m) =>-    URI                                     -- _obj-    -> Maybe (T.Text)                       -- host-    -> m ()                                 -- result-uRISetHost _obj host = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    maybeHost <- case host of-        Nothing -> return nullPtr-        Just jHost -> do-            jHost' <- textToCString jHost-            return jHost'-    soup_uri_set_host _obj' maybeHost-    touchManagedPtr _obj-    freeMem maybeHost-    return ()--data URISetHostMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m) => MethodInfo URISetHostMethodInfo URI signature where-    overloadedMethod _ = uRISetHost---- method URI::set_password--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_uri_set_password" soup_uri_set_password :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    CString ->                              -- password : TBasicType TUTF8-    IO ()---uRISetPassword ::-    (MonadIO m) =>-    URI                                     -- _obj-    -> Maybe (T.Text)                       -- password-    -> m ()                                 -- result-uRISetPassword _obj password = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    maybePassword <- case password of-        Nothing -> return nullPtr-        Just jPassword -> do-            jPassword' <- textToCString jPassword-            return jPassword'-    soup_uri_set_password _obj' maybePassword-    touchManagedPtr _obj-    freeMem maybePassword-    return ()--data URISetPasswordMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m) => MethodInfo URISetPasswordMethodInfo URI signature where-    overloadedMethod _ = uRISetPassword---- method URI::set_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_uri_set_path" soup_uri_set_path :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    CString ->                              -- path : TBasicType TUTF8-    IO ()---uRISetPath ::-    (MonadIO m) =>-    URI                                     -- _obj-    -> T.Text                               -- path-    -> m ()                                 -- result-uRISetPath _obj path = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    path' <- textToCString path-    soup_uri_set_path _obj' path'-    touchManagedPtr _obj-    freeMem path'-    return ()--data URISetPathMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo URISetPathMethodInfo URI signature where-    overloadedMethod _ = uRISetPath---- method URI::set_port--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_uri_set_port" soup_uri_set_port :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    Word32 ->                               -- port : TBasicType TUInt-    IO ()---uRISetPort ::-    (MonadIO m) =>-    URI                                     -- _obj-    -> Word32                               -- port-    -> m ()                                 -- result-uRISetPort _obj port = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_uri_set_port _obj' port-    touchManagedPtr _obj-    return ()--data URISetPortMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m) => MethodInfo URISetPortMethodInfo URI signature where-    overloadedMethod _ = uRISetPort---- method URI::set_query--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "query", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_uri_set_query" soup_uri_set_query :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    CString ->                              -- query : TBasicType TUTF8-    IO ()---uRISetQuery ::-    (MonadIO m) =>-    URI                                     -- _obj-    -> Maybe (T.Text)                       -- query-    -> m ()                                 -- result-uRISetQuery _obj query = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    maybeQuery <- case query of-        Nothing -> return nullPtr-        Just jQuery -> do-            jQuery' <- textToCString jQuery-            return jQuery'-    soup_uri_set_query _obj' maybeQuery-    touchManagedPtr _obj-    freeMem maybeQuery-    return ()--data URISetQueryMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m) => MethodInfo URISetQueryMethodInfo URI signature where-    overloadedMethod _ = uRISetQuery---- method URI::set_query_from_form--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "form", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_uri_set_query_from_form" soup_uri_set_query_from_form :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    Ptr (GHashTable CString CString) ->     -- form : TGHash (TBasicType TUTF8) (TBasicType TUTF8)-    IO ()---uRISetQueryFromForm ::-    (MonadIO m) =>-    URI                                     -- _obj-    -> Map.Map T.Text T.Text                -- form-    -> m ()                                 -- result-uRISetQueryFromForm _obj form = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let form' = Map.toList form-    form'' <- mapFirstA textToCString form'-    form''' <- mapSecondA textToCString form''-    let form'''' = mapFirst cstringPackPtr form'''-    let form''''' = mapSecond cstringPackPtr form''''-    form'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) form'''''-    soup_uri_set_query_from_form _obj' form''''''-    touchManagedPtr _obj-    unrefGHashTable form''''''-    return ()--data URISetQueryFromFormMethodInfo-instance (signature ~ (Map.Map T.Text T.Text -> m ()), MonadIO m) => MethodInfo URISetQueryFromFormMethodInfo URI signature where-    overloadedMethod _ = uRISetQueryFromForm---- method URI::set_scheme--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_uri_set_scheme" soup_uri_set_scheme :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    CString ->                              -- scheme : TBasicType TUTF8-    IO ()---uRISetScheme ::-    (MonadIO m) =>-    URI                                     -- _obj-    -> T.Text                               -- scheme-    -> m ()                                 -- result-uRISetScheme _obj scheme = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    scheme' <- textToCString scheme-    soup_uri_set_scheme _obj' scheme'-    touchManagedPtr _obj-    freeMem scheme'-    return ()--data URISetSchemeMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m) => MethodInfo URISetSchemeMethodInfo URI signature where-    overloadedMethod _ = uRISetScheme---- method URI::set_user--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_uri_set_user" soup_uri_set_user :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    CString ->                              -- user : TBasicType TUTF8-    IO ()---uRISetUser ::-    (MonadIO m) =>-    URI                                     -- _obj-    -> Maybe (T.Text)                       -- user-    -> m ()                                 -- result-uRISetUser _obj user = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    maybeUser <- case user of-        Nothing -> return nullPtr-        Just jUser -> do-            jUser' <- textToCString jUser-            return jUser'-    soup_uri_set_user _obj' maybeUser-    touchManagedPtr _obj-    freeMem maybeUser-    return ()--data URISetUserMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m) => MethodInfo URISetUserMethodInfo URI signature where-    overloadedMethod _ = uRISetUser---- method URI::to_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "just_path_and_query", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_uri_to_string" soup_uri_to_string :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    CInt ->                                 -- just_path_and_query : TBasicType TBoolean-    IO CString---uRIToString ::-    (MonadIO m) =>-    URI                                     -- _obj-    -> Bool                                 -- justPathAndQuery-    -> m T.Text                             -- result-uRIToString _obj justPathAndQuery = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let justPathAndQuery' = (fromIntegral . fromEnum) justPathAndQuery-    result <- soup_uri_to_string _obj' justPathAndQuery'-    checkUnexpectedReturnNULL "soup_uri_to_string" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data URIToStringMethodInfo-instance (signature ~ (Bool -> m T.Text), MonadIO m) => MethodInfo URIToStringMethodInfo URI signature where-    overloadedMethod _ = uRIToString---- method URI::uses_default_port--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "URI", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_uri_uses_default_port" soup_uri_uses_default_port :: -    Ptr URI ->                              -- _obj : TInterface "Soup" "URI"-    IO CInt---uRIUsesDefaultPort ::-    (MonadIO m) =>-    URI                                     -- _obj-    -> m Bool                               -- result-uRIUsesDefaultPort _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- soup_uri_uses_default_port _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data URIUsesDefaultPortMethodInfo-instance (signature ~ (m Bool), MonadIO m) => MethodInfo URIUsesDefaultPortMethodInfo URI signature where-    overloadedMethod _ = uRIUsesDefaultPort---- method URI::decode--- method type : MemberFunction--- Args : [Arg {argCName = "part", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_uri_decode" soup_uri_decode :: -    CString ->                              -- part : TBasicType TUTF8-    IO CString---uRIDecode ::-    (MonadIO m) =>-    T.Text                                  -- part-    -> m T.Text                             -- result-uRIDecode part = liftIO $ do-    part' <- textToCString part-    result <- soup_uri_decode part'-    checkUnexpectedReturnNULL "soup_uri_decode" result-    result' <- cstringToText result-    freeMem result-    freeMem part'-    return result'---- method URI::encode--- method type : MemberFunction--- Args : [Arg {argCName = "part", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "escape_extra", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_uri_encode" soup_uri_encode :: -    CString ->                              -- part : TBasicType TUTF8-    CString ->                              -- escape_extra : TBasicType TUTF8-    IO CString---uRIEncode ::-    (MonadIO m) =>-    T.Text                                  -- part-    -> Maybe (T.Text)                       -- escapeExtra-    -> m T.Text                             -- result-uRIEncode part escapeExtra = liftIO $ do-    part' <- textToCString part-    maybeEscapeExtra <- case escapeExtra of-        Nothing -> return nullPtr-        Just jEscapeExtra -> do-            jEscapeExtra' <- textToCString jEscapeExtra-            return jEscapeExtra'-    result <- soup_uri_encode part' maybeEscapeExtra-    checkUnexpectedReturnNULL "soup_uri_encode" result-    result' <- cstringToText result-    freeMem result-    freeMem part'-    freeMem maybeEscapeExtra-    return result'---- method URI::normalize--- method type : MemberFunction--- Args : [Arg {argCName = "part", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unescape_extra", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "soup_uri_normalize" soup_uri_normalize :: -    CString ->                              -- part : TBasicType TUTF8-    CString ->                              -- unescape_extra : TBasicType TUTF8-    IO CString---uRINormalize ::-    (MonadIO m) =>-    T.Text                                  -- part-    -> Maybe (T.Text)                       -- unescapeExtra-    -> m T.Text                             -- result-uRINormalize part unescapeExtra = liftIO $ do-    part' <- textToCString part-    maybeUnescapeExtra <- case unescapeExtra of-        Nothing -> return nullPtr-        Just jUnescapeExtra -> do-            jUnescapeExtra' <- textToCString jUnescapeExtra-            return jUnescapeExtra'-    result <- soup_uri_normalize part' maybeUnescapeExtra-    checkUnexpectedReturnNULL "soup_uri_normalize" result-    result' <- cstringToText result-    freeMem result-    freeMem part'-    freeMem maybeUnescapeExtra-    return result'--type family ResolveURIMethod (t :: Symbol) (o :: *) :: * where-    ResolveURIMethod "copy" o = URICopyMethodInfo-    ResolveURIMethod "copyHost" o = URICopyHostMethodInfo-    ResolveURIMethod "equal" o = URIEqualMethodInfo-    ResolveURIMethod "free" o = URIFreeMethodInfo-    ResolveURIMethod "hostEqual" o = URIHostEqualMethodInfo-    ResolveURIMethod "hostHash" o = URIHostHashMethodInfo-    ResolveURIMethod "newWithBase" o = URINewWithBaseMethodInfo-    ResolveURIMethod "toString" o = URIToStringMethodInfo-    ResolveURIMethod "usesDefaultPort" o = URIUsesDefaultPortMethodInfo-    ResolveURIMethod "getFragment" o = URIGetFragmentMethodInfo-    ResolveURIMethod "getHost" o = URIGetHostMethodInfo-    ResolveURIMethod "getPassword" o = URIGetPasswordMethodInfo-    ResolveURIMethod "getPath" o = URIGetPathMethodInfo-    ResolveURIMethod "getPort" o = URIGetPortMethodInfo-    ResolveURIMethod "getQuery" o = URIGetQueryMethodInfo-    ResolveURIMethod "getScheme" o = URIGetSchemeMethodInfo-    ResolveURIMethod "getUser" o = URIGetUserMethodInfo-    ResolveURIMethod "setFragment" o = URISetFragmentMethodInfo-    ResolveURIMethod "setHost" o = URISetHostMethodInfo-    ResolveURIMethod "setPassword" o = URISetPasswordMethodInfo-    ResolveURIMethod "setPath" o = URISetPathMethodInfo-    ResolveURIMethod "setPort" o = URISetPortMethodInfo-    ResolveURIMethod "setQuery" o = URISetQueryMethodInfo-    ResolveURIMethod "setQueryFromForm" o = URISetQueryFromFormMethodInfo-    ResolveURIMethod "setScheme" o = URISetSchemeMethodInfo-    ResolveURIMethod "setUser" o = URISetUserMethodInfo-    ResolveURIMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveURIMethod t URI, MethodInfo info URI p) => IsLabelProxy t (URI -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveURIMethod t URI, MethodInfo info URI p) => IsLabel t (URI -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Soup/Structs/URI.hs-boot 
@@ -1,37 +0,0 @@-module GI.Soup.Structs.URI where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype URI = URI (ForeignPtr URI)-instance BoxedObject URI where-data URICopyMethodInfo-data URICopyHostMethodInfo-data URIEqualMethodInfo-data URIFreeMethodInfo-data URIGetFragmentMethodInfo-data URIGetHostMethodInfo-data URIGetPasswordMethodInfo-data URIGetPathMethodInfo-data URIGetPortMethodInfo-data URIGetQueryMethodInfo-data URIGetSchemeMethodInfo-data URIGetUserMethodInfo-data URIHostEqualMethodInfo-data URIHostHashMethodInfo-data URINewWithBaseMethodInfo-data URISetFragmentMethodInfo-data URISetHostMethodInfo-data URISetPasswordMethodInfo-data URISetPathMethodInfo-data URISetPortMethodInfo-data URISetQueryMethodInfo-data URISetQueryFromFormMethodInfo-data URISetSchemeMethodInfo-data URISetUserMethodInfo-data URIToStringMethodInfo-data URIUsesDefaultPortMethodInfo
− GI/Soup/Structs/XMLRPCParams.hs 
@@ -1,142 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Opaque structure containing XML-RPC methodCall parameter values.-Can be parsed using soup_xmlrpc_params_parse() and freed with-soup_xmlrpc_params_free().--}--module GI.Soup.Structs.XMLRPCParams-    ( ---- * Exported types-    XMLRPCParams(..)                        ,-    noXMLRPCParams                          ,--- -- * Methods--- ** xMLRPCParamsFree-    XMLRPCParamsFreeMethodInfo              ,-    xMLRPCParamsFree                        ,----- ** xMLRPCParamsParse-    XMLRPCParamsParseMethodInfo             ,-    xMLRPCParamsParse                       ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Soup.Types-import GI.Soup.Callbacks--newtype XMLRPCParams = XMLRPCParams (ForeignPtr XMLRPCParams)--- XXX Wrapping a foreign struct/union with no known destructor or size, leak?-instance WrappedPtr XMLRPCParams where-    wrappedPtrCalloc = return nullPtr-    wrappedPtrCopy = return-    wrappedPtrFree = Nothing--noXMLRPCParams :: Maybe XMLRPCParams-noXMLRPCParams = Nothing---type instance AttributeList XMLRPCParams = XMLRPCParamsAttributeList-type XMLRPCParamsAttributeList = ('[ ] :: [(Symbol, *)])---- method XMLRPCParams::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "XMLRPCParams", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_xmlrpc_params_free" soup_xmlrpc_params_free :: -    Ptr XMLRPCParams ->                     -- _obj : TInterface "Soup" "XMLRPCParams"-    IO ()---xMLRPCParamsFree ::-    (MonadIO m) =>-    XMLRPCParams                            -- _obj-    -> m ()                                 -- result-xMLRPCParamsFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    soup_xmlrpc_params_free _obj'-    touchManagedPtr _obj-    return ()--data XMLRPCParamsFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo XMLRPCParamsFreeMethodInfo XMLRPCParams signature where-    overloadedMethod _ = xMLRPCParamsFree---- method XMLRPCParams::parse--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Soup" "XMLRPCParams", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "signature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just TVariant--- throws : True--- Skip return : False--foreign import ccall "soup_xmlrpc_params_parse" soup_xmlrpc_params_parse :: -    Ptr XMLRPCParams ->                     -- _obj : TInterface "Soup" "XMLRPCParams"-    CString ->                              -- signature : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GVariant)---xMLRPCParamsParse ::-    (MonadIO m) =>-    XMLRPCParams                            -- _obj-    -> Maybe (T.Text)                       -- signature-    -> m GVariant                           -- result-xMLRPCParamsParse _obj signature = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    maybeSignature <- case signature of-        Nothing -> return nullPtr-        Just jSignature -> do-            jSignature' <- textToCString jSignature-            return jSignature'-    onException (do-        result <- propagateGError $ soup_xmlrpc_params_parse _obj' maybeSignature-        checkUnexpectedReturnNULL "soup_xmlrpc_params_parse" result-        result' <- wrapGVariantPtr result-        touchManagedPtr _obj-        freeMem maybeSignature-        return result'-     ) (do-        freeMem maybeSignature-     )--data XMLRPCParamsParseMethodInfo-instance (signature ~ (Maybe (T.Text) -> m GVariant), MonadIO m) => MethodInfo XMLRPCParamsParseMethodInfo XMLRPCParams signature where-    overloadedMethod _ = xMLRPCParamsParse--type family ResolveXMLRPCParamsMethod (t :: Symbol) (o :: *) :: * where-    ResolveXMLRPCParamsMethod "free" o = XMLRPCParamsFreeMethodInfo-    ResolveXMLRPCParamsMethod "parse" o = XMLRPCParamsParseMethodInfo-    ResolveXMLRPCParamsMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveXMLRPCParamsMethod t XMLRPCParams, MethodInfo info XMLRPCParams p) => IsLabelProxy t (XMLRPCParams -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveXMLRPCParamsMethod t XMLRPCParams, MethodInfo info XMLRPCParams p) => IsLabel t (XMLRPCParams -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Soup/Structs/XMLRPCParams.hs-boot 
@@ -1,13 +0,0 @@-module GI.Soup.Structs.XMLRPCParams where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype XMLRPCParams = XMLRPCParams (ForeignPtr XMLRPCParams)-instance WrappedPtr XMLRPCParams where-data XMLRPCParamsFreeMethodInfo-data XMLRPCParamsParseMethodInfo
− GI/Soup/Types.hs 
@@ -1,106 +0,0 @@-module GI.Soup.Types-    (     module GI.Soup.Interfaces.PasswordManager,-    module GI.Soup.Interfaces.ProxyURIResolver,-    module GI.Soup.Interfaces.SessionFeature,-    module GI.Soup.Objects.Address          ,-    module GI.Soup.Objects.Auth             ,-    module GI.Soup.Objects.AuthBasic        ,-    module GI.Soup.Objects.AuthDigest       ,-    module GI.Soup.Objects.AuthDomain       ,-    module GI.Soup.Objects.AuthDomainBasic  ,-    module GI.Soup.Objects.AuthDomainDigest ,-    module GI.Soup.Objects.AuthManager      ,-    module GI.Soup.Objects.AuthNTLM         ,-    module GI.Soup.Objects.Cache            ,-    module GI.Soup.Objects.ContentDecoder   ,-    module GI.Soup.Objects.ContentSniffer   ,-    module GI.Soup.Objects.CookieJar        ,-    module GI.Soup.Objects.CookieJarDB      ,-    module GI.Soup.Objects.CookieJarText    ,-    module GI.Soup.Objects.Logger           ,-    module GI.Soup.Objects.Message          ,-    module GI.Soup.Objects.MultipartInputStream,-    module GI.Soup.Objects.ProxyResolverDefault,-    module GI.Soup.Objects.Request          ,-    module GI.Soup.Objects.RequestData      ,-    module GI.Soup.Objects.RequestFile      ,-    module GI.Soup.Objects.RequestHTTP      ,-    module GI.Soup.Objects.Requester        ,-    module GI.Soup.Objects.Server           ,-    module GI.Soup.Objects.Session          ,-    module GI.Soup.Objects.SessionAsync     ,-    module GI.Soup.Objects.SessionSync      ,-    module GI.Soup.Objects.Socket           ,-    module GI.Soup.Objects.WebsocketConnection,-    module GI.Soup.Structs.Buffer           ,-    module GI.Soup.Structs.ClientContext    ,-    module GI.Soup.Structs.Connection       ,-    module GI.Soup.Structs.Cookie           ,-    module GI.Soup.Structs.Date             ,-    module GI.Soup.Structs.MessageBody      ,-    module GI.Soup.Structs.MessageHeaders   ,-    module GI.Soup.Structs.MessageHeadersIter,-    module GI.Soup.Structs.MessageQueue     ,-    module GI.Soup.Structs.MessageQueueItem ,-    module GI.Soup.Structs.Multipart        ,-    module GI.Soup.Structs.Range            ,-    module GI.Soup.Structs.URI              ,-    module GI.Soup.Structs.XMLRPCParams     ,-    module GI.Soup.Enums                    ,-    module GI.Soup.Flags                    ,---    ) where---import {-# SOURCE #-} GI.Soup.Interfaces.PasswordManager-import {-# SOURCE #-} GI.Soup.Interfaces.ProxyURIResolver-import {-# SOURCE #-} GI.Soup.Interfaces.SessionFeature-import {-# SOURCE #-} GI.Soup.Objects.Address-import {-# SOURCE #-} GI.Soup.Objects.Auth-import {-# SOURCE #-} GI.Soup.Objects.AuthBasic-import {-# SOURCE #-} GI.Soup.Objects.AuthDigest-import {-# SOURCE #-} GI.Soup.Objects.AuthDomain-import {-# SOURCE #-} GI.Soup.Objects.AuthDomainBasic-import {-# SOURCE #-} GI.Soup.Objects.AuthDomainDigest-import {-# SOURCE #-} GI.Soup.Objects.AuthManager-import {-# SOURCE #-} GI.Soup.Objects.AuthNTLM-import {-# SOURCE #-} GI.Soup.Objects.Cache-import {-# SOURCE #-} GI.Soup.Objects.ContentDecoder-import {-# SOURCE #-} GI.Soup.Objects.ContentSniffer-import {-# SOURCE #-} GI.Soup.Objects.CookieJar-import {-# SOURCE #-} GI.Soup.Objects.CookieJarDB-import {-# SOURCE #-} GI.Soup.Objects.CookieJarText-import {-# SOURCE #-} GI.Soup.Objects.Logger-import {-# SOURCE #-} GI.Soup.Objects.Message-import {-# SOURCE #-} GI.Soup.Objects.MultipartInputStream-import {-# SOURCE #-} GI.Soup.Objects.ProxyResolverDefault-import {-# SOURCE #-} GI.Soup.Objects.Request-import {-# SOURCE #-} GI.Soup.Objects.RequestData-import {-# SOURCE #-} GI.Soup.Objects.RequestFile-import {-# SOURCE #-} GI.Soup.Objects.RequestHTTP-import {-# SOURCE #-} GI.Soup.Objects.Requester-import {-# SOURCE #-} GI.Soup.Objects.Server-import {-# SOURCE #-} GI.Soup.Objects.Session-import {-# SOURCE #-} GI.Soup.Objects.SessionAsync-import {-# SOURCE #-} GI.Soup.Objects.SessionSync-import {-# SOURCE #-} GI.Soup.Objects.Socket-import {-# SOURCE #-} GI.Soup.Objects.WebsocketConnection-import {-# SOURCE #-} GI.Soup.Structs.Buffer-import {-# SOURCE #-} GI.Soup.Structs.ClientContext-import {-# SOURCE #-} GI.Soup.Structs.Connection-import {-# SOURCE #-} GI.Soup.Structs.Cookie-import {-# SOURCE #-} GI.Soup.Structs.Date-import {-# SOURCE #-} GI.Soup.Structs.MessageBody-import {-# SOURCE #-} GI.Soup.Structs.MessageHeaders-import {-# SOURCE #-} GI.Soup.Structs.MessageHeadersIter-import {-# SOURCE #-} GI.Soup.Structs.MessageQueue-import {-# SOURCE #-} GI.Soup.Structs.MessageQueueItem-import {-# SOURCE #-} GI.Soup.Structs.Multipart-import {-# SOURCE #-} GI.Soup.Structs.Range-import {-# SOURCE #-} GI.Soup.Structs.URI-import {-# SOURCE #-} GI.Soup.Structs.XMLRPCParams--import GI.Soup.Enums-import GI.Soup.Flags-
Setup.hs view
@@ -1,3 +1,12 @@-#!/usr/bin/env runhaskell-import Distribution.Simple-main = defaultMain+{-# LANGUAGE OverloadedStrings #-}++import Distribution.Simple (defaultMainWithHooks)+import Data.GI.CodeGen.CabalHooks (simpleHaskellGIHooks)++main = defaultMainWithHooks (simpleHaskellGIHooks name version verbose+                             overridesFile outputDir)+    where name = "Soup"+          version = "2.4"+          verbose = False+          overridesFile = Just "Soup.overrides"+          outputDir = Nothing
+ Soup.overrides view
@@ -0,0 +1,4 @@+namespace Soup++# The "len" parameter is not marked as (out)+ignore Address.get_sockaddr
gi-soup.cabal view
@@ -1,86 +1,36 @@--- Autogenerated, do not edit. name:               gi-soup-version:            0.2.52.15-synopsis:           Soup bindings-description:        Bindings for Soup, autogenerated by haskell-gi.+version:            2.4.1+synopsis:           Libsoup bindings+description:        Bindings for Libsoup, autogenerated by haskell-gi. homepage:           https://github.com/haskell-gi/haskell-gi license:            LGPL-2.1 license-file:       LICENSE author:             Will Thompson, Iñaki García Etxebarria and Jonas Platte maintainer:         Iñaki García Etxebarria (garetxe@gmail.com) category:           Bindings-build-type:         Simple-cabal-version:      >=1.10+build-type:         Custom+cabal-version:      >= 1.24 +extra-source-files: Soup.overrides++custom-setup+  setup-depends: base >= 4.7,+                 Cabal >= 1.24,+                 haskell-gi >= 0.15+ library     default-language:   Haskell2010     default-extensions: NoImplicitPrelude, ScopedTypeVariables, CPP, OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts     other-extensions:   PatternSynonyms ViewPatterns     ghc-options:        -fno-warn-unused-imports -fno-warn-warnings-deprecations-    exposed-modules:    GI.Soup.Types-                        GI.Soup-                        GI.Soup.Callbacks-                        GI.Soup.Constants-                        GI.Soup.Enums-                        GI.Soup.Flags-                        GI.Soup.Functions-                        GI.Soup.Interfaces-                        GI.Soup.Interfaces.PasswordManager-                        GI.Soup.Interfaces.ProxyURIResolver-                        GI.Soup.Interfaces.SessionFeature-                        GI.Soup.Objects-                        GI.Soup.Objects.Address-                        GI.Soup.Objects.Auth-                        GI.Soup.Objects.AuthBasic-                        GI.Soup.Objects.AuthDigest-                        GI.Soup.Objects.AuthDomain-                        GI.Soup.Objects.AuthDomainBasic-                        GI.Soup.Objects.AuthDomainDigest-                        GI.Soup.Objects.AuthManager-                        GI.Soup.Objects.AuthNTLM-                        GI.Soup.Objects.Cache-                        GI.Soup.Objects.ContentDecoder-                        GI.Soup.Objects.ContentSniffer-                        GI.Soup.Objects.CookieJar-                        GI.Soup.Objects.CookieJarDB-                        GI.Soup.Objects.CookieJarText-                        GI.Soup.Objects.Logger-                        GI.Soup.Objects.Message-                        GI.Soup.Objects.MultipartInputStream-                        GI.Soup.Objects.ProxyResolverDefault-                        GI.Soup.Objects.Request-                        GI.Soup.Objects.RequestData-                        GI.Soup.Objects.RequestFile-                        GI.Soup.Objects.RequestHTTP-                        GI.Soup.Objects.Requester-                        GI.Soup.Objects.Server-                        GI.Soup.Objects.Session-                        GI.Soup.Objects.SessionAsync-                        GI.Soup.Objects.SessionSync-                        GI.Soup.Objects.Socket-                        GI.Soup.Objects.WebsocketConnection-                        GI.Soup.Structs-                        GI.Soup.Structs.Buffer-                        GI.Soup.Structs.ClientContext-                        GI.Soup.Structs.Connection-                        GI.Soup.Structs.Cookie-                        GI.Soup.Structs.Date-                        GI.Soup.Structs.MessageBody-                        GI.Soup.Structs.MessageHeaders-                        GI.Soup.Structs.MessageHeadersIter-                        GI.Soup.Structs.MessageQueue-                        GI.Soup.Structs.MessageQueueItem-                        GI.Soup.Structs.Multipart-                        GI.Soup.Structs.Range-                        GI.Soup.Structs.URI-                        GI.Soup.Structs.XMLRPCParams-    pkgconfig-depends:  libsoup-2.4 >= 2.52++    pkgconfig-depends:  libsoup-2.4     build-depends: base >= 4.7 && <5,         haskell-gi-base >= 0.15 && < 1,-        gi-glib >= 0.2.46.15 && < 0.2.47,-        gi-gobject >= 0.2.46.15 && < 0.2.47,-        gi-gio >= 0.2.46.15 && < 0.2.47,+        gi-glib == 2.0.*,+        gi-gobject == 2.0.*,+        gi-gio == 2.0.*,         bytestring >= 0.10,         containers >= 0.5,         text >= 1.0,-        transformers >= 0.3+        transformers >= 0.5