packages feed

gi-soup 2.4.18 → 2.4.19

raw patch · 112 files changed

+65/−49822 lines, 112 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

ChangeLog.md view
@@ -1,3 +1,7 @@+### 2.4.19+++ List autogenerated modules in .cabal file+ ### 2.4.18  + Update to haskell-gi(-base) 0.22
− GI/Soup.hs 
@@ -1,60 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--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.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL---import Data.GI.Base-
− GI/Soup/Callbacks.hs 
@@ -1,2291 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Callbacks-    ( -- -- * Signals--- ** AddressCallback #signal:AddressCallback#--    AddressCallback                         ,-    AddressCallback_WithClosures            ,-    C_AddressCallback                       ,-    drop_closures_AddressCallback           ,-    dynamic_AddressCallback                 ,-    genClosure_AddressCallback              ,-    mk_AddressCallback                      ,-    noAddressCallback                       ,-    noAddressCallback_WithClosures          ,-    wrap_AddressCallback                    ,----- ** AuthDomainBasicAuthCallback #signal:AuthDomainBasicAuthCallback#--    AuthDomainBasicAuthCallback             ,-    AuthDomainBasicAuthCallback_WithClosures,-    C_AuthDomainBasicAuthCallback           ,-    drop_closures_AuthDomainBasicAuthCallback,-    dynamic_AuthDomainBasicAuthCallback     ,-    genClosure_AuthDomainBasicAuthCallback  ,-    mk_AuthDomainBasicAuthCallback          ,-    noAuthDomainBasicAuthCallback           ,-    noAuthDomainBasicAuthCallback_WithClosures,-    wrap_AuthDomainBasicAuthCallback        ,----- ** AuthDomainDigestAuthCallback #signal:AuthDomainDigestAuthCallback#--    AuthDomainDigestAuthCallback            ,-    AuthDomainDigestAuthCallback_WithClosures,-    C_AuthDomainDigestAuthCallback          ,-    drop_closures_AuthDomainDigestAuthCallback,-    dynamic_AuthDomainDigestAuthCallback    ,-    genClosure_AuthDomainDigestAuthCallback ,-    mk_AuthDomainDigestAuthCallback         ,-    noAuthDomainDigestAuthCallback          ,-    noAuthDomainDigestAuthCallback_WithClosures,-    wrap_AuthDomainDigestAuthCallback       ,----- ** AuthDomainFilter #signal:AuthDomainFilter#--    AuthDomainFilter                        ,-    AuthDomainFilter_WithClosures           ,-    C_AuthDomainFilter                      ,-    drop_closures_AuthDomainFilter          ,-    dynamic_AuthDomainFilter                ,-    genClosure_AuthDomainFilter             ,-    mk_AuthDomainFilter                     ,-    noAuthDomainFilter                      ,-    noAuthDomainFilter_WithClosures         ,-    wrap_AuthDomainFilter                   ,----- ** AuthDomainGenericAuthCallback #signal:AuthDomainGenericAuthCallback#--    AuthDomainGenericAuthCallback           ,-    AuthDomainGenericAuthCallback_WithClosures,-    C_AuthDomainGenericAuthCallback         ,-    drop_closures_AuthDomainGenericAuthCallback,-    dynamic_AuthDomainGenericAuthCallback   ,-    genClosure_AuthDomainGenericAuthCallback,-    mk_AuthDomainGenericAuthCallback        ,-    noAuthDomainGenericAuthCallback         ,-    noAuthDomainGenericAuthCallback_WithClosures,-    wrap_AuthDomainGenericAuthCallback      ,----- ** ChunkAllocator #signal:ChunkAllocator#--    C_ChunkAllocator                        ,-    ChunkAllocator                          ,-    ChunkAllocator_WithClosures             ,-    drop_closures_ChunkAllocator            ,-    dynamic_ChunkAllocator                  ,-    genClosure_ChunkAllocator               ,-    mk_ChunkAllocator                       ,-    noChunkAllocator                        ,-    noChunkAllocator_WithClosures           ,-    wrap_ChunkAllocator                     ,----- ** LoggerFilter #signal:LoggerFilter#--    C_LoggerFilter                          ,-    LoggerFilter                            ,-    LoggerFilter_WithClosures               ,-    drop_closures_LoggerFilter              ,-    dynamic_LoggerFilter                    ,-    genClosure_LoggerFilter                 ,-    mk_LoggerFilter                         ,-    noLoggerFilter                          ,-    noLoggerFilter_WithClosures             ,-    wrap_LoggerFilter                       ,----- ** LoggerPrinter #signal:LoggerPrinter#--    C_LoggerPrinter                         ,-    LoggerPrinter                           ,-    LoggerPrinter_WithClosures              ,-    drop_closures_LoggerPrinter             ,-    dynamic_LoggerPrinter                   ,-    genClosure_LoggerPrinter                ,-    mk_LoggerPrinter                        ,-    noLoggerPrinter                         ,-    noLoggerPrinter_WithClosures            ,-    wrap_LoggerPrinter                      ,----- ** MessageHeadersForeachFunc #signal:MessageHeadersForeachFunc#--    C_MessageHeadersForeachFunc             ,-    MessageHeadersForeachFunc               ,-    MessageHeadersForeachFunc_WithClosures  ,-    drop_closures_MessageHeadersForeachFunc ,-    dynamic_MessageHeadersForeachFunc       ,-    genClosure_MessageHeadersForeachFunc    ,-    mk_MessageHeadersForeachFunc            ,-    noMessageHeadersForeachFunc             ,-    noMessageHeadersForeachFunc_WithClosures,-    wrap_MessageHeadersForeachFunc          ,----- ** PasswordManagerCallback #signal:PasswordManagerCallback#--    C_PasswordManagerCallback               ,-    PasswordManagerCallback                 ,-    PasswordManagerCallback_WithClosures    ,-    drop_closures_PasswordManagerCallback   ,-    dynamic_PasswordManagerCallback         ,-    genClosure_PasswordManagerCallback      ,-    mk_PasswordManagerCallback              ,-    noPasswordManagerCallback               ,-    noPasswordManagerCallback_WithClosures  ,-    wrap_PasswordManagerCallback            ,----- ** ProxyResolverCallback #signal:ProxyResolverCallback#--    C_ProxyResolverCallback                 ,-    ProxyResolverCallback                   ,-    ProxyResolverCallback_WithClosures      ,-    drop_closures_ProxyResolverCallback     ,-    dynamic_ProxyResolverCallback           ,-    genClosure_ProxyResolverCallback        ,-    mk_ProxyResolverCallback                ,-    noProxyResolverCallback                 ,-    noProxyResolverCallback_WithClosures    ,-    wrap_ProxyResolverCallback              ,----- ** ProxyURIResolverCallback #signal:ProxyURIResolverCallback#--    C_ProxyURIResolverCallback              ,-    ProxyURIResolverCallback                ,-    ProxyURIResolverCallback_WithClosures   ,-    drop_closures_ProxyURIResolverCallback  ,-    dynamic_ProxyURIResolverCallback        ,-    genClosure_ProxyURIResolverCallback     ,-    mk_ProxyURIResolverCallback             ,-    noProxyURIResolverCallback              ,-    noProxyURIResolverCallback_WithClosures ,-    wrap_ProxyURIResolverCallback           ,----- ** ServerCallback #signal:ServerCallback#--    C_ServerCallback                        ,-    ServerCallback                          ,-    ServerCallback_WithClosures             ,-    drop_closures_ServerCallback            ,-    dynamic_ServerCallback                  ,-    genClosure_ServerCallback               ,-    mk_ServerCallback                       ,-    noServerCallback                        ,-    noServerCallback_WithClosures           ,-    wrap_ServerCallback                     ,----- ** ServerWebsocketCallback #signal:ServerWebsocketCallback#--    C_ServerWebsocketCallback               ,-    ServerWebsocketCallback                 ,-    ServerWebsocketCallback_WithClosures    ,-    drop_closures_ServerWebsocketCallback   ,-    dynamic_ServerWebsocketCallback         ,-    genClosure_ServerWebsocketCallback      ,-    mk_ServerWebsocketCallback              ,-    noServerWebsocketCallback               ,-    noServerWebsocketCallback_WithClosures  ,-    wrap_ServerWebsocketCallback            ,----- ** SessionCallback #signal:SessionCallback#--    C_SessionCallback                       ,-    SessionCallback                         ,-    SessionCallback_WithClosures            ,-    drop_closures_SessionCallback           ,-    dynamic_SessionCallback                 ,-    genClosure_SessionCallback              ,-    mk_SessionCallback                      ,-    noSessionCallback                       ,-    noSessionCallback_WithClosures          ,-    wrap_SessionCallback                    ,----- ** SessionConnectProgressCallback #signal:SessionConnectProgressCallback#--    C_SessionConnectProgressCallback        ,-    SessionConnectProgressCallback          ,-    SessionConnectProgressCallback_WithClosures,-    drop_closures_SessionConnectProgressCallback,-    dynamic_SessionConnectProgressCallback  ,-    genClosure_SessionConnectProgressCallback,-    mk_SessionConnectProgressCallback       ,-    noSessionConnectProgressCallback        ,-    noSessionConnectProgressCallback_WithClosures,-    wrap_SessionConnectProgressCallback     ,----- ** SocketCallback #signal:SocketCallback#--    C_SocketCallback                        ,-    SocketCallback                          ,-    SocketCallback_WithClosures             ,-    drop_closures_SocketCallback            ,-    dynamic_SocketCallback                  ,-    genClosure_SocketCallback               ,-    mk_SocketCallback                       ,-    noSocketCallback                        ,-    noSocketCallback_WithClosures           ,-    wrap_SocketCallback                     ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.Gio.Enums as Gio.Enums-import qualified GI.Gio.Objects.IOStream as Gio.IOStream-import {-# SOURCE #-} qualified GI.Soup.Enums as Soup.Enums-import {-# SOURCE #-} qualified GI.Soup.Interfaces.PasswordManager as Soup.PasswordManager-import {-# SOURCE #-} qualified GI.Soup.Interfaces.ProxyResolver as Soup.ProxyResolver-import {-# SOURCE #-} qualified GI.Soup.Interfaces.ProxyURIResolver as Soup.ProxyURIResolver-import {-# SOURCE #-} qualified GI.Soup.Objects.Address as Soup.Address-import {-# SOURCE #-} qualified GI.Soup.Objects.Auth as Soup.Auth-import {-# SOURCE #-} qualified GI.Soup.Objects.AuthDomain as Soup.AuthDomain-import {-# SOURCE #-} qualified GI.Soup.Objects.AuthDomainBasic as Soup.AuthDomainBasic-import {-# SOURCE #-} qualified GI.Soup.Objects.AuthDomainDigest as Soup.AuthDomainDigest-import {-# SOURCE #-} qualified GI.Soup.Objects.Logger as Soup.Logger-import {-# SOURCE #-} qualified GI.Soup.Objects.Message as Soup.Message-import {-# SOURCE #-} qualified GI.Soup.Objects.Server as Soup.Server-import {-# SOURCE #-} qualified GI.Soup.Objects.Session as Soup.Session-import {-# SOURCE #-} qualified GI.Soup.Objects.Socket as Soup.Socket-import {-# SOURCE #-} qualified GI.Soup.Objects.WebsocketConnection as Soup.WebsocketConnection-import {-# SOURCE #-} qualified GI.Soup.Structs.Buffer as Soup.Buffer-import {-# SOURCE #-} qualified GI.Soup.Structs.ClientContext as Soup.ClientContext-import {-# SOURCE #-} qualified GI.Soup.Structs.URI as Soup.URI---- callback SocketCallback---          -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "sock", argType = TInterface (Name {namespace = "Soup", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "status", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an HTTP status code indicating success or failure", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data passed to soup_socket_connect_async()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "The callback function passed to soup_socket_connect_async().", sinceVersion = Nothing}}--- | Type for the callback on the (unwrapped) C side.-type C_SocketCallback =-    Ptr Soup.Socket.Socket ->-    Word32 ->-    Ptr () ->-    IO ()---- Args : [Arg {argCName = "sock", argType = TInterface (Name {namespace = "Soup", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "status", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an HTTP status code indicating success or failure", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data passed to soup_socket_connect_async()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_SocketCallback :: FunPtr C_SocketCallback -> C_SocketCallback---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_SocketCallback ::-    (B.CallStack.HasCallStack, MonadIO m, Soup.Socket.IsSocket a) =>-    FunPtr C_SocketCallback-    -> a-    {- ^ /@sock@/: the 'GI.Soup.Objects.Socket.Socket' -}-    -> Word32-    {- ^ /@status@/: an HTTP status code indicating success or failure -}-    -> Ptr ()-    {- ^ /@userData@/: the data passed to 'GI.Soup.Objects.Socket.socketConnectAsync' -}-    -> m ()-dynamic_SocketCallback __funPtr sock status userData = liftIO $ do-    sock' <- unsafeManagedPtrCastPtr sock-    (__dynamic_C_SocketCallback __funPtr) sock' status userData-    touchManagedPtr sock-    return ()---- | Generate a function pointer callable from C code, from a `C_SocketCallback`.-foreign import ccall "wrapper"-    mk_SocketCallback :: C_SocketCallback -> IO (FunPtr C_SocketCallback)--{- |-The callback function passed to 'GI.Soup.Objects.Socket.socketConnectAsync'.--}-type SocketCallback =-    Soup.Socket.Socket-    {- ^ /@sock@/: the 'GI.Soup.Objects.Socket.Socket' -}-    -> Word32-    {- ^ /@status@/: an HTTP status code indicating success or failure -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `SocketCallback`@.-noSocketCallback :: Maybe SocketCallback-noSocketCallback = Nothing--{- |-The callback function passed to 'GI.Soup.Objects.Socket.socketConnectAsync'.--}-type SocketCallback_WithClosures =-    Soup.Socket.Socket-    {- ^ /@sock@/: the 'GI.Soup.Objects.Socket.Socket' -}-    -> Word32-    {- ^ /@status@/: an HTTP status code indicating success or failure -}-    -> Ptr ()-    {- ^ /@userData@/: the data passed to 'GI.Soup.Objects.Socket.socketConnectAsync' -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `SocketCallback_WithClosures`@.-noSocketCallback_WithClosures :: Maybe SocketCallback_WithClosures-noSocketCallback_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_SocketCallback :: SocketCallback -> SocketCallback_WithClosures-drop_closures_SocketCallback _f sock status _ = _f sock status---- | Wrap the callback into a `GClosure`.-genClosure_SocketCallback :: MonadIO m => SocketCallback -> m (GClosure C_SocketCallback)-genClosure_SocketCallback cb = liftIO $ do-    let cb' = drop_closures_SocketCallback cb-    let cb'' = wrap_SocketCallback Nothing cb'-    mk_SocketCallback cb'' >>= B.GClosure.newGClosure----- | Wrap a `SocketCallback` into a `C_SocketCallback`.-wrap_SocketCallback ::-    Maybe (Ptr (FunPtr C_SocketCallback)) ->-    SocketCallback_WithClosures ->-    C_SocketCallback-wrap_SocketCallback funptrptr _cb sock status userData = do-    sock' <- (newObject Soup.Socket.Socket) sock-    _cb  sock' status userData-    maybeReleaseFunPtr funptrptr----- callback SessionConnectProgressCallback---          -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface (Name {namespace = "Gio", name = "SocketClientEvent"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClientEvent", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "IOStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the current state of the network connection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data passed to soup_session_connect_async().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "Prototype for the progress callback passed to soup_session_connect_async().", sinceVersion = Just "2.62"}}--- | Type for the callback on the (unwrapped) C side.-type C_SessionConnectProgressCallback =-    Ptr Soup.Session.Session ->-    CUInt ->-    Ptr Gio.IOStream.IOStream ->-    Ptr () ->-    IO ()---- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface (Name {namespace = "Gio", name = "SocketClientEvent"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSocketClientEvent", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface (Name {namespace = "Gio", name = "IOStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the current state of the network connection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data passed to soup_session_connect_async().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_SessionConnectProgressCallback :: FunPtr C_SessionConnectProgressCallback -> C_SessionConnectProgressCallback---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_SessionConnectProgressCallback ::-    (B.CallStack.HasCallStack, MonadIO m, Soup.Session.IsSession a, Gio.IOStream.IsIOStream b) =>-    FunPtr C_SessionConnectProgressCallback-    -> a-    {- ^ /@session@/: the 'GI.Soup.Objects.Session.Session' -}-    -> Gio.Enums.SocketClientEvent-    {- ^ /@event@/: a 'GI.Gio.Enums.SocketClientEvent' -}-    -> b-    {- ^ /@connection@/: the current state of the network connection -}-    -> Ptr ()-    {- ^ /@userData@/: the data passed to 'GI.Soup.Objects.Session.sessionConnectAsync'. -}-    -> m ()-dynamic_SessionConnectProgressCallback __funPtr session event connection userData = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    let event' = (fromIntegral . fromEnum) event-    connection' <- unsafeManagedPtrCastPtr connection-    (__dynamic_C_SessionConnectProgressCallback __funPtr) session' event' connection' userData-    touchManagedPtr session-    touchManagedPtr connection-    return ()---- | Generate a function pointer callable from C code, from a `C_SessionConnectProgressCallback`.-foreign import ccall "wrapper"-    mk_SessionConnectProgressCallback :: C_SessionConnectProgressCallback -> IO (FunPtr C_SessionConnectProgressCallback)--{- |-Prototype for the progress callback passed to 'GI.Soup.Objects.Session.sessionConnectAsync'.--/Since: 2.62/--}-type SessionConnectProgressCallback =-    Soup.Session.Session-    {- ^ /@session@/: the 'GI.Soup.Objects.Session.Session' -}-    -> Gio.Enums.SocketClientEvent-    {- ^ /@event@/: a 'GI.Gio.Enums.SocketClientEvent' -}-    -> Gio.IOStream.IOStream-    {- ^ /@connection@/: the current state of the network connection -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `SessionConnectProgressCallback`@.-noSessionConnectProgressCallback :: Maybe SessionConnectProgressCallback-noSessionConnectProgressCallback = Nothing--{- |-Prototype for the progress callback passed to 'GI.Soup.Objects.Session.sessionConnectAsync'.--/Since: 2.62/--}-type SessionConnectProgressCallback_WithClosures =-    Soup.Session.Session-    {- ^ /@session@/: the 'GI.Soup.Objects.Session.Session' -}-    -> Gio.Enums.SocketClientEvent-    {- ^ /@event@/: a 'GI.Gio.Enums.SocketClientEvent' -}-    -> Gio.IOStream.IOStream-    {- ^ /@connection@/: the current state of the network connection -}-    -> Ptr ()-    {- ^ /@userData@/: the data passed to 'GI.Soup.Objects.Session.sessionConnectAsync'. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `SessionConnectProgressCallback_WithClosures`@.-noSessionConnectProgressCallback_WithClosures :: Maybe SessionConnectProgressCallback_WithClosures-noSessionConnectProgressCallback_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_SessionConnectProgressCallback :: SessionConnectProgressCallback -> SessionConnectProgressCallback_WithClosures-drop_closures_SessionConnectProgressCallback _f session event connection _ = _f session event connection---- | Wrap the callback into a `GClosure`.-genClosure_SessionConnectProgressCallback :: MonadIO m => SessionConnectProgressCallback -> m (GClosure C_SessionConnectProgressCallback)-genClosure_SessionConnectProgressCallback cb = liftIO $ do-    let cb' = drop_closures_SessionConnectProgressCallback cb-    let cb'' = wrap_SessionConnectProgressCallback Nothing cb'-    mk_SessionConnectProgressCallback cb'' >>= B.GClosure.newGClosure----- | Wrap a `SessionConnectProgressCallback` into a `C_SessionConnectProgressCallback`.-wrap_SessionConnectProgressCallback ::-    Maybe (Ptr (FunPtr C_SessionConnectProgressCallback)) ->-    SessionConnectProgressCallback_WithClosures ->-    C_SessionConnectProgressCallback-wrap_SessionConnectProgressCallback funptrptr _cb session event connection userData = do-    session' <- (newObject Soup.Session.Session) session-    let event' = (toEnum . fromIntegral) event-    connection' <- (newObject Gio.IOStream.IOStream) connection-    _cb  session' event' connection' userData-    maybeReleaseFunPtr funptrptr----- callback SessionCallback---          -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the session", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the message that has finished", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data passed to soup_session_queue_message", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "Prototype for the callback passed to soup_session_queue_message(),\nqv.", sinceVersion = Nothing}}--- | Type for the callback on the (unwrapped) C side.-type C_SessionCallback =-    Ptr Soup.Session.Session ->-    Ptr Soup.Message.Message ->-    Ptr () ->-    IO ()---- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the session", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the message that has finished", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data passed to soup_session_queue_message", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_SessionCallback :: FunPtr C_SessionCallback -> C_SessionCallback---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_SessionCallback ::-    (B.CallStack.HasCallStack, MonadIO m, Soup.Session.IsSession a, Soup.Message.IsMessage b) =>-    FunPtr C_SessionCallback-    -> a-    {- ^ /@session@/: the session -}-    -> b-    {- ^ /@msg@/: the message that has finished -}-    -> Ptr ()-    {- ^ /@userData@/: the data passed to soup_session_queue_message -}-    -> m ()-dynamic_SessionCallback __funPtr session msg userData = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    msg' <- unsafeManagedPtrCastPtr msg-    (__dynamic_C_SessionCallback __funPtr) session' msg' userData-    touchManagedPtr session-    touchManagedPtr msg-    return ()---- | Generate a function pointer callable from C code, from a `C_SessionCallback`.-foreign import ccall "wrapper"-    mk_SessionCallback :: C_SessionCallback -> IO (FunPtr C_SessionCallback)--{- |-Prototype for the callback passed to 'GI.Soup.Objects.Session.sessionQueueMessage',-qv.--}-type SessionCallback =-    Soup.Session.Session-    {- ^ /@session@/: the session -}-    -> Soup.Message.Message-    {- ^ /@msg@/: the message that has finished -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `SessionCallback`@.-noSessionCallback :: Maybe SessionCallback-noSessionCallback = Nothing--{- |-Prototype for the callback passed to 'GI.Soup.Objects.Session.sessionQueueMessage',-qv.--}-type SessionCallback_WithClosures =-    Soup.Session.Session-    {- ^ /@session@/: the session -}-    -> Soup.Message.Message-    {- ^ /@msg@/: the message that has finished -}-    -> Ptr ()-    {- ^ /@userData@/: the data passed to soup_session_queue_message -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `SessionCallback_WithClosures`@.-noSessionCallback_WithClosures :: Maybe SessionCallback_WithClosures-noSessionCallback_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_SessionCallback :: SessionCallback -> SessionCallback_WithClosures-drop_closures_SessionCallback _f session msg _ = _f session msg---- | Wrap the callback into a `GClosure`.-genClosure_SessionCallback :: MonadIO m => SessionCallback -> m (GClosure C_SessionCallback)-genClosure_SessionCallback cb = liftIO $ do-    let cb' = drop_closures_SessionCallback cb-    let cb'' = wrap_SessionCallback Nothing cb'-    mk_SessionCallback cb'' >>= B.GClosure.newGClosure----- | Wrap a `SessionCallback` into a `C_SessionCallback`.-wrap_SessionCallback ::-    Maybe (Ptr (FunPtr C_SessionCallback)) ->-    SessionCallback_WithClosures ->-    C_SessionCallback-wrap_SessionCallback funptrptr _cb session msg userData = do-    session' <- (newObject Soup.Session.Session) session-    msg' <- (newObject Soup.Message.Message) msg-    _cb  session' msg' userData-    maybeReleaseFunPtr funptrptr----- callback ServerWebsocketCallback---          -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "server", argType = TInterface (Name {namespace = "Soup", name = "Server"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupServer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface (Name {namespace = "Soup", name = "WebsocketConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the newly created WebSocket connection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the path component of @msg's Request-URI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "client", argType = TInterface (Name {namespace = "Soup", name = "ClientContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "additional contextual information about the client", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data passed to @soup_server_add_handler", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "A callback used to handle WebSocket requests to a #SoupServer. The\ncallback will be invoked after sending the handshake response back\nto the client (and is only invoked if the handshake was\nsuccessful).\n\n@path contains the path of the Request-URI, subject to the same\nrules as #SoupServerCallback (qv).", sinceVersion = Nothing}}--- | Type for the callback on the (unwrapped) C side.-type C_ServerWebsocketCallback =-    Ptr Soup.Server.Server ->-    Ptr Soup.WebsocketConnection.WebsocketConnection ->-    CString ->-    Ptr Soup.ClientContext.ClientContext ->-    Ptr () ->-    IO ()---- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Soup", name = "Server"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupServer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "connection", argType = TInterface (Name {namespace = "Soup", name = "WebsocketConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the newly created WebSocket connection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the path component of @msg's Request-URI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "client", argType = TInterface (Name {namespace = "Soup", name = "ClientContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "additional contextual information about the client", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data passed to @soup_server_add_handler", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_ServerWebsocketCallback :: FunPtr C_ServerWebsocketCallback -> C_ServerWebsocketCallback---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_ServerWebsocketCallback ::-    (B.CallStack.HasCallStack, MonadIO m, Soup.Server.IsServer a, Soup.WebsocketConnection.IsWebsocketConnection b) =>-    FunPtr C_ServerWebsocketCallback-    -> a-    {- ^ /@server@/: the 'GI.Soup.Objects.Server.Server' -}-    -> b-    {- ^ /@connection@/: the newly created WebSocket connection -}-    -> T.Text-    {- ^ /@path@/: the path component of /@msg@/\'s Request-URI -}-    -> Soup.ClientContext.ClientContext-    {- ^ /@client@/: additional contextual information about the client -}-    -> Ptr ()-    {- ^ /@userData@/: the data passed to /@soupServerAddHandler@/ -}-    -> m ()-dynamic_ServerWebsocketCallback __funPtr server connection path client userData = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    connection' <- unsafeManagedPtrCastPtr connection-    path' <- textToCString path-    client' <- unsafeManagedPtrGetPtr client-    (__dynamic_C_ServerWebsocketCallback __funPtr) server' connection' path' client' userData-    touchManagedPtr server-    touchManagedPtr connection-    touchManagedPtr client-    freeMem path'-    return ()---- | Generate a function pointer callable from C code, from a `C_ServerWebsocketCallback`.-foreign import ccall "wrapper"-    mk_ServerWebsocketCallback :: C_ServerWebsocketCallback -> IO (FunPtr C_ServerWebsocketCallback)--{- |-A callback used to handle WebSocket requests to a 'GI.Soup.Objects.Server.Server'. The-callback will be invoked after sending the handshake response back-to the client (and is only invoked if the handshake was-successful).--/@path@/ contains the path of the Request-URI, subject to the same-rules as 'GI.Soup.Callbacks.ServerCallback' (qv).--}-type ServerWebsocketCallback =-    Soup.Server.Server-    {- ^ /@server@/: the 'GI.Soup.Objects.Server.Server' -}-    -> Soup.WebsocketConnection.WebsocketConnection-    {- ^ /@connection@/: the newly created WebSocket connection -}-    -> T.Text-    {- ^ /@path@/: the path component of /@msg@/\'s Request-URI -}-    -> Soup.ClientContext.ClientContext-    {- ^ /@client@/: additional contextual information about the client -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `ServerWebsocketCallback`@.-noServerWebsocketCallback :: Maybe ServerWebsocketCallback-noServerWebsocketCallback = Nothing--{- |-A callback used to handle WebSocket requests to a 'GI.Soup.Objects.Server.Server'. The-callback will be invoked after sending the handshake response back-to the client (and is only invoked if the handshake was-successful).--/@path@/ contains the path of the Request-URI, subject to the same-rules as 'GI.Soup.Callbacks.ServerCallback' (qv).--}-type ServerWebsocketCallback_WithClosures =-    Soup.Server.Server-    {- ^ /@server@/: the 'GI.Soup.Objects.Server.Server' -}-    -> Soup.WebsocketConnection.WebsocketConnection-    {- ^ /@connection@/: the newly created WebSocket connection -}-    -> T.Text-    {- ^ /@path@/: the path component of /@msg@/\'s Request-URI -}-    -> Soup.ClientContext.ClientContext-    {- ^ /@client@/: additional contextual information about the client -}-    -> Ptr ()-    {- ^ /@userData@/: the data passed to /@soupServerAddHandler@/ -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `ServerWebsocketCallback_WithClosures`@.-noServerWebsocketCallback_WithClosures :: Maybe ServerWebsocketCallback_WithClosures-noServerWebsocketCallback_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_ServerWebsocketCallback :: ServerWebsocketCallback -> ServerWebsocketCallback_WithClosures-drop_closures_ServerWebsocketCallback _f server connection path client _ = _f server connection path client---- | Wrap the callback into a `GClosure`.-genClosure_ServerWebsocketCallback :: MonadIO m => ServerWebsocketCallback -> m (GClosure C_ServerWebsocketCallback)-genClosure_ServerWebsocketCallback cb = liftIO $ do-    let cb' = drop_closures_ServerWebsocketCallback cb-    let cb'' = wrap_ServerWebsocketCallback Nothing cb'-    mk_ServerWebsocketCallback cb'' >>= B.GClosure.newGClosure----- | Wrap a `ServerWebsocketCallback` into a `C_ServerWebsocketCallback`.-wrap_ServerWebsocketCallback ::-    Maybe (Ptr (FunPtr C_ServerWebsocketCallback)) ->-    ServerWebsocketCallback_WithClosures ->-    C_ServerWebsocketCallback-wrap_ServerWebsocketCallback funptrptr _cb server connection path client userData = do-    server' <- (newObject Soup.Server.Server) server-    connection' <- (newObject Soup.WebsocketConnection.WebsocketConnection) connection-    path' <- cstringToText path-    B.ManagedPtr.withTransient Soup.ClientContext.ClientContext client $ \client' -> do-        _cb  server' connection' path' client' userData-        maybeReleaseFunPtr funptrptr----- callback ServerCallback---          -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "server", argType = TInterface (Name {namespace = "Soup", name = "Server"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupServer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the message being processed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the path component of @msg's Request-URI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "query", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the parsed query\n  component of @msg's Request-URI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "client", argType = TInterface (Name {namespace = "Soup", name = "ClientContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "additional contextual information about the client", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data passed to soup_server_add_handler() or\n  soup_server_add_early_handler().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "A callback used to handle requests to a #SoupServer.\n\n@path and @query contain the likewise-named components of the\nRequest-URI, subject to certain assumptions. By default,\n#SoupServer decodes all percent-encoding in the URI path, such that\n\"/foo%<!-- -->2Fbar\" is treated the same as \"/foo/bar\". If your\nserver is serving resources in some non-POSIX-filesystem namespace,\nyou may want to distinguish those as two distinct paths. In that\ncase, you can set the %SOUP_SERVER_RAW_PATHS property when creating\nthe #SoupServer, and it will leave those characters undecoded. (You\nmay want to call soup_uri_normalize() to decode any percent-encoded\ncharacters that you aren't handling specially.)\n\n@query contains the query component of the Request-URI parsed\naccording to the rules for HTML form handling. Although this is the\nonly commonly-used query string format in HTTP, there is nothing\nthat actually requires that HTTP URIs use that format; if your\nserver needs to use some other format, you can just ignore @query,\nand call soup_message_get_uri() and parse the URI's query field\nyourself.\n\nSee soup_server_add_handler() and soup_server_add_early_handler()\nfor details of what handlers can/should do.", sinceVersion = Nothing}}--- | Type for the callback on the (unwrapped) C side.-type C_ServerCallback =-    Ptr Soup.Server.Server ->-    Ptr Soup.Message.Message ->-    CString ->-    Ptr (GHashTable CString CString) ->-    Ptr Soup.ClientContext.ClientContext ->-    Ptr () ->-    IO ()---- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Soup", name = "Server"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupServer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the message being processed", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the path component of @msg's Request-URI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "query", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the parsed query\n  component of @msg's Request-URI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "client", argType = TInterface (Name {namespace = "Soup", name = "ClientContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "additional contextual information about the client", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data passed to soup_server_add_handler() or\n  soup_server_add_early_handler().", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_ServerCallback :: FunPtr C_ServerCallback -> C_ServerCallback---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_ServerCallback ::-    (B.CallStack.HasCallStack, MonadIO m, Soup.Server.IsServer a, Soup.Message.IsMessage b) =>-    FunPtr C_ServerCallback-    -> a-    {- ^ /@server@/: the 'GI.Soup.Objects.Server.Server' -}-    -> b-    {- ^ /@msg@/: the message being processed -}-    -> T.Text-    {- ^ /@path@/: the path component of /@msg@/\'s Request-URI -}-    -> Maybe (Map.Map T.Text T.Text)-    {- ^ /@query@/: the parsed query-  component of /@msg@/\'s Request-URI -}-    -> Soup.ClientContext.ClientContext-    {- ^ /@client@/: additional contextual information about the client -}-    -> Ptr ()-    {- ^ /@userData@/: the data passed to 'GI.Soup.Objects.Server.serverAddHandler' or-  'GI.Soup.Objects.Server.serverAddEarlyHandler'. -}-    -> m ()-dynamic_ServerCallback __funPtr server msg path query client userData = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    msg' <- unsafeManagedPtrCastPtr msg-    path' <- textToCString path-    maybeQuery <- case query of-        Nothing -> return nullPtr-        Just jQuery -> do-            let jQuery' = Map.toList jQuery-            jQuery'' <- mapFirstA textToCString jQuery'-            jQuery''' <- mapSecondA textToCString jQuery''-            let jQuery'''' = mapFirst cstringPackPtr jQuery'''-            let jQuery''''' = mapSecond cstringPackPtr jQuery''''-            jQuery'''''' <- packGHashTable gStrHash gStrEqual (Just ptr_to_g_free) (Just ptr_to_g_free) jQuery'''''-            return jQuery''''''-    client' <- unsafeManagedPtrGetPtr client-    (__dynamic_C_ServerCallback __funPtr) server' msg' path' maybeQuery client' userData-    touchManagedPtr server-    touchManagedPtr msg-    touchManagedPtr client-    freeMem path'-    unrefGHashTable maybeQuery-    return ()---- | Generate a function pointer callable from C code, from a `C_ServerCallback`.-foreign import ccall "wrapper"-    mk_ServerCallback :: C_ServerCallback -> IO (FunPtr C_ServerCallback)--{- |-A callback used to handle requests to a 'GI.Soup.Objects.Server.Server'.--/@path@/ and /@query@/ contain the likewise-named components of the-Request-URI, subject to certain assumptions. By default,-'GI.Soup.Objects.Server.Server' decodes all percent-encoding in the URI path, such that-\"\/foo%\<!-- -->2Fbar\" is treated the same as \"\/foo\/bar\". If your-server is serving resources in some non-POSIX-filesystem namespace,-you may want to distinguish those as two distinct paths. In that-case, you can set the 'GI.Soup.Constants.SERVER_RAW_PATHS' property when creating-the 'GI.Soup.Objects.Server.Server', and it will leave those characters undecoded. (You-may want to call 'GI.Soup.Functions.uriNormalize' to decode any percent-encoded-characters that you aren\'t handling specially.)--/@query@/ contains the query component of the Request-URI parsed-according to the rules for HTML form handling. Although this is the-only commonly-used query string format in HTTP, there is nothing-that actually requires that HTTP URIs use that format; if your-server needs to use some other format, you can just ignore /@query@/,-and call 'GI.Soup.Objects.Message.messageGetUri' and parse the URI\'s query field-yourself.--See 'GI.Soup.Objects.Server.serverAddHandler' and 'GI.Soup.Objects.Server.serverAddEarlyHandler'-for details of what handlers can\/should do.--}-type ServerCallback =-    Soup.Server.Server-    {- ^ /@server@/: the 'GI.Soup.Objects.Server.Server' -}-    -> Soup.Message.Message-    {- ^ /@msg@/: the message being processed -}-    -> T.Text-    {- ^ /@path@/: the path component of /@msg@/\'s Request-URI -}-    -> Maybe (Map.Map T.Text T.Text)-    {- ^ /@query@/: the parsed query-  component of /@msg@/\'s Request-URI -}-    -> Soup.ClientContext.ClientContext-    {- ^ /@client@/: additional contextual information about the client -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `ServerCallback`@.-noServerCallback :: Maybe ServerCallback-noServerCallback = Nothing--{- |-A callback used to handle requests to a 'GI.Soup.Objects.Server.Server'.--/@path@/ and /@query@/ contain the likewise-named components of the-Request-URI, subject to certain assumptions. By default,-'GI.Soup.Objects.Server.Server' decodes all percent-encoding in the URI path, such that-\"\/foo%\<!-- -->2Fbar\" is treated the same as \"\/foo\/bar\". If your-server is serving resources in some non-POSIX-filesystem namespace,-you may want to distinguish those as two distinct paths. In that-case, you can set the 'GI.Soup.Constants.SERVER_RAW_PATHS' property when creating-the 'GI.Soup.Objects.Server.Server', and it will leave those characters undecoded. (You-may want to call 'GI.Soup.Functions.uriNormalize' to decode any percent-encoded-characters that you aren\'t handling specially.)--/@query@/ contains the query component of the Request-URI parsed-according to the rules for HTML form handling. Although this is the-only commonly-used query string format in HTTP, there is nothing-that actually requires that HTTP URIs use that format; if your-server needs to use some other format, you can just ignore /@query@/,-and call 'GI.Soup.Objects.Message.messageGetUri' and parse the URI\'s query field-yourself.--See 'GI.Soup.Objects.Server.serverAddHandler' and 'GI.Soup.Objects.Server.serverAddEarlyHandler'-for details of what handlers can\/should do.--}-type ServerCallback_WithClosures =-    Soup.Server.Server-    {- ^ /@server@/: the 'GI.Soup.Objects.Server.Server' -}-    -> Soup.Message.Message-    {- ^ /@msg@/: the message being processed -}-    -> T.Text-    {- ^ /@path@/: the path component of /@msg@/\'s Request-URI -}-    -> Maybe (Map.Map T.Text T.Text)-    {- ^ /@query@/: the parsed query-  component of /@msg@/\'s Request-URI -}-    -> Soup.ClientContext.ClientContext-    {- ^ /@client@/: additional contextual information about the client -}-    -> Ptr ()-    {- ^ /@userData@/: the data passed to 'GI.Soup.Objects.Server.serverAddHandler' or-  'GI.Soup.Objects.Server.serverAddEarlyHandler'. -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `ServerCallback_WithClosures`@.-noServerCallback_WithClosures :: Maybe ServerCallback_WithClosures-noServerCallback_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_ServerCallback :: ServerCallback -> ServerCallback_WithClosures-drop_closures_ServerCallback _f server msg path query client _ = _f server msg path query client---- | Wrap the callback into a `GClosure`.-genClosure_ServerCallback :: MonadIO m => ServerCallback -> m (GClosure C_ServerCallback)-genClosure_ServerCallback cb = liftIO $ do-    let cb' = drop_closures_ServerCallback cb-    let cb'' = wrap_ServerCallback Nothing cb'-    mk_ServerCallback cb'' >>= B.GClosure.newGClosure----- | Wrap a `ServerCallback` into a `C_ServerCallback`.-wrap_ServerCallback ::-    Maybe (Ptr (FunPtr C_ServerCallback)) ->-    ServerCallback_WithClosures ->-    C_ServerCallback-wrap_ServerCallback funptrptr _cb server msg path query client userData = do-    server' <- (newObject Soup.Server.Server) server-    msg' <- (newObject Soup.Message.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''''''-    B.ManagedPtr.withTransient Soup.ClientContext.ClientContext client $ \client' -> do-        _cb  server' msg' path' maybeQuery client' userData-        maybeReleaseFunPtr funptrptr----- callback ProxyURIResolverCallback---          -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "resolver", argType = TInterface (Name {namespace = "Soup", name = "ProxyURIResolver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupProxyURIResolver", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "status", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupStatus", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "proxy_uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the resolved proxy URI, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data passed to soup_proxy_uri_resolver_get_proxy_uri_async()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "Callback for soup_proxy_uri_resolver_get_proxy_uri_async()", sinceVersion = Nothing}}--- | Type for the callback on the (unwrapped) C side.-type C_ProxyURIResolverCallback =-    Ptr Soup.ProxyURIResolver.ProxyURIResolver ->-    Word32 ->-    Ptr Soup.URI.URI ->-    Ptr () ->-    IO ()---- Args : [Arg {argCName = "resolver", argType = TInterface (Name {namespace = "Soup", name = "ProxyURIResolver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupProxyURIResolver", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "status", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupStatus", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "proxy_uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the resolved proxy URI, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data passed to soup_proxy_uri_resolver_get_proxy_uri_async()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_ProxyURIResolverCallback :: FunPtr C_ProxyURIResolverCallback -> C_ProxyURIResolverCallback---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_ProxyURIResolverCallback ::-    (B.CallStack.HasCallStack, MonadIO m, Soup.ProxyURIResolver.IsProxyURIResolver a) =>-    FunPtr C_ProxyURIResolverCallback-    -> a-    {- ^ /@resolver@/: the 'GI.Soup.Interfaces.ProxyURIResolver.ProxyURIResolver' -}-    -> Word32-    {- ^ /@status@/: a 'GI.Soup.Enums.Status' -}-    -> Soup.URI.URI-    {- ^ /@proxyUri@/: the resolved proxy URI, or 'Nothing' -}-    -> Ptr ()-    {- ^ /@userData@/: data passed to 'GI.Soup.Interfaces.ProxyURIResolver.proxyURIResolverGetProxyUriAsync' -}-    -> m ()-dynamic_ProxyURIResolverCallback __funPtr resolver status proxyUri userData = liftIO $ do-    resolver' <- unsafeManagedPtrCastPtr resolver-    proxyUri' <- unsafeManagedPtrGetPtr proxyUri-    (__dynamic_C_ProxyURIResolverCallback __funPtr) resolver' status proxyUri' userData-    touchManagedPtr resolver-    touchManagedPtr proxyUri-    return ()---- | Generate a function pointer callable from C code, from a `C_ProxyURIResolverCallback`.-foreign import ccall "wrapper"-    mk_ProxyURIResolverCallback :: C_ProxyURIResolverCallback -> IO (FunPtr C_ProxyURIResolverCallback)--{- |-Callback for 'GI.Soup.Interfaces.ProxyURIResolver.proxyURIResolverGetProxyUriAsync'--}-type ProxyURIResolverCallback =-    Soup.ProxyURIResolver.ProxyURIResolver-    {- ^ /@resolver@/: the 'GI.Soup.Interfaces.ProxyURIResolver.ProxyURIResolver' -}-    -> Word32-    {- ^ /@status@/: a 'GI.Soup.Enums.Status' -}-    -> Soup.URI.URI-    {- ^ /@proxyUri@/: the resolved proxy URI, or 'Nothing' -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `ProxyURIResolverCallback`@.-noProxyURIResolverCallback :: Maybe ProxyURIResolverCallback-noProxyURIResolverCallback = Nothing--{- |-Callback for 'GI.Soup.Interfaces.ProxyURIResolver.proxyURIResolverGetProxyUriAsync'--}-type ProxyURIResolverCallback_WithClosures =-    Soup.ProxyURIResolver.ProxyURIResolver-    {- ^ /@resolver@/: the 'GI.Soup.Interfaces.ProxyURIResolver.ProxyURIResolver' -}-    -> Word32-    {- ^ /@status@/: a 'GI.Soup.Enums.Status' -}-    -> Soup.URI.URI-    {- ^ /@proxyUri@/: the resolved proxy URI, or 'Nothing' -}-    -> Ptr ()-    {- ^ /@userData@/: data passed to 'GI.Soup.Interfaces.ProxyURIResolver.proxyURIResolverGetProxyUriAsync' -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `ProxyURIResolverCallback_WithClosures`@.-noProxyURIResolverCallback_WithClosures :: Maybe ProxyURIResolverCallback_WithClosures-noProxyURIResolverCallback_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_ProxyURIResolverCallback :: ProxyURIResolverCallback -> ProxyURIResolverCallback_WithClosures-drop_closures_ProxyURIResolverCallback _f resolver status proxyUri _ = _f resolver status proxyUri---- | Wrap the callback into a `GClosure`.-genClosure_ProxyURIResolverCallback :: MonadIO m => ProxyURIResolverCallback -> m (GClosure C_ProxyURIResolverCallback)-genClosure_ProxyURIResolverCallback cb = liftIO $ do-    let cb' = drop_closures_ProxyURIResolverCallback cb-    let cb'' = wrap_ProxyURIResolverCallback Nothing cb'-    mk_ProxyURIResolverCallback cb'' >>= B.GClosure.newGClosure----- | Wrap a `ProxyURIResolverCallback` into a `C_ProxyURIResolverCallback`.-wrap_ProxyURIResolverCallback ::-    Maybe (Ptr (FunPtr C_ProxyURIResolverCallback)) ->-    ProxyURIResolverCallback_WithClosures ->-    C_ProxyURIResolverCallback-wrap_ProxyURIResolverCallback funptrptr _cb resolver status proxyUri userData = do-    resolver' <- (newObject Soup.ProxyURIResolver.ProxyURIResolver) resolver-    B.ManagedPtr.withTransient Soup.URI.URI proxyUri $ \proxyUri' -> do-        _cb  resolver' status proxyUri' userData-        maybeReleaseFunPtr funptrptr----- callback ProxyResolverCallback---          -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "proxy_resolver", argType = TInterface (Name {namespace = "Soup", name = "ProxyResolver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "arg", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "addr", argType = TInterface (Name {namespace = "Soup", name = "Address"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Just (DeprecationInfo {deprecatedSinceVersion = Just "2.28", deprecationMessage = Just "Use SoupProxyURIResolver instead"}), callableDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}}--- | Type for the callback on the (unwrapped) C side.-type C_ProxyResolverCallback =-    Ptr Soup.ProxyResolver.ProxyResolver ->-    Ptr Soup.Message.Message ->-    Word32 ->-    Ptr Soup.Address.Address ->-    Ptr () ->-    IO ()---- Args : [Arg {argCName = "proxy_resolver", argType = TInterface (Name {namespace = "Soup", name = "ProxyResolver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "arg", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "addr", argType = TInterface (Name {namespace = "Soup", name = "Address"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_ProxyResolverCallback :: FunPtr C_ProxyResolverCallback -> C_ProxyResolverCallback---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_ProxyResolverCallback ::-    (B.CallStack.HasCallStack, MonadIO m, Soup.ProxyResolver.IsProxyResolver a, Soup.Message.IsMessage b, Soup.Address.IsAddress c) =>-    FunPtr C_ProxyResolverCallback-    -> a-    -> b-    -> Word32-    -> c-    -> Ptr ()-    -> m ()-dynamic_ProxyResolverCallback __funPtr proxyResolver msg arg addr userData = liftIO $ do-    proxyResolver' <- unsafeManagedPtrCastPtr proxyResolver-    msg' <- unsafeManagedPtrCastPtr msg-    addr' <- unsafeManagedPtrCastPtr addr-    (__dynamic_C_ProxyResolverCallback __funPtr) proxyResolver' msg' arg addr' userData-    touchManagedPtr proxyResolver-    touchManagedPtr msg-    touchManagedPtr addr-    return ()---- | Generate a function pointer callable from C code, from a `C_ProxyResolverCallback`.-foreign import ccall "wrapper"-    mk_ProxyResolverCallback :: C_ProxyResolverCallback -> IO (FunPtr C_ProxyResolverCallback)--{-# DEPRECATED ProxyResolverCallback ["(Since version 2.28)","Use SoupProxyURIResolver instead"] #-}-{- |-/No description available in the introspection data./--}-type ProxyResolverCallback =-    Soup.ProxyResolver.ProxyResolver-    -> Soup.Message.Message-    -> Word32-    -> Soup.Address.Address-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `ProxyResolverCallback`@.-noProxyResolverCallback :: Maybe ProxyResolverCallback-noProxyResolverCallback = Nothing--{- |-/No description available in the introspection data./--}-type ProxyResolverCallback_WithClosures =-    Soup.ProxyResolver.ProxyResolver-    -> Soup.Message.Message-    -> Word32-    -> Soup.Address.Address-    -> Ptr ()-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `ProxyResolverCallback_WithClosures`@.-noProxyResolverCallback_WithClosures :: Maybe ProxyResolverCallback_WithClosures-noProxyResolverCallback_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_ProxyResolverCallback :: ProxyResolverCallback -> ProxyResolverCallback_WithClosures-drop_closures_ProxyResolverCallback _f proxyResolver msg arg addr _ = _f proxyResolver msg arg addr---- | Wrap the callback into a `GClosure`.-genClosure_ProxyResolverCallback :: MonadIO m => ProxyResolverCallback -> m (GClosure C_ProxyResolverCallback)-genClosure_ProxyResolverCallback cb = liftIO $ do-    let cb' = drop_closures_ProxyResolverCallback cb-    let cb'' = wrap_ProxyResolverCallback Nothing cb'-    mk_ProxyResolverCallback cb'' >>= B.GClosure.newGClosure----- | Wrap a `ProxyResolverCallback` into a `C_ProxyResolverCallback`.-wrap_ProxyResolverCallback ::-    Maybe (Ptr (FunPtr C_ProxyResolverCallback)) ->-    ProxyResolverCallback_WithClosures ->-    C_ProxyResolverCallback-wrap_ProxyResolverCallback funptrptr _cb proxyResolver msg arg addr userData = do-    proxyResolver' <- (newObject Soup.ProxyResolver.ProxyResolver) proxyResolver-    msg' <- (newObject Soup.Message.Message) msg-    addr' <- (newObject Soup.Address.Address) addr-    _cb  proxyResolver' msg' arg addr' userData-    maybeReleaseFunPtr funptrptr----- callback PasswordManagerCallback---          -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "password_manager", argType = TInterface (Name {namespace = "Soup", name = "PasswordManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth", argType = TInterface (Name {namespace = "Soup", name = "Auth"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "retrying", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}}--- | Type for the callback on the (unwrapped) C side.-type C_PasswordManagerCallback =-    Ptr Soup.PasswordManager.PasswordManager ->-    Ptr Soup.Message.Message ->-    Ptr Soup.Auth.Auth ->-    CInt ->-    Ptr () ->-    IO ()---- Args : [Arg {argCName = "password_manager", argType = TInterface (Name {namespace = "Soup", name = "PasswordManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth", argType = TInterface (Name {namespace = "Soup", name = "Auth"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "retrying", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_PasswordManagerCallback :: FunPtr C_PasswordManagerCallback -> C_PasswordManagerCallback---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_PasswordManagerCallback ::-    (B.CallStack.HasCallStack, MonadIO m, Soup.PasswordManager.IsPasswordManager a, Soup.Message.IsMessage b, Soup.Auth.IsAuth c) =>-    FunPtr C_PasswordManagerCallback-    -> a-    -> b-    -> c-    -> Bool-    -> Ptr ()-    -> m ()-dynamic_PasswordManagerCallback __funPtr passwordManager msg auth retrying userData = liftIO $ do-    passwordManager' <- unsafeManagedPtrCastPtr passwordManager-    msg' <- unsafeManagedPtrCastPtr msg-    auth' <- unsafeManagedPtrCastPtr auth-    let retrying' = (fromIntegral . fromEnum) retrying-    (__dynamic_C_PasswordManagerCallback __funPtr) passwordManager' msg' auth' retrying' userData-    touchManagedPtr passwordManager-    touchManagedPtr msg-    touchManagedPtr auth-    return ()---- | Generate a function pointer callable from C code, from a `C_PasswordManagerCallback`.-foreign import ccall "wrapper"-    mk_PasswordManagerCallback :: C_PasswordManagerCallback -> IO (FunPtr C_PasswordManagerCallback)--{- |-/No description available in the introspection data./--}-type PasswordManagerCallback =-    Soup.PasswordManager.PasswordManager-    -> Soup.Message.Message-    -> Soup.Auth.Auth-    -> Bool-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `PasswordManagerCallback`@.-noPasswordManagerCallback :: Maybe PasswordManagerCallback-noPasswordManagerCallback = Nothing--{- |-/No description available in the introspection data./--}-type PasswordManagerCallback_WithClosures =-    Soup.PasswordManager.PasswordManager-    -> Soup.Message.Message-    -> Soup.Auth.Auth-    -> Bool-    -> Ptr ()-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `PasswordManagerCallback_WithClosures`@.-noPasswordManagerCallback_WithClosures :: Maybe PasswordManagerCallback_WithClosures-noPasswordManagerCallback_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_PasswordManagerCallback :: PasswordManagerCallback -> PasswordManagerCallback_WithClosures-drop_closures_PasswordManagerCallback _f passwordManager msg auth retrying _ = _f passwordManager msg auth retrying---- | Wrap the callback into a `GClosure`.-genClosure_PasswordManagerCallback :: MonadIO m => PasswordManagerCallback -> m (GClosure C_PasswordManagerCallback)-genClosure_PasswordManagerCallback cb = liftIO $ do-    let cb' = drop_closures_PasswordManagerCallback cb-    let cb'' = wrap_PasswordManagerCallback Nothing cb'-    mk_PasswordManagerCallback cb'' >>= B.GClosure.newGClosure----- | Wrap a `PasswordManagerCallback` into a `C_PasswordManagerCallback`.-wrap_PasswordManagerCallback ::-    Maybe (Ptr (FunPtr C_PasswordManagerCallback)) ->-    PasswordManagerCallback_WithClosures ->-    C_PasswordManagerCallback-wrap_PasswordManagerCallback funptrptr _cb passwordManager msg auth retrying userData = do-    passwordManager' <- (newObject Soup.PasswordManager.PasswordManager) passwordManager-    msg' <- (newObject Soup.Message.Message) msg-    auth' <- (newObject Soup.Auth.Auth) auth-    let retrying' = (/= 0) retrying-    _cb  passwordManager' msg' auth' retrying' userData-    maybeReleaseFunPtr funptrptr----- callback MessageHeadersForeachFunc---          -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the header name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the header value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data passed to soup_message_headers_foreach()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "The callback passed to soup_message_headers_foreach().", sinceVersion = Nothing}}--- | Type for the callback on the (unwrapped) C side.-type C_MessageHeadersForeachFunc =-    CString ->-    CString ->-    Ptr () ->-    IO ()---- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the header name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the header value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data passed to soup_message_headers_foreach()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_MessageHeadersForeachFunc :: FunPtr C_MessageHeadersForeachFunc -> C_MessageHeadersForeachFunc---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_MessageHeadersForeachFunc ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    FunPtr C_MessageHeadersForeachFunc-    -> T.Text-    {- ^ /@name@/: the header name -}-    -> T.Text-    {- ^ /@value@/: the header value -}-    -> Ptr ()-    {- ^ /@userData@/: the data passed to 'GI.Soup.Structs.MessageHeaders.messageHeadersForeach' -}-    -> m ()-dynamic_MessageHeadersForeachFunc __funPtr name value userData = liftIO $ do-    name' <- textToCString name-    value' <- textToCString value-    (__dynamic_C_MessageHeadersForeachFunc __funPtr) name' value' userData-    freeMem name'-    freeMem value'-    return ()---- | Generate a function pointer callable from C code, from a `C_MessageHeadersForeachFunc`.-foreign import ccall "wrapper"-    mk_MessageHeadersForeachFunc :: C_MessageHeadersForeachFunc -> IO (FunPtr C_MessageHeadersForeachFunc)--{- |-The callback passed to 'GI.Soup.Structs.MessageHeaders.messageHeadersForeach'.--}-type MessageHeadersForeachFunc =-    T.Text-    {- ^ /@name@/: the header name -}-    -> T.Text-    {- ^ /@value@/: the header value -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `MessageHeadersForeachFunc`@.-noMessageHeadersForeachFunc :: Maybe MessageHeadersForeachFunc-noMessageHeadersForeachFunc = Nothing--{- |-The callback passed to 'GI.Soup.Structs.MessageHeaders.messageHeadersForeach'.--}-type MessageHeadersForeachFunc_WithClosures =-    T.Text-    {- ^ /@name@/: the header name -}-    -> T.Text-    {- ^ /@value@/: the header value -}-    -> Ptr ()-    {- ^ /@userData@/: the data passed to 'GI.Soup.Structs.MessageHeaders.messageHeadersForeach' -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `MessageHeadersForeachFunc_WithClosures`@.-noMessageHeadersForeachFunc_WithClosures :: Maybe MessageHeadersForeachFunc_WithClosures-noMessageHeadersForeachFunc_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_MessageHeadersForeachFunc :: MessageHeadersForeachFunc -> MessageHeadersForeachFunc_WithClosures-drop_closures_MessageHeadersForeachFunc _f name value _ = _f name value---- | Wrap the callback into a `GClosure`.-genClosure_MessageHeadersForeachFunc :: MonadIO m => MessageHeadersForeachFunc -> m (GClosure C_MessageHeadersForeachFunc)-genClosure_MessageHeadersForeachFunc cb = liftIO $ do-    let cb' = drop_closures_MessageHeadersForeachFunc cb-    let cb'' = wrap_MessageHeadersForeachFunc Nothing cb'-    mk_MessageHeadersForeachFunc cb'' >>= B.GClosure.newGClosure----- | Wrap a `MessageHeadersForeachFunc` into a `C_MessageHeadersForeachFunc`.-wrap_MessageHeadersForeachFunc ::-    Maybe (Ptr (FunPtr C_MessageHeadersForeachFunc)) ->-    MessageHeadersForeachFunc_WithClosures ->-    C_MessageHeadersForeachFunc-wrap_MessageHeadersForeachFunc funptrptr _cb name value userData = do-    name' <- cstringToText name-    value' <- cstringToText value-    _cb  name' value' userData-    maybeReleaseFunPtr funptrptr----- callback LoggerPrinter---          -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "logger", argType = TInterface (Name {namespace = "Soup", name = "Logger"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupLogger", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "level", argType = TInterface (Name {namespace = "Soup", name = "LoggerLogLevel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the level of the information being printed.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a single-character prefix to @data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "data to print", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data passed to soup_logger_set_printer()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "The prototype for a custom printing callback.\n\n@level indicates what kind of information is being printed. Eg, it\nwill be %SOUP_LOGGER_LOG_HEADERS if @data is header data.\n\n@direction is either '<', '>', or ' ', and @data is the single line\nto print; the printer is expected to add a terminating newline.\n\nTo get the effect of the default printer, you would do:\n\n<informalexample><programlisting>\nprintf (\"%c %s\\n\", direction, data);\n</programlisting></informalexample>", sinceVersion = Nothing}}--- | Type for the callback on the (unwrapped) C side.-type C_LoggerPrinter =-    Ptr Soup.Logger.Logger ->-    CUInt ->-    Int8 ->-    CString ->-    Ptr () ->-    IO ()---- Args : [Arg {argCName = "logger", argType = TInterface (Name {namespace = "Soup", name = "Logger"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupLogger", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "level", argType = TInterface (Name {namespace = "Soup", name = "LoggerLogLevel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the level of the information being printed.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TBasicType TInt8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a single-character prefix to @data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "data to print", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data passed to soup_logger_set_printer()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_LoggerPrinter :: FunPtr C_LoggerPrinter -> C_LoggerPrinter---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_LoggerPrinter ::-    (B.CallStack.HasCallStack, MonadIO m, Soup.Logger.IsLogger a) =>-    FunPtr C_LoggerPrinter-    -> a-    {- ^ /@logger@/: the 'GI.Soup.Objects.Logger.Logger' -}-    -> Soup.Enums.LoggerLogLevel-    {- ^ /@level@/: the level of the information being printed. -}-    -> Int8-    {- ^ /@direction@/: a single-character prefix to /@data@/ -}-    -> T.Text-    {- ^ /@data@/: data to print -}-    -> Ptr ()-    {- ^ /@userData@/: the data passed to 'GI.Soup.Objects.Logger.loggerSetPrinter' -}-    -> m ()-dynamic_LoggerPrinter __funPtr logger level direction data_ userData = liftIO $ do-    logger' <- unsafeManagedPtrCastPtr logger-    let level' = (fromIntegral . fromEnum) level-    data_' <- textToCString data_-    (__dynamic_C_LoggerPrinter __funPtr) logger' level' direction data_' userData-    touchManagedPtr logger-    freeMem data_'-    return ()---- | Generate a function pointer callable from C code, from a `C_LoggerPrinter`.-foreign import ccall "wrapper"-    mk_LoggerPrinter :: C_LoggerPrinter -> IO (FunPtr C_LoggerPrinter)--{- |-The prototype for a custom printing callback.--/@level@/ indicates what kind of information is being printed. Eg, it-will be 'GI.Soup.Enums.LoggerLogLevelHeaders' if /@data@/ is header data.--/@direction@/ is either \'\<\', \'>\', or \' \', and /@data@/ is the single line-to print; the printer is expected to add a terminating newline.--To get the effect of the default printer, you would do:--\<informalexample>\<programlisting>-printf (\"@/c/@ @/s/@\\n\", direction, data);-\<\/programlisting>\<\/informalexample>--}-type LoggerPrinter =-    Soup.Logger.Logger-    {- ^ /@logger@/: the 'GI.Soup.Objects.Logger.Logger' -}-    -> Soup.Enums.LoggerLogLevel-    {- ^ /@level@/: the level of the information being printed. -}-    -> Int8-    {- ^ /@direction@/: a single-character prefix to /@data@/ -}-    -> T.Text-    {- ^ /@data@/: data to print -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `LoggerPrinter`@.-noLoggerPrinter :: Maybe LoggerPrinter-noLoggerPrinter = Nothing--{- |-The prototype for a custom printing callback.--/@level@/ indicates what kind of information is being printed. Eg, it-will be 'GI.Soup.Enums.LoggerLogLevelHeaders' if /@data@/ is header data.--/@direction@/ is either \'\<\', \'>\', or \' \', and /@data@/ is the single line-to print; the printer is expected to add a terminating newline.--To get the effect of the default printer, you would do:--\<informalexample>\<programlisting>-printf (\"@/c/@ @/s/@\\n\", direction, data);-\<\/programlisting>\<\/informalexample>--}-type LoggerPrinter_WithClosures =-    Soup.Logger.Logger-    {- ^ /@logger@/: the 'GI.Soup.Objects.Logger.Logger' -}-    -> Soup.Enums.LoggerLogLevel-    {- ^ /@level@/: the level of the information being printed. -}-    -> Int8-    {- ^ /@direction@/: a single-character prefix to /@data@/ -}-    -> T.Text-    {- ^ /@data@/: data to print -}-    -> Ptr ()-    {- ^ /@userData@/: the data passed to 'GI.Soup.Objects.Logger.loggerSetPrinter' -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `LoggerPrinter_WithClosures`@.-noLoggerPrinter_WithClosures :: Maybe LoggerPrinter_WithClosures-noLoggerPrinter_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_LoggerPrinter :: LoggerPrinter -> LoggerPrinter_WithClosures-drop_closures_LoggerPrinter _f logger level direction data_ _ = _f logger level direction data_---- | Wrap the callback into a `GClosure`.-genClosure_LoggerPrinter :: MonadIO m => LoggerPrinter -> m (GClosure C_LoggerPrinter)-genClosure_LoggerPrinter cb = liftIO $ do-    let cb' = drop_closures_LoggerPrinter cb-    let cb'' = wrap_LoggerPrinter Nothing cb'-    mk_LoggerPrinter cb'' >>= B.GClosure.newGClosure----- | Wrap a `LoggerPrinter` into a `C_LoggerPrinter`.-wrap_LoggerPrinter ::-    Maybe (Ptr (FunPtr C_LoggerPrinter)) ->-    LoggerPrinter_WithClosures ->-    C_LoggerPrinter-wrap_LoggerPrinter funptrptr _cb logger level direction data_ userData = do-    logger' <- (newObject Soup.Logger.Logger) logger-    let level' = (toEnum . fromIntegral) level-    data_' <- cstringToText data_-    _cb  logger' level' direction data_' userData-    maybeReleaseFunPtr funptrptr----- callback LoggerFilter---          -> Callable {returnType = Just (TInterface (Name {namespace = "Soup", name = "LoggerLogLevel"})), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "a #SoupLoggerLogLevel value indicating how much of\nthe message to log", sinceVersion = Nothing}, args = [Arg {argCName = "logger", argType = TInterface (Name {namespace = "Soup", name = "Logger"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupLogger", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the message being logged", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data passed to soup_logger_set_request_filter()\nor soup_logger_set_response_filter()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "The prototype for a logging filter. The filter callback will be\ninvoked for each request or response, and should analyze it and\nreturn a #SoupLoggerLogLevel value indicating how much of the\nmessage to log. Eg, it might choose between %SOUP_LOGGER_LOG_BODY\nand %SOUP_LOGGER_LOG_HEADERS depending on the Content-Type.", sinceVersion = Nothing}}--- | Type for the callback on the (unwrapped) C side.-type C_LoggerFilter =-    Ptr Soup.Logger.Logger ->-    Ptr Soup.Message.Message ->-    Ptr () ->-    IO CUInt---- Args : [Arg {argCName = "logger", argType = TInterface (Name {namespace = "Soup", name = "Logger"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupLogger", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the message being logged", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data passed to soup_logger_set_request_filter()\nor soup_logger_set_response_filter()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "LoggerLogLevel"}))--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_LoggerFilter :: FunPtr C_LoggerFilter -> C_LoggerFilter---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_LoggerFilter ::-    (B.CallStack.HasCallStack, MonadIO m, Soup.Logger.IsLogger a, Soup.Message.IsMessage b) =>-    FunPtr C_LoggerFilter-    -> a-    {- ^ /@logger@/: the 'GI.Soup.Objects.Logger.Logger' -}-    -> b-    {- ^ /@msg@/: the message being logged -}-    -> Ptr ()-    {- ^ /@userData@/: the data passed to 'GI.Soup.Objects.Logger.loggerSetRequestFilter'-or 'GI.Soup.Objects.Logger.loggerSetResponseFilter' -}-    -> m Soup.Enums.LoggerLogLevel-    {- ^ __Returns:__ a 'GI.Soup.Enums.LoggerLogLevel' value indicating how much of-the message to log -}-dynamic_LoggerFilter __funPtr logger msg userData = liftIO $ do-    logger' <- unsafeManagedPtrCastPtr logger-    msg' <- unsafeManagedPtrCastPtr msg-    result <- (__dynamic_C_LoggerFilter __funPtr) logger' msg' userData-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr logger-    touchManagedPtr msg-    return result'---- | Generate a function pointer callable from C code, from a `C_LoggerFilter`.-foreign import ccall "wrapper"-    mk_LoggerFilter :: C_LoggerFilter -> IO (FunPtr C_LoggerFilter)--{- |-The prototype for a logging filter. The filter callback will be-invoked for each request or response, and should analyze it and-return a 'GI.Soup.Enums.LoggerLogLevel' value indicating how much of the-message to log. Eg, it might choose between 'GI.Soup.Enums.LoggerLogLevelBody'-and 'GI.Soup.Enums.LoggerLogLevelHeaders' depending on the Content-Type.--}-type LoggerFilter =-    Soup.Logger.Logger-    {- ^ /@logger@/: the 'GI.Soup.Objects.Logger.Logger' -}-    -> Soup.Message.Message-    {- ^ /@msg@/: the message being logged -}-    -> IO Soup.Enums.LoggerLogLevel-    {- ^ __Returns:__ a 'GI.Soup.Enums.LoggerLogLevel' value indicating how much of-the message to log -}---- | A convenience synonym for @`Nothing` :: `Maybe` `LoggerFilter`@.-noLoggerFilter :: Maybe LoggerFilter-noLoggerFilter = Nothing--{- |-The prototype for a logging filter. The filter callback will be-invoked for each request or response, and should analyze it and-return a 'GI.Soup.Enums.LoggerLogLevel' value indicating how much of the-message to log. Eg, it might choose between 'GI.Soup.Enums.LoggerLogLevelBody'-and 'GI.Soup.Enums.LoggerLogLevelHeaders' depending on the Content-Type.--}-type LoggerFilter_WithClosures =-    Soup.Logger.Logger-    {- ^ /@logger@/: the 'GI.Soup.Objects.Logger.Logger' -}-    -> Soup.Message.Message-    {- ^ /@msg@/: the message being logged -}-    -> Ptr ()-    {- ^ /@userData@/: the data passed to 'GI.Soup.Objects.Logger.loggerSetRequestFilter'-or 'GI.Soup.Objects.Logger.loggerSetResponseFilter' -}-    -> IO Soup.Enums.LoggerLogLevel-    {- ^ __Returns:__ a 'GI.Soup.Enums.LoggerLogLevel' value indicating how much of-the message to log -}---- | A convenience synonym for @`Nothing` :: `Maybe` `LoggerFilter_WithClosures`@.-noLoggerFilter_WithClosures :: Maybe LoggerFilter_WithClosures-noLoggerFilter_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_LoggerFilter :: LoggerFilter -> LoggerFilter_WithClosures-drop_closures_LoggerFilter _f logger msg _ = _f logger msg---- | Wrap the callback into a `GClosure`.-genClosure_LoggerFilter :: MonadIO m => LoggerFilter -> m (GClosure C_LoggerFilter)-genClosure_LoggerFilter cb = liftIO $ do-    let cb' = drop_closures_LoggerFilter cb-    let cb'' = wrap_LoggerFilter Nothing cb'-    mk_LoggerFilter cb'' >>= B.GClosure.newGClosure----- | Wrap a `LoggerFilter` into a `C_LoggerFilter`.-wrap_LoggerFilter ::-    Maybe (Ptr (FunPtr C_LoggerFilter)) ->-    LoggerFilter_WithClosures ->-    C_LoggerFilter-wrap_LoggerFilter funptrptr _cb logger msg userData = do-    logger' <- (newObject Soup.Logger.Logger) logger-    msg' <- (newObject Soup.Message.Message) msg-    result <- _cb  logger' msg' userData-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'----- callback ChunkAllocator---          -> Callable {returnType = Just (TInterface (Name {namespace = "Soup", name = "Buffer"})), returnMayBeNull = True, returnTransfer = TransferEverything, returnDocumentation = Documentation {rawDocText = Just "the new buffer (or %NULL)", sinceVersion = Nothing}, args = [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupMessage the chunk is being allocated for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the maximum length that will be read, or 0.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data passed to soup_message_set_chunk_allocator()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Just (DeprecationInfo {deprecatedSinceVersion = Nothing, deprecationMessage = Just "Use #SoupRequest if you want to read into your\nown buffers."}), callableDocumentation = Documentation {rawDocText = Just "The prototype for a chunk allocation callback. This should allocate\na new #SoupBuffer and return it for the I/O layer to read message\nbody data off the network into.\n\nIf @max_len is non-0, it indicates the maximum number of bytes that\ncould be read, based on what is known about the message size. Note\nthat this might be a very large number, and you should not simply\ntry to allocate that many bytes blindly. If @max_len is 0, that\nmeans that libsoup does not know how many bytes remain to be read,\nand the allocator should return a buffer of a size that it finds\nconvenient.\n\nIf the allocator returns %NULL, the message will be paused. It is\nup to the application to make sure that it gets unpaused when it\nbecomes possible to allocate a new buffer.", sinceVersion = Nothing}}--- | Type for the callback on the (unwrapped) C side.-type C_ChunkAllocator =-    Ptr Soup.Message.Message ->-    Word64 ->-    Ptr () ->-    IO (Ptr Soup.Buffer.Buffer)---- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupMessage the chunk is being allocated for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the maximum length that will be read, or 0.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data passed to soup_message_set_chunk_allocator()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Buffer"}))--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_ChunkAllocator :: FunPtr C_ChunkAllocator -> C_ChunkAllocator---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_ChunkAllocator ::-    (B.CallStack.HasCallStack, MonadIO m, Soup.Message.IsMessage a) =>-    FunPtr C_ChunkAllocator-    -> a-    {- ^ /@msg@/: the 'GI.Soup.Objects.Message.Message' the chunk is being allocated for -}-    -> Word64-    {- ^ /@maxLen@/: the maximum length that will be read, or 0. -}-    -> Ptr ()-    {- ^ /@userData@/: the data passed to 'GI.Soup.Objects.Message.messageSetChunkAllocator' -}-    -> m (Maybe Soup.Buffer.Buffer)-    {- ^ __Returns:__ the new buffer (or 'Nothing') -}-dynamic_ChunkAllocator __funPtr msg maxLen userData = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    result <- (__dynamic_C_ChunkAllocator __funPtr) msg' maxLen userData-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapBoxed Soup.Buffer.Buffer) result'-        return result''-    touchManagedPtr msg-    return maybeResult---- | Generate a function pointer callable from C code, from a `C_ChunkAllocator`.-foreign import ccall "wrapper"-    mk_ChunkAllocator :: C_ChunkAllocator -> IO (FunPtr C_ChunkAllocator)--{-# DEPRECATED ChunkAllocator ["Use 'GI.Soup.Objects.Request.Request' if you want to read into your","own buffers."] #-}-{- |-The prototype for a chunk allocation callback. This should allocate-a new 'GI.Soup.Structs.Buffer.Buffer' and return it for the I\/O layer to read message-body data off the network into.--If /@maxLen@/ is non-0, it indicates the maximum number of bytes that-could be read, based on what is known about the message size. Note-that this might be a very large number, and you should not simply-try to allocate that many bytes blindly. If /@maxLen@/ is 0, that-means that libsoup does not know how many bytes remain to be read,-and the allocator should return a buffer of a size that it finds-convenient.--If the allocator returns 'Nothing', the message will be paused. It is-up to the application to make sure that it gets unpaused when it-becomes possible to allocate a new buffer.--}-type ChunkAllocator =-    Soup.Message.Message-    {- ^ /@msg@/: the 'GI.Soup.Objects.Message.Message' the chunk is being allocated for -}-    -> Word64-    {- ^ /@maxLen@/: the maximum length that will be read, or 0. -}-    -> IO (Maybe Soup.Buffer.Buffer)-    {- ^ __Returns:__ the new buffer (or 'Nothing') -}---- | A convenience synonym for @`Nothing` :: `Maybe` `ChunkAllocator`@.-noChunkAllocator :: Maybe ChunkAllocator-noChunkAllocator = Nothing--{- |-The prototype for a chunk allocation callback. This should allocate-a new 'GI.Soup.Structs.Buffer.Buffer' and return it for the I\/O layer to read message-body data off the network into.--If /@maxLen@/ is non-0, it indicates the maximum number of bytes that-could be read, based on what is known about the message size. Note-that this might be a very large number, and you should not simply-try to allocate that many bytes blindly. If /@maxLen@/ is 0, that-means that libsoup does not know how many bytes remain to be read,-and the allocator should return a buffer of a size that it finds-convenient.--If the allocator returns 'Nothing', the message will be paused. It is-up to the application to make sure that it gets unpaused when it-becomes possible to allocate a new buffer.--}-type ChunkAllocator_WithClosures =-    Soup.Message.Message-    {- ^ /@msg@/: the 'GI.Soup.Objects.Message.Message' the chunk is being allocated for -}-    -> Word64-    {- ^ /@maxLen@/: the maximum length that will be read, or 0. -}-    -> Ptr ()-    {- ^ /@userData@/: the data passed to 'GI.Soup.Objects.Message.messageSetChunkAllocator' -}-    -> IO (Maybe Soup.Buffer.Buffer)-    {- ^ __Returns:__ the new buffer (or 'Nothing') -}---- | A convenience synonym for @`Nothing` :: `Maybe` `ChunkAllocator_WithClosures`@.-noChunkAllocator_WithClosures :: Maybe ChunkAllocator_WithClosures-noChunkAllocator_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_ChunkAllocator :: ChunkAllocator -> ChunkAllocator_WithClosures-drop_closures_ChunkAllocator _f msg maxLen _ = _f msg maxLen---- | Wrap the callback into a `GClosure`.-genClosure_ChunkAllocator :: MonadIO m => ChunkAllocator -> m (GClosure C_ChunkAllocator)-genClosure_ChunkAllocator cb = liftIO $ do-    let cb' = drop_closures_ChunkAllocator cb-    let cb'' = wrap_ChunkAllocator Nothing cb'-    mk_ChunkAllocator cb'' >>= B.GClosure.newGClosure----- | Wrap a `ChunkAllocator` into a `C_ChunkAllocator`.-wrap_ChunkAllocator ::-    Maybe (Ptr (FunPtr C_ChunkAllocator)) ->-    ChunkAllocator_WithClosures ->-    C_ChunkAllocator-wrap_ChunkAllocator funptrptr _cb msg maxLen userData = do-    msg' <- (newObject Soup.Message.Message) msg-    result <- _cb  msg' maxLen userData-    maybeReleaseFunPtr funptrptr-    maybeM nullPtr result $ \result' -> do-        result'' <- B.ManagedPtr.disownBoxed result'-        return result''----- callback AuthDomainGenericAuthCallback---          -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "%TRUE if @msg is authenticated, %FALSE if not.", sinceVersion = Nothing}, args = [Arg {argCName = "domain", argType = TInterface (Name {namespace = "Soup", name = "AuthDomain"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAuthDomain", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupMessage being authenticated", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the username from @msg", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data passed to\nsoup_auth_domain_set_generic_auth_callback()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "The prototype for a #SoupAuthDomain generic authentication callback.\n\nThe callback should look up the user's password, call\nsoup_auth_domain_check_password(), and use the return value from\nthat method as its own return value.\n\nIn general, for security reasons, it is preferable to use the\nauth-domain-specific auth callbacks (eg,\n#SoupAuthDomainBasicAuthCallback and\n#SoupAuthDomainDigestAuthCallback), because they don't require\nkeeping a cleartext password database. Most users will use the same\npassword for many different sites, meaning if any site with a\ncleartext password database is compromised, accounts on other\nservers might be compromised as well. For many of the cases where\n#SoupServer is used, this is not really relevant, but it may still\nbe worth considering.", sinceVersion = Nothing}}--- | Type for the callback on the (unwrapped) C side.-type C_AuthDomainGenericAuthCallback =-    Ptr Soup.AuthDomain.AuthDomain ->-    Ptr Soup.Message.Message ->-    CString ->-    Ptr () ->-    IO CInt---- Args : [Arg {argCName = "domain", argType = TInterface (Name {namespace = "Soup", name = "AuthDomain"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAuthDomain", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupMessage being authenticated", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the username from @msg", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data passed to\nsoup_auth_domain_set_generic_auth_callback()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_AuthDomainGenericAuthCallback :: FunPtr C_AuthDomainGenericAuthCallback -> C_AuthDomainGenericAuthCallback---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_AuthDomainGenericAuthCallback ::-    (B.CallStack.HasCallStack, MonadIO m, Soup.AuthDomain.IsAuthDomain a, Soup.Message.IsMessage b) =>-    FunPtr C_AuthDomainGenericAuthCallback-    -> a-    {- ^ /@domain@/: a 'GI.Soup.Objects.AuthDomain.AuthDomain' -}-    -> b-    {- ^ /@msg@/: the 'GI.Soup.Objects.Message.Message' being authenticated -}-    -> T.Text-    {- ^ /@username@/: the username from /@msg@/ -}-    -> Ptr ()-    {- ^ /@userData@/: the data passed to-'GI.Soup.Objects.AuthDomain.authDomainSetGenericAuthCallback' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@msg@/ is authenticated, 'False' if not. -}-dynamic_AuthDomainGenericAuthCallback __funPtr domain msg username userData = liftIO $ do-    domain' <- unsafeManagedPtrCastPtr domain-    msg' <- unsafeManagedPtrCastPtr msg-    username' <- textToCString username-    result <- (__dynamic_C_AuthDomainGenericAuthCallback __funPtr) domain' msg' username' userData-    let result' = (/= 0) result-    touchManagedPtr domain-    touchManagedPtr msg-    freeMem username'-    return result'---- | Generate a function pointer callable from C code, from a `C_AuthDomainGenericAuthCallback`.-foreign import ccall "wrapper"-    mk_AuthDomainGenericAuthCallback :: C_AuthDomainGenericAuthCallback -> IO (FunPtr C_AuthDomainGenericAuthCallback)--{- |-The prototype for a 'GI.Soup.Objects.AuthDomain.AuthDomain' generic authentication callback.--The callback should look up the user\'s password, call-'GI.Soup.Objects.AuthDomain.authDomainCheckPassword', and use the return value from-that method as its own return value.--In general, for security reasons, it is preferable to use the-auth-domain-specific auth callbacks (eg,-'GI.Soup.Callbacks.AuthDomainBasicAuthCallback' and-'GI.Soup.Callbacks.AuthDomainDigestAuthCallback'), because they don\'t require-keeping a cleartext password database. Most users will use the same-password for many different sites, meaning if any site with a-cleartext password database is compromised, accounts on other-servers might be compromised as well. For many of the cases where-'GI.Soup.Objects.Server.Server' is used, this is not really relevant, but it may still-be worth considering.--}-type AuthDomainGenericAuthCallback =-    Soup.AuthDomain.AuthDomain-    {- ^ /@domain@/: a 'GI.Soup.Objects.AuthDomain.AuthDomain' -}-    -> Soup.Message.Message-    {- ^ /@msg@/: the 'GI.Soup.Objects.Message.Message' being authenticated -}-    -> T.Text-    {- ^ /@username@/: the username from /@msg@/ -}-    -> IO Bool-    {- ^ __Returns:__ 'True' if /@msg@/ is authenticated, 'False' if not. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `AuthDomainGenericAuthCallback`@.-noAuthDomainGenericAuthCallback :: Maybe AuthDomainGenericAuthCallback-noAuthDomainGenericAuthCallback = Nothing--{- |-The prototype for a 'GI.Soup.Objects.AuthDomain.AuthDomain' generic authentication callback.--The callback should look up the user\'s password, call-'GI.Soup.Objects.AuthDomain.authDomainCheckPassword', and use the return value from-that method as its own return value.--In general, for security reasons, it is preferable to use the-auth-domain-specific auth callbacks (eg,-'GI.Soup.Callbacks.AuthDomainBasicAuthCallback' and-'GI.Soup.Callbacks.AuthDomainDigestAuthCallback'), because they don\'t require-keeping a cleartext password database. Most users will use the same-password for many different sites, meaning if any site with a-cleartext password database is compromised, accounts on other-servers might be compromised as well. For many of the cases where-'GI.Soup.Objects.Server.Server' is used, this is not really relevant, but it may still-be worth considering.--}-type AuthDomainGenericAuthCallback_WithClosures =-    Soup.AuthDomain.AuthDomain-    {- ^ /@domain@/: a 'GI.Soup.Objects.AuthDomain.AuthDomain' -}-    -> Soup.Message.Message-    {- ^ /@msg@/: the 'GI.Soup.Objects.Message.Message' being authenticated -}-    -> T.Text-    {- ^ /@username@/: the username from /@msg@/ -}-    -> Ptr ()-    {- ^ /@userData@/: the data passed to-'GI.Soup.Objects.AuthDomain.authDomainSetGenericAuthCallback' -}-    -> IO Bool-    {- ^ __Returns:__ 'True' if /@msg@/ is authenticated, 'False' if not. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `AuthDomainGenericAuthCallback_WithClosures`@.-noAuthDomainGenericAuthCallback_WithClosures :: Maybe AuthDomainGenericAuthCallback_WithClosures-noAuthDomainGenericAuthCallback_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_AuthDomainGenericAuthCallback :: AuthDomainGenericAuthCallback -> AuthDomainGenericAuthCallback_WithClosures-drop_closures_AuthDomainGenericAuthCallback _f domain msg username _ = _f domain msg username---- | Wrap the callback into a `GClosure`.-genClosure_AuthDomainGenericAuthCallback :: MonadIO m => AuthDomainGenericAuthCallback -> m (GClosure C_AuthDomainGenericAuthCallback)-genClosure_AuthDomainGenericAuthCallback cb = liftIO $ do-    let cb' = drop_closures_AuthDomainGenericAuthCallback cb-    let cb'' = wrap_AuthDomainGenericAuthCallback Nothing cb'-    mk_AuthDomainGenericAuthCallback cb'' >>= B.GClosure.newGClosure----- | Wrap a `AuthDomainGenericAuthCallback` into a `C_AuthDomainGenericAuthCallback`.-wrap_AuthDomainGenericAuthCallback ::-    Maybe (Ptr (FunPtr C_AuthDomainGenericAuthCallback)) ->-    AuthDomainGenericAuthCallback_WithClosures ->-    C_AuthDomainGenericAuthCallback-wrap_AuthDomainGenericAuthCallback funptrptr _cb domain msg username userData = do-    domain' <- (newObject Soup.AuthDomain.AuthDomain) domain-    msg' <- (newObject Soup.Message.Message) msg-    username' <- cstringToText username-    result <- _cb  domain' msg' username' userData-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'----- callback AuthDomainFilter---          -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "%TRUE if @msg requires authentication, %FALSE if not.", sinceVersion = Nothing}, args = [Arg {argCName = "domain", argType = TInterface (Name {namespace = "Soup", name = "AuthDomain"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAuthDomain", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data passed to soup_auth_domain_set_filter()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "The prototype for a #SoupAuthDomain filter; see\nsoup_auth_domain_set_filter() for details.", sinceVersion = Nothing}}--- | Type for the callback on the (unwrapped) C side.-type C_AuthDomainFilter =-    Ptr Soup.AuthDomain.AuthDomain ->-    Ptr Soup.Message.Message ->-    Ptr () ->-    IO CInt---- Args : [Arg {argCName = "domain", argType = TInterface (Name {namespace = "Soup", name = "AuthDomain"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAuthDomain", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data passed to soup_auth_domain_set_filter()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_AuthDomainFilter :: FunPtr C_AuthDomainFilter -> C_AuthDomainFilter---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_AuthDomainFilter ::-    (B.CallStack.HasCallStack, MonadIO m, Soup.AuthDomain.IsAuthDomain a, Soup.Message.IsMessage b) =>-    FunPtr C_AuthDomainFilter-    -> a-    {- ^ /@domain@/: a 'GI.Soup.Objects.AuthDomain.AuthDomain' -}-    -> b-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> Ptr ()-    {- ^ /@userData@/: the data passed to 'GI.Soup.Objects.AuthDomain.authDomainSetFilter' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@msg@/ requires authentication, 'False' if not. -}-dynamic_AuthDomainFilter __funPtr domain msg userData = liftIO $ do-    domain' <- unsafeManagedPtrCastPtr domain-    msg' <- unsafeManagedPtrCastPtr msg-    result <- (__dynamic_C_AuthDomainFilter __funPtr) domain' msg' userData-    let result' = (/= 0) result-    touchManagedPtr domain-    touchManagedPtr msg-    return result'---- | Generate a function pointer callable from C code, from a `C_AuthDomainFilter`.-foreign import ccall "wrapper"-    mk_AuthDomainFilter :: C_AuthDomainFilter -> IO (FunPtr C_AuthDomainFilter)--{- |-The prototype for a 'GI.Soup.Objects.AuthDomain.AuthDomain' filter; see-'GI.Soup.Objects.AuthDomain.authDomainSetFilter' for details.--}-type AuthDomainFilter =-    Soup.AuthDomain.AuthDomain-    {- ^ /@domain@/: a 'GI.Soup.Objects.AuthDomain.AuthDomain' -}-    -> Soup.Message.Message-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> IO Bool-    {- ^ __Returns:__ 'True' if /@msg@/ requires authentication, 'False' if not. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `AuthDomainFilter`@.-noAuthDomainFilter :: Maybe AuthDomainFilter-noAuthDomainFilter = Nothing--{- |-The prototype for a 'GI.Soup.Objects.AuthDomain.AuthDomain' filter; see-'GI.Soup.Objects.AuthDomain.authDomainSetFilter' for details.--}-type AuthDomainFilter_WithClosures =-    Soup.AuthDomain.AuthDomain-    {- ^ /@domain@/: a 'GI.Soup.Objects.AuthDomain.AuthDomain' -}-    -> Soup.Message.Message-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> Ptr ()-    {- ^ /@userData@/: the data passed to 'GI.Soup.Objects.AuthDomain.authDomainSetFilter' -}-    -> IO Bool-    {- ^ __Returns:__ 'True' if /@msg@/ requires authentication, 'False' if not. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `AuthDomainFilter_WithClosures`@.-noAuthDomainFilter_WithClosures :: Maybe AuthDomainFilter_WithClosures-noAuthDomainFilter_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_AuthDomainFilter :: AuthDomainFilter -> AuthDomainFilter_WithClosures-drop_closures_AuthDomainFilter _f domain msg _ = _f domain msg---- | Wrap the callback into a `GClosure`.-genClosure_AuthDomainFilter :: MonadIO m => AuthDomainFilter -> m (GClosure C_AuthDomainFilter)-genClosure_AuthDomainFilter cb = liftIO $ do-    let cb' = drop_closures_AuthDomainFilter cb-    let cb'' = wrap_AuthDomainFilter Nothing cb'-    mk_AuthDomainFilter cb'' >>= B.GClosure.newGClosure----- | Wrap a `AuthDomainFilter` into a `C_AuthDomainFilter`.-wrap_AuthDomainFilter ::-    Maybe (Ptr (FunPtr C_AuthDomainFilter)) ->-    AuthDomainFilter_WithClosures ->-    C_AuthDomainFilter-wrap_AuthDomainFilter funptrptr _cb domain msg userData = do-    domain' <- (newObject Soup.AuthDomain.AuthDomain) domain-    msg' <- (newObject Soup.Message.Message) msg-    result <- _cb  domain' msg' userData-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'----- callback AuthDomainDigestAuthCallback---          -> Callable {returnType = Just (TBasicType TUTF8), returnMayBeNull = True, returnTransfer = TransferEverything, returnDocumentation = Documentation {rawDocText = Just "the encoded password, or %NULL if\n@username is not a valid user. @domain will free the password when\nit is done with it.", sinceVersion = Nothing}, args = [Arg {argCName = "domain", argType = TInterface (Name {namespace = "Soup", name = "AuthDomainDigest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the domain", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the message being authenticated", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the username provided by the client", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data passed to soup_auth_domain_digest_set_auth_callback()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "Callback used by #SoupAuthDomainDigest for authentication purposes.\nThe application should look up @username in its password database,\nand return the corresponding encoded password (see\nsoup_auth_domain_digest_encode_password()).", sinceVersion = Nothing}}--- | Type for the callback on the (unwrapped) C side.-type C_AuthDomainDigestAuthCallback =-    Ptr Soup.AuthDomainDigest.AuthDomainDigest ->-    Ptr Soup.Message.Message ->-    CString ->-    Ptr () ->-    IO CString---- Args : [Arg {argCName = "domain", argType = TInterface (Name {namespace = "Soup", name = "AuthDomainDigest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the domain", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the message being authenticated", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the username provided by the client", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data passed to soup_auth_domain_digest_set_auth_callback()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_AuthDomainDigestAuthCallback :: FunPtr C_AuthDomainDigestAuthCallback -> C_AuthDomainDigestAuthCallback---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_AuthDomainDigestAuthCallback ::-    (B.CallStack.HasCallStack, MonadIO m, Soup.AuthDomainDigest.IsAuthDomainDigest a, Soup.Message.IsMessage b) =>-    FunPtr C_AuthDomainDigestAuthCallback-    -> a-    {- ^ /@domain@/: the domain -}-    -> b-    {- ^ /@msg@/: the message being authenticated -}-    -> T.Text-    {- ^ /@username@/: the username provided by the client -}-    -> Ptr ()-    {- ^ /@userData@/: the data passed to 'GI.Soup.Objects.AuthDomainDigest.authDomainDigestSetAuthCallback' -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ the encoded password, or 'Nothing' if-/@username@/ is not a valid user. /@domain@/ will free the password when-it is done with it. -}-dynamic_AuthDomainDigestAuthCallback __funPtr domain msg username userData = liftIO $ do-    domain' <- unsafeManagedPtrCastPtr domain-    msg' <- unsafeManagedPtrCastPtr msg-    username' <- textToCString username-    result <- (__dynamic_C_AuthDomainDigestAuthCallback __funPtr) domain' msg' username' userData-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        freeMem result'-        return result''-    touchManagedPtr domain-    touchManagedPtr msg-    freeMem username'-    return maybeResult---- | Generate a function pointer callable from C code, from a `C_AuthDomainDigestAuthCallback`.-foreign import ccall "wrapper"-    mk_AuthDomainDigestAuthCallback :: C_AuthDomainDigestAuthCallback -> IO (FunPtr C_AuthDomainDigestAuthCallback)--{- |-Callback used by 'GI.Soup.Objects.AuthDomainDigest.AuthDomainDigest' for authentication purposes.-The application should look up /@username@/ in its password database,-and return the corresponding encoded password (see-'GI.Soup.Objects.AuthDomainDigest.authDomainDigestEncodePassword').--}-type AuthDomainDigestAuthCallback =-    Soup.AuthDomainDigest.AuthDomainDigest-    {- ^ /@domain@/: the domain -}-    -> Soup.Message.Message-    {- ^ /@msg@/: the message being authenticated -}-    -> T.Text-    {- ^ /@username@/: the username provided by the client -}-    -> IO (Maybe T.Text)-    {- ^ __Returns:__ the encoded password, or 'Nothing' if-/@username@/ is not a valid user. /@domain@/ will free the password when-it is done with it. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `AuthDomainDigestAuthCallback`@.-noAuthDomainDigestAuthCallback :: Maybe AuthDomainDigestAuthCallback-noAuthDomainDigestAuthCallback = Nothing--{- |-Callback used by 'GI.Soup.Objects.AuthDomainDigest.AuthDomainDigest' for authentication purposes.-The application should look up /@username@/ in its password database,-and return the corresponding encoded password (see-'GI.Soup.Objects.AuthDomainDigest.authDomainDigestEncodePassword').--}-type AuthDomainDigestAuthCallback_WithClosures =-    Soup.AuthDomainDigest.AuthDomainDigest-    {- ^ /@domain@/: the domain -}-    -> Soup.Message.Message-    {- ^ /@msg@/: the message being authenticated -}-    -> T.Text-    {- ^ /@username@/: the username provided by the client -}-    -> Ptr ()-    {- ^ /@userData@/: the data passed to 'GI.Soup.Objects.AuthDomainDigest.authDomainDigestSetAuthCallback' -}-    -> IO (Maybe T.Text)-    {- ^ __Returns:__ the encoded password, or 'Nothing' if-/@username@/ is not a valid user. /@domain@/ will free the password when-it is done with it. -}---- | A convenience synonym for @`Nothing` :: `Maybe` `AuthDomainDigestAuthCallback_WithClosures`@.-noAuthDomainDigestAuthCallback_WithClosures :: Maybe AuthDomainDigestAuthCallback_WithClosures-noAuthDomainDigestAuthCallback_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_AuthDomainDigestAuthCallback :: AuthDomainDigestAuthCallback -> AuthDomainDigestAuthCallback_WithClosures-drop_closures_AuthDomainDigestAuthCallback _f domain msg username _ = _f domain msg username---- | Wrap the callback into a `GClosure`.-genClosure_AuthDomainDigestAuthCallback :: MonadIO m => AuthDomainDigestAuthCallback -> m (GClosure C_AuthDomainDigestAuthCallback)-genClosure_AuthDomainDigestAuthCallback cb = liftIO $ do-    let cb' = drop_closures_AuthDomainDigestAuthCallback cb-    let cb'' = wrap_AuthDomainDigestAuthCallback Nothing cb'-    mk_AuthDomainDigestAuthCallback cb'' >>= B.GClosure.newGClosure----- | Wrap a `AuthDomainDigestAuthCallback` into a `C_AuthDomainDigestAuthCallback`.-wrap_AuthDomainDigestAuthCallback ::-    Maybe (Ptr (FunPtr C_AuthDomainDigestAuthCallback)) ->-    AuthDomainDigestAuthCallback_WithClosures ->-    C_AuthDomainDigestAuthCallback-wrap_AuthDomainDigestAuthCallback funptrptr _cb domain msg username userData = do-    domain' <- (newObject Soup.AuthDomainDigest.AuthDomainDigest) domain-    msg' <- (newObject Soup.Message.Message) msg-    username' <- cstringToText username-    result <- _cb  domain' msg' username' userData-    maybeReleaseFunPtr funptrptr-    maybeM nullPtr result $ \result' -> do-        result'' <- textToCString result'-        return result''----- callback AuthDomainBasicAuthCallback---          -> Callable {returnType = Just (TBasicType TBoolean), returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Just "%TRUE if @username and @password are valid", sinceVersion = Nothing}, args = [Arg {argCName = "domain", argType = TInterface (Name {namespace = "Soup", name = "AuthDomainBasic"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the domain", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the message being authenticated", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the username provided by the client", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the password provided by the client", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data passed to soup_auth_domain_basic_set_auth_callback()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "Callback used by #SoupAuthDomainBasic for authentication purposes.\nThe application should verify that @username and @password and valid\nand return %TRUE or %FALSE.\n\nIf you are maintaining your own password database (rather than\nusing the password to authenticate against some other system like\nPAM or a remote server), you should make sure you know what you are\ndoing. In particular, don't store cleartext passwords, or\neasily-computed hashes of cleartext passwords, even if you don't\ncare that much about the security of your server, because users\nwill frequently use the same password for multiple sites, and so\ncompromising any site with a cleartext (or easily-cracked) password\ndatabase may give attackers access to other more-interesting sites\nas well.", sinceVersion = Nothing}}--- | Type for the callback on the (unwrapped) C side.-type C_AuthDomainBasicAuthCallback =-    Ptr Soup.AuthDomainBasic.AuthDomainBasic ->-    Ptr Soup.Message.Message ->-    CString ->-    CString ->-    Ptr () ->-    IO CInt---- Args : [Arg {argCName = "domain", argType = TInterface (Name {namespace = "Soup", name = "AuthDomainBasic"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the domain", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the message being authenticated", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the username provided by the client", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the password provided by the client", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the data passed to soup_auth_domain_basic_set_auth_callback()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_AuthDomainBasicAuthCallback :: FunPtr C_AuthDomainBasicAuthCallback -> C_AuthDomainBasicAuthCallback---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_AuthDomainBasicAuthCallback ::-    (B.CallStack.HasCallStack, MonadIO m, Soup.AuthDomainBasic.IsAuthDomainBasic a, Soup.Message.IsMessage b) =>-    FunPtr C_AuthDomainBasicAuthCallback-    -> a-    {- ^ /@domain@/: the domain -}-    -> b-    {- ^ /@msg@/: the message being authenticated -}-    -> T.Text-    {- ^ /@username@/: the username provided by the client -}-    -> T.Text-    {- ^ /@password@/: the password provided by the client -}-    -> Ptr ()-    {- ^ /@userData@/: the data passed to 'GI.Soup.Objects.AuthDomainBasic.authDomainBasicSetAuthCallback' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@username@/ and /@password@/ are valid -}-dynamic_AuthDomainBasicAuthCallback __funPtr domain msg username password userData = liftIO $ do-    domain' <- unsafeManagedPtrCastPtr domain-    msg' <- unsafeManagedPtrCastPtr msg-    username' <- textToCString username-    password' <- textToCString password-    result <- (__dynamic_C_AuthDomainBasicAuthCallback __funPtr) domain' msg' username' password' userData-    let result' = (/= 0) result-    touchManagedPtr domain-    touchManagedPtr msg-    freeMem username'-    freeMem password'-    return result'---- | Generate a function pointer callable from C code, from a `C_AuthDomainBasicAuthCallback`.-foreign import ccall "wrapper"-    mk_AuthDomainBasicAuthCallback :: C_AuthDomainBasicAuthCallback -> IO (FunPtr C_AuthDomainBasicAuthCallback)--{- |-Callback used by 'GI.Soup.Objects.AuthDomainBasic.AuthDomainBasic' for authentication purposes.-The application should verify that /@username@/ and /@password@/ and valid-and return 'True' or 'False'.--If you are maintaining your own password database (rather than-using the password to authenticate against some other system like-PAM or a remote server), you should make sure you know what you are-doing. In particular, don\'t store cleartext passwords, or-easily-computed hashes of cleartext passwords, even if you don\'t-care that much about the security of your server, because users-will frequently use the same password for multiple sites, and so-compromising any site with a cleartext (or easily-cracked) password-database may give attackers access to other more-interesting sites-as well.--}-type AuthDomainBasicAuthCallback =-    Soup.AuthDomainBasic.AuthDomainBasic-    {- ^ /@domain@/: the domain -}-    -> Soup.Message.Message-    {- ^ /@msg@/: the message being authenticated -}-    -> T.Text-    {- ^ /@username@/: the username provided by the client -}-    -> T.Text-    {- ^ /@password@/: the password provided by the client -}-    -> IO Bool-    {- ^ __Returns:__ 'True' if /@username@/ and /@password@/ are valid -}---- | A convenience synonym for @`Nothing` :: `Maybe` `AuthDomainBasicAuthCallback`@.-noAuthDomainBasicAuthCallback :: Maybe AuthDomainBasicAuthCallback-noAuthDomainBasicAuthCallback = Nothing--{- |-Callback used by 'GI.Soup.Objects.AuthDomainBasic.AuthDomainBasic' for authentication purposes.-The application should verify that /@username@/ and /@password@/ and valid-and return 'True' or 'False'.--If you are maintaining your own password database (rather than-using the password to authenticate against some other system like-PAM or a remote server), you should make sure you know what you are-doing. In particular, don\'t store cleartext passwords, or-easily-computed hashes of cleartext passwords, even if you don\'t-care that much about the security of your server, because users-will frequently use the same password for multiple sites, and so-compromising any site with a cleartext (or easily-cracked) password-database may give attackers access to other more-interesting sites-as well.--}-type AuthDomainBasicAuthCallback_WithClosures =-    Soup.AuthDomainBasic.AuthDomainBasic-    {- ^ /@domain@/: the domain -}-    -> Soup.Message.Message-    {- ^ /@msg@/: the message being authenticated -}-    -> T.Text-    {- ^ /@username@/: the username provided by the client -}-    -> T.Text-    {- ^ /@password@/: the password provided by the client -}-    -> Ptr ()-    {- ^ /@userData@/: the data passed to 'GI.Soup.Objects.AuthDomainBasic.authDomainBasicSetAuthCallback' -}-    -> IO Bool-    {- ^ __Returns:__ 'True' if /@username@/ and /@password@/ are valid -}---- | A convenience synonym for @`Nothing` :: `Maybe` `AuthDomainBasicAuthCallback_WithClosures`@.-noAuthDomainBasicAuthCallback_WithClosures :: Maybe AuthDomainBasicAuthCallback_WithClosures-noAuthDomainBasicAuthCallback_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_AuthDomainBasicAuthCallback :: AuthDomainBasicAuthCallback -> AuthDomainBasicAuthCallback_WithClosures-drop_closures_AuthDomainBasicAuthCallback _f domain msg username password _ = _f domain msg username password---- | Wrap the callback into a `GClosure`.-genClosure_AuthDomainBasicAuthCallback :: MonadIO m => AuthDomainBasicAuthCallback -> m (GClosure C_AuthDomainBasicAuthCallback)-genClosure_AuthDomainBasicAuthCallback cb = liftIO $ do-    let cb' = drop_closures_AuthDomainBasicAuthCallback cb-    let cb'' = wrap_AuthDomainBasicAuthCallback Nothing cb'-    mk_AuthDomainBasicAuthCallback cb'' >>= B.GClosure.newGClosure----- | Wrap a `AuthDomainBasicAuthCallback` into a `C_AuthDomainBasicAuthCallback`.-wrap_AuthDomainBasicAuthCallback ::-    Maybe (Ptr (FunPtr C_AuthDomainBasicAuthCallback)) ->-    AuthDomainBasicAuthCallback_WithClosures ->-    C_AuthDomainBasicAuthCallback-wrap_AuthDomainBasicAuthCallback funptrptr _cb domain msg username password userData = do-    domain' <- (newObject Soup.AuthDomainBasic.AuthDomainBasic) domain-    msg' <- (newObject Soup.Message.Message) msg-    username' <- cstringToText username-    password' <- cstringToText password-    result <- _cb  domain' msg' username' password' userData-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'----- callback AddressCallback---          -> Callable {returnType = Nothing, returnMayBeNull = False, returnTransfer = TransferNothing, returnDocumentation = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, args = [Arg {argCName = "addr", argType = TInterface (Name {namespace = "Soup", name = "Address"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupAddress that was resolved", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "status", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%SOUP_STATUS_OK, %SOUP_STATUS_CANT_RESOLVE, or\n%SOUP_STATUS_CANCELLED", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the user data that was passed to\nsoup_address_resolve_async()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}], skipReturn = False, callableThrows = False, callableDeprecated = Nothing, callableDocumentation = Documentation {rawDocText = Just "The callback function passed to soup_address_resolve_async().", sinceVersion = Nothing}}--- | Type for the callback on the (unwrapped) C side.-type C_AddressCallback =-    Ptr Soup.Address.Address ->-    Word32 ->-    Ptr () ->-    IO ()---- Args : [Arg {argCName = "addr", argType = TInterface (Name {namespace = "Soup", name = "Address"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupAddress that was resolved", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "status", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%SOUP_STATUS_OK, %SOUP_STATUS_CANT_RESOLVE, or\n%SOUP_STATUS_CANCELLED", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the user data that was passed to\nsoup_address_resolve_async()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "dynamic" __dynamic_C_AddressCallback :: FunPtr C_AddressCallback -> C_AddressCallback---- | Given a pointer to a foreign C function, wrap it into a function callable from Haskell.-dynamic_AddressCallback ::-    (B.CallStack.HasCallStack, MonadIO m, Soup.Address.IsAddress a) =>-    FunPtr C_AddressCallback-    -> a-    {- ^ /@addr@/: the 'GI.Soup.Objects.Address.Address' that was resolved -}-    -> Word32-    {- ^ /@status@/: 'GI.Soup.Enums.StatusOk', 'GI.Soup.Enums.StatusCantResolve', or-'GI.Soup.Enums.StatusCancelled' -}-    -> Ptr ()-    {- ^ /@userData@/: the user data that was passed to-'GI.Soup.Objects.Address.addressResolveAsync' -}-    -> m ()-dynamic_AddressCallback __funPtr addr status userData = liftIO $ do-    addr' <- unsafeManagedPtrCastPtr addr-    (__dynamic_C_AddressCallback __funPtr) addr' status userData-    touchManagedPtr addr-    return ()---- | Generate a function pointer callable from C code, from a `C_AddressCallback`.-foreign import ccall "wrapper"-    mk_AddressCallback :: C_AddressCallback -> IO (FunPtr C_AddressCallback)--{- |-The callback function passed to 'GI.Soup.Objects.Address.addressResolveAsync'.--}-type AddressCallback =-    Soup.Address.Address-    {- ^ /@addr@/: the 'GI.Soup.Objects.Address.Address' that was resolved -}-    -> Word32-    {- ^ /@status@/: 'GI.Soup.Enums.StatusOk', 'GI.Soup.Enums.StatusCantResolve', or-'GI.Soup.Enums.StatusCancelled' -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `AddressCallback`@.-noAddressCallback :: Maybe AddressCallback-noAddressCallback = Nothing--{- |-The callback function passed to 'GI.Soup.Objects.Address.addressResolveAsync'.--}-type AddressCallback_WithClosures =-    Soup.Address.Address-    {- ^ /@addr@/: the 'GI.Soup.Objects.Address.Address' that was resolved -}-    -> Word32-    {- ^ /@status@/: 'GI.Soup.Enums.StatusOk', 'GI.Soup.Enums.StatusCantResolve', or-'GI.Soup.Enums.StatusCancelled' -}-    -> Ptr ()-    {- ^ /@userData@/: the user data that was passed to-'GI.Soup.Objects.Address.addressResolveAsync' -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `AddressCallback_WithClosures`@.-noAddressCallback_WithClosures :: Maybe AddressCallback_WithClosures-noAddressCallback_WithClosures = Nothing---- | A simple wrapper that ignores the closure arguments.-drop_closures_AddressCallback :: AddressCallback -> AddressCallback_WithClosures-drop_closures_AddressCallback _f addr status _ = _f addr status---- | Wrap the callback into a `GClosure`.-genClosure_AddressCallback :: MonadIO m => AddressCallback -> m (GClosure C_AddressCallback)-genClosure_AddressCallback cb = liftIO $ do-    let cb' = drop_closures_AddressCallback cb-    let cb'' = wrap_AddressCallback Nothing cb'-    mk_AddressCallback cb'' >>= B.GClosure.newGClosure----- | Wrap a `AddressCallback` into a `C_AddressCallback`.-wrap_AddressCallback ::-    Maybe (Ptr (FunPtr C_AddressCallback)) ->-    AddressCallback_WithClosures ->-    C_AddressCallback-wrap_AddressCallback funptrptr _cb addr status userData = do-    addr' <- (newObject Soup.Address.Address) addr-    _cb  addr' status userData-    maybeReleaseFunPtr funptrptr---
− GI/Soup/Constants.hs 
@@ -1,849 +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 (inaki@blueleaf.cc)--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Constants-    ( -    pattern VERSION_MIN_REQUIRED            ,-    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_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_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_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_ASYNC_CONTEXT            ,-    pattern REQUEST_URI                     ,-    pattern REQUEST_SESSION                 ,-    pattern MINOR_VERSION                   ,-    pattern MICRO_VERSION                   ,-    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_FLAGS                   ,-    pattern MESSAGE_FIRST_PARTY             ,-    pattern MAJOR_VERSION                   ,-    pattern LOGGER_MAX_BODY_SIZE            ,-    pattern LOGGER_LEVEL                    ,-    pattern FORM_MIME_TYPE_URLENCODED       ,-    pattern FORM_MIME_TYPE_MULTIPART        ,-    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_FILENAME        ,-    pattern COOKIE_JAR_READ_ONLY            ,-    pattern COOKIE_JAR_DB_FILENAME          ,-    pattern COOKIE_JAR_ACCEPT_POLICY        ,-    pattern CHAR_URI_SUB_DELIMS             ,-    pattern CHAR_URI_PERCENT_ENCODED        ,-    pattern CHAR_URI_GEN_DELIMS             ,-    pattern CHAR_HTTP_SEPARATOR             ,-    pattern CHAR_HTTP_CTL                   ,-    pattern AUTH_SCHEME_NAME                ,-    pattern AUTH_REALM                      ,-    pattern AUTH_IS_FOR_PROXY               ,-    pattern AUTH_IS_AUTHENTICATED           ,-    pattern AUTH_HOST                       ,-    pattern AUTH_DOMAIN_REMOVE_PATH         ,-    pattern AUTH_DOMAIN_REALM               ,-    pattern AUTH_DOMAIN_PROXY               ,-    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_AUTH_DATA    ,-    pattern AUTH_DOMAIN_DIGEST_AUTH_CALLBACK,-    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.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL---{- |-A macro that should be defined by the user prior to including-libsoup.h. The definition should be one of the predefined libsoup-version macros: @/SOUP_VERSION_2_24/@, @/SOUP_VERSION_2_26/@, ...--This macro defines the earliest version of libsoup that the package-is required to be able to compile against.--If the compiler is configured to warn about the use of deprecated-functions, then using functions that were deprecated in version-'GI.Soup.Constants.VERSION_MIN_REQUIRED' or earlier will cause warnings (but-using functions deprecated in later releases will not).--/Since: 2.42/--}-pattern VERSION_MIN_REQUIRED = 2 :: Int32--{- |-Alias for the 'GI.Soup.Objects.Socket.Socket':@/use-thread-context/@ property. (Use-'GI.GLib.Functions.mainContextGetThreadDefault')--/Since: 2.38/--}-pattern SOCKET_USE_THREAD_CONTEXT = "use-thread-context" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Socket.Socket':@/trusted-certificate/@-property.--}-pattern SOCKET_TRUSTED_CERTIFICATE = "trusted-certificate" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Socket.Socket':@/tls-errors/@-property. Note that this property\'s value is only useful-if the socket is for a TLS connection, and only reliable-after some data has been transferred to or from it.--/Since: 2.34/--}-pattern SOCKET_TLS_ERRORS = "tls-errors" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Socket.Socket':@/tls-certificate/@-property. Note that this property\'s value is only useful-if the socket is for a TLS connection, and only reliable-after some data has been transferred to or from it.--/Since: 2.34/--}-pattern SOCKET_TLS_CERTIFICATE = "tls-certificate" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Socket.Socket':@/timeout/@ property. (The timeout-in seconds for blocking socket I\/O operations.)--}-pattern SOCKET_TIMEOUT = "timeout" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Socket.Socket':@/ssl-strict/@ property.--}-pattern SOCKET_SSL_STRICT = "ssl-strict" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Socket.Socket':@/ssl-fallback/@ property.--}-pattern SOCKET_SSL_FALLBACK = "ssl-fallback" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Socket.Socket':@/ssl-creds/@ property.-(SSL credential information.)--}-pattern SOCKET_SSL_CREDENTIALS = "ssl-creds" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Socket.Socket':@/remote-address/@ property. (Address-of remote end of socket.)--}-pattern SOCKET_REMOTE_ADDRESS = "remote-address" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Socket.Socket':@/local-address/@ property. (Address-of local end of socket.)--}-pattern SOCKET_LOCAL_ADDRESS = "local-address" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Socket.Socket':@/is-server/@ property, qv.--}-pattern SOCKET_IS_SERVER = "is-server" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Socket.Socket':@/non-blocking/@ property. (Whether-or not the socket uses non-blocking I\/O.)--}-pattern SOCKET_FLAG_NONBLOCKING = "non-blocking" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Socket.Socket':@/async-context/@ property. (The-socket\'s 'GI.GLib.Structs.MainContext.MainContext'.)--}-pattern SOCKET_ASYNC_CONTEXT = "async-context" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Session.Session':@/use-thread-context/@ property, qv.--/Since: 2.38/--}-pattern SESSION_USE_THREAD_CONTEXT = "use-thread-context" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Session.Session':@/use-ntlm/@ property, qv.--}-pattern SESSION_USE_NTLM = "use-ntlm" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Session.Session':@/user-agent/@ property, qv.--}-pattern SESSION_USER_AGENT = "user-agent" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Session.Session':@/tls-interaction/@ property, qv.--/Since: 2.48/--}-pattern SESSION_TLS_INTERACTION = "tls-interaction" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Session.Session':@/tls-database/@ property, qv.--/Since: 2.38/--}-pattern SESSION_TLS_DATABASE = "tls-database" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Session.Session':@/timeout/@ property, qv.--}-pattern SESSION_TIMEOUT = "timeout" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Session.Session':@/ssl-use-system-ca-file/@ property,-qv.--/Since: 2.38/--}-pattern SESSION_SSL_USE_SYSTEM_CA_FILE = "ssl-use-system-ca-file" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Session.Session':@/ssl-strict/@ property, qv.--/Since: 2.30/--}-pattern SESSION_SSL_STRICT = "ssl-strict" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Session.Session':@/ssl-ca-file/@ property, qv.--}-pattern SESSION_SSL_CA_FILE = "ssl-ca-file" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Session.Session':@/proxy-uri/@ property, qv.--}-pattern SESSION_PROXY_URI = "proxy-uri" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Session.Session':@/proxy-resolver/@ property, qv.--}-pattern SESSION_PROXY_RESOLVER = "proxy-resolver" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Session.Session':@/max-conns-per-host/@ property, qv.--}-pattern SESSION_MAX_CONNS_PER_HOST = "max-conns-per-host" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Session.Session':@/max-conns/@ property, qv.--}-pattern SESSION_MAX_CONNS = "max-conns" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Session.Session':@/local-address/@ property, qv.--/Since: 2.42/--}-pattern SESSION_LOCAL_ADDRESS = "local-address" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Session.Session':@/idle-timeout/@ property, qv.--/Since: 2.24/--}-pattern SESSION_IDLE_TIMEOUT = "idle-timeout" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Session.Session':@/http-aliases/@ property, qv.--/Since: 2.38/--}-pattern SESSION_HTTP_ALIASES = "http-aliases" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Session.Session':@/https-aliases/@ property, qv.--/Since: 2.38/--}-pattern SESSION_HTTPS_ALIASES = "https-aliases" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Session.Session':@/async-context/@ property, qv.--}-pattern SESSION_ASYNC_CONTEXT = "async-context" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Session.Session':@/accept-language-auto/@ property, qv.--/Since: 2.30/--}-pattern SESSION_ACCEPT_LANGUAGE_AUTO = "accept-language-auto" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Session.Session':@/accept-language/@ property, qv.--/Since: 2.30/--}-pattern SESSION_ACCEPT_LANGUAGE = "accept-language" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Server.Server':@/tls-certificate/@ property, qv.--/Since: 2.38/--}-pattern SERVER_TLS_CERTIFICATE = "tls-certificate" :: T.Text--{-# DEPRECATED SERVER_SSL_KEY_FILE ["use 'GI.Soup.Objects.Server.Server':@/tls-certificate/@ or","@/soup_server_set_ssl_certificate()/@."] #-}-{- |-Alias for the 'GI.Soup.Objects.Server.Server':@/ssl-key-file/@ property, qv.--}-pattern SERVER_SSL_KEY_FILE = "ssl-key-file" :: T.Text--{-# DEPRECATED SERVER_SSL_CERT_FILE ["use 'GI.Soup.Objects.Server.Server':@/tls-certificate/@ or","@/soup_server_set_ssl_certificate()/@."] #-}-{- |-Alias for the 'GI.Soup.Objects.Server.Server':@/ssl-cert-file/@ property, qv.--}-pattern SERVER_SSL_CERT_FILE = "ssl-cert-file" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Server.Server':@/server-header/@ property, qv.--}-pattern SERVER_SERVER_HEADER = "server-header" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Server.Server':@/raw-paths/@ property. (If 'True',-percent-encoding in the Request-URI path will not be-automatically decoded.)--}-pattern SERVER_RAW_PATHS = "raw-paths" :: T.Text--{-# DEPRECATED SERVER_PORT ["@/SoupServers/@ can listen on multiple interfaces","at once now. Use 'GI.Soup.Objects.Server.serverListen', etc, to listen on a","port, and 'GI.Soup.Objects.Server.serverGetUris' to see what ports are","being listened on."] #-}-{- |-Alias for the deprecated 'GI.Soup.Objects.Server.Server':@/port/@ property, qv.--}-pattern SERVER_PORT = "port" :: T.Text--{-# DEPRECATED SERVER_INTERFACE ["@/SoupServers/@ can listen on multiple interfaces","at once now. Use 'GI.Soup.Objects.Server.serverListen', etc, to listen on an","interface, and 'GI.Soup.Objects.Server.serverGetUris' to see what addresses","are being listened on."] #-}-{- |-Alias for the 'GI.Soup.Objects.Server.Server':@/interface/@ property, qv.--}-pattern SERVER_INTERFACE = "interface" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Server.Server':@/http-aliases/@ property, qv.--/Since: 2.44/--}-pattern SERVER_HTTP_ALIASES = "http-aliases" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Server.Server':@/https-aliases/@ property, qv.--/Since: 2.44/--}-pattern SERVER_HTTPS_ALIASES = "https-aliases" :: T.Text--{-# DEPRECATED SERVER_ASYNC_CONTEXT ["The new API uses the thread-default 'GI.GLib.Structs.MainContext.MainContext'","rather than having an explicitly-specified one."] #-}-{- |-Alias for the deprecated 'GI.Soup.Objects.Server.Server':@/async-context/@-property, qv.--}-pattern SERVER_ASYNC_CONTEXT = "async-context" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Request.Request':@/uri/@ property, qv.--/Since: 2.42/--}-pattern REQUEST_URI = "uri" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Request.Request':@/session/@ property, qv.--/Since: 2.42/--}-pattern REQUEST_SESSION = "session" :: T.Text--{- |-Like 'GI.Soup.Functions.getMinorVersion', but from the headers used at-application compile time, rather than from the library linked-against at application run time.--/Since: 2.42/--}-pattern MINOR_VERSION = 66 :: Int32--{- |-Like 'GI.Soup.Functions.getMicroVersion', but from the headers used at-application compile time, rather than from the library linked-against at application run time.--/Since: 2.42/--}-pattern MICRO_VERSION = 2 :: Int32--{- |-Alias for the 'GI.Soup.Objects.Message.Message':@/uri/@ property. (The message\'s-'GI.Soup.Structs.URI.URI'.)--}-pattern MESSAGE_URI = "uri" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Message.Message':@/tls-errors/@ property. (The-verification errors on 'GI.Soup.Objects.Message.Message':@/tls-certificate/@.)--/Since: 2.34/--}-pattern MESSAGE_TLS_ERRORS = "tls-errors" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Message.Message':@/tls-certificate/@ property. (The-TLS certificate associated with the message, if any.)--/Since: 2.34/--}-pattern MESSAGE_TLS_CERTIFICATE = "tls-certificate" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Message.Message':@/status-code/@ property. (The-message\'s HTTP response status code.)--}-pattern MESSAGE_STATUS_CODE = "status-code" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Message.Message':@/server-side/@ property. ('True' if-the message was created by 'GI.Soup.Objects.Server.Server'.)--}-pattern MESSAGE_SERVER_SIDE = "server-side" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Message.Message':@/response-headers/@ property. (The-message\'s HTTP response headers.)--}-pattern MESSAGE_RESPONSE_HEADERS = "response-headers" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Message.Message':@/response-body-data/@ property. (The-message\'s HTTP response body, as a 'GI.GLib.Structs.Bytes.Bytes'.)--/Since: 2.46/--}-pattern MESSAGE_RESPONSE_BODY_DATA = "response-body-data" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Message.Message':@/response-body/@ property. (The-message\'s HTTP response body.)--}-pattern MESSAGE_RESPONSE_BODY = "response-body" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Message.Message':@/request-headers/@ property. (The-message\'s HTTP request headers.)--}-pattern MESSAGE_REQUEST_HEADERS = "request-headers" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Message.Message':@/request-body-data/@ property. (The-message\'s HTTP request body, as a 'GI.GLib.Structs.Bytes.Bytes'.)--/Since: 2.46/--}-pattern MESSAGE_REQUEST_BODY_DATA = "request-body-data" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Message.Message':@/request-body/@ property. (The-message\'s HTTP request body.)--}-pattern MESSAGE_REQUEST_BODY = "request-body" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Message.Message':@/reason-phrase/@ property. (The-message\'s HTTP response reason phrase.)--}-pattern MESSAGE_REASON_PHRASE = "reason-phrase" :: T.Text--{- |-Sets the priority of the 'GI.Soup.Objects.Message.Message'. See-'GI.Soup.Objects.Message.messageSetPriority' for further details.--/Since: 2.44/--}-pattern MESSAGE_PRIORITY = "priority" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Message.Message':@/method/@ property. (The message\'s-HTTP method.)--}-pattern MESSAGE_METHOD = "method" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Message.Message':@/http-version/@ property. (The-message\'s 'GI.Soup.Enums.HTTPVersion'.)--}-pattern MESSAGE_HTTP_VERSION = "http-version" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Message.Message':@/flags/@ property. (The message\'s-'GI.Soup.Flags.MessageFlags'.)--}-pattern MESSAGE_FLAGS = "flags" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Message.Message':@/first-party/@ property. (The-'GI.Soup.Structs.URI.URI' loaded in the application when the message was-queued.)--/Since: 2.30/--}-pattern MESSAGE_FIRST_PARTY = "first-party" :: T.Text--{- |-Like 'GI.Soup.Functions.getMajorVersion', but from the headers used at-application compile time, rather than from the library linked-against at application run time.--/Since: 2.42/--}-pattern MAJOR_VERSION = 2 :: Int32--{- |-Alias for the 'GI.Soup.Objects.Logger.Logger':@/max-body-size/@ property, qv.--/Since: 2.56/--}-pattern LOGGER_MAX_BODY_SIZE = "max-body-size" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Logger.Logger':@/level/@ property, qv.--/Since: 2.56/--}-pattern LOGGER_LEVEL = "level" :: T.Text--{- |-A macro containing the value-\<literal>\"application\/x-www-form-urlencoded\"\<\/literal>; the default-MIME type for POSTing HTML form data.--/Since: 2.26/--}-pattern FORM_MIME_TYPE_URLENCODED = "application/x-www-form-urlencoded" :: T.Text--{- |-A macro containing the value-\<literal>\"multipart\/form-data\"\<\/literal>; the MIME type used for-posting form data that contains files to be uploaded.--/Since: 2.26/--}-pattern FORM_MIME_TYPE_MULTIPART = "multipart/form-data" :: T.Text--{- |-A constant corresponding to 1 year, for use with 'GI.Soup.Structs.Cookie.cookieNew'-and 'GI.Soup.Structs.Cookie.cookieSetMaxAge'.--/Since: 2.24/--}-pattern COOKIE_MAX_AGE_ONE_YEAR = 0 :: Int32--{- |-A constant corresponding to 1 week, for use with 'GI.Soup.Structs.Cookie.cookieNew'-and 'GI.Soup.Structs.Cookie.cookieSetMaxAge'.--/Since: 2.24/--}-pattern COOKIE_MAX_AGE_ONE_WEEK = 0 :: Int32--{- |-A constant corresponding to 1 hour, for use with 'GI.Soup.Structs.Cookie.cookieNew'-and 'GI.Soup.Structs.Cookie.cookieSetMaxAge'.--/Since: 2.24/--}-pattern COOKIE_MAX_AGE_ONE_HOUR = 3600 :: Int32--{- |-A constant corresponding to 1 day, for use with 'GI.Soup.Structs.Cookie.cookieNew'-and 'GI.Soup.Structs.Cookie.cookieSetMaxAge'.--/Since: 2.24/--}-pattern COOKIE_MAX_AGE_ONE_DAY = 0 :: Int32--{- |-Alias for the 'GI.Soup.Objects.CookieJarText.CookieJarText':@/filename/@ property. (The-cookie-storage filename.)--}-pattern COOKIE_JAR_TEXT_FILENAME = "filename" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.CookieJar.CookieJar':@/read-only/@ property. (Whether-or not the cookie jar is read-only.)--}-pattern COOKIE_JAR_READ_ONLY = "read-only" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.CookieJarDB.CookieJarDB':@/filename/@ property. (The-cookie-storage filename.)--}-pattern COOKIE_JAR_DB_FILENAME = "filename" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.CookieJar.CookieJar':@/accept-policy/@ property.--/Since: 2.30/--}-pattern COOKIE_JAR_ACCEPT_POLICY = "accept-policy" :: T.Text--{- |-/No description available in the introspection data./--}-pattern CHAR_URI_SUB_DELIMS = 4 :: Int32--{- |-/No description available in the introspection data./--}-pattern CHAR_URI_PERCENT_ENCODED = 1 :: Int32--{- |-/No description available in the introspection data./--}-pattern CHAR_URI_GEN_DELIMS = 2 :: Int32--{- |-/No description available in the introspection data./--}-pattern CHAR_HTTP_SEPARATOR = 8 :: Int32--{- |-/No description available in the introspection data./--}-pattern CHAR_HTTP_CTL = 16 :: Int32--{- |-An alias for the 'GI.Soup.Objects.Auth.Auth':@/scheme-name/@ property. (The-authentication scheme name.)--}-pattern AUTH_SCHEME_NAME = "scheme-name" :: T.Text--{- |-An alias for the 'GI.Soup.Objects.Auth.Auth':@/realm/@ property. (The-authentication realm.)--}-pattern AUTH_REALM = "realm" :: T.Text--{- |-An alias for the 'GI.Soup.Objects.Auth.Auth':@/is-for-proxy/@ property. (Whether-or not the auth is for a proxy server.)--}-pattern AUTH_IS_FOR_PROXY = "is-for-proxy" :: T.Text--{- |-An alias for the 'GI.Soup.Objects.Auth.Auth':@/is-authenticated/@ property.-(Whether or not the auth has been authenticated.)--}-pattern AUTH_IS_AUTHENTICATED = "is-authenticated" :: T.Text--{- |-An alias for the 'GI.Soup.Objects.Auth.Auth':@/host/@ property. (The-host being authenticated to.)--}-pattern AUTH_HOST = "host" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.AuthDomain.AuthDomain':@/remove-path/@ property.-(Shortcut for calling 'GI.Soup.Objects.AuthDomain.authDomainRemovePath'.)--}-pattern AUTH_DOMAIN_REMOVE_PATH = "remove-path" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.AuthDomain.AuthDomain':@/realm/@ property. (The realm of-this auth domain.)--}-pattern AUTH_DOMAIN_REALM = "realm" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.AuthDomain.AuthDomain':@/proxy/@ property. (Whether or-not this is a proxy auth domain.)--}-pattern AUTH_DOMAIN_PROXY = "proxy" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.AuthDomain.AuthDomain':@/generic-auth-data/@ property.-(The data to pass to the 'GI.Soup.Callbacks.AuthDomainGenericAuthCallback'.)--}-pattern AUTH_DOMAIN_GENERIC_AUTH_DATA = "generic-auth-data" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.AuthDomain.AuthDomain':@/generic-auth-callback/@ property.-(The 'GI.Soup.Callbacks.AuthDomainGenericAuthCallback'.)--}-pattern AUTH_DOMAIN_GENERIC_AUTH_CALLBACK = "generic-auth-callback" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.AuthDomain.AuthDomain':@/filter-data/@ property. (Data-to pass to the 'GI.Soup.Callbacks.AuthDomainFilter'.)--}-pattern AUTH_DOMAIN_FILTER_DATA = "filter-data" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.AuthDomain.AuthDomain':@/filter/@ property. (The-'GI.Soup.Callbacks.AuthDomainFilter' for the domain.)--}-pattern AUTH_DOMAIN_FILTER = "filter" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.AuthDomainDigest.AuthDomainDigest':@/auth-callback/@ property.-(The 'GI.Soup.Callbacks.AuthDomainDigestAuthCallback'.)--}-pattern AUTH_DOMAIN_DIGEST_AUTH_DATA = "auth-data" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.AuthDomainDigest.AuthDomainDigest':@/auth-callback/@ property.-(The 'GI.Soup.Callbacks.AuthDomainDigestAuthCallback'.)--}-pattern AUTH_DOMAIN_DIGEST_AUTH_CALLBACK = "auth-callback" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.AuthDomainBasic.AuthDomainBasic':@/auth-data/@ property.-(The data to pass to the 'GI.Soup.Callbacks.AuthDomainBasicAuthCallback'.)--}-pattern AUTH_DOMAIN_BASIC_AUTH_DATA = "auth-data" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.AuthDomainBasic.AuthDomainBasic':@/auth-callback/@ property.-(The 'GI.Soup.Callbacks.AuthDomainBasicAuthCallback'.)--}-pattern AUTH_DOMAIN_BASIC_AUTH_CALLBACK = "auth-callback" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.AuthDomain.AuthDomain':@/add-path/@ property. (Shortcut-for calling 'GI.Soup.Objects.AuthDomain.authDomainAddPath'.)--}-pattern AUTH_DOMAIN_ADD_PATH = "add-path" :: T.Text--{- |-An alias for the 'GI.Soup.Objects.Address.Address':@/sockaddr/@ property. (A pointer-to the struct sockaddr for this address.)--}-pattern ADDRESS_SOCKADDR = "sockaddr" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Address.Address':@/protocol/@ property. (The URI scheme-used with this address.)--}-pattern ADDRESS_PROTOCOL = "protocol" :: T.Text--{- |-An alias for the 'GI.Soup.Objects.Address.Address':@/port/@ property. (The port for-this address.)--}-pattern ADDRESS_PORT = "port" :: T.Text--{- |-An alias for the 'GI.Soup.Objects.Address.Address':@/physical/@ property. (The-stringified IP address for this address.)--}-pattern ADDRESS_PHYSICAL = "physical" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Address.Address':@/name/@ property. (The hostname for-this address.)--}-pattern ADDRESS_NAME = "name" :: T.Text--{- |-Alias for the 'GI.Soup.Objects.Address.Address':@/family/@ property. (The-'GI.Soup.Enums.AddressFamily' for this address.)--}-pattern ADDRESS_FAMILY = "family" :: T.Text--{- |-This can be passed to any 'GI.Soup.Objects.Address.Address' method that expects a port,-to indicate that you don\'t care what port is used.--}-pattern ADDRESS_ANY_PORT = 0 :: Int32--
− GI/Soup/Enums.hs 
@@ -1,2302 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Enums-    ( -- -- * Enumerations--- ** AddressFamily #enum:AddressFamily#--    AddressFamily(..)                       ,----- ** CacheResponse #enum:CacheResponse#--    CacheResponse(..)                       ,----- ** CacheType #enum:CacheType#--    CacheType(..)                           ,----- ** ConnectionState #enum:ConnectionState#--    ConnectionState(..)                     ,----- ** CookieJarAcceptPolicy #enum:CookieJarAcceptPolicy#--    CookieJarAcceptPolicy(..)               ,----- ** DateFormat #enum:DateFormat#--    DateFormat(..)                          ,----- ** Encoding #enum:Encoding#--    Encoding(..)                            ,----- ** HTTPVersion #enum:HTTPVersion#--    HTTPVersion(..)                         ,----- ** KnownStatusCode #enum:KnownStatusCode#--    KnownStatusCode(..)                     ,----- ** LoggerLogLevel #enum:LoggerLogLevel#--    LoggerLogLevel(..)                      ,----- ** MemoryUse #enum:MemoryUse#--    MemoryUse(..)                           ,----- ** MessageHeadersType #enum:MessageHeadersType#--    MessageHeadersType(..)                  ,----- ** MessagePriority #enum:MessagePriority#--    MessagePriority(..)                     ,----- ** RequestError #enum:RequestError#--    RequestError(..)                        ,-    catchRequestError                       ,-    handleRequestError                      ,----- ** RequesterError #enum:RequesterError#--    RequesterError(..)                      ,-    catchRequesterError                     ,-    handleRequesterError                    ,----- ** SocketIOStatus #enum:SocketIOStatus#--    SocketIOStatus(..)                      ,----- ** Status #enum:Status#--    Status(..)                              ,----- ** TLDError #enum:TLDError#--    TLDError(..)                            ,-    catchTLDError                           ,-    handleTLDError                          ,----- ** WebsocketCloseCode #enum:WebsocketCloseCode#--    WebsocketCloseCode(..)                  ,----- ** WebsocketConnectionType #enum:WebsocketConnectionType#--    WebsocketConnectionType(..)             ,----- ** WebsocketDataType #enum:WebsocketDataType#--    WebsocketDataType(..)                   ,----- ** WebsocketError #enum:WebsocketError#--    WebsocketError(..)                      ,----- ** WebsocketState #enum:WebsocketState#--    WebsocketState(..)                      ,----- ** XMLRPCError #enum:XMLRPCError#--    XMLRPCError(..)                         ,-    catchXMLRPCError                        ,-    handleXMLRPCError                       ,----- ** XMLRPCFault #enum:XMLRPCFault#--    XMLRPCFault(..)                         ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL----- Enum XMLRPCFault-{- |-Pre-defined XML-RPC fault codes from \<ulink-url=\"http:\/\/xmlrpc-epi.sourceforge.net\/specs\/rfc.fault_codes.php\">http:\/\/xmlrpc-epi.sourceforge.net\/specs\/rfc.fault_codes.php\<\/ulink>.-These are an extension, not part of the XML-RPC spec; you can\'t-assume servers will use them.--}-data XMLRPCFault = -      XMLRPCFaultParseErrorNotWellFormed-    {- ^-    request was not-      well-formed-    -}-    | XMLRPCFaultParseErrorUnsupportedEncoding-    {- ^-    request was in-      an unsupported encoding-    -}-    | XMLRPCFaultParseErrorInvalidCharacterForEncoding-    {- ^-    request contained an invalid character-    -}-    | XMLRPCFaultServerErrorInvalidXmlRpc-    {- ^-    request was not-      valid XML-RPC-    -}-    | XMLRPCFaultServerErrorRequestedMethodNotFound-    {- ^-    method-      not found-    -}-    | XMLRPCFaultServerErrorInvalidMethodParameters-    {- ^-    invalid-      parameters-    -}-    | XMLRPCFaultServerErrorInternalXmlRpcError-    {- ^-    internal-      error-    -}-    | XMLRPCFaultApplicationError-    {- ^-    start of reserved range for-      application error codes-    -}-    | XMLRPCFaultSystemError-    {- ^-    start of reserved range for-      system error codes-    -}-    | XMLRPCFaultTransportError-    {- ^-    start of reserved range for-      transport error codes-    -}-    | AnotherXMLRPCFault Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.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 -32700 = XMLRPCFaultParseErrorNotWellFormed-    toEnum -32701 = XMLRPCFaultParseErrorUnsupportedEncoding-    toEnum -32702 = XMLRPCFaultParseErrorInvalidCharacterForEncoding-    toEnum -32600 = XMLRPCFaultServerErrorInvalidXmlRpc-    toEnum -32601 = XMLRPCFaultServerErrorRequestedMethodNotFound-    toEnum -32602 = XMLRPCFaultServerErrorInvalidMethodParameters-    toEnum -32603 = XMLRPCFaultServerErrorInternalXmlRpcError-    toEnum -32500 = XMLRPCFaultApplicationError-    toEnum -32400 = XMLRPCFaultSystemError-    toEnum -32300 = XMLRPCFaultTransportError-    toEnum k = AnotherXMLRPCFault k--instance P.Ord XMLRPCFault where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--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-{- |-/No description available in the introspection data./--}-data XMLRPCError = -      XMLRPCErrorArguments-    {- ^-    /No description available in the introspection data./-    -}-    | XMLRPCErrorRetval-    {- ^-    /No description available in the introspection data./-    -}-    | AnotherXMLRPCError Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum XMLRPCError where-    fromEnum XMLRPCErrorArguments = 0-    fromEnum XMLRPCErrorRetval = 1-    fromEnum (AnotherXMLRPCError k) = k--    toEnum 0 = XMLRPCErrorArguments-    toEnum 1 = XMLRPCErrorRetval-    toEnum k = AnotherXMLRPCError k--instance P.Ord XMLRPCError where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--instance GErrorClass XMLRPCError where-    gerrorClassDomain _ = "soup_xmlrpc_error_quark"---- | Catch exceptions of type `XMLRPCError`. This is a specialized version of `Data.GI.Base.GError.catchGErrorJustDomain`.-catchXMLRPCError ::-    IO a ->-    (XMLRPCError -> GErrorMessage -> IO a) ->-    IO a-catchXMLRPCError = catchGErrorJustDomain---- | Handle exceptions of type `XMLRPCError`. This is a specialized version of `Data.GI.Base.GError.handleGErrorJustDomain`.-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-{- |-The state of the WebSocket connection.--/Since: 2.50/--}-data WebsocketState = -      WebsocketStateOpen-    {- ^-    the connection is ready to send messages-    -}-    | WebsocketStateClosing-    {- ^-    the connection is in the process of-      closing down; messages may be received, but not sent-    -}-    | WebsocketStateClosed-    {- ^-    the connection is completely closed down-    -}-    | AnotherWebsocketState Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.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--instance P.Ord WebsocketState where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--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-{- |-WebSocket-related errors.--/Since: 2.50/--}-data WebsocketError = -      WebsocketErrorFailed-    {- ^-    a generic error-    -}-    | WebsocketErrorNotWebsocket-    {- ^-    attempted to handshake with a-      server that does not appear to understand WebSockets.-    -}-    | WebsocketErrorBadHandshake-    {- ^-    the WebSocket handshake failed-      because some detail was invalid (eg, incorrect accept key).-    -}-    | WebsocketErrorBadOrigin-    {- ^-    the WebSocket handshake failed-      because the \"Origin\" header was not an allowed value.-    -}-    | AnotherWebsocketError Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.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--instance P.Ord WebsocketError where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--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-{- |-The type of data contained in a 'GI.Soup.Objects.WebsocketConnection.WebsocketConnection'::@/message/@-signal.--/Since: 2.50/--}-data WebsocketDataType = -      WebsocketDataTypeText-    {- ^-    UTF-8 text-    -}-    | WebsocketDataTypeBinary-    {- ^-    binary data-    -}-    | AnotherWebsocketDataType Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum WebsocketDataType where-    fromEnum WebsocketDataTypeText = 1-    fromEnum WebsocketDataTypeBinary = 2-    fromEnum (AnotherWebsocketDataType k) = k--    toEnum 1 = WebsocketDataTypeText-    toEnum 2 = WebsocketDataTypeBinary-    toEnum k = AnotherWebsocketDataType k--instance P.Ord WebsocketDataType where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--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-{- |-The type of a 'GI.Soup.Objects.WebsocketConnection.WebsocketConnection'.--/Since: 2.50/--}-data WebsocketConnectionType = -      WebsocketConnectionTypeUnknown-    {- ^-    unknown\/invalid connection-    -}-    | WebsocketConnectionTypeClient-    {- ^-    a client-side connection-    -}-    | WebsocketConnectionTypeServer-    {- ^-    a server-side connection-    -}-    | AnotherWebsocketConnectionType Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.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--instance P.Ord WebsocketConnectionType where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--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-{- |-Pre-defined close codes that can be passed to-'GI.Soup.Objects.WebsocketConnection.websocketConnectionClose' or received from-'GI.Soup.Objects.WebsocketConnection.websocketConnectionGetCloseCode'. (However, other codes-are also allowed.)--/Since: 2.50/--}-data WebsocketCloseCode = -      WebsocketCloseCodeNormal-    {- ^-    a normal, non-error close-    -}-    | WebsocketCloseCodeGoingAway-    {- ^-    the client\/server is going away-    -}-    | WebsocketCloseCodeProtocolError-    {- ^-    a protocol error occurred-    -}-    | WebsocketCloseCodeUnsupportedData-    {- ^-    the endpoint received data-      of a type that it does not support.-    -}-    | WebsocketCloseCodeNoStatus-    {- ^-    reserved value indicating that-      no close code was present; must not be sent.-    -}-    | WebsocketCloseCodeAbnormal-    {- ^-    reserved value indicating that-      the connection was closed abnormally; must not be sent.-    -}-    | WebsocketCloseCodeBadData-    {- ^-    the endpoint received data that-      was invalid (eg, non-UTF-8 data in a text message).-    -}-    | WebsocketCloseCodePolicyViolation-    {- ^-    generic error code-      indicating some sort of policy violation.-    -}-    | WebsocketCloseCodeTooBig-    {- ^-    the endpoint received a message-      that is too big to process.-    -}-    | WebsocketCloseCodeNoExtension-    {- ^-    the client is closing the-      connection because the server failed to negotiate a required-      extension.-    -}-    | WebsocketCloseCodeServerError-    {- ^-    the server is closing the-      connection because it was unable to fulfill the request.-    -}-    | WebsocketCloseCodeTlsHandshake-    {- ^-    reserved value indicating that-      the TLS handshake failed; must not be sent.-    -}-    | AnotherWebsocketCloseCode Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.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--instance P.Ord WebsocketCloseCode where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--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-{- |-Error codes for @/SOUP_TLD_ERROR/@.--/Since: 2.40/--}-data TLDError = -      TLDErrorInvalidHostname-    {- ^-    A hostname was syntactically-      invalid.-    -}-    | TLDErrorIsIpAddress-    {- ^-    The passed-in \"hostname\" was-      actually an IP address (and thus has no base domain or-      public suffix).-    -}-    | TLDErrorNotEnoughDomains-    {- ^-    The passed-in hostname-      did not have enough components. Eg, calling-      'GI.Soup.Functions.tldGetBaseDomain' on \<literal>\"co.uk\"\<\/literal>.-    -}-    | TLDErrorNoBaseDomain-    {- ^-    The passed-in hostname has-      no recognized public suffix.-    -}-    | TLDErrorNoPslData-    {- ^-    /No description available in the introspection data./-    -}-    | AnotherTLDError Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum TLDError where-    fromEnum TLDErrorInvalidHostname = 0-    fromEnum TLDErrorIsIpAddress = 1-    fromEnum TLDErrorNotEnoughDomains = 2-    fromEnum TLDErrorNoBaseDomain = 3-    fromEnum TLDErrorNoPslData = 4-    fromEnum (AnotherTLDError k) = k--    toEnum 0 = TLDErrorInvalidHostname-    toEnum 1 = TLDErrorIsIpAddress-    toEnum 2 = TLDErrorNotEnoughDomains-    toEnum 3 = TLDErrorNoBaseDomain-    toEnum 4 = TLDErrorNoPslData-    toEnum k = AnotherTLDError k--instance P.Ord TLDError where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--instance GErrorClass TLDError where-    gerrorClassDomain _ = "soup_tld_error_quark"---- | Catch exceptions of type `TLDError`. This is a specialized version of `Data.GI.Base.GError.catchGErrorJustDomain`.-catchTLDError ::-    IO a ->-    (TLDError -> GErrorMessage -> IO a) ->-    IO a-catchTLDError = catchGErrorJustDomain---- | Handle exceptions of type `TLDError`. This is a specialized version of `Data.GI.Base.GError.handleGErrorJustDomain`.-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-{- |-These represent the known HTTP status code values, plus various-network and internal errors.--Note that no libsoup functions take or return this type directly;-any function that works with status codes will accept unrecognized-status codes as well.--Prior to 2.44 this type was called-\<literal>SoupKnownStatusCode\<\/literal>, but the individual values-have always had the names they have now.--}-data Status = -      StatusNone-    {- ^-    No status available. (Eg, the message has not-    been sent yet)-    -}-    | StatusCancelled-    {- ^-    Message was cancelled locally-    -}-    | StatusCantResolve-    {- ^-    Unable to resolve destination host name-    -}-    | StatusCantResolveProxy-    {- ^-    Unable to resolve proxy host name-    -}-    | StatusCantConnect-    {- ^-    Unable to connect to remote host-    -}-    | StatusCantConnectProxy-    {- ^-    Unable to connect to proxy-    -}-    | StatusSslFailed-    {- ^-    SSL\/TLS negotiation failed-    -}-    | StatusIoError-    {- ^-    A network error occurred, or the other end-    closed the connection unexpectedly-    -}-    | StatusMalformed-    {- ^-    Malformed data (usually a programmer error)-    -}-    | StatusTryAgain-    {- ^-    Used internally-    -}-    | StatusTooManyRedirects-    {- ^-    There were too many redirections-    -}-    | StatusTlsFailed-    {- ^-    Used internally-    -}-    | StatusContinue-    {- ^-    100 Continue (HTTP)-    -}-    | StatusSwitchingProtocols-    {- ^-    101 Switching Protocols (HTTP)-    -}-    | StatusProcessing-    {- ^-    102 Processing (WebDAV)-    -}-    | StatusOk-    {- ^-    200 Success (HTTP). Also used by many lower-level-    soup routines to indicate success.-    -}-    | StatusCreated-    {- ^-    201 Created (HTTP)-    -}-    | StatusAccepted-    {- ^-    202 Accepted (HTTP)-    -}-    | StatusNonAuthoritative-    {- ^-    203 Non-Authoritative Information-    (HTTP)-    -}-    | StatusNoContent-    {- ^-    204 No Content (HTTP)-    -}-    | StatusResetContent-    {- ^-    205 Reset Content (HTTP)-    -}-    | StatusPartialContent-    {- ^-    206 Partial Content (HTTP)-    -}-    | StatusMultiStatus-    {- ^-    207 Multi-Status (WebDAV)-    -}-    | StatusMultipleChoices-    {- ^-    300 Multiple Choices (HTTP)-    -}-    | StatusMovedPermanently-    {- ^-    301 Moved Permanently (HTTP)-    -}-    | StatusFound-    {- ^-    302 Found (HTTP)-    -}-    | StatusMovedTemporarily-    {- ^-    302 Moved Temporarily (old name,-    RFC 2068)-    -}-    | StatusSeeOther-    {- ^-    303 See Other (HTTP)-    -}-    | StatusNotModified-    {- ^-    304 Not Modified (HTTP)-    -}-    | StatusUseProxy-    {- ^-    305 Use Proxy (HTTP)-    -}-    | StatusNotAppearingInThisProtocol-    {- ^-    306 [Unused] (HTTP)-    -}-    | StatusTemporaryRedirect-    {- ^-    307 Temporary Redirect (HTTP)-    -}-    | StatusBadRequest-    {- ^-    400 Bad Request (HTTP)-    -}-    | StatusUnauthorized-    {- ^-    401 Unauthorized (HTTP)-    -}-    | StatusPaymentRequired-    {- ^-    402 Payment Required (HTTP)-    -}-    | StatusForbidden-    {- ^-    403 Forbidden (HTTP)-    -}-    | StatusNotFound-    {- ^-    404 Not Found (HTTP)-    -}-    | StatusMethodNotAllowed-    {- ^-    405 Method Not Allowed (HTTP)-    -}-    | StatusNotAcceptable-    {- ^-    406 Not Acceptable (HTTP)-    -}-    | StatusProxyAuthenticationRequired-    {- ^-    407 Proxy Authentication-    Required (HTTP)-    -}-    | StatusProxyUnauthorized-    {- ^-    shorter alias for-    'GI.Soup.Enums.StatusProxyAuthenticationRequired'-    -}-    | StatusRequestTimeout-    {- ^-    408 Request Timeout (HTTP)-    -}-    | StatusConflict-    {- ^-    409 Conflict (HTTP)-    -}-    | StatusGone-    {- ^-    410 Gone (HTTP)-    -}-    | StatusLengthRequired-    {- ^-    411 Length Required (HTTP)-    -}-    | StatusPreconditionFailed-    {- ^-    412 Precondition Failed (HTTP)-    -}-    | StatusRequestEntityTooLarge-    {- ^-    413 Request Entity Too Large-    (HTTP)-    -}-    | StatusRequestUriTooLong-    {- ^-    414 Request-URI Too Long (HTTP)-    -}-    | StatusUnsupportedMediaType-    {- ^-    415 Unsupported Media Type-    (HTTP)-    -}-    | StatusRequestedRangeNotSatisfiable-    {- ^-    416 Requested Range-    Not Satisfiable (HTTP)-    -}-    | StatusInvalidRange-    {- ^-    shorter alias for-    'GI.Soup.Enums.StatusRequestedRangeNotSatisfiable'-    -}-    | StatusExpectationFailed-    {- ^-    417 Expectation Failed (HTTP)-    -}-    | StatusUnprocessableEntity-    {- ^-    422 Unprocessable Entity-    (WebDAV)-    -}-    | StatusLocked-    {- ^-    423 Locked (WebDAV)-    -}-    | StatusFailedDependency-    {- ^-    424 Failed Dependency (WebDAV)-    -}-    | StatusInternalServerError-    {- ^-    500 Internal Server Error-    (HTTP)-    -}-    | StatusNotImplemented-    {- ^-    501 Not Implemented (HTTP)-    -}-    | StatusBadGateway-    {- ^-    502 Bad Gateway (HTTP)-    -}-    | StatusServiceUnavailable-    {- ^-    503 Service Unavailable (HTTP)-    -}-    | StatusGatewayTimeout-    {- ^-    504 Gateway Timeout (HTTP)-    -}-    | StatusHttpVersionNotSupported-    {- ^-    505 HTTP Version Not-    Supported (HTTP)-    -}-    | StatusInsufficientStorage-    {- ^-    507 Insufficient Storage-    (WebDAV)-    -}-    | StatusNotExtended-    {- ^-    510 Not Extended (RFC 2774)-    -}-    | AnotherStatus Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.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 302 = StatusMovedTemporarily-    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 407 = StatusProxyUnauthorized-    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 416 = StatusInvalidRange-    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--instance P.Ord Status where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--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-{- |-Return value from the 'GI.Soup.Objects.Socket.Socket' IO methods.--}-data SocketIOStatus = -      SocketIOStatusOk-    {- ^-    Success-    -}-    | SocketIOStatusWouldBlock-    {- ^-    Cannot read\/write any more at this time-    -}-    | SocketIOStatusEof-    {- ^-    End of file-    -}-    | SocketIOStatusError-    {- ^-    Other error-    -}-    | AnotherSocketIOStatus Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.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--instance P.Ord SocketIOStatus where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--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-{- |-/No description available in the introspection data./--}-data RequesterError = -      RequesterErrorBadUri-    {- ^-    /No description available in the introspection data./-    -}-    | RequesterErrorUnsupportedUriScheme-    {- ^-    /No description available in the introspection data./-    -}-    | AnotherRequesterError Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum RequesterError where-    fromEnum RequesterErrorBadUri = 0-    fromEnum RequesterErrorUnsupportedUriScheme = 1-    fromEnum (AnotherRequesterError k) = k--    toEnum 0 = RequesterErrorBadUri-    toEnum 1 = RequesterErrorUnsupportedUriScheme-    toEnum k = AnotherRequesterError k--instance P.Ord RequesterError where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--instance GErrorClass RequesterError where-    gerrorClassDomain _ = "soup_requester_error_quark"---- | Catch exceptions of type `RequesterError`. This is a specialized version of `Data.GI.Base.GError.catchGErrorJustDomain`.-catchRequesterError ::-    IO a ->-    (RequesterError -> GErrorMessage -> IO a) ->-    IO a-catchRequesterError = catchGErrorJustDomain---- | Handle exceptions of type `RequesterError`. This is a specialized version of `Data.GI.Base.GError.handleGErrorJustDomain`.-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-{- |-A 'GI.Soup.Objects.Request.Request' error.--/Since: 2.42/--}-data RequestError = -      RequestErrorBadUri-    {- ^-    the URI could not be parsed-    -}-    | RequestErrorUnsupportedUriScheme-    {- ^-    the URI scheme is not-      supported by this 'GI.Soup.Objects.Session.Session'-    -}-    | RequestErrorParsing-    {- ^-    the server\'s response could not-      be parsed-    -}-    | RequestErrorEncoding-    {- ^-    the server\'s response was in an-      unsupported format-    -}-    | AnotherRequestError Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.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 P.Ord RequestError where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--instance GErrorClass RequestError where-    gerrorClassDomain _ = "soup_request_error_quark"---- | Catch exceptions of type `RequestError`. This is a specialized version of `Data.GI.Base.GError.catchGErrorJustDomain`.-catchRequestError ::-    IO a ->-    (RequestError -> GErrorMessage -> IO a) ->-    IO a-catchRequestError = catchGErrorJustDomain---- | Handle exceptions of type `RequestError`. This is a specialized version of `Data.GI.Base.GError.handleGErrorJustDomain`.-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-{- |-Priorities that can be set on a 'GI.Soup.Objects.Message.Message' to instruct the-message queue to process it before any other message with lower-priority.--}-data MessagePriority = -      MessagePriorityVeryLow-    {- ^-    The lowest priority, the messages-      with this priority will be the last ones to be attended.-    -}-    | MessagePriorityLow-    {- ^-    Use this for low priority messages, a-      'GI.Soup.Objects.Message.Message' with the default priority will be processed first.-    -}-    | MessagePriorityNormal-    {- ^-    The default priotity, this is the-      priority assigned to the 'GI.Soup.Objects.Message.Message' by default.-    -}-    | MessagePriorityHigh-    {- ^-    High priority, a 'GI.Soup.Objects.Message.Message' with-      this priority will be processed before the ones with the default-      priority.-    -}-    | MessagePriorityVeryHigh-    {- ^-    The highest priority, use this-      for very urgent 'GI.Soup.Objects.Message.Message' as they will be the first ones to be-      attended.-    -}-    | AnotherMessagePriority Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.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--instance P.Ord MessagePriority where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--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-{- |-Value passed to 'GI.Soup.Structs.MessageHeaders.messageHeadersNew' to set certain default-behaviors.--}-data MessageHeadersType = -      MessageHeadersTypeRequest-    {- ^-    request headers-    -}-    | MessageHeadersTypeResponse-    {- ^-    response headers-    -}-    | MessageHeadersTypeMultipart-    {- ^-    multipart body part headers-    -}-    | AnotherMessageHeadersType Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.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--instance P.Ord MessageHeadersType where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--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-{- |-Describes how 'GI.Soup.Structs.Buffer.Buffer' should use the data passed in by the-caller.--See also 'GI.Soup.Structs.Buffer.bufferNewWithOwner', which allows to you create a-buffer containing data which is owned by another object.--}-data MemoryUse = -      MemoryUseStatic-    {- ^-    The memory is statically allocated and-    constant; libsoup can use the passed-in buffer directly and not-    need to worry about it being modified or freed.-    -}-    | MemoryUseTake-    {- ^-    The caller has allocated the memory for the-    'GI.Soup.Structs.Buffer.Buffer'\'s use; libsoup will assume ownership of it and free it-    (with 'GI.GLib.Functions.free') when it is done with it.-    -}-    | MemoryUseCopy-    {- ^-    The passed-in data belongs to the caller; the-    'GI.Soup.Structs.Buffer.Buffer' will copy it into new memory, leaving the caller free-    to reuse the original memory.-    -}-    | MemoryUseTemporary-    {- ^-    The passed-in data belongs to the caller,-    but will remain valid for the lifetime of the 'GI.Soup.Structs.Buffer.Buffer'. The-    difference between this and /@sOUPMEMORYSTATIC@/ is that if you copy-    a /@sOUPMEMORYTEMPORARY@/ buffer, it will make a copy of the memory-    as well, rather than reusing the original memory.-    -}-    | AnotherMemoryUse Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.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--instance P.Ord MemoryUse where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--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-{- |-Describes the level of logging output to provide.--}-data LoggerLogLevel = -      LoggerLogLevelNone-    {- ^-    No logging-    -}-    | LoggerLogLevelMinimal-    {- ^-    Log the Request-Line or Status-Line and-    the Soup-Debug pseudo-headers-    -}-    | LoggerLogLevelHeaders-    {- ^-    Log the full request\/response headers-    -}-    | LoggerLogLevelBody-    {- ^-    Log the full headers and request\/response-    bodies.-    -}-    | AnotherLoggerLogLevel Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.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--instance P.Ord LoggerLogLevel where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--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-{- |-/No description available in the introspection data./--}-data KnownStatusCode = -      KnownStatusCodeNone-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeCancelled-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeCantResolve-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeCantResolveProxy-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeCantConnect-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeCantConnectProxy-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeSslFailed-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeIoError-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeMalformed-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeTryAgain-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeTooManyRedirects-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeTlsFailed-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeContinue-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeSwitchingProtocols-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeProcessing-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeOk-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeCreated-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeAccepted-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeNonAuthoritative-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeNoContent-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeResetContent-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodePartialContent-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeMultiStatus-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeMultipleChoices-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeMovedPermanently-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeFound-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeMovedTemporarily-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeSeeOther-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeNotModified-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeUseProxy-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeNotAppearingInThisProtocol-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeTemporaryRedirect-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeBadRequest-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeUnauthorized-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodePaymentRequired-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeForbidden-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeNotFound-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeMethodNotAllowed-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeNotAcceptable-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeProxyAuthenticationRequired-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeProxyUnauthorized-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeRequestTimeout-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeConflict-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeGone-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeLengthRequired-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodePreconditionFailed-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeRequestEntityTooLarge-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeRequestUriTooLong-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeUnsupportedMediaType-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeRequestedRangeNotSatisfiable-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeInvalidRange-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeExpectationFailed-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeUnprocessableEntity-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeLocked-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeFailedDependency-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeInternalServerError-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeNotImplemented-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeBadGateway-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeServiceUnavailable-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeGatewayTimeout-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeHttpVersionNotSupported-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeInsufficientStorage-    {- ^-    /No description available in the introspection data./-    -}-    | KnownStatusCodeNotExtended-    {- ^-    /No description available in the introspection data./-    -}-    | AnotherKnownStatusCode Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.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 302 = KnownStatusCodeMovedTemporarily-    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 407 = KnownStatusCodeProxyUnauthorized-    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 416 = KnownStatusCodeInvalidRange-    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--instance P.Ord KnownStatusCode where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--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-{- |-Indicates the HTTP protocol version being used.--}-data HTTPVersion = -      HTTPVersionHttp10-    {- ^-    HTTP 1.0 (RFC 1945)-    -}-    | HTTPVersionHttp11-    {- ^-    HTTP 1.1 (RFC 2616)-    -}-    | AnotherHTTPVersion Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum HTTPVersion where-    fromEnum HTTPVersionHttp10 = 0-    fromEnum HTTPVersionHttp11 = 1-    fromEnum (AnotherHTTPVersion k) = k--    toEnum 0 = HTTPVersionHttp10-    toEnum 1 = HTTPVersionHttp11-    toEnum k = AnotherHTTPVersion k--instance P.Ord HTTPVersion where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--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-{- |-How a message body is encoded for transport--}-data Encoding = -      EncodingUnrecognized-    {- ^-    unknown \/ error-    -}-    | EncodingNone-    {- ^-    no body is present (which is not the same as a-    0-length body, and only occurs in certain places)-    -}-    | EncodingContentLength-    {- ^-    Content-Length encoding-    -}-    | EncodingEof-    {- ^-    Response body ends when the connection is closed-    -}-    | EncodingChunked-    {- ^-    chunked encoding (currently only supported-    for response)-    -}-    | EncodingByteranges-    {- ^-    multipart\/byteranges (Reserved for future-    use: NOT CURRENTLY IMPLEMENTED)-    -}-    | AnotherEncoding Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.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--instance P.Ord Encoding where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--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-{- |-Date formats that 'GI.Soup.Structs.Date.dateToString' can use.--/@sOUPDATEHTTP@/ and /@sOUPDATECOOKIE@/ always coerce the time to-UTC. /@sOUPDATEISO8601XMLRPC@/ uses the time as given, ignoring the-offset completely. /@sOUPDATERFC2822@/ and the other ISO 8601-variants use the local time, appending the offset information if-available.--This enum may be extended with more values in future releases.--}-data DateFormat = -      DateFormatHttp-    {- ^-    RFC 1123 format, used by the HTTP \"Date\" header. Eg-    \"Sun, 06 Nov 1994 08:49:37 GMT\"-    -}-    | DateFormatCookie-    {- ^-    The format for the \"Expires\" timestamp in the-    Netscape cookie specification. Eg, \"Sun, 06-Nov-1994 08:49:37 GMT\".-    -}-    | DateFormatRfc2822-    {- ^-    RFC 2822 format, eg \"Sun, 6 Nov 1994 09:49:37 -0100\"-    -}-    | DateFormatIso8601Compact-    {- ^-    ISO 8601 date\/time with no optional-    punctuation. Eg, \"19941106T094937-0100\".-    -}-    | DateFormatIso8601Full-    {- ^-    ISO 8601 date\/time with all optional-    punctuation. Eg, \"1994-11-06T09:49:37-01:00\".-    -}-    | DateFormatIso8601-    {- ^-    An alias for /@sOUPDATEISO8601FULL@/.-    -}-    | DateFormatIso8601Xmlrpc-    {- ^-    ISO 8601 date\/time as used by XML-RPC.-    Eg, \"19941106T09:49:37\".-    -}-    | AnotherDateFormat Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.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 5 = DateFormatIso8601-    toEnum 6 = DateFormatIso8601Xmlrpc-    toEnum k = AnotherDateFormat k--instance P.Ord DateFormat where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--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-{- |-The policy for accepting or rejecting cookies returned in-responses.--/Since: 2.30/--}-data CookieJarAcceptPolicy = -      CookieJarAcceptPolicyAlways-    {- ^-    accept all cookies unconditionally.-    -}-    | CookieJarAcceptPolicyNever-    {- ^-    reject all cookies unconditionally.-    -}-    | CookieJarAcceptPolicyNoThirdParty-    {- ^-    accept all cookies set by-    the main document loaded in the application using libsoup. An-    example of the most common case, web browsers, would be: If-    http:\/\/www.example.com is the page loaded, accept all cookies set-    by example.com, but if a resource from http:\/\/www.third-party.com-    is loaded from that page reject any cookie that it could try to-    set. For libsoup to be able to tell apart first party cookies from-    the rest, the application must call 'GI.Soup.Objects.Message.messageSetFirstParty'-    on each outgoing 'GI.Soup.Objects.Message.Message', setting the 'GI.Soup.Structs.URI.URI' of the main-    document. If no first party is set in a message when this policy is-    in effect, cookies will be assumed to be third party by default.-    -}-    | AnotherCookieJarAcceptPolicy Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.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--instance P.Ord CookieJarAcceptPolicy where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--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-{- |-/No description available in the introspection data./--}-data ConnectionState = -      ConnectionStateNew-    {- ^-    /No description available in the introspection data./-    -}-    | ConnectionStateConnecting-    {- ^-    /No description available in the introspection data./-    -}-    | ConnectionStateIdle-    {- ^-    /No description available in the introspection data./-    -}-    | ConnectionStateInUse-    {- ^-    /No description available in the introspection data./-    -}-    | ConnectionStateRemoteDisconnected-    {- ^-    /No description available in the introspection data./-    -}-    | ConnectionStateDisconnected-    {- ^-    /No description available in the introspection data./-    -}-    | AnotherConnectionState Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.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--instance P.Ord ConnectionState where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--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-{- |-The type of cache; this affects what kinds of responses will be-saved.--/Since: 2.34/--}-data CacheType = -      CacheTypeSingleUser-    {- ^-    a single-user cache-    -}-    | CacheTypeShared-    {- ^-    a shared cache-    -}-    | AnotherCacheType Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum CacheType where-    fromEnum CacheTypeSingleUser = 0-    fromEnum CacheTypeShared = 1-    fromEnum (AnotherCacheType k) = k--    toEnum 0 = CacheTypeSingleUser-    toEnum 1 = CacheTypeShared-    toEnum k = AnotherCacheType k--instance P.Ord CacheType where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--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-{- |-/No description available in the introspection data./--}-data CacheResponse = -      CacheResponseFresh-    {- ^-    /No description available in the introspection data./-    -}-    | CacheResponseNeedsValidation-    {- ^-    /No description available in the introspection data./-    -}-    | CacheResponseStale-    {- ^-    /No description available in the introspection data./-    -}-    | AnotherCacheResponse Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.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--instance P.Ord CacheResponse where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--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-{- |-The supported address families.--}-data AddressFamily = -      AddressFamilyInvalid-    {- ^-    an invalid @/SoupAddress/@-    -}-    | AddressFamilyIpv4-    {- ^-    an IPv4 address-    -}-    | AddressFamilyIpv6-    {- ^-    an IPv6 address-    -}-    | AnotherAddressFamily Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.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--instance P.Ord AddressFamily where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--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/Enums.hs-boot 
@@ -1,99 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Enums where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--data XMLRPCFault-instance P.Enum XMLRPCFault where-instance BoxedEnum XMLRPCFault where-data XMLRPCError-instance P.Enum XMLRPCError where-instance BoxedEnum XMLRPCError where-data WebsocketState-instance P.Enum WebsocketState where-instance BoxedEnum WebsocketState where-data WebsocketError-instance P.Enum WebsocketError where-instance BoxedEnum WebsocketError where-data WebsocketDataType-instance P.Enum WebsocketDataType where-instance BoxedEnum WebsocketDataType where-data WebsocketConnectionType-instance P.Enum WebsocketConnectionType where-instance BoxedEnum WebsocketConnectionType where-data WebsocketCloseCode-instance P.Enum WebsocketCloseCode where-instance BoxedEnum WebsocketCloseCode where-data TLDError-instance P.Enum TLDError where-instance BoxedEnum TLDError where-data Status-instance P.Enum Status where-instance BoxedEnum Status where-data SocketIOStatus-instance P.Enum SocketIOStatus where-instance BoxedEnum SocketIOStatus where-data RequesterError-instance P.Enum RequesterError where-instance BoxedEnum RequesterError where-data RequestError-instance P.Enum RequestError where-instance BoxedEnum RequestError where-data MessagePriority-instance P.Enum MessagePriority where-instance BoxedEnum MessagePriority where-data MessageHeadersType-instance P.Enum MessageHeadersType where-instance BoxedEnum MessageHeadersType where-data MemoryUse-instance P.Enum MemoryUse where-instance BoxedEnum MemoryUse where-data LoggerLogLevel-instance P.Enum LoggerLogLevel where-instance BoxedEnum LoggerLogLevel where-data KnownStatusCode-instance P.Enum KnownStatusCode where-instance BoxedEnum KnownStatusCode where-data HTTPVersion-instance P.Enum HTTPVersion where-instance BoxedEnum HTTPVersion where-data Encoding-instance P.Enum Encoding where-instance BoxedEnum Encoding where-data DateFormat-instance P.Enum DateFormat where-instance BoxedEnum DateFormat where-data CookieJarAcceptPolicy-instance P.Enum CookieJarAcceptPolicy where-instance BoxedEnum CookieJarAcceptPolicy where-data ConnectionState-instance P.Enum ConnectionState where-instance BoxedEnum ConnectionState where-data CacheType-instance P.Enum CacheType where-instance BoxedEnum CacheType where-data CacheResponse-instance P.Enum CacheResponse where-instance BoxedEnum CacheResponse where-data AddressFamily-instance P.Enum AddressFamily where-instance BoxedEnum AddressFamily where
− GI/Soup/Flags.hs 
@@ -1,308 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Flags-    ( -- -- * Flags--- ** Cacheability #flag:Cacheability#--    Cacheability(..)                        ,----- ** Expectation #flag:Expectation#--    Expectation(..)                         ,----- ** MessageFlags #flag:MessageFlags#--    MessageFlags(..)                        ,----- ** ServerListenOptions #flag:ServerListenOptions#--    ServerListenOptions(..)                 ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL----- Flags ServerListenOptions-{- |-Options to pass to 'GI.Soup.Objects.Server.serverListen', etc.--'GI.Soup.Flags.ServerListenOptionsIpv4Only' and 'GI.Soup.Flags.ServerListenOptionsIpv6Only'-only make sense with 'GI.Soup.Objects.Server.serverListenAll' and-'GI.Soup.Objects.Server.serverListenLocal', not plain 'GI.Soup.Objects.Server.serverListen' (which-simply listens on whatever kind of socket you give it). And you-cannot specify both of them in a single call.--/Since: 2.48/--}-data ServerListenOptions = -      ServerListenOptionsHttps-    {- ^-    Listen for https connections rather-      than plain http.-    -}-    | ServerListenOptionsIpv4Only-    {- ^-    Only listen on IPv4 interfaces.-    -}-    | ServerListenOptionsIpv6Only-    {- ^-    Only listen on IPv6 interfaces.-    -}-    | AnotherServerListenOptions Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.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--instance P.Ord ServerListenOptions where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--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-{- |-Various flags that can be set on a 'GI.Soup.Objects.Message.Message' to alter its-behavior.--}-data MessageFlags = -      MessageFlagsNoRedirect-    {- ^-    The session should not follow redirect-      (3xx) responses received by this message.-    -}-    | MessageFlagsCanRebuild-    {- ^-    The caller will rebuild the request-      body if the message is restarted; see-      'GI.Soup.Structs.MessageBody.messageBodySetAccumulate' for more details.-    -}-    | MessageFlagsOverwriteChunks-    {- ^-    Deprecated: equivalent to calling-      'GI.Soup.Structs.MessageBody.messageBodySetAccumulate' on the incoming message body-      (ie, 'GI.Soup.Objects.Message.Message':@/response_body/@ for a client-side request),-      passing 'False'.-    -}-    | MessageFlagsContentDecoded-    {- ^-    Set by 'GI.Soup.Objects.ContentDecoder.ContentDecoder' to-      indicate that it has removed the Content-Encoding on a message (and-      so headers such as Content-Length may no longer accurately describe-      the body).-    -}-    | MessageFlagsCertificateTrusted-    {- ^-    if set after an https response-      has been received, indicates that the server\'s SSL certificate is-      trusted according to the session\'s CA.-    -}-    | MessageFlagsNewConnection-    {- ^-    Requests that the message should be-      sent on a newly-created connection, not reusing an existing-      persistent connection. Note that messages with non-idempotent-      'GI.Soup.Objects.Message.Message':@/method/@\<!-- -->s behave this way by default, unless-      @/SOUP_MESSAGE_IDEMPOTENT/@ is set.-    -}-    | MessageFlagsIdempotent-    {- ^-    The message is considered idempotent,-      regardless its 'GI.Soup.Objects.Message.Message':@/method/@, and allows reuse of existing-      idle connections, instead of always requiring a new one, unless-      @/SOUP_MESSAGE_NEW_CONNECTION/@ is set.-    -}-    | MessageFlagsIgnoreConnectionLimits-    {- ^-    Request that a new connection is-      created for the message if there aren\'t idle connections available-      and it\'s not possible to create new connections due to any of the-      connection limits has been reached. If a dedicated connection is-      eventually created for this message, it will be dropped when the-      message finishes. Since 2.50-    -}-    | MessageFlagsDoNotUseAuthCache-    {- ^-    The 'GI.Soup.Objects.AuthManager.AuthManager' should not use-      the credentials cache for this message, neither to use cached credentials-      to automatically authenticate this message nor to cache the credentials-      after the message is successfully authenticated. This applies to both server-      and proxy authentication. Note that 'GI.Soup.Objects.Session.Session'::@/authenticate/@ signal will-      be emitted, if you want to disable authentication for a message use-      'GI.Soup.Objects.Message.messageDisableFeature' passing @/SOUP_TYPE_AUTH_MANAGER/@ instead. Since 2.58-    -}-    | AnotherMessageFlags Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.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 MessageFlagsDoNotUseAuthCache = 512-    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 512 = MessageFlagsDoNotUseAuthCache-    toEnum k = AnotherMessageFlags k--instance P.Ord MessageFlags where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--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-{- |-Represents the parsed value of the \"Expect\" header.--}-data Expectation = -      ExpectationUnrecognized-    {- ^-    any unrecognized expectation-    -}-    | ExpectationContinue-    {- ^-    \"100-continue\"-    -}-    | AnotherExpectation Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.Enum Expectation where-    fromEnum ExpectationUnrecognized = 1-    fromEnum ExpectationContinue = 2-    fromEnum (AnotherExpectation k) = k--    toEnum 1 = ExpectationUnrecognized-    toEnum 2 = ExpectationContinue-    toEnum k = AnotherExpectation k--instance P.Ord Expectation where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--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-{- |-/No description available in the introspection data./--}-data Cacheability = -      CacheabilityCacheable-    {- ^-    /No description available in the introspection data./-    -}-    | CacheabilityUncacheable-    {- ^-    /No description available in the introspection data./-    -}-    | CacheabilityInvalidates-    {- ^-    /No description available in the introspection data./-    -}-    | CacheabilityValidates-    {- ^-    /No description available in the introspection data./-    -}-    | AnotherCacheability Int-    -- ^ Catch-all for unknown values-    deriving (Show, Eq)--instance P.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--instance P.Ord Cacheability where-    compare a b = P.compare (P.fromEnum a) (P.fromEnum b)--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/Flags.hs-boot 
@@ -1,40 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Flags where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--data ServerListenOptions-instance P.Enum ServerListenOptions where-instance BoxedFlags ServerListenOptions where-instance IsGFlag ServerListenOptions-data MessageFlags-instance P.Enum MessageFlags where-instance BoxedFlags MessageFlags where-instance IsGFlag MessageFlags-data Expectation-instance P.Enum Expectation where-instance BoxedFlags Expectation where-instance IsGFlag Expectation-data Cacheability-instance P.Enum Cacheability where-instance BoxedFlags Cacheability where-instance IsGFlag Cacheability
− GI/Soup/Functions.hs 
@@ -1,2456 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Functions-    ( -- -- * Methods--- ** checkVersion #method:checkVersion#--    checkVersion                            ,----- ** cookiesFromRequest #method:cookiesFromRequest#--    cookiesFromRequest                      ,----- ** cookiesFromResponse #method:cookiesFromResponse#--    cookiesFromResponse                     ,----- ** cookiesToCookieHeader #method:cookiesToCookieHeader#--    cookiesToCookieHeader                   ,----- ** cookiesToRequest #method:cookiesToRequest#--    cookiesToRequest                        ,----- ** cookiesToResponse #method:cookiesToResponse#--    cookiesToResponse                       ,----- ** formEncodeDatalist #method:formEncodeDatalist#--    formEncodeDatalist                      ,----- ** formEncodeHash #method:formEncodeHash#--    formEncodeHash                          ,----- ** formRequestNewFromDatalist #method:formRequestNewFromDatalist#--    formRequestNewFromDatalist              ,----- ** formRequestNewFromHash #method:formRequestNewFromHash#--    formRequestNewFromHash                  ,----- ** formRequestNewFromMultipart #method:formRequestNewFromMultipart#--    formRequestNewFromMultipart             ,----- ** getMajorVersion #method:getMajorVersion#--    getMajorVersion                         ,----- ** getMicroVersion #method:getMicroVersion#--    getMicroVersion                         ,----- ** getMinorVersion #method:getMinorVersion#--    getMinorVersion                         ,----- ** headerContains #method:headerContains#--    headerContains                          ,----- ** headerFreeParamList #method:headerFreeParamList#--    headerFreeParamList                     ,----- ** headerGStringAppendParam #method:headerGStringAppendParam#--    headerGStringAppendParam                ,----- ** headerGStringAppendParamQuoted #method:headerGStringAppendParamQuoted#--    headerGStringAppendParamQuoted          ,----- ** headerParseList #method:headerParseList#--    headerParseList                         ,----- ** headerParseParamList #method:headerParseParamList#--    headerParseParamList                    ,----- ** headerParseParamListStrict #method:headerParseParamListStrict#--    headerParseParamListStrict              ,----- ** headerParseQualityList #method:headerParseQualityList#--    headerParseQualityList                  ,----- ** headerParseSemiParamList #method:headerParseSemiParamList#--    headerParseSemiParamList                ,----- ** headerParseSemiParamListStrict #method:headerParseSemiParamListStrict#--    headerParseSemiParamListStrict          ,----- ** headersParse #method:headersParse#--    headersParse                            ,----- ** headersParseRequest #method:headersParseRequest#--    headersParseRequest                     ,----- ** headersParseResponse #method:headersParseResponse#--    headersParseResponse                    ,----- ** headersParseStatusLine #method:headersParseStatusLine#--    headersParseStatusLine                  ,----- ** httpErrorQuark #method:httpErrorQuark#--    httpErrorQuark                          ,----- ** strCaseEqual #method:strCaseEqual#--    strCaseEqual                            ,----- ** strCaseHash #method:strCaseHash#--    strCaseHash                             ,----- ** tldDomainIsPublicSuffix #method:tldDomainIsPublicSuffix#--    tldDomainIsPublicSuffix                 ,----- ** tldGetBaseDomain #method:tldGetBaseDomain#--    tldGetBaseDomain                        ,----- ** valueArrayNew #method:valueArrayNew#--    valueArrayNew                           ,----- ** websocketClientPrepareHandshake #method:websocketClientPrepareHandshake#--    websocketClientPrepareHandshake         ,----- ** websocketClientVerifyHandshake #method:websocketClientVerifyHandshake#--    websocketClientVerifyHandshake          ,----- ** websocketServerCheckHandshake #method:websocketServerCheckHandshake#--    websocketServerCheckHandshake           ,----- ** websocketServerProcessHandshake #method:websocketServerProcessHandshake#--    websocketServerProcessHandshake         ,----- ** xmlrpcBuildMethodCall #method:xmlrpcBuildMethodCall#--    xmlrpcBuildMethodCall                   ,----- ** xmlrpcBuildMethodResponse #method:xmlrpcBuildMethodResponse#--    xmlrpcBuildMethodResponse               ,----- ** xmlrpcBuildRequest #method:xmlrpcBuildRequest#--    xmlrpcBuildRequest                      ,----- ** xmlrpcBuildResponse #method:xmlrpcBuildResponse#--    xmlrpcBuildResponse                     ,----- ** xmlrpcMessageNew #method:xmlrpcMessageNew#--    xmlrpcMessageNew                        ,----- ** xmlrpcMessageSetResponse #method:xmlrpcMessageSetResponse#--    xmlrpcMessageSetResponse                ,----- ** xmlrpcParseMethodCall #method:xmlrpcParseMethodCall#--    xmlrpcParseMethodCall                   ,----- ** xmlrpcParseMethodResponse #method:xmlrpcParseMethodResponse#--    xmlrpcParseMethodResponse               ,----- ** xmlrpcParseRequest #method:xmlrpcParseRequest#--    xmlrpcParseRequest                      ,----- ** xmlrpcParseResponse #method:xmlrpcParseResponse#--    xmlrpcParseResponse                     ,----- ** xmlrpcVariantGetDatetime #method:xmlrpcVariantGetDatetime#--    xmlrpcVariantGetDatetime                ,----- ** xmlrpcVariantNewDatetime #method:xmlrpcVariantNewDatetime#--    xmlrpcVariantNewDatetime                ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GLib.Structs.Data as GLib.Data-import qualified GI.GLib.Structs.String as GLib.String-import qualified GI.GObject.Structs.ValueArray as GObject.ValueArray-import {-# SOURCE #-} qualified GI.Soup.Enums as Soup.Enums-import {-# SOURCE #-} qualified GI.Soup.Objects.Message as Soup.Message-import {-# SOURCE #-} qualified GI.Soup.Structs.Cookie as Soup.Cookie-import {-# SOURCE #-} qualified GI.Soup.Structs.Date as Soup.Date-import {-# SOURCE #-} qualified GI.Soup.Structs.MessageHeaders as Soup.MessageHeaders-import {-# SOURCE #-} qualified GI.Soup.Structs.Multipart as Soup.Multipart-import {-# SOURCE #-} qualified GI.Soup.Structs.XMLRPCParams as Soup.XMLRPCParams---- function soup_xmlrpc_variant_new_datetime--- Args : [Arg {argCName = "date", argType = TInterface (Name {namespace = "Soup", name = "Date"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupDate", sinceVersion = Nothing}, 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 Soup.Date.Date ->                   -- date : TInterface (Name {namespace = "Soup", name = "Date"})-    IO (Ptr GVariant)--{- |-Construct a special 'GVariant' used to serialize a &lt;dateTime.iso8601&gt;-node. See 'GI.Soup.Functions.xmlrpcBuildRequest'.--The actual type of the returned 'GVariant' is unspecified and \"v\" or \"*\"-should be used in variant format strings. For example:-\<informalexample>\<programlisting>-args = g_variant_new (\"(v)\", soup_xmlrpc_variant_new_datetime (date));-\<\/programlisting>\<\/informalexample>--/Since: 2.52/--}-xmlrpcVariantNewDatetime ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Soup.Date.Date-    {- ^ /@date@/: a 'GI.Soup.Structs.Date.Date' -}-    -> m GVariant-    {- ^ __Returns:__ a floating 'GVariant'. -}-xmlrpcVariantNewDatetime date = liftIO $ do-    date' <- unsafeManagedPtrGetPtr date-    result <- soup_xmlrpc_variant_new_datetime date'-    checkUnexpectedReturnNULL "xmlrpcVariantNewDatetime" result-    result' <- B.GVariant.wrapGVariantPtr result-    touchManagedPtr date-    return result'----- function soup_xmlrpc_variant_get_datetime--- Args : [Arg {argCName = "variant", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVariant", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "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 Soup.Date.Date)--{- |-Get the 'GI.Soup.Structs.Date.Date' from special 'GVariant' created by-'GI.Soup.Functions.xmlrpcVariantNewDatetime' or by parsing a &lt;dateTime.iso8601&gt;-node. See 'GI.Soup.Structs.XMLRPCParams.xMLRPCParamsParse'.--If /@variant@/ does not contain a datetime it will return an error but it is not-considered a programmer error because it generally means parameters received-are not in the expected type.--/Since: 2.52/--}-xmlrpcVariantGetDatetime ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    GVariant-    {- ^ /@variant@/: a 'GVariant' -}-    -> m Soup.Date.Date-    {- ^ __Returns:__ a new 'GI.Soup.Structs.Date.Date', or 'Nothing' on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-xmlrpcVariantGetDatetime variant = liftIO $ do-    variant' <- unsafeManagedPtrGetPtr variant-    onException (do-        result <- propagateGError $ soup_xmlrpc_variant_get_datetime variant'-        checkUnexpectedReturnNULL "xmlrpcVariantGetDatetime" result-        result' <- (wrapBoxed Soup.Date.Date) result-        touchManagedPtr variant-        return result'-     ) (do-        return ()-     )----- function soup_xmlrpc_parse_response--- Args : [Arg {argCName = "method_response", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the XML-RPC methodResponse string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of @method_response, or -1 if it is NUL-terminated", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "signature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A valid #GVariant type string, or %NULL", sinceVersion = Nothing}, 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)--{- |-Parses /@methodResponse@/ and returns the return value. If-/@methodResponse@/ is a fault, 'Nothing' is returned, and /@error@/-will be set to an error in the @/SOUP_XMLRPC_FAULT/@ domain, with the error-code containing the fault code, and the error message containing-the fault string. If /@methodResponse@/ cannot be parsed, 'Nothing' is returned,-and /@error@/ will be set to an error in the @/SOUP_XMLRPC_ERROR/@ domain.--See 'GI.Soup.Structs.XMLRPCParams.xMLRPCParamsParse' for deserialization details.--/Since: 2.52/--}-xmlrpcParseResponse ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@methodResponse@/: the XML-RPC methodResponse string -}-    -> Int32-    {- ^ /@length@/: the length of /@methodResponse@/, or -1 if it is NUL-terminated -}-    -> Maybe (T.Text)-    {- ^ /@signature@/: A valid 'GVariant' type string, or 'Nothing' -}-    -> m GVariant-    {- ^ __Returns:__ a new (non-floating) 'GVariant', or 'Nothing' /(Can throw 'Data.GI.Base.GError.GError')/ -}-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 "xmlrpcParseResponse" result-        result' <- B.GVariant.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, argDoc = Documentation {rawDocText = Just "the XML-RPC methodCall string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of @method_call, or -1 if it is NUL-terminated", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TInterface (Name {namespace = "Soup", name = "XMLRPCParams"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "on success, a new #SoupXMLRPCParams", sinceVersion = Nothing}, 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 Soup.XMLRPCParams.XMLRPCParams) -> -- params : TInterface (Name {namespace = "Soup", name = "XMLRPCParams"})-    Ptr (Ptr GError) ->                     -- error-    IO CString--{- |-Parses /@methodCall@/ and return the method name. Method parameters can be-parsed later using 'GI.Soup.Structs.XMLRPCParams.xMLRPCParamsParse'.--/Since: 2.52/--}-xmlrpcParseRequest ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@methodCall@/: the XML-RPC methodCall string -}-    -> Int32-    {- ^ /@length@/: the length of /@methodCall@/, or -1 if it is NUL-terminated -}-    -> m ((T.Text, Soup.XMLRPCParams.XMLRPCParams))-    {- ^ __Returns:__ method\'s name, or 'Nothing' on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-xmlrpcParseRequest methodCall length_ = liftIO $ do-    methodCall' <- textToCString methodCall-    params <- allocMem :: IO (Ptr (Ptr Soup.XMLRPCParams.XMLRPCParams))-    onException (do-        result <- propagateGError $ soup_xmlrpc_parse_request methodCall' length_ params-        checkUnexpectedReturnNULL "xmlrpcParseRequest" result-        result' <- cstringToText result-        freeMem result-        params' <- peek params-        params'' <- (wrapPtr Soup.XMLRPCParams.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, argDoc = Documentation {rawDocText = Just "the XML-RPC methodResponse string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of @method_response, or -1 if it is NUL-terminated", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface (Name {namespace = "GObject", name = "Value"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "on return, the return value from @method_call", sinceVersion = Nothing}, 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 (Name {namespace = "GObject", name = "Value"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{-# DEPRECATED xmlrpcParseMethodResponse ["Use 'GI.Soup.Functions.xmlrpcParseResponse' instead."] #-}-{- |-Parses /@methodResponse@/ and returns the return value in /@value@/. If-/@methodResponse@/ is a fault, /@value@/ will be unchanged, and /@error@/-will be set to an error of type @/SOUP_XMLRPC_FAULT/@, with the error-@/code/@ containing the fault code, and the error @/message/@ containing-the fault string. (If /@methodResponse@/ cannot be parsed at all,-'GI.Soup.Functions.xmlrpcParseMethodResponse' will return 'False', but /@error@/-will be unset.)--}-xmlrpcParseMethodResponse ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@methodResponse@/: the XML-RPC methodResponse string -}-    -> Int32-    {- ^ /@length@/: the length of /@methodResponse@/, or -1 if it is NUL-terminated -}-    -> m (GValue)-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-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, argDoc = Documentation {rawDocText = Just "the XML-RPC methodCall string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of @method_call, or -1 if it is NUL-terminated", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "on return, the methodName from @method_call", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "params", argType = TInterface (Name {namespace = "GObject", name = "ValueArray"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "on return, the parameters from @method_call", sinceVersion = Nothing}, 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 (Ptr GObject.ValueArray.ValueArray) -> -- params : TInterface (Name {namespace = "GObject", name = "ValueArray"})-    IO CInt--{-# DEPRECATED xmlrpcParseMethodCall ["Use @/soup_xmlrpc_parse_request_full()/@ instead."] #-}-{- |-Parses /@methodCall@/ to get the name and parameters, and returns the-parameter values in a 'GI.GObject.Structs.ValueArray.ValueArray'; see also-@/soup_xmlrpc_extract_method_call()/@, which is more convenient if you-know in advance what the types of the parameters will be.--}-xmlrpcParseMethodCall ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@methodCall@/: the XML-RPC methodCall string -}-    -> Int32-    {- ^ /@length@/: the length of /@methodCall@/, or -1 if it is NUL-terminated -}-    -> m ((Bool, T.Text, GObject.ValueArray.ValueArray))-    {- ^ __Returns:__ success or failure. -}-xmlrpcParseMethodCall methodCall length_ = liftIO $ do-    methodCall' <- textToCString methodCall-    methodName <- allocMem :: IO (Ptr CString)-    params <- allocMem :: IO (Ptr (Ptr GObject.ValueArray.ValueArray))-    result <- soup_xmlrpc_parse_method_call methodCall' length_ methodName params-    let result' = (/= 0) result-    methodName' <- peek methodName-    methodName'' <- cstringToText methodName'-    freeMem methodName'-    params' <- peek params-    params'' <- (wrapBoxed GObject.ValueArray.ValueArray) params'-    freeMem methodCall'-    freeMem methodName-    freeMem params-    return (result', methodName'', params'')----- function soup_xmlrpc_message_set_response--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an XML-RPC request", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVariant", sinceVersion = Nothing}, 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 Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    Ptr GVariant ->                         -- value : TVariant-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Sets the status code and response body of /@msg@/ to indicate a-successful XML-RPC call, with a return value given by /@value@/. To set a-fault response, use @/soup_xmlrpc_message_set_fault()/@.--See 'GI.Soup.Functions.xmlrpcBuildRequest' for serialization details.--If /@value@/ is floating, it is consumed.--/Since: 2.52/--}-xmlrpcMessageSetResponse ::-    (B.CallStack.HasCallStack, MonadIO m, Soup.Message.IsMessage a) =>-    a-    {- ^ /@msg@/: an XML-RPC request -}-    -> GVariant-    {- ^ /@value@/: a 'GVariant' -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-xmlrpcMessageSetResponse msg value = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    value' <- unsafeManagedPtrGetPtr value-    onException (do-        _ <- propagateGError $ soup_xmlrpc_message_set_response msg' value'-        touchManagedPtr msg-        touchManagedPtr value-        return ()-     ) (do-        return ()-     )----- function soup_xmlrpc_message_new--- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "URI of the XML-RPC service", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the XML-RPC method to invoke at @uri", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVariant tuple", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "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 Soup.Message.Message)--{- |-Creates an XML-RPC methodCall and returns a 'GI.Soup.Objects.Message.Message', ready-to send, for that method call.--See 'GI.Soup.Functions.xmlrpcBuildRequest' for serialization details.--If /@params@/ is floating, it is consumed.--/Since: 2.52/--}-xmlrpcMessageNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@uri@/: URI of the XML-RPC service -}-    -> T.Text-    {- ^ /@methodName@/: the name of the XML-RPC method to invoke at /@uri@/ -}-    -> GVariant-    {- ^ /@params@/: a 'GVariant' tuple -}-    -> m Soup.Message.Message-    {- ^ __Returns:__ a 'GI.Soup.Objects.Message.Message' encoding the-  indicated XML-RPC request, or 'Nothing' on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-xmlrpcMessageNew uri methodName params = liftIO $ do-    uri' <- textToCString uri-    methodName' <- textToCString methodName-    params' <- unsafeManagedPtrGetPtr params-    onException (do-        result <- propagateGError $ soup_xmlrpc_message_new uri' methodName' params'-        checkUnexpectedReturnNULL "xmlrpcMessageNew" result-        result' <- (wrapObject Soup.Message.Message) result-        touchManagedPtr params-        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, argDoc = Documentation {rawDocText = Just "the return value", sinceVersion = Nothing}, 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--{- |-This creates a (successful) XML-RPC methodResponse and returns it-as a string. To create a fault response, use @/soup_xmlrpc_build_fault()/@. This-is the low-level method that 'GI.Soup.Functions.xmlrpcMessageSetResponse' is built on.--See 'GI.Soup.Functions.xmlrpcBuildRequest' for serialization details, but note-that since a method can only have a single return value, /@value@/-should not be a tuple here (unless the return value is an array).--If /@value@/ is floating, it is consumed.--/Since: 2.52/--}-xmlrpcBuildResponse ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    GVariant-    {- ^ /@value@/: the return value -}-    -> m T.Text-    {- ^ __Returns:__ the text of the methodResponse, or 'Nothing' on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-xmlrpcBuildResponse value = liftIO $ do-    value' <- unsafeManagedPtrGetPtr value-    onException (do-        result <- propagateGError $ soup_xmlrpc_build_response value'-        checkUnexpectedReturnNULL "xmlrpcBuildResponse" result-        result' <- cstringToText result-        freeMem result-        touchManagedPtr value-        return result'-     ) (do-        return ()-     )----- function soup_xmlrpc_build_request--- Args : [Arg {argCName = "method_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the XML-RPC method", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TVariant, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GVariant tuple", sinceVersion = Nothing}, 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--{- |-This creates an XML-RPC methodCall and returns it as a string.-This is the low-level method that 'GI.Soup.Functions.xmlrpcMessageNew' is-built on.--/@params@/ is a 'GVariant' tuple representing the method parameters.--Serialization details:- - \"a{s*}\" and \"{s*}\" are serialized as &lt;struct&gt;- - \"ay\" is serialized as &lt;base64&gt;- - Other arrays and tuples are serialized as &lt;array&gt;- - booleans are serialized as &lt;boolean&gt;- - byte, int16, uint16 and int32 are serialized as &lt;int&gt;- - uint32 and int64 are serialized as the nonstandard &lt;i8&gt; type- - doubles are serialized as &lt;double&gt;- - Strings are serialized as &lt;string&gt;- - Variants (i.e. \"v\" type) are unwrapped and their child is serialized.- - @/GVariants/@ created by 'GI.Soup.Functions.xmlrpcVariantNewDatetime' are serialized as-   &lt;dateTime.iso8601&gt;- - Other types are not supported and will return 'Nothing' and set /@error@/.-   This notably includes: object-paths, signatures, uint64, handles, maybes-   and dictionaries with non-string keys.--If /@params@/ is floating, it is consumed.--/Since: 2.52/--}-xmlrpcBuildRequest ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@methodName@/: the name of the XML-RPC method -}-    -> GVariant-    {- ^ /@params@/: a 'GVariant' tuple -}-    -> m T.Text-    {- ^ __Returns:__ the text of the methodCall, or 'Nothing' on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-xmlrpcBuildRequest methodName params = liftIO $ do-    methodName' <- textToCString methodName-    params' <- unsafeManagedPtrGetPtr params-    onException (do-        result <- propagateGError $ soup_xmlrpc_build_request methodName' params'-        checkUnexpectedReturnNULL "xmlrpcBuildRequest" result-        result' <- cstringToText result-        freeMem result-        touchManagedPtr params-        freeMem methodName'-        return result'-     ) (do-        freeMem methodName'-     )----- function soup_xmlrpc_build_method_response--- Args : [Arg {argCName = "value", argType = TInterface (Name {namespace = "GObject", name = "Value"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the return value", sinceVersion = Nothing}, 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 (Name {namespace = "GObject", name = "Value"})-    IO CString--{-# DEPRECATED xmlrpcBuildMethodResponse ["Use 'GI.Soup.Functions.xmlrpcBuildResponse' instead."] #-}-{- |-This creates a (successful) XML-RPC methodResponse and returns it-as a string. To create a fault response, use-@/soup_xmlrpc_build_fault()/@.--The glib type to XML-RPC type mapping is as with-'GI.Soup.Functions.xmlrpcBuildMethodCall', qv.--}-xmlrpcBuildMethodResponse ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    GValue-    {- ^ /@value@/: the return value -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ the text of the methodResponse, or 'Nothing'-on error -}-xmlrpcBuildMethodResponse value = liftIO $ do-    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, argDoc = Documentation {rawDocText = Just "the name of the XML-RPC method", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TCArray False (-1) 2 (TInterface (Name {namespace = "GObject", name = "Value"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "arguments to @method", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_params", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "length of @params", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_params", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "length of @params", sinceVersion = Nothing}, 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 (Name {namespace = "GObject", name = "Value"}))-    Int32 ->                                -- n_params : TBasicType TInt-    IO CString--{-# DEPRECATED xmlrpcBuildMethodCall ["Use 'GI.Soup.Functions.xmlrpcBuildRequest' instead."] #-}-{- |-This creates an XML-RPC methodCall and returns it as a string.-This is the low-level method that @/soup_xmlrpc_request_new()/@ is-built on.--/@params@/ is an array of 'GI.GObject.Structs.Value.Value' representing the parameters to-/@method@/. (It is *not* a 'GI.GObject.Structs.ValueArray.ValueArray', although if you have a-'GI.GObject.Structs.ValueArray.ValueArray', you can just pass its \<literal>values\<\/literal>f and-\<literal>n_values\<\/literal> fields.)--The correspondence between glib types and XML-RPC types is:--  int: @/int/@ (@/G_TYPE_INT/@)-  boolean: 'Bool' (@/G_TYPE_BOOLEAN/@)-  string: @/char/@* (@/G_TYPE_STRING/@)-  double: @/double/@ (@/G_TYPE_DOUBLE/@)-  datetime.iso8601: 'GI.Soup.Structs.Date.Date' (@/SOUP_TYPE_DATE/@)-  base64: 'GI.GLib.Structs.ByteArray.ByteArray' (@/SOUP_TYPE_BYTE_ARRAY/@)-  struct: 'GI.GLib.Structs.HashTable.HashTable' (@/G_TYPE_HASH_TABLE/@)-  array: 'GI.GObject.Structs.ValueArray.ValueArray' (@/G_TYPE_VALUE_ARRAY/@)--For structs, use a 'GI.GLib.Structs.HashTable.HashTable' that maps strings to 'GI.GObject.Structs.Value.Value';-'GI.Soup.Functions.valueHashNew' and related methods can help with this.--}-xmlrpcBuildMethodCall ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@methodName@/: the name of the XML-RPC method -}-    -> [GValue]-    {- ^ /@params@/: arguments to /@method@/ -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ the text of the methodCall, or 'Nothing' on-error -}-xmlrpcBuildMethodCall methodName params = liftIO $ do-    let nParams = fromIntegral $ length params-    methodName' <- textToCString methodName-    params' <- mapM 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 (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#SoupMessage containing the client side of a WebSocket handshake", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expected_origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "expected Origin header", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "allowed WebSocket\n  protocols.", sinceVersion = Nothing}, 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 Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    CString ->                              -- expected_origin : TBasicType TUTF8-    Ptr CString ->                          -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8)-    IO CInt--{- |-Examines the method and request headers in /@msg@/ and (assuming /@msg@/-contains a valid handshake request), fills in the handshake-response.--If /@expectedOrigin@/ is non-'Nothing', then only requests containing a matching-\"Origin\" header will be accepted. If /@protocols@/ is non-'Nothing', then-only requests containing a compatible \"Sec-WebSocket-Protocols\"-header will be accepted.--This is a low-level function; if you use-'GI.Soup.Objects.Server.serverAddWebsocketHandler' to handle accepting WebSocket-connections, it will call this for you.--/Since: 2.50/--}-websocketServerProcessHandshake ::-    (B.CallStack.HasCallStack, MonadIO m, Soup.Message.IsMessage a) =>-    a-    {- ^ /@msg@/: 'GI.Soup.Objects.Message.Message' containing the client side of a WebSocket handshake -}-    -> Maybe (T.Text)-    {- ^ /@expectedOrigin@/: expected Origin header -}-    -> Maybe ([T.Text])-    {- ^ /@protocols@/: allowed WebSocket-  protocols. -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@msg@/ contained a valid WebSocket handshake-  request and was updated to contain a handshake response. 'False' if not. -}-websocketServerProcessHandshake msg expectedOrigin protocols = liftIO $ do-    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 (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#SoupMessage containing the client side of a WebSocket handshake", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "expected Origin header", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "allowed WebSocket\n  protocols.", sinceVersion = Nothing}, 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 Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    CString ->                              -- origin : TBasicType TUTF8-    Ptr CString ->                          -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8)-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Examines the method and request headers in /@msg@/ and determines-whether /@msg@/ contains a valid handshake request.--If /@origin@/ is non-'Nothing', then only requests containing a matching-\"Origin\" header will be accepted. If /@protocols@/ is non-'Nothing', then-only requests containing a compatible \"Sec-WebSocket-Protocols\"-header will be accepted.--Normally 'GI.Soup.Functions.websocketServerProcessHandshake' will take care-of this for you, and if you use 'GI.Soup.Objects.Server.serverAddWebsocketHandler'-to handle accepting WebSocket connections, it will call that for-you. However, this function may be useful if you need to perform-more complicated validation; eg, accepting multiple different Origins,-or handling different protocols depending on the path.--/Since: 2.50/--}-websocketServerCheckHandshake ::-    (B.CallStack.HasCallStack, MonadIO m, Soup.Message.IsMessage a) =>-    a-    {- ^ /@msg@/: 'GI.Soup.Objects.Message.Message' containing the client side of a WebSocket handshake -}-    -> Maybe (T.Text)-    {- ^ /@origin@/: expected Origin header -}-    -> Maybe ([T.Text])-    {- ^ /@protocols@/: allowed WebSocket-  protocols. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-websocketServerCheckHandshake msg origin protocols = liftIO $ do-    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 (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#SoupMessage containing both client and server sides of a\n  WebSocket handshake", sinceVersion = Nothing}, 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 Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Looks at the response status code and headers in /@msg@/ and-determines if they contain a valid WebSocket handshake response-(given the handshake request in /@msg@/\'s request headers).--This is a low-level function; if you use-'GI.Soup.Objects.Session.sessionWebsocketConnectAsync' to create a WebSocket-connection, it will call this for you.--/Since: 2.50/--}-websocketClientVerifyHandshake ::-    (B.CallStack.HasCallStack, MonadIO m, Soup.Message.IsMessage a) =>-    a-    {- ^ /@msg@/: 'GI.Soup.Objects.Message.Message' containing both client and server sides of a-  WebSocket handshake -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-websocketClientVerifyHandshake msg = liftIO $ do-    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 (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the \"Origin\" header to set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "list of\n  protocols to offer", sinceVersion = Nothing}, 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 Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    CString ->                              -- origin : TBasicType TUTF8-    Ptr CString ->                          -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8)-    IO ()--{- |-Adds the necessary headers to /@msg@/ to request a WebSocket-handshake. The message body and non-WebSocket-related headers are-not modified.--This is a low-level function; if you use-'GI.Soup.Objects.Session.sessionWebsocketConnectAsync' to create a WebSocket-connection, it will call this for you.--/Since: 2.50/--}-websocketClientPrepareHandshake ::-    (B.CallStack.HasCallStack, MonadIO m, Soup.Message.IsMessage a) =>-    a-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> Maybe (T.Text)-    {- ^ /@origin@/: the \"Origin\" header to set -}-    -> Maybe ([T.Text])-    {- ^ /@protocols@/: list of-  protocols to offer -}-    -> m ()-websocketClientPrepareHandshake msg origin protocols = liftIO $ do-    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 (Name {namespace = \"GObject\", name = \"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 (Name {namespace = \"GObject\", name = \"Value\"}) unsupported."---- function soup_value_array_new--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GObject", name = "ValueArray"}))--- throws : False--- Skip return : False--foreign import ccall "soup_value_array_new" soup_value_array_new :: -    IO (Ptr GObject.ValueArray.ValueArray)--{-# DEPRECATED valueArrayNew ["Use 'GVariant' API instead."] #-}-{- |-Creates a new @/GValueArray/@. (This is just a wrapper around-'GI.GObject.Structs.ValueArray.valueArrayNew', for naming consistency purposes.)--}-valueArrayNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m GObject.ValueArray.ValueArray-    {- ^ __Returns:__ a new @/GValueArray/@ -}-valueArrayNew  = liftIO $ do-    result <- soup_value_array_new-    checkUnexpectedReturnNULL "valueArrayNew" result-    result' <- (wrapBoxed GObject.ValueArray.ValueArray) result-    return result'----- function soup_tld_get_base_domain--- Args : [Arg {argCName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a hostname", sinceVersion = Nothing}, 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--{- |-Finds the base domain for a given /@hostname@/. The base domain is-composed by the top level domain (such as .org, .com, .co.uk, etc)-plus the second level domain, for example for myhost.mydomain.com-it will return mydomain.com.--Note that 'Nothing' will be returned for private URLs (those not ending-with any well known TLD) because choosing a base domain for them-would be totally arbitrary.--Prior to libsoup 2.46, this function required that /@hostname@/ be in-UTF-8 if it was an IDN. From 2.46 on, the name can be in either-UTF-8 or ASCII format (and the return value will be in the same-format).--/Since: 2.40/--}-tldGetBaseDomain ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@hostname@/: a hostname -}-    -> m T.Text-    {- ^ __Returns:__ a pointer to the start of the base domain in /@hostname@/. If-an error occurs, 'Nothing' will be returned and /@error@/ set. /(Can throw 'Data.GI.Base.GError.GError')/ -}-tldGetBaseDomain hostname = liftIO $ do-    hostname' <- textToCString hostname-    onException (do-        result <- propagateGError $ soup_tld_get_base_domain hostname'-        checkUnexpectedReturnNULL "tldGetBaseDomain" 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, argDoc = Documentation {rawDocText = Just "a domain name", sinceVersion = Nothing}, 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--{- |-Looks whether the /@domain@/ passed as argument is a public domain-suffix (.org, .com, .co.uk, etc) or not.--Prior to libsoup 2.46, this function required that /@domain@/ be in-UTF-8 if it was an IDN. From 2.46 on, the name can be in either-UTF-8 or ASCII format.--/Since: 2.40/--}-tldDomainIsPublicSuffix ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@domain@/: a domain name -}-    -> m Bool-    {- ^ __Returns:__ 'True' if it is a public domain, 'False' otherwise. -}-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 = True, argDoc = Documentation {rawDocText = Just "ASCII string to hash", sinceVersion = Nothing}, 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--{- |-Hashes /@key@/ in a case-insensitive manner.--}-strCaseHash ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Ptr ()-    {- ^ /@key@/: ASCII string to hash -}-    -> m Word32-    {- ^ __Returns:__ the hash code. -}-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 = True, argDoc = Documentation {rawDocText = Just "an ASCII string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "v2", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "another ASCII string", sinceVersion = Nothing}, 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--{- |-Compares /@v1@/ and /@v2@/ in a case-insensitive manner--}-strCaseEqual ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Ptr ()-    {- ^ /@v1@/: an ASCII string -}-    -> Ptr ()-    {- ^ /@v2@/: another ASCII string -}-    -> m Bool-    {- ^ __Returns:__ 'True' if they are equal (modulo case) -}-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--{- |-/No description available in the introspection data./--}-httpErrorQuark ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m Word32-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, argDoc = Documentation {rawDocText = Just "an HTTP Status-Line", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ver", argType = TInterface (Name {namespace = "Soup", name = "HTTPVersion"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "if non-%NULL, will be filled in with the HTTP\nversion", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "status_code", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "if non-%NULL, will be filled in with\nthe status code", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "reason_phrase", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "if non-%NULL, will be filled in with\nthe reason phrase", sinceVersion = Nothing}, 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 (Name {namespace = "Soup", name = "HTTPVersion"})-    Ptr Word32 ->                           -- status_code : TBasicType TUInt-    Ptr CString ->                          -- reason_phrase : TBasicType TUTF8-    IO CInt--{- |-Parses the HTTP Status-Line string in /@statusLine@/ into /@ver@/,-/@statusCode@/, and /@reasonPhrase@/. /@statusLine@/ must be terminated by-either \"\\0\" or \"\\r\\n\".--}-headersParseStatusLine ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@statusLine@/: an HTTP Status-Line -}-    -> m ((Bool, Soup.Enums.HTTPVersion, Word32, T.Text))-    {- ^ __Returns:__ 'True' if /@statusLine@/ was parsed successfully. -}-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, argDoc = Documentation {rawDocText = Just "the headers (up to, but not including, the trailing blank line)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "length of @str", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "headers", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#SoupMessageHeaders to store the header values in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ver", argType = TInterface (Name {namespace = "Soup", name = "HTTPVersion"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "if non-%NULL, will be filled in with the HTTP\nversion", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "status_code", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "if non-%NULL, will be filled in with\nthe status code", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "reason_phrase", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "if non-%NULL, will be filled in with\nthe reason phrase", sinceVersion = Nothing}, 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 Soup.MessageHeaders.MessageHeaders -> -- headers : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    Ptr CUInt ->                            -- ver : TInterface (Name {namespace = "Soup", name = "HTTPVersion"})-    Ptr Word32 ->                           -- status_code : TBasicType TUInt-    Ptr CString ->                          -- reason_phrase : TBasicType TUTF8-    IO CInt--{- |-Parses the headers of an HTTP response in /@str@/ and stores the-results in /@ver@/, /@statusCode@/, /@reasonPhrase@/, and /@headers@/.--Beware that /@headers@/ may be modified even on failure.--}-headersParseResponse ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@str@/: the headers (up to, but not including, the trailing blank line) -}-    -> Int32-    {- ^ /@len@/: length of /@str@/ -}-    -> Soup.MessageHeaders.MessageHeaders-    {- ^ /@headers@/: 'GI.Soup.Structs.MessageHeaders.MessageHeaders' to store the header values in -}-    -> m ((Bool, Soup.Enums.HTTPVersion, Word32, T.Text))-    {- ^ __Returns:__ success or failure. -}-headersParseResponse str len headers = liftIO $ do-    str' <- textToCString str-    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, argDoc = Documentation {rawDocText = Just "the headers (up to, but not including, the trailing blank line)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "length of @str", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "req_headers", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#SoupMessageHeaders to store the header values in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "req_method", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "if non-%NULL, will be filled in with the\nrequest method", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "req_path", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "if non-%NULL, will be filled in with the\nrequest path", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "ver", argType = TInterface (Name {namespace = "Soup", name = "HTTPVersion"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "if non-%NULL, will be filled in with the HTTP\nversion", sinceVersion = Nothing}, 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 Soup.MessageHeaders.MessageHeaders -> -- req_headers : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    Ptr CString ->                          -- req_method : TBasicType TUTF8-    Ptr CString ->                          -- req_path : TBasicType TUTF8-    Ptr CUInt ->                            -- ver : TInterface (Name {namespace = "Soup", name = "HTTPVersion"})-    IO Word32--{- |-Parses the headers of an HTTP request in /@str@/ and stores the-results in /@reqMethod@/, /@reqPath@/, /@ver@/, and /@reqHeaders@/.--Beware that /@reqHeaders@/ may be modified even on failure.--}-headersParseRequest ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@str@/: the headers (up to, but not including, the trailing blank line) -}-    -> Int32-    {- ^ /@len@/: length of /@str@/ -}-    -> Soup.MessageHeaders.MessageHeaders-    {- ^ /@reqHeaders@/: 'GI.Soup.Structs.MessageHeaders.MessageHeaders' to store the header values in -}-    -> m ((Word32, T.Text, T.Text, Soup.Enums.HTTPVersion))-    {- ^ __Returns:__ 'GI.Soup.Enums.StatusOk' if the headers could be parsed, or an-HTTP error to be returned to the client if they could not be. -}-headersParseRequest str len reqHeaders = liftIO $ do-    str' <- textToCString str-    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, argDoc = Documentation {rawDocText = Just "the header string (including the Request-Line or Status-Line,\n  but not the trailing blank line)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "length of @str", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#SoupMessageHeaders to store the header values in", sinceVersion = Nothing}, 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 Soup.MessageHeaders.MessageHeaders -> -- dest : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    IO CInt--{- |-Parses the headers of an HTTP request or response in /@str@/ and-stores the results in /@dest@/. Beware that /@dest@/ may be modified even-on failure.--This is a low-level method; normally you would use-'GI.Soup.Functions.headersParseRequest' or 'GI.Soup.Functions.headersParseResponse'.--/Since: 2.26/--}-headersParse ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@str@/: the header string (including the Request-Line or Status-Line,-  but not the trailing blank line) -}-    -> Int32-    {- ^ /@len@/: length of /@str@/ -}-    -> Soup.MessageHeaders.MessageHeaders-    {- ^ /@dest@/: 'GI.Soup.Structs.MessageHeaders.MessageHeaders' to store the header values in -}-    -> m Bool-    {- ^ __Returns:__ success or failure -}-headersParse str len dest = liftIO $ do-    str' <- textToCString str-    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_strict--- Args : [Arg {argCName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a header value", sinceVersion = Nothing}, 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_strict" soup_header_parse_semi_param_list_strict :: -    CString ->                              -- header : TBasicType TUTF8-    IO (Ptr (GHashTable CString CString))--{- |-A strict version of 'GI.Soup.Functions.headerParseSemiParamList'-that bails out if there are duplicate parameters.-Note that this function will treat RFC5987-encoded-parameters as duplicated if an ASCII version is also-present. For header fields that might contain-RFC5987-encoded parameters, use-'GI.Soup.Functions.headerParseSemiParamList' instead.--/Since: 2.66/--}-headerParseSemiParamListStrict ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@header@/: a header value -}-    -> m (Maybe (Map.Map T.Text T.Text))-    {- ^ __Returns:__ -a 'GI.GLib.Structs.HashTable.HashTable' of list elements, which can be freed with-'GI.Soup.Functions.headerFreeParamList' or 'Nothing' if there are duplicate-elements. -}-headerParseSemiParamListStrict header = liftIO $ do-    header' <- textToCString header-    result <- soup_header_parse_semi_param_list_strict header'-    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'''''''-    freeMem header'-    return maybeResult----- function soup_header_parse_semi_param_list--- Args : [Arg {argCName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a header value", sinceVersion = Nothing}, 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))--{- |-Parses a header which is a semicolon-delimited list of something-like: \<literal>token [ \"=\" ( token | quoted-string ) ]\<\/literal>.--Tokens that don\'t have an associated value will still be added to-the resulting hash table, but with a 'Nothing' value.--This also handles RFC5987 encoding (which in HTTP is mostly used-for giving UTF8-encoded filenames in the Content-Disposition-header).--/Since: 2.24/--}-headerParseSemiParamList ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@header@/: a header value -}-    -> m (Map.Map T.Text T.Text)-    {- ^ __Returns:__ a-'GI.GLib.Structs.HashTable.HashTable' of list elements, which can be freed with-'GI.Soup.Functions.headerFreeParamList'. -}-headerParseSemiParamList header = liftIO $ do-    header' <- textToCString header-    result <- soup_header_parse_semi_param_list header'-    checkUnexpectedReturnNULL "headerParseSemiParamList" 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, argDoc = Documentation {rawDocText = Just "a header value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unacceptable", argType = TGSList (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "on\nreturn, will contain a list of unacceptable values", sinceVersion = Nothing}, 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))--{- |-Parses a header whose content is a list of items with optional-\"qvalue\"s (eg, Accept, Accept-Charset, Accept-Encoding,-Accept-Language, TE).--If /@unacceptable@/ is not 'Nothing', then on return, it will contain the-items with qvalue 0. Either way, those items will be removed from-the main list.--}-headerParseQualityList ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@header@/: a header value -}-    -> m (([T.Text], [T.Text]))-    {- ^ __Returns:__ a 'GI.GLib.Structs.SList.SList' of-acceptable values (as allocated strings), highest-qvalue first. -}-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_strict--- Args : [Arg {argCName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a header value", sinceVersion = Nothing}, 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_strict" soup_header_parse_param_list_strict :: -    CString ->                              -- header : TBasicType TUTF8-    IO (Ptr (GHashTable CString CString))--{- |-A strict version of 'GI.Soup.Functions.headerParseParamList'-that bails out if there are duplicate parameters.-Note that this function will treat RFC5987-encoded-parameters as duplicated if an ASCII version is also-present. For header fields that might contain-RFC5987-encoded parameters, use-'GI.Soup.Functions.headerParseParamList' instead.--/Since: 2.66/--}-headerParseParamListStrict ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@header@/: a header value -}-    -> m (Maybe (Map.Map T.Text T.Text))-    {- ^ __Returns:__ -a 'GI.GLib.Structs.HashTable.HashTable' of list elements, which can be freed with-'GI.Soup.Functions.headerFreeParamList' or 'Nothing' if there are duplicate-elements. -}-headerParseParamListStrict header = liftIO $ do-    header' <- textToCString header-    result <- soup_header_parse_param_list_strict header'-    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'''''''-    freeMem header'-    return maybeResult----- function soup_header_parse_param_list--- Args : [Arg {argCName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a header value", sinceVersion = Nothing}, 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))--{- |-Parses a header which is a comma-delimited list of something like:-\<literal>token [ \"=\" ( token | quoted-string ) ]\<\/literal>.--Tokens that don\'t have an associated value will still be added to-the resulting hash table, but with a 'Nothing' value.--This also handles RFC5987 encoding (which in HTTP is mostly used-for giving UTF8-encoded filenames in the Content-Disposition-header).--}-headerParseParamList ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@header@/: a header value -}-    -> m (Map.Map T.Text T.Text)-    {- ^ __Returns:__ a-'GI.GLib.Structs.HashTable.HashTable' of list elements, which can be freed with-'GI.Soup.Functions.headerFreeParamList'. -}-headerParseParamList header = liftIO $ do-    header' <- textToCString header-    result <- soup_header_parse_param_list header'-    checkUnexpectedReturnNULL "headerParseParamList" 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, argDoc = Documentation {rawDocText = Just "a header value", sinceVersion = Nothing}, 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))--{- |-Parses a header whose content is described by RFC2616 as-\"@/something/@\", where \"something\" does not itself contain commas,-except as part of quoted-strings.--}-headerParseList ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@header@/: a header value -}-    -> m [T.Text]-    {- ^ __Returns:__ a 'GI.GLib.Structs.SList.SList' of-list elements, as allocated strings -}-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 (Name {namespace = "GLib", name = "String"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GString being used to construct an HTTP header value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a parameter name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a parameter value", sinceVersion = Nothing}, 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 ->               -- string : TInterface (Name {namespace = "GLib", name = "String"})-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- value : TBasicType TUTF8-    IO ()--{- |-Appends something like \<literal>/@name@/=\"/@value@/\"\<\/literal> to-/@string@/, taking care to escape any quotes or backslashes in /@value@/.--If /@value@/ is (non-ASCII) UTF-8, this will instead use RFC 5987-encoding, just like 'GI.Soup.Functions.headerGStringAppendParam'.--/Since: 2.30/--}-headerGStringAppendParamQuoted ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    GLib.String.String-    {- ^ /@string@/: a 'GI.GLib.Structs.String.String' being used to construct an HTTP header value -}-    -> T.Text-    {- ^ /@name@/: a parameter name -}-    -> T.Text-    {- ^ /@value@/: a parameter value -}-    -> m ()-headerGStringAppendParamQuoted string name value = liftIO $ do-    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 (Name {namespace = "GLib", name = "String"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GString being used to construct an HTTP header value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a parameter name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a parameter value, or %NULL", sinceVersion = Nothing}, 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 ->               -- string : TInterface (Name {namespace = "GLib", name = "String"})-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- value : TBasicType TUTF8-    IO ()--{- |-Appends something like \<literal>/@name@/=/@value@/\<\/literal> to /@string@/,-taking care to quote /@value@/ if needed, and if so, to escape any-quotes or backslashes in /@value@/.--Alternatively, if /@value@/ is a non-ASCII UTF-8 string, it will be-appended using RFC5987 syntax. Although in theory this is supposed-to work anywhere in HTTP that uses this style of parameter, in-reality, it can only be used portably with the Content-Disposition-\"filename\" parameter.--If /@value@/ is 'Nothing', this will just append /@name@/ to /@string@/.--/Since: 2.26/--}-headerGStringAppendParam ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    GLib.String.String-    {- ^ /@string@/: a 'GI.GLib.Structs.String.String' being used to construct an HTTP header value -}-    -> T.Text-    {- ^ /@name@/: a parameter name -}-    -> T.Text-    {- ^ /@value@/: a parameter value, or 'Nothing' -}-    -> m ()-headerGStringAppendParam string name value = liftIO $ do-    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, argDoc = Documentation {rawDocText = Just "a #GHashTable returned from soup_header_parse_param_list()\nor soup_header_parse_semi_param_list()", sinceVersion = Nothing}, 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 ()--{- |-Frees /@paramList@/.--}-headerFreeParamList ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Map.Map T.Text T.Text-    {- ^ /@paramList@/: a 'GI.GLib.Structs.HashTable.HashTable' returned from 'GI.Soup.Functions.headerParseParamList'-or 'GI.Soup.Functions.headerParseSemiParamList' -}-    -> m ()-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, argDoc = Documentation {rawDocText = Just "An HTTP header suitable for parsing with\nsoup_header_parse_list()", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "token", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a token", sinceVersion = Nothing}, 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--{- |-Parses /@header@/ to see if it contains the token /@token@/ (matched-case-insensitively). Note that this can\'t be used with lists-that have qvalues.--}-headerContains ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@header@/: An HTTP header suitable for parsing with-'GI.Soup.Functions.headerParseList' -}-    -> T.Text-    {- ^ /@token@/: a token -}-    -> m Bool-    {- ^ __Returns:__ whether or not /@header@/ contains /@token@/ -}-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_get_minor_version--- Args : []--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "soup_get_minor_version" soup_get_minor_version :: -    IO Word32--{- |-Returns the minor version number of the libsoup library.-(e.g. in libsoup version 2.42.0 this is 42.)--This function is in the library, so it represents the libsoup library-your code is running against. Contrast with the 'GI.Soup.Constants.MINOR_VERSION'-macro, which represents the minor version of the libsoup headers you-have included when compiling your code.--/Since: 2.42/--}-getMinorVersion ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m Word32-    {- ^ __Returns:__ the minor version number of the libsoup library -}-getMinorVersion  = liftIO $ do-    result <- soup_get_minor_version-    return result----- function soup_get_micro_version--- Args : []--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "soup_get_micro_version" soup_get_micro_version :: -    IO Word32--{- |-Returns the micro version number of the libsoup library.-(e.g. in libsoup version 2.42.0 this is 0.)--This function is in the library, so it represents the libsoup library-your code is running against. Contrast with the 'GI.Soup.Constants.MICRO_VERSION'-macro, which represents the micro version of the libsoup headers you-have included when compiling your code.--/Since: 2.42/--}-getMicroVersion ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m Word32-    {- ^ __Returns:__ the micro version number of the libsoup library -}-getMicroVersion  = liftIO $ do-    result <- soup_get_micro_version-    return result----- function soup_get_major_version--- Args : []--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "soup_get_major_version" soup_get_major_version :: -    IO Word32--{- |-Returns the major version number of the libsoup library.-(e.g. in libsoup version 2.42.0 this is 2.)--This function is in the library, so it represents the libsoup library-your code is running against. Contrast with the 'GI.Soup.Constants.MAJOR_VERSION'-macro, which represents the major version of the libsoup headers you-have included when compiling your code.--/Since: 2.42/--}-getMajorVersion ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m Word32-    {- ^ __Returns:__ the major version number of the libsoup library -}-getMajorVersion  = liftIO $ do-    result <- soup_get_major_version-    return result----- function soup_form_request_new_from_multipart--- Args : [Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the URI to send the form data to", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "multipart", argType = TInterface (Name {namespace = "Soup", name = "Multipart"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a \"multipart/form-data\" #SoupMultipart", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "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 Soup.Multipart.Multipart ->         -- multipart : TInterface (Name {namespace = "Soup", name = "Multipart"})-    IO (Ptr Soup.Message.Message)--{- |-Creates a new @/SoupMessage/@ and sets it up to send /@multipart@/ to-/@uri@/ via POST.--To send a \<literal>\"multipart\/form-data\"\<\/literal> POST, first-create a 'GI.Soup.Structs.Multipart.Multipart', using 'GI.Soup.Constants.FORM_MIME_TYPE_MULTIPART' as-the MIME type. Then use 'GI.Soup.Structs.Multipart.multipartAppendFormString' and-'GI.Soup.Structs.Multipart.multipartAppendFormFile' to add the value of each form-control to the multipart. (These are just convenience methods, and-you can use 'GI.Soup.Structs.Multipart.multipartAppendPart' if you need greater-control over the part headers.) Finally, call-'GI.Soup.Functions.formRequestNewFromMultipart' to serialize the multipart-structure and create a 'GI.Soup.Objects.Message.Message'.--/Since: 2.26/--}-formRequestNewFromMultipart ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@uri@/: the URI to send the form data to -}-    -> Soup.Multipart.Multipart-    {- ^ /@multipart@/: a \"multipart\/form-data\" 'GI.Soup.Structs.Multipart.Multipart' -}-    -> m Soup.Message.Message-    {- ^ __Returns:__ the new @/SoupMessage/@ -}-formRequestNewFromMultipart uri multipart = liftIO $ do-    uri' <- textToCString uri-    multipart' <- unsafeManagedPtrGetPtr multipart-    result <- soup_form_request_new_from_multipart uri' multipart'-    checkUnexpectedReturnNULL "formRequestNewFromMultipart" result-    result' <- (wrapObject Soup.Message.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, argDoc = Documentation {rawDocText = Just "the HTTP method, either \"GET\" or \"POST\"", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the URI to send the form data to", sinceVersion = Nothing}, 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, argDoc = Documentation {rawDocText = Just "the data to send to @uri", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "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 Soup.Message.Message)--{- |-Creates a new @/SoupMessage/@ and sets it up to send /@formDataSet@/ to-/@uri@/ via /@method@/, as with @/soup_form_request_new()/@.--}-formRequestNewFromHash ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@method@/: the HTTP method, either \"GET\" or \"POST\" -}-    -> T.Text-    {- ^ /@uri@/: the URI to send the form data to -}-    -> Map.Map T.Text T.Text-    {- ^ /@formDataSet@/: the data to send to /@uri@/ -}-    -> m Soup.Message.Message-    {- ^ __Returns:__ the new @/SoupMessage/@ -}-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 "formRequestNewFromHash" result-    result' <- (wrapObject Soup.Message.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, argDoc = Documentation {rawDocText = Just "the HTTP method, either \"GET\" or \"POST\"", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the URI to send the form data to", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "form_data_set", argType = TInterface (Name {namespace = "GLib", name = "Data"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the data to send to @uri", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "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.Data ->                   -- form_data_set : TInterface (Name {namespace = "GLib", name = "Data"})-    IO (Ptr Soup.Message.Message)--{- |-Creates a new @/SoupMessage/@ and sets it up to send /@formDataSet@/ to-/@uri@/ via /@method@/, as with @/soup_form_request_new()/@.--}-formRequestNewFromDatalist ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@method@/: the HTTP method, either \"GET\" or \"POST\" -}-    -> T.Text-    {- ^ /@uri@/: the URI to send the form data to -}-    -> GLib.Data.Data-    {- ^ /@formDataSet@/: the data to send to /@uri@/ -}-    -> m Soup.Message.Message-    {- ^ __Returns:__ the new @/SoupMessage/@ -}-formRequestNewFromDatalist method uri formDataSet = liftIO $ do-    method' <- textToCString method-    uri' <- textToCString uri-    formDataSet' <- unsafeManagedPtrGetPtr formDataSet-    result <- soup_form_request_new_from_datalist method' uri' formDataSet'-    checkUnexpectedReturnNULL "formRequestNewFromDatalist" result-    result' <- (wrapObject Soup.Message.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, argDoc = Documentation {rawDocText = Just "a hash table containing\nname/value pairs (as strings)", sinceVersion = Nothing}, 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--{- |-Encodes /@formDataSet@/ into a value of type-\"application\/x-www-form-urlencoded\", as defined in the HTML 4.01-spec.--Note that the HTML spec states that \"The control names\/values are-listed in the order they appear in the document.\" Since this method-takes a hash table, it cannot enforce that; if you care about the-ordering of the form fields, use 'GI.Soup.Functions.formEncodeDatalist'.--}-formEncodeHash ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Map.Map T.Text T.Text-    {- ^ /@formDataSet@/: a hash table containing-name\/value pairs (as strings) -}-    -> m T.Text-    {- ^ __Returns:__ the encoded form -}-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 "formEncodeHash" result-    result' <- cstringToText result-    freeMem result-    unrefGHashTable formDataSet''''''-    return result'----- function soup_form_encode_datalist--- Args : [Arg {argCName = "form_data_set", argType = TInterface (Name {namespace = "GLib", name = "Data"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a datalist containing name/value pairs", sinceVersion = Nothing}, 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.Data ->                   -- form_data_set : TInterface (Name {namespace = "GLib", name = "Data"})-    IO CString--{- |-Encodes /@formDataSet@/ into a value of type-\"application\/x-www-form-urlencoded\", as defined in the HTML 4.01-spec. Unlike 'GI.Soup.Functions.formEncodeHash', this preserves the ordering-of the form elements, which may be required in some situations.--}-formEncodeDatalist ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    GLib.Data.Data-    {- ^ /@formDataSet@/: a datalist containing name\/value pairs -}-    -> m T.Text-    {- ^ __Returns:__ the encoded form -}-formEncodeDatalist formDataSet = liftIO $ do-    formDataSet' <- unsafeManagedPtrGetPtr formDataSet-    result <- soup_form_encode_datalist formDataSet'-    checkUnexpectedReturnNULL "formEncodeDatalist" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr formDataSet-    return result'----- function soup_form_decode_multipart--- XXX Could not generate function soup_form_decode_multipart--- Error was : Not implemented: "Hash table argument with transfer = Container? result'"---- function soup_form_decode--- XXX Could not generate function soup_form_decode--- Error was : Not implemented: "Hash table argument with transfer = Container? result"---- function soup_cookies_to_response--- Args : [Arg {argCName = "cookies", argType = TGSList (TInterface (Name {namespace = "Soup", name = "Cookie"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSList of #SoupCookie", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, 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 Soup.Cookie.Cookie)) -> -- cookies : TGSList (TInterface (Name {namespace = "Soup", name = "Cookie"}))-    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO ()--{- |-Appends a \"Set-Cookie\" response header to /@msg@/ for each cookie in-/@cookies@/. (This is in addition to any other \"Set-Cookie\" headers-/@msg@/ may already have.)--/Since: 2.24/--}-cookiesToResponse ::-    (B.CallStack.HasCallStack, MonadIO m, Soup.Message.IsMessage a) =>-    [Soup.Cookie.Cookie]-    {- ^ /@cookies@/: a 'GI.GLib.Structs.SList.SList' of 'GI.Soup.Structs.Cookie.Cookie' -}-    -> a-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> m ()-cookiesToResponse cookies msg = liftIO $ do-    cookies' <- mapM unsafeManagedPtrGetPtr cookies-    cookies'' <- packGSList cookies'-    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 (Name {namespace = "Soup", name = "Cookie"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSList of #SoupCookie", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, 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 Soup.Cookie.Cookie)) -> -- cookies : TGSList (TInterface (Name {namespace = "Soup", name = "Cookie"}))-    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO ()--{- |-Adds the name and value of each cookie in /@cookies@/ to /@msg@/\'s-\"Cookie\" request. (If /@msg@/ already has a \"Cookie\" request header,-these cookies will be appended to the cookies already present. Be-careful that you do not append the same cookies twice, eg, when-requeuing a message.)--/Since: 2.24/--}-cookiesToRequest ::-    (B.CallStack.HasCallStack, MonadIO m, Soup.Message.IsMessage a) =>-    [Soup.Cookie.Cookie]-    {- ^ /@cookies@/: a 'GI.GLib.Structs.SList.SList' of 'GI.Soup.Structs.Cookie.Cookie' -}-    -> a-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> m ()-cookiesToRequest cookies msg = liftIO $ do-    cookies' <- mapM unsafeManagedPtrGetPtr cookies-    cookies'' <- packGSList cookies'-    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 (Name {namespace = "Soup", name = "Cookie"})), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GSList of #SoupCookie", sinceVersion = Nothing}, 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 Soup.Cookie.Cookie)) -> -- cookies : TGSList (TInterface (Name {namespace = "Soup", name = "Cookie"}))-    IO CString--{- |-Serializes a 'GI.GLib.Structs.SList.SList' of 'GI.Soup.Structs.Cookie.Cookie' into a string suitable for-setting as the value of the \"Cookie\" header.--/Since: 2.24/--}-cookiesToCookieHeader ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    [Soup.Cookie.Cookie]-    {- ^ /@cookies@/: a 'GI.GLib.Structs.SList.SList' of 'GI.Soup.Structs.Cookie.Cookie' -}-    -> m T.Text-    {- ^ __Returns:__ the serialization of /@cookies@/ -}-cookiesToCookieHeader cookies = liftIO $ do-    cookies' <- mapM unsafeManagedPtrGetPtr cookies-    cookies'' <- packGSList cookies'-    result <- soup_cookies_to_cookie_header cookies''-    checkUnexpectedReturnNULL "cookiesToCookieHeader" 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 (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage containing a \"Set-Cookie\" response header", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGSList (TInterface (Name {namespace = "Soup", name = "Cookie"})))--- throws : False--- Skip return : False--foreign import ccall "soup_cookies_from_response" soup_cookies_from_response :: -    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO (Ptr (GSList (Ptr Soup.Cookie.Cookie)))--{- |-Parses /@msg@/\'s Set-Cookie response headers and returns a 'GI.GLib.Structs.SList.SList' of-'GI.Soup.Structs.Cookie.Cookie'\<!-- -->s. Cookies that do not specify \"path\" or-\"domain\" attributes will have their values defaulted from /@msg@/.--/Since: 2.24/--}-cookiesFromResponse ::-    (B.CallStack.HasCallStack, MonadIO m, Soup.Message.IsMessage a) =>-    a-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' containing a \"Set-Cookie\" response header -}-    -> m [Soup.Cookie.Cookie]-    {- ^ __Returns:__ a 'GI.GLib.Structs.SList.SList'-of 'GI.Soup.Structs.Cookie.Cookie'\<!-- -->s, which can be freed with-@/soup_cookies_free()/@. -}-cookiesFromResponse msg = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    result <- soup_cookies_from_response msg'-    result' <- unpackGSList result-    result'' <- mapM (wrapBoxed Soup.Cookie.Cookie) result'-    g_slist_free result-    touchManagedPtr msg-    return result''----- function soup_cookies_from_request--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage containing a \"Cookie\" request header", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGSList (TInterface (Name {namespace = "Soup", name = "Cookie"})))--- throws : False--- Skip return : False--foreign import ccall "soup_cookies_from_request" soup_cookies_from_request :: -    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO (Ptr (GSList (Ptr Soup.Cookie.Cookie)))--{- |-Parses /@msg@/\'s Cookie request header and returns a 'GI.GLib.Structs.SList.SList' of-'GI.Soup.Structs.Cookie.Cookie'\<!-- -->s. As the \"Cookie\" header, unlike \"Set-Cookie\",-only contains cookie names and values, none of the other-'GI.Soup.Structs.Cookie.Cookie' fields will be filled in. (Thus, you can\'t generally-pass a cookie returned from this method directly to-'GI.Soup.Functions.cookiesToResponse'.)--/Since: 2.24/--}-cookiesFromRequest ::-    (B.CallStack.HasCallStack, MonadIO m, Soup.Message.IsMessage a) =>-    a-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' containing a \"Cookie\" request header -}-    -> m [Soup.Cookie.Cookie]-    {- ^ __Returns:__ a 'GI.GLib.Structs.SList.SList'-of 'GI.Soup.Structs.Cookie.Cookie'\<!-- -->s, which can be freed with-@/soup_cookies_free()/@. -}-cookiesFromRequest msg = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    result <- soup_cookies_from_request msg'-    result' <- unpackGSList result-    result'' <- mapM (wrapBoxed Soup.Cookie.Cookie) result'-    g_slist_free result-    touchManagedPtr msg-    return result''----- function soup_check_version--- Args : [Arg {argCName = "major", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the major version to check", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minor", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the minor version to check", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "micro", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the micro version to check", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_check_version" soup_check_version :: -    Word32 ->                               -- major : TBasicType TUInt-    Word32 ->                               -- minor : TBasicType TUInt-    Word32 ->                               -- micro : TBasicType TUInt-    IO CInt--{- |-Like SOUP_CHECK_VERSION, but the check for soup_check_version is-at runtime instead of compile time. This is useful for compiling-against older versions of libsoup, but using features from newer-versions.--/Since: 2.42/--}-checkVersion ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Word32-    {- ^ /@major@/: the major version to check -}-    -> Word32-    {- ^ /@minor@/: the minor version to check -}-    -> Word32-    {- ^ /@micro@/: the micro version to check -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the version of the libsoup currently loaded-is the same as or newer than the passed-in version. -}-checkVersion major minor micro = liftIO $ do-    result <- soup_check_version major minor micro-    let result' = (/= 0) result-    return result'---
− GI/Soup/Interfaces.hs 
@@ -1,47 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Interfaces-    (     module GI.Soup.Interfaces.PasswordManager,-    module GI.Soup.Interfaces.ProxyResolver ,-    module GI.Soup.Interfaces.ProxyURIResolver,-    module GI.Soup.Interfaces.SessionFeature,---    ) where--import GI.Soup.Interfaces.PasswordManager-import GI.Soup.Interfaces.ProxyResolver-import GI.Soup.Interfaces.ProxyURIResolver-import GI.Soup.Interfaces.SessionFeature--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL---
− GI/Soup/Interfaces/PasswordManager.hs 
@@ -1,264 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Interfaces.PasswordManager-    ( ---- * Exported types-    PasswordManager(..)                     ,-    noPasswordManager                       ,-    IsPasswordManager                       ,-    toPasswordManager                       ,--- -- * Methods--- ** getPasswordsAsync #method:getPasswordsAsync#--#if ENABLE_OVERLOADING-    PasswordManagerGetPasswordsAsyncMethodInfo,-#endif-    passwordManagerGetPasswordsAsync        ,----- ** getPasswordsSync #method:getPasswordsSync#--#if ENABLE_OVERLOADING-    PasswordManagerGetPasswordsSyncMethodInfo,-#endif-    passwordManagerGetPasswordsSync         ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GLib.Structs.MainContext as GLib.MainContext-import qualified GI.GObject.Objects.Object as GObject.Object-import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import qualified GI.Soup.Callbacks as Soup.Callbacks-import {-# SOURCE #-} qualified GI.Soup.Interfaces.SessionFeature as Soup.SessionFeature-import {-# SOURCE #-} qualified GI.Soup.Objects.Auth as Soup.Auth-import {-# SOURCE #-} qualified GI.Soup.Objects.Message as Soup.Message---- interface PasswordManager --- | Memory-managed wrapper type.-newtype PasswordManager = PasswordManager (ManagedPtr PasswordManager)--- | A convenience alias for `Nothing` :: `Maybe` `PasswordManager`.-noPasswordManager :: Maybe PasswordManager-noPasswordManager = Nothing--#if ENABLE_OVERLOADING-type instance O.SignalList PasswordManager = PasswordManagerSignalList-type PasswordManagerSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "soup_password_manager_get_type"-    c_soup_password_manager_get_type :: IO GType--instance GObject PasswordManager where-    gobjectType = c_soup_password_manager_get_type-    ---- | Type class for types which can be safely cast to `PasswordManager`, for instance with `toPasswordManager`.-class (GObject o, O.IsDescendantOf PasswordManager o) => IsPasswordManager o-instance (GObject o, O.IsDescendantOf PasswordManager o) => IsPasswordManager o--instance O.HasParentTypes PasswordManager-type instance O.ParentTypes PasswordManager = '[Soup.SessionFeature.SessionFeature, GObject.Object.Object]---- | Cast to `PasswordManager`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toPasswordManager :: (MonadIO m, IsPasswordManager o) => o -> m PasswordManager-toPasswordManager = liftIO . unsafeCastTo PasswordManager--#if ENABLE_OVERLOADING-instance O.HasAttributeList PasswordManager-type instance O.AttributeList PasswordManager = PasswordManagerAttributeList-type PasswordManagerAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolvePasswordManagerMethod (t :: Symbol) (o :: *) :: * where-    ResolvePasswordManagerMethod "addFeature" o = Soup.SessionFeature.SessionFeatureAddFeatureMethodInfo-    ResolvePasswordManagerMethod "attach" o = Soup.SessionFeature.SessionFeatureAttachMethodInfo-    ResolvePasswordManagerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolvePasswordManagerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolvePasswordManagerMethod "detach" o = Soup.SessionFeature.SessionFeatureDetachMethodInfo-    ResolvePasswordManagerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolvePasswordManagerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolvePasswordManagerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolvePasswordManagerMethod "hasFeature" o = Soup.SessionFeature.SessionFeatureHasFeatureMethodInfo-    ResolvePasswordManagerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolvePasswordManagerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolvePasswordManagerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolvePasswordManagerMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolvePasswordManagerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolvePasswordManagerMethod "removeFeature" o = Soup.SessionFeature.SessionFeatureRemoveFeatureMethodInfo-    ResolvePasswordManagerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolvePasswordManagerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolvePasswordManagerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolvePasswordManagerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolvePasswordManagerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolvePasswordManagerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolvePasswordManagerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolvePasswordManagerMethod "getPasswordsAsync" o = PasswordManagerGetPasswordsAsyncMethodInfo-    ResolvePasswordManagerMethod "getPasswordsSync" o = PasswordManagerGetPasswordsSyncMethodInfo-    ResolvePasswordManagerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolvePasswordManagerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolvePasswordManagerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolvePasswordManagerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolvePasswordManagerMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolvePasswordManagerMethod t PasswordManager, O.MethodInfo info PasswordManager p) => OL.IsLabel t (PasswordManager -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif---- method PasswordManager::get_passwords_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "password_manager", argType = TInterface (Name {namespace = "Soup", name = "PasswordManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth", argType = TInterface (Name {namespace = "Soup", name = "Auth"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "retrying", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "async_context", argType = TInterface (Name {namespace = "GLib", name = "MainContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Soup", name = "PasswordManagerCallback"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 7, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, 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 ->                  -- password_manager : TInterface (Name {namespace = "Soup", name = "PasswordManager"})-    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    Ptr Soup.Auth.Auth ->                   -- auth : TInterface (Name {namespace = "Soup", name = "Auth"})-    CInt ->                                 -- retrying : TBasicType TBoolean-    Ptr GLib.MainContext.MainContext ->     -- async_context : TInterface (Name {namespace = "GLib", name = "MainContext"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    FunPtr Soup.Callbacks.C_PasswordManagerCallback -> -- callback : TInterface (Name {namespace = "Soup", name = "PasswordManagerCallback"})-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()--{- |-/No description available in the introspection data./--}-passwordManagerGetPasswordsAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsPasswordManager a, Soup.Message.IsMessage b, Soup.Auth.IsAuth c, Gio.Cancellable.IsCancellable d) =>-    a-    -> b-    -> c-    -> Bool-    -> GLib.MainContext.MainContext-    -> Maybe (d)-    -> Soup.Callbacks.PasswordManagerCallback-    -> m ()-passwordManagerGetPasswordsAsync passwordManager msg auth retrying asyncContext cancellable callback = liftIO $ do-    passwordManager' <- unsafeManagedPtrCastPtr passwordManager-    msg' <- unsafeManagedPtrCastPtr msg-    auth' <- unsafeManagedPtrCastPtr auth-    let retrying' = (fromIntegral . fromEnum) retrying-    asyncContext' <- unsafeManagedPtrGetPtr asyncContext-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr Soup.Callbacks.C_PasswordManagerCallback))-    callback' <- Soup.Callbacks.mk_PasswordManagerCallback (Soup.Callbacks.wrap_PasswordManagerCallback (Just ptrcallback) (Soup.Callbacks.drop_closures_PasswordManagerCallback callback))-    poke ptrcallback callback'-    let userData = nullPtr-    soup_password_manager_get_passwords_async passwordManager' msg' auth' retrying' asyncContext' maybeCancellable callback' userData-    touchManagedPtr passwordManager-    touchManagedPtr msg-    touchManagedPtr auth-    touchManagedPtr asyncContext-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data PasswordManagerGetPasswordsAsyncMethodInfo-instance (signature ~ (b -> c -> Bool -> GLib.MainContext.MainContext -> Maybe (d) -> Soup.Callbacks.PasswordManagerCallback -> m ()), MonadIO m, IsPasswordManager a, Soup.Message.IsMessage b, Soup.Auth.IsAuth c, Gio.Cancellable.IsCancellable d) => O.MethodInfo PasswordManagerGetPasswordsAsyncMethodInfo a signature where-    overloadedMethod _ = passwordManagerGetPasswordsAsync--#endif---- method PasswordManager::get_passwords_sync--- method type : OrdinaryMethod--- Args : [Arg {argCName = "password_manager", argType = TInterface (Name {namespace = "Soup", name = "PasswordManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth", argType = TInterface (Name {namespace = "Soup", name = "Auth"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, 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 ->                  -- password_manager : TInterface (Name {namespace = "Soup", name = "PasswordManager"})-    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    Ptr Soup.Auth.Auth ->                   -- auth : TInterface (Name {namespace = "Soup", name = "Auth"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    IO ()--{- |-/No description available in the introspection data./--}-passwordManagerGetPasswordsSync ::-    (B.CallStack.HasCallStack, MonadIO m, IsPasswordManager a, Soup.Message.IsMessage b, Soup.Auth.IsAuth c, Gio.Cancellable.IsCancellable d) =>-    a-    -> b-    -> c-    -> Maybe (d)-    -> m ()-passwordManagerGetPasswordsSync passwordManager msg auth cancellable = liftIO $ do-    passwordManager' <- unsafeManagedPtrCastPtr passwordManager-    msg' <- unsafeManagedPtrCastPtr msg-    auth' <- unsafeManagedPtrCastPtr auth-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    soup_password_manager_get_passwords_sync passwordManager' msg' auth' maybeCancellable-    touchManagedPtr passwordManager-    touchManagedPtr msg-    touchManagedPtr auth-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data PasswordManagerGetPasswordsSyncMethodInfo-instance (signature ~ (b -> c -> Maybe (d) -> m ()), MonadIO m, IsPasswordManager a, Soup.Message.IsMessage b, Soup.Auth.IsAuth c, Gio.Cancellable.IsCancellable d) => O.MethodInfo PasswordManagerGetPasswordsSyncMethodInfo a signature where-    overloadedMethod _ = passwordManagerGetPasswordsSync--#endif--
− GI/Soup/Interfaces/PasswordManager.hs-boot 
@@ -1,35 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Interfaces.PasswordManager where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype PasswordManager = PasswordManager (ManagedPtr PasswordManager)-instance GObject PasswordManager where-class (GObject o, O.IsDescendantOf PasswordManager o) => IsPasswordManager o-instance (GObject o, O.IsDescendantOf PasswordManager o) => IsPasswordManager o-instance O.HasParentTypes PasswordManager-#if ENABLE_OVERLOADING-data PasswordManagerGetPasswordsAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data PasswordManagerGetPasswordsSyncMethodInfo-#endif
− GI/Soup/Interfaces/ProxyResolver.hs 
@@ -1,260 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Interfaces.ProxyResolver-    ( ---- * Exported types-    ProxyResolver(..)                       ,-    noProxyResolver                         ,-    IsProxyResolver                         ,-    toProxyResolver                         ,--- -- * Methods--- ** getProxyAsync #method:getProxyAsync#--#if ENABLE_OVERLOADING-    ProxyResolverGetProxyAsyncMethodInfo    ,-#endif-    proxyResolverGetProxyAsync              ,----- ** getProxySync #method:getProxySync#--#if ENABLE_OVERLOADING-    ProxyResolverGetProxySyncMethodInfo     ,-#endif-    proxyResolverGetProxySync               ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GLib.Structs.MainContext as GLib.MainContext-import qualified GI.GObject.Objects.Object as GObject.Object-import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import qualified GI.Soup.Callbacks as Soup.Callbacks-import {-# SOURCE #-} qualified GI.Soup.Interfaces.SessionFeature as Soup.SessionFeature-import {-# SOURCE #-} qualified GI.Soup.Objects.Address as Soup.Address-import {-# SOURCE #-} qualified GI.Soup.Objects.Message as Soup.Message---- interface ProxyResolver --- | Memory-managed wrapper type.-newtype ProxyResolver = ProxyResolver (ManagedPtr ProxyResolver)--- | A convenience alias for `Nothing` :: `Maybe` `ProxyResolver`.-noProxyResolver :: Maybe ProxyResolver-noProxyResolver = Nothing--#if ENABLE_OVERLOADING-type instance O.SignalList ProxyResolver = ProxyResolverSignalList-type ProxyResolverSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "soup_proxy_resolver_get_type"-    c_soup_proxy_resolver_get_type :: IO GType--instance GObject ProxyResolver where-    gobjectType = c_soup_proxy_resolver_get_type-    ---- | Type class for types which can be safely cast to `ProxyResolver`, for instance with `toProxyResolver`.-class (GObject o, O.IsDescendantOf ProxyResolver o) => IsProxyResolver o-instance (GObject o, O.IsDescendantOf ProxyResolver o) => IsProxyResolver o--instance O.HasParentTypes ProxyResolver-type instance O.ParentTypes ProxyResolver = '[Soup.SessionFeature.SessionFeature, GObject.Object.Object]---- | Cast to `ProxyResolver`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toProxyResolver :: (MonadIO m, IsProxyResolver o) => o -> m ProxyResolver-toProxyResolver = liftIO . unsafeCastTo ProxyResolver--#if ENABLE_OVERLOADING-instance O.HasAttributeList ProxyResolver-type instance O.AttributeList ProxyResolver = ProxyResolverAttributeList-type ProxyResolverAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveProxyResolverMethod (t :: Symbol) (o :: *) :: * where-    ResolveProxyResolverMethod "addFeature" o = Soup.SessionFeature.SessionFeatureAddFeatureMethodInfo-    ResolveProxyResolverMethod "attach" o = Soup.SessionFeature.SessionFeatureAttachMethodInfo-    ResolveProxyResolverMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveProxyResolverMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveProxyResolverMethod "detach" o = Soup.SessionFeature.SessionFeatureDetachMethodInfo-    ResolveProxyResolverMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveProxyResolverMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveProxyResolverMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveProxyResolverMethod "hasFeature" o = Soup.SessionFeature.SessionFeatureHasFeatureMethodInfo-    ResolveProxyResolverMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveProxyResolverMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveProxyResolverMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveProxyResolverMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveProxyResolverMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveProxyResolverMethod "removeFeature" o = Soup.SessionFeature.SessionFeatureRemoveFeatureMethodInfo-    ResolveProxyResolverMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveProxyResolverMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveProxyResolverMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveProxyResolverMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveProxyResolverMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveProxyResolverMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveProxyResolverMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveProxyResolverMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveProxyResolverMethod "getProxyAsync" o = ProxyResolverGetProxyAsyncMethodInfo-    ResolveProxyResolverMethod "getProxySync" o = ProxyResolverGetProxySyncMethodInfo-    ResolveProxyResolverMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveProxyResolverMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveProxyResolverMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveProxyResolverMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveProxyResolverMethod t ProxyResolver, O.MethodInfo info ProxyResolver p) => OL.IsLabel t (ProxyResolver -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif---- method ProxyResolver::get_proxy_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy_resolver", argType = TInterface (Name {namespace = "Soup", name = "ProxyResolver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "async_context", argType = TInterface (Name {namespace = "GLib", name = "MainContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Soup", name = "ProxyResolverCallback"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_proxy_resolver_get_proxy_async" soup_proxy_resolver_get_proxy_async :: -    Ptr ProxyResolver ->                    -- proxy_resolver : TInterface (Name {namespace = "Soup", name = "ProxyResolver"})-    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    Ptr GLib.MainContext.MainContext ->     -- async_context : TInterface (Name {namespace = "GLib", name = "MainContext"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    FunPtr Soup.Callbacks.C_ProxyResolverCallback -> -- callback : TInterface (Name {namespace = "Soup", name = "ProxyResolverCallback"})-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()--{-# DEPRECATED proxyResolverGetProxyAsync ["(Since version 2.28)","Use SoupProxyURIResolver.get_proxy_uri_async instead"] #-}-{- |-/No description available in the introspection data./--}-proxyResolverGetProxyAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsProxyResolver a, Soup.Message.IsMessage b, Gio.Cancellable.IsCancellable c) =>-    a-    -> b-    -> GLib.MainContext.MainContext-    -> Maybe (c)-    -> Soup.Callbacks.ProxyResolverCallback-    -> m ()-proxyResolverGetProxyAsync proxyResolver msg asyncContext cancellable callback = liftIO $ do-    proxyResolver' <- unsafeManagedPtrCastPtr proxyResolver-    msg' <- unsafeManagedPtrCastPtr msg-    asyncContext' <- unsafeManagedPtrGetPtr asyncContext-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr Soup.Callbacks.C_ProxyResolverCallback))-    callback' <- Soup.Callbacks.mk_ProxyResolverCallback (Soup.Callbacks.wrap_ProxyResolverCallback (Just ptrcallback) (Soup.Callbacks.drop_closures_ProxyResolverCallback callback))-    poke ptrcallback callback'-    let userData = nullPtr-    soup_proxy_resolver_get_proxy_async proxyResolver' msg' asyncContext' maybeCancellable callback' userData-    touchManagedPtr proxyResolver-    touchManagedPtr msg-    touchManagedPtr asyncContext-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data ProxyResolverGetProxyAsyncMethodInfo-instance (signature ~ (b -> GLib.MainContext.MainContext -> Maybe (c) -> Soup.Callbacks.ProxyResolverCallback -> m ()), MonadIO m, IsProxyResolver a, Soup.Message.IsMessage b, Gio.Cancellable.IsCancellable c) => O.MethodInfo ProxyResolverGetProxyAsyncMethodInfo a signature where-    overloadedMethod _ = proxyResolverGetProxyAsync--#endif---- method ProxyResolver::get_proxy_sync--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy_resolver", argType = TInterface (Name {namespace = "Soup", name = "ProxyResolver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "addr", argType = TInterface (Name {namespace = "Soup", name = "Address"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "soup_proxy_resolver_get_proxy_sync" soup_proxy_resolver_get_proxy_sync :: -    Ptr ProxyResolver ->                    -- proxy_resolver : TInterface (Name {namespace = "Soup", name = "ProxyResolver"})-    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr Soup.Address.Address) ->       -- addr : TInterface (Name {namespace = "Soup", name = "Address"})-    IO Word32--{-# DEPRECATED proxyResolverGetProxySync ["(Since version 2.28)","Use SoupProxyURIResolver.@/get_proxy_uri_sync()/@ instead"] #-}-{- |-/No description available in the introspection data./--}-proxyResolverGetProxySync ::-    (B.CallStack.HasCallStack, MonadIO m, IsProxyResolver a, Soup.Message.IsMessage b, Gio.Cancellable.IsCancellable c) =>-    a-    -> b-    -> Maybe (c)-    -> m ((Word32, Soup.Address.Address))-proxyResolverGetProxySync proxyResolver msg cancellable = liftIO $ do-    proxyResolver' <- unsafeManagedPtrCastPtr proxyResolver-    msg' <- unsafeManagedPtrCastPtr msg-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    addr <- allocMem :: IO (Ptr (Ptr Soup.Address.Address))-    result <- soup_proxy_resolver_get_proxy_sync proxyResolver' msg' maybeCancellable addr-    addr' <- peek addr-    addr'' <- (newObject Soup.Address.Address) addr'-    touchManagedPtr proxyResolver-    touchManagedPtr msg-    whenJust cancellable touchManagedPtr-    freeMem addr-    return (result, addr'')--#if ENABLE_OVERLOADING-data ProxyResolverGetProxySyncMethodInfo-instance (signature ~ (b -> Maybe (c) -> m ((Word32, Soup.Address.Address))), MonadIO m, IsProxyResolver a, Soup.Message.IsMessage b, Gio.Cancellable.IsCancellable c) => O.MethodInfo ProxyResolverGetProxySyncMethodInfo a signature where-    overloadedMethod _ = proxyResolverGetProxySync--#endif--
− GI/Soup/Interfaces/ProxyResolver.hs-boot 
@@ -1,35 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Interfaces.ProxyResolver where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype ProxyResolver = ProxyResolver (ManagedPtr ProxyResolver)-instance GObject ProxyResolver where-class (GObject o, O.IsDescendantOf ProxyResolver o) => IsProxyResolver o-instance (GObject o, O.IsDescendantOf ProxyResolver o) => IsProxyResolver o-instance O.HasParentTypes ProxyResolver-#if ENABLE_OVERLOADING-data ProxyResolverGetProxyAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data ProxyResolverGetProxySyncMethodInfo-#endif
− GI/Soup/Interfaces/ProxyURIResolver.hs 
@@ -1,280 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Interfaces.ProxyURIResolver-    ( ---- * Exported types-    ProxyURIResolver(..)                    ,-    noProxyURIResolver                      ,-    IsProxyURIResolver                      ,-    toProxyURIResolver                      ,--- -- * Methods--- ** getProxyUriAsync #method:getProxyUriAsync#--#if ENABLE_OVERLOADING-    ProxyURIResolverGetProxyUriAsyncMethodInfo,-#endif-    proxyURIResolverGetProxyUriAsync        ,----- ** getProxyUriSync #method:getProxyUriSync#--#if ENABLE_OVERLOADING-    ProxyURIResolverGetProxyUriSyncMethodInfo,-#endif-    proxyURIResolverGetProxyUriSync         ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GLib.Structs.MainContext as GLib.MainContext-import qualified GI.GObject.Objects.Object as GObject.Object-import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import qualified GI.Soup.Callbacks as Soup.Callbacks-import {-# SOURCE #-} qualified GI.Soup.Interfaces.SessionFeature as Soup.SessionFeature-import {-# SOURCE #-} qualified GI.Soup.Structs.URI as Soup.URI---- interface ProxyURIResolver --- | Memory-managed wrapper type.-newtype ProxyURIResolver = ProxyURIResolver (ManagedPtr ProxyURIResolver)--- | A convenience alias for `Nothing` :: `Maybe` `ProxyURIResolver`.-noProxyURIResolver :: Maybe ProxyURIResolver-noProxyURIResolver = Nothing--#if ENABLE_OVERLOADING-type instance O.SignalList ProxyURIResolver = ProxyURIResolverSignalList-type ProxyURIResolverSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "soup_proxy_uri_resolver_get_type"-    c_soup_proxy_uri_resolver_get_type :: IO GType--instance GObject ProxyURIResolver where-    gobjectType = c_soup_proxy_uri_resolver_get_type-    ---- | Type class for types which can be safely cast to `ProxyURIResolver`, for instance with `toProxyURIResolver`.-class (GObject o, O.IsDescendantOf ProxyURIResolver o) => IsProxyURIResolver o-instance (GObject o, O.IsDescendantOf ProxyURIResolver o) => IsProxyURIResolver o--instance O.HasParentTypes ProxyURIResolver-type instance O.ParentTypes ProxyURIResolver = '[Soup.SessionFeature.SessionFeature, GObject.Object.Object]---- | Cast to `ProxyURIResolver`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toProxyURIResolver :: (MonadIO m, IsProxyURIResolver o) => o -> m ProxyURIResolver-toProxyURIResolver = liftIO . unsafeCastTo ProxyURIResolver--#if ENABLE_OVERLOADING-instance O.HasAttributeList ProxyURIResolver-type instance O.AttributeList ProxyURIResolver = ProxyURIResolverAttributeList-type ProxyURIResolverAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveProxyURIResolverMethod (t :: Symbol) (o :: *) :: * where-    ResolveProxyURIResolverMethod "addFeature" o = Soup.SessionFeature.SessionFeatureAddFeatureMethodInfo-    ResolveProxyURIResolverMethod "attach" o = Soup.SessionFeature.SessionFeatureAttachMethodInfo-    ResolveProxyURIResolverMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveProxyURIResolverMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveProxyURIResolverMethod "detach" o = Soup.SessionFeature.SessionFeatureDetachMethodInfo-    ResolveProxyURIResolverMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveProxyURIResolverMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveProxyURIResolverMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveProxyURIResolverMethod "hasFeature" o = Soup.SessionFeature.SessionFeatureHasFeatureMethodInfo-    ResolveProxyURIResolverMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveProxyURIResolverMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveProxyURIResolverMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveProxyURIResolverMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveProxyURIResolverMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveProxyURIResolverMethod "removeFeature" o = Soup.SessionFeature.SessionFeatureRemoveFeatureMethodInfo-    ResolveProxyURIResolverMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveProxyURIResolverMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveProxyURIResolverMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveProxyURIResolverMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveProxyURIResolverMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveProxyURIResolverMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveProxyURIResolverMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveProxyURIResolverMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveProxyURIResolverMethod "getProxyUriAsync" o = ProxyURIResolverGetProxyUriAsyncMethodInfo-    ResolveProxyURIResolverMethod "getProxyUriSync" o = ProxyURIResolverGetProxyUriSyncMethodInfo-    ResolveProxyURIResolverMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveProxyURIResolverMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveProxyURIResolverMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveProxyURIResolverMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveProxyURIResolverMethod t ProxyURIResolver, O.MethodInfo info ProxyURIResolver p) => OL.IsLabel t (ProxyURIResolver -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif---- method ProxyURIResolver::get_proxy_uri_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy_uri_resolver", argType = TInterface (Name {namespace = "Soup", name = "ProxyURIResolver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupProxyURIResolver", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupURI you want a proxy for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "async_context", argType = TInterface (Name {namespace = "GLib", name = "MainContext"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the #GMainContext to invoke @callback in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Soup", name = "ProxyURIResolverCallback"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "callback to invoke with the proxy address", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data for @callback", sinceVersion = Nothing}, 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 ->                 -- proxy_uri_resolver : TInterface (Name {namespace = "Soup", name = "ProxyURIResolver"})-    Ptr Soup.URI.URI ->                     -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    Ptr GLib.MainContext.MainContext ->     -- async_context : TInterface (Name {namespace = "GLib", name = "MainContext"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    FunPtr Soup.Callbacks.C_ProxyURIResolverCallback -> -- callback : TInterface (Name {namespace = "Soup", name = "ProxyURIResolverCallback"})-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()--{-# DEPRECATED proxyURIResolverGetProxyUriAsync ["'GI.Soup.Interfaces.ProxyURIResolver.ProxyURIResolver' is deprecated in favor of","'GI.Gio.Interfaces.ProxyResolver.ProxyResolver'"] #-}-{- |-Asynchronously determines a proxy URI to use for /@msg@/ and calls-/@callback@/.--/Since: 2.26.3/--}-proxyURIResolverGetProxyUriAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsProxyURIResolver a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@proxyUriResolver@/: the 'GI.Soup.Interfaces.ProxyURIResolver.ProxyURIResolver' -}-    -> Soup.URI.URI-    {- ^ /@uri@/: the 'GI.Soup.Structs.URI.URI' you want a proxy for -}-    -> Maybe (GLib.MainContext.MainContext)-    {- ^ /@asyncContext@/: the 'GI.GLib.Structs.MainContext.MainContext' to invoke /@callback@/ in -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> Soup.Callbacks.ProxyURIResolverCallback-    {- ^ /@callback@/: callback to invoke with the proxy address -}-    -> m ()-proxyURIResolverGetProxyUriAsync proxyUriResolver uri asyncContext cancellable callback = liftIO $ do-    proxyUriResolver' <- unsafeManagedPtrCastPtr proxyUriResolver-    uri' <- unsafeManagedPtrGetPtr uri-    maybeAsyncContext <- case asyncContext of-        Nothing -> return nullPtr-        Just jAsyncContext -> do-            jAsyncContext' <- unsafeManagedPtrGetPtr jAsyncContext-            return jAsyncContext'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr Soup.Callbacks.C_ProxyURIResolverCallback))-    callback' <- Soup.Callbacks.mk_ProxyURIResolverCallback (Soup.Callbacks.wrap_ProxyURIResolverCallback (Just ptrcallback) (Soup.Callbacks.drop_closures_ProxyURIResolverCallback callback))-    poke ptrcallback callback'-    let userData = nullPtr-    soup_proxy_uri_resolver_get_proxy_uri_async proxyUriResolver' uri' maybeAsyncContext maybeCancellable callback' userData-    touchManagedPtr proxyUriResolver-    touchManagedPtr uri-    whenJust asyncContext touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data ProxyURIResolverGetProxyUriAsyncMethodInfo-instance (signature ~ (Soup.URI.URI -> Maybe (GLib.MainContext.MainContext) -> Maybe (b) -> Soup.Callbacks.ProxyURIResolverCallback -> m ()), MonadIO m, IsProxyURIResolver a, Gio.Cancellable.IsCancellable b) => O.MethodInfo ProxyURIResolverGetProxyUriAsyncMethodInfo a signature where-    overloadedMethod _ = proxyURIResolverGetProxyUriAsync--#endif---- method ProxyURIResolver::get_proxy_uri_sync--- method type : OrdinaryMethod--- Args : [Arg {argCName = "proxy_uri_resolver", argType = TInterface (Name {namespace = "Soup", name = "ProxyURIResolver"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupProxyURIResolver", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupURI you want a proxy for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "proxy_uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "on return, will contain the proxy URI", sinceVersion = Nothing}, 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 ->                 -- proxy_uri_resolver : TInterface (Name {namespace = "Soup", name = "ProxyURIResolver"})-    Ptr Soup.URI.URI ->                     -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr Soup.URI.URI) ->               -- proxy_uri : TInterface (Name {namespace = "Soup", name = "URI"})-    IO Word32--{-# DEPRECATED proxyURIResolverGetProxyUriSync ["'GI.Soup.Interfaces.ProxyURIResolver.ProxyURIResolver' is deprecated in favor of","'GI.Gio.Interfaces.ProxyResolver.ProxyResolver'"] #-}-{- |-Synchronously determines a proxy URI to use for /@uri@/. If /@uri@/-should be sent via proxy, */@proxyUri@/ will be set to the URI of the-proxy, else it will be set to 'Nothing'.--/Since: 2.26.3/--}-proxyURIResolverGetProxyUriSync ::-    (B.CallStack.HasCallStack, MonadIO m, IsProxyURIResolver a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@proxyUriResolver@/: the 'GI.Soup.Interfaces.ProxyURIResolver.ProxyURIResolver' -}-    -> Soup.URI.URI-    {- ^ /@uri@/: the 'GI.Soup.Structs.URI.URI' you want a proxy for -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m ((Word32, Soup.URI.URI))-    {- ^ __Returns:__ 'GI.Soup.Enums.StatusOk' if successful, or a transport-level-error. -}-proxyURIResolverGetProxyUriSync proxyUriResolver uri cancellable = liftIO $ do-    proxyUriResolver' <- unsafeManagedPtrCastPtr proxyUriResolver-    uri' <- unsafeManagedPtrGetPtr uri-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    proxyUri <- allocMem :: IO (Ptr (Ptr Soup.URI.URI))-    result <- soup_proxy_uri_resolver_get_proxy_uri_sync proxyUriResolver' uri' maybeCancellable proxyUri-    proxyUri' <- peek proxyUri-    proxyUri'' <- (wrapBoxed Soup.URI.URI) proxyUri'-    touchManagedPtr proxyUriResolver-    touchManagedPtr uri-    whenJust cancellable touchManagedPtr-    freeMem proxyUri-    return (result, proxyUri'')--#if ENABLE_OVERLOADING-data ProxyURIResolverGetProxyUriSyncMethodInfo-instance (signature ~ (Soup.URI.URI -> Maybe (b) -> m ((Word32, Soup.URI.URI))), MonadIO m, IsProxyURIResolver a, Gio.Cancellable.IsCancellable b) => O.MethodInfo ProxyURIResolverGetProxyUriSyncMethodInfo a signature where-    overloadedMethod _ = proxyURIResolverGetProxyUriSync--#endif--
− GI/Soup/Interfaces/ProxyURIResolver.hs-boot 
@@ -1,35 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Interfaces.ProxyURIResolver where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype ProxyURIResolver = ProxyURIResolver (ManagedPtr ProxyURIResolver)-instance GObject ProxyURIResolver where-class (GObject o, O.IsDescendantOf ProxyURIResolver o) => IsProxyURIResolver o-instance (GObject o, O.IsDescendantOf ProxyURIResolver o) => IsProxyURIResolver o-instance O.HasParentTypes ProxyURIResolver-#if ENABLE_OVERLOADING-data ProxyURIResolverGetProxyUriAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data ProxyURIResolverGetProxyUriSyncMethodInfo-#endif
− GI/Soup/Interfaces/SessionFeature.hs 
@@ -1,374 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--An object that implement some sort of optional feature for-'GI.Soup.Objects.Session.Session'.--/Since: 2.24/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Interfaces.SessionFeature-    ( ---- * Exported types-    SessionFeature(..)                      ,-    noSessionFeature                        ,-    IsSessionFeature                        ,-    toSessionFeature                        ,--- -- * Methods--- ** addFeature #method:addFeature#--#if ENABLE_OVERLOADING-    SessionFeatureAddFeatureMethodInfo      ,-#endif-    sessionFeatureAddFeature                ,----- ** attach #method:attach#--#if ENABLE_OVERLOADING-    SessionFeatureAttachMethodInfo          ,-#endif-    sessionFeatureAttach                    ,----- ** detach #method:detach#--#if ENABLE_OVERLOADING-    SessionFeatureDetachMethodInfo          ,-#endif-    sessionFeatureDetach                    ,----- ** hasFeature #method:hasFeature#--#if ENABLE_OVERLOADING-    SessionFeatureHasFeatureMethodInfo      ,-#endif-    sessionFeatureHasFeature                ,----- ** removeFeature #method:removeFeature#--#if ENABLE_OVERLOADING-    SessionFeatureRemoveFeatureMethodInfo   ,-#endif-    sessionFeatureRemoveFeature             ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Soup.Objects.Session as Soup.Session---- interface SessionFeature --- | Memory-managed wrapper type.-newtype SessionFeature = SessionFeature (ManagedPtr SessionFeature)--- | A convenience alias for `Nothing` :: `Maybe` `SessionFeature`.-noSessionFeature :: Maybe SessionFeature-noSessionFeature = Nothing--#if ENABLE_OVERLOADING-type instance O.SignalList SessionFeature = SessionFeatureSignalList-type SessionFeatureSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--foreign import ccall "soup_session_feature_get_type"-    c_soup_session_feature_get_type :: IO GType--instance GObject SessionFeature where-    gobjectType = c_soup_session_feature_get_type-    ---- | Type class for types which can be safely cast to `SessionFeature`, for instance with `toSessionFeature`.-class (GObject o, O.IsDescendantOf SessionFeature o) => IsSessionFeature o-instance (GObject o, O.IsDescendantOf SessionFeature o) => IsSessionFeature o--instance O.HasParentTypes SessionFeature-type instance O.ParentTypes SessionFeature = '[GObject.Object.Object]---- | Cast to `SessionFeature`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toSessionFeature :: (MonadIO m, IsSessionFeature o) => o -> m SessionFeature-toSessionFeature = liftIO . unsafeCastTo SessionFeature--#if ENABLE_OVERLOADING-instance O.HasAttributeList SessionFeature-type instance O.AttributeList SessionFeature = SessionFeatureAttributeList-type SessionFeatureAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveSessionFeatureMethod (t :: Symbol) (o :: *) :: * where-    ResolveSessionFeatureMethod "addFeature" o = SessionFeatureAddFeatureMethodInfo-    ResolveSessionFeatureMethod "attach" o = SessionFeatureAttachMethodInfo-    ResolveSessionFeatureMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveSessionFeatureMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveSessionFeatureMethod "detach" o = SessionFeatureDetachMethodInfo-    ResolveSessionFeatureMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveSessionFeatureMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveSessionFeatureMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveSessionFeatureMethod "hasFeature" o = SessionFeatureHasFeatureMethodInfo-    ResolveSessionFeatureMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveSessionFeatureMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveSessionFeatureMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveSessionFeatureMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveSessionFeatureMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveSessionFeatureMethod "removeFeature" o = SessionFeatureRemoveFeatureMethodInfo-    ResolveSessionFeatureMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveSessionFeatureMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveSessionFeatureMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveSessionFeatureMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveSessionFeatureMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveSessionFeatureMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveSessionFeatureMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveSessionFeatureMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveSessionFeatureMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveSessionFeatureMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveSessionFeatureMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveSessionFeatureMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveSessionFeatureMethod t SessionFeature, O.MethodInfo info SessionFeature p) => OL.IsLabel t (SessionFeature -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif---- method SessionFeature::add_feature--- method type : OrdinaryMethod--- Args : [Arg {argCName = "feature", argType = TInterface (Name {namespace = "Soup", name = "SessionFeature"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the \"base\" feature", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GType of a \"sub-feature\"", sinceVersion = Nothing}, 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 ->                   -- feature : TInterface (Name {namespace = "Soup", name = "SessionFeature"})-    CGType ->                               -- type : TBasicType TGType-    IO CInt--{- |-Adds a \"sub-feature\" of type /@type@/ to the base feature /@feature@/.-This is used for features that can be extended with multiple-different types. Eg, the authentication manager can be extended-with subtypes of 'GI.Soup.Objects.Auth.Auth'.--/Since: 2.34/--}-sessionFeatureAddFeature ::-    (B.CallStack.HasCallStack, MonadIO m, IsSessionFeature a) =>-    a-    {- ^ /@feature@/: the \"base\" feature -}-    -> GType-    {- ^ /@type@/: the 'GType' of a \"sub-feature\" -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@feature@/ accepted /@type@/ as a subfeature. -}-sessionFeatureAddFeature feature type_ = liftIO $ do-    feature' <- unsafeManagedPtrCastPtr feature-    let type_' = gtypeToCGType type_-    result <- soup_session_feature_add_feature feature' type_'-    let result' = (/= 0) result-    touchManagedPtr feature-    return result'--#if ENABLE_OVERLOADING-data SessionFeatureAddFeatureMethodInfo-instance (signature ~ (GType -> m Bool), MonadIO m, IsSessionFeature a) => O.MethodInfo SessionFeatureAddFeatureMethodInfo a signature where-    overloadedMethod _ = sessionFeatureAddFeature--#endif---- method SessionFeature::attach--- method type : OrdinaryMethod--- Args : [Arg {argCName = "feature", argType = TInterface (Name {namespace = "Soup", name = "SessionFeature"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, 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 ->                   -- feature : TInterface (Name {namespace = "Soup", name = "SessionFeature"})-    Ptr Soup.Session.Session ->             -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    IO ()--{- |-/No description available in the introspection data./--}-sessionFeatureAttach ::-    (B.CallStack.HasCallStack, MonadIO m, IsSessionFeature a, Soup.Session.IsSession b) =>-    a-    -> b-    -> m ()-sessionFeatureAttach feature session = liftIO $ do-    feature' <- unsafeManagedPtrCastPtr feature-    session' <- unsafeManagedPtrCastPtr session-    soup_session_feature_attach feature' session'-    touchManagedPtr feature-    touchManagedPtr session-    return ()--#if ENABLE_OVERLOADING-data SessionFeatureAttachMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsSessionFeature a, Soup.Session.IsSession b) => O.MethodInfo SessionFeatureAttachMethodInfo a signature where-    overloadedMethod _ = sessionFeatureAttach--#endif---- method SessionFeature::detach--- method type : OrdinaryMethod--- Args : [Arg {argCName = "feature", argType = TInterface (Name {namespace = "Soup", name = "SessionFeature"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, 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 ->                   -- feature : TInterface (Name {namespace = "Soup", name = "SessionFeature"})-    Ptr Soup.Session.Session ->             -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    IO ()--{- |-/No description available in the introspection data./--}-sessionFeatureDetach ::-    (B.CallStack.HasCallStack, MonadIO m, IsSessionFeature a, Soup.Session.IsSession b) =>-    a-    -> b-    -> m ()-sessionFeatureDetach feature session = liftIO $ do-    feature' <- unsafeManagedPtrCastPtr feature-    session' <- unsafeManagedPtrCastPtr session-    soup_session_feature_detach feature' session'-    touchManagedPtr feature-    touchManagedPtr session-    return ()--#if ENABLE_OVERLOADING-data SessionFeatureDetachMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsSessionFeature a, Soup.Session.IsSession b) => O.MethodInfo SessionFeatureDetachMethodInfo a signature where-    overloadedMethod _ = sessionFeatureDetach--#endif---- method SessionFeature::has_feature--- method type : OrdinaryMethod--- Args : [Arg {argCName = "feature", argType = TInterface (Name {namespace = "Soup", name = "SessionFeature"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the \"base\" feature", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GType of a \"sub-feature\"", sinceVersion = Nothing}, 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 ->                   -- feature : TInterface (Name {namespace = "Soup", name = "SessionFeature"})-    CGType ->                               -- type : TBasicType TGType-    IO CInt--{- |-Tests if /@feature@/ has a \"sub-feature\" of type /@type@/. See-'GI.Soup.Interfaces.SessionFeature.sessionFeatureAddFeature'.--/Since: 2.34/--}-sessionFeatureHasFeature ::-    (B.CallStack.HasCallStack, MonadIO m, IsSessionFeature a) =>-    a-    {- ^ /@feature@/: the \"base\" feature -}-    -> GType-    {- ^ /@type@/: the 'GType' of a \"sub-feature\" -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@feature@/ has a subfeature of type /@type@/ -}-sessionFeatureHasFeature feature type_ = liftIO $ do-    feature' <- unsafeManagedPtrCastPtr feature-    let type_' = gtypeToCGType type_-    result <- soup_session_feature_has_feature feature' type_'-    let result' = (/= 0) result-    touchManagedPtr feature-    return result'--#if ENABLE_OVERLOADING-data SessionFeatureHasFeatureMethodInfo-instance (signature ~ (GType -> m Bool), MonadIO m, IsSessionFeature a) => O.MethodInfo SessionFeatureHasFeatureMethodInfo a signature where-    overloadedMethod _ = sessionFeatureHasFeature--#endif---- method SessionFeature::remove_feature--- method type : OrdinaryMethod--- Args : [Arg {argCName = "feature", argType = TInterface (Name {namespace = "Soup", name = "SessionFeature"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the \"base\" feature", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GType of a \"sub-feature\"", sinceVersion = Nothing}, 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 ->                   -- feature : TInterface (Name {namespace = "Soup", name = "SessionFeature"})-    CGType ->                               -- type : TBasicType TGType-    IO CInt--{- |-Removes the \"sub-feature\" of type /@type@/ from the base feature-/@feature@/. See 'GI.Soup.Interfaces.SessionFeature.sessionFeatureAddFeature'.--/Since: 2.34/--}-sessionFeatureRemoveFeature ::-    (B.CallStack.HasCallStack, MonadIO m, IsSessionFeature a) =>-    a-    {- ^ /@feature@/: the \"base\" feature -}-    -> GType-    {- ^ /@type@/: the 'GType' of a \"sub-feature\" -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@type@/ was removed from /@feature@/ -}-sessionFeatureRemoveFeature feature type_ = liftIO $ do-    feature' <- unsafeManagedPtrCastPtr feature-    let type_' = gtypeToCGType type_-    result <- soup_session_feature_remove_feature feature' type_'-    let result' = (/= 0) result-    touchManagedPtr feature-    return result'--#if ENABLE_OVERLOADING-data SessionFeatureRemoveFeatureMethodInfo-instance (signature ~ (GType -> m Bool), MonadIO m, IsSessionFeature a) => O.MethodInfo SessionFeatureRemoveFeatureMethodInfo a signature where-    overloadedMethod _ = sessionFeatureRemoveFeature--#endif--
− GI/Soup/Interfaces/SessionFeature.hs-boot 
@@ -1,44 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Interfaces.SessionFeature where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype SessionFeature = SessionFeature (ManagedPtr SessionFeature)-instance GObject SessionFeature where-class (GObject o, O.IsDescendantOf SessionFeature o) => IsSessionFeature o-instance (GObject o, O.IsDescendantOf SessionFeature o) => IsSessionFeature o-instance O.HasParentTypes SessionFeature-#if ENABLE_OVERLOADING-data SessionFeatureAddFeatureMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionFeatureAttachMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionFeatureDetachMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionFeatureHasFeatureMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionFeatureRemoveFeatureMethodInfo-#endif
− GI/Soup/Objects.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 (inaki@blueleaf.cc)--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--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.AuthNegotiate    ,-    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.AuthNegotiate-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.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL---
− GI/Soup/Objects/Address.hs 
@@ -1,1185 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Objects.Address-    ( ---- * Exported types-    Address(..)                             ,-    IsAddress                               ,-    toAddress                               ,-    noAddress                               ,--- -- * Methods--- ** equalByIp #method:equalByIp#--#if ENABLE_OVERLOADING-    AddressEqualByIpMethodInfo              ,-#endif-    addressEqualByIp                        ,----- ** equalByName #method:equalByName#--#if ENABLE_OVERLOADING-    AddressEqualByNameMethodInfo            ,-#endif-    addressEqualByName                      ,----- ** getGsockaddr #method:getGsockaddr#--#if ENABLE_OVERLOADING-    AddressGetGsockaddrMethodInfo           ,-#endif-    addressGetGsockaddr                     ,----- ** getName #method:getName#--#if ENABLE_OVERLOADING-    AddressGetNameMethodInfo                ,-#endif-    addressGetName                          ,----- ** getPhysical #method:getPhysical#--#if ENABLE_OVERLOADING-    AddressGetPhysicalMethodInfo            ,-#endif-    addressGetPhysical                      ,----- ** getPort #method:getPort#--#if ENABLE_OVERLOADING-    AddressGetPortMethodInfo                ,-#endif-    addressGetPort                          ,----- ** hashByIp #method:hashByIp#--#if ENABLE_OVERLOADING-    AddressHashByIpMethodInfo               ,-#endif-    addressHashByIp                         ,----- ** hashByName #method:hashByName#--#if ENABLE_OVERLOADING-    AddressHashByNameMethodInfo             ,-#endif-    addressHashByName                       ,----- ** isResolved #method:isResolved#--#if ENABLE_OVERLOADING-    AddressIsResolvedMethodInfo             ,-#endif-    addressIsResolved                       ,----- ** new #method:new#--    addressNew                              ,----- ** newAny #method:newAny#--    addressNewAny                           ,----- ** newFromSockaddr #method:newFromSockaddr#--    addressNewFromSockaddr                  ,----- ** resolveAsync #method:resolveAsync#--#if ENABLE_OVERLOADING-    AddressResolveAsyncMethodInfo           ,-#endif-    addressResolveAsync                     ,----- ** resolveSync #method:resolveSync#--#if ENABLE_OVERLOADING-    AddressResolveSyncMethodInfo            ,-#endif-    addressResolveSync                      ,----- -- * Properties--- ** family #attr:family#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    AddressFamilyPropertyInfo               ,-#endif-#if ENABLE_OVERLOADING-    addressFamily                           ,-#endif-    constructAddressFamily                  ,-    getAddressFamily                        ,----- ** name #attr:name#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    AddressNamePropertyInfo                 ,-#endif-#if ENABLE_OVERLOADING-    addressName                             ,-#endif-    constructAddressName                    ,-    getAddressName                          ,----- ** physical #attr:physical#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    AddressPhysicalPropertyInfo             ,-#endif-#if ENABLE_OVERLOADING-    addressPhysical                         ,-#endif-    getAddressPhysical                      ,----- ** port #attr:port#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    AddressPortPropertyInfo                 ,-#endif-#if ENABLE_OVERLOADING-    addressPort                             ,-#endif-    constructAddressPort                    ,-    getAddressPort                          ,----- ** protocol #attr:protocol#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    AddressProtocolPropertyInfo             ,-#endif-#if ENABLE_OVERLOADING-    addressProtocol                         ,-#endif-    constructAddressProtocol                ,-    getAddressProtocol                      ,----- ** sockaddr #attr:sockaddr#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    AddressSockaddrPropertyInfo             ,-#endif-#if ENABLE_OVERLOADING-    addressSockaddr                         ,-#endif-    constructAddressSockaddr                ,-    getAddressSockaddr                      ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GLib.Structs.MainContext as GLib.MainContext-import qualified GI.GObject.Objects.Object as GObject.Object-import qualified GI.Gio.Interfaces.SocketConnectable as Gio.SocketConnectable-import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import qualified GI.Gio.Objects.SocketAddress as Gio.SocketAddress-import qualified GI.Soup.Callbacks as Soup.Callbacks-import {-# SOURCE #-} qualified GI.Soup.Enums as Soup.Enums---- | Memory-managed wrapper type.-newtype Address = Address (ManagedPtr Address)-foreign import ccall "soup_address_get_type"-    c_soup_address_get_type :: IO GType--instance GObject Address where-    gobjectType = c_soup_address_get_type-    ---- | Type class for types which can be safely cast to `Address`, for instance with `toAddress`.-class (GObject o, O.IsDescendantOf Address o) => IsAddress o-instance (GObject o, O.IsDescendantOf Address o) => IsAddress o--instance O.HasParentTypes Address-type instance O.ParentTypes Address = '[GObject.Object.Object, Gio.SocketConnectable.SocketConnectable]---- | Cast to `Address`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toAddress :: (MonadIO m, IsAddress o) => o -> m Address-toAddress = liftIO . unsafeCastTo Address---- | A convenience alias for `Nothing` :: `Maybe` `Address`.-noAddress :: Maybe Address-noAddress = Nothing--#if ENABLE_OVERLOADING-type family ResolveAddressMethod (t :: Symbol) (o :: *) :: * where-    ResolveAddressMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveAddressMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveAddressMethod "enumerate" o = Gio.SocketConnectable.SocketConnectableEnumerateMethodInfo-    ResolveAddressMethod "equalByIp" o = AddressEqualByIpMethodInfo-    ResolveAddressMethod "equalByName" o = AddressEqualByNameMethodInfo-    ResolveAddressMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveAddressMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveAddressMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveAddressMethod "hashByIp" o = AddressHashByIpMethodInfo-    ResolveAddressMethod "hashByName" o = AddressHashByNameMethodInfo-    ResolveAddressMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveAddressMethod "isResolved" o = AddressIsResolvedMethodInfo-    ResolveAddressMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveAddressMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveAddressMethod "proxyEnumerate" o = Gio.SocketConnectable.SocketConnectableProxyEnumerateMethodInfo-    ResolveAddressMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveAddressMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveAddressMethod "resolveAsync" o = AddressResolveAsyncMethodInfo-    ResolveAddressMethod "resolveSync" o = AddressResolveSyncMethodInfo-    ResolveAddressMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveAddressMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveAddressMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveAddressMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveAddressMethod "toString" o = Gio.SocketConnectable.SocketConnectableToStringMethodInfo-    ResolveAddressMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveAddressMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveAddressMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveAddressMethod "getGsockaddr" o = AddressGetGsockaddrMethodInfo-    ResolveAddressMethod "getName" o = AddressGetNameMethodInfo-    ResolveAddressMethod "getPhysical" o = AddressGetPhysicalMethodInfo-    ResolveAddressMethod "getPort" o = AddressGetPortMethodInfo-    ResolveAddressMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveAddressMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveAddressMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveAddressMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveAddressMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveAddressMethod t Address, O.MethodInfo info Address p) => OL.IsLabel t (Address -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif---- VVV Prop "family"-   -- Type: TInterface (Name {namespace = "Soup", name = "AddressFamily"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@family@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' address #family-@--}-getAddressFamily :: (MonadIO m, IsAddress o) => o -> m Soup.Enums.AddressFamily-getAddressFamily obj = liftIO $ B.Properties.getObjectPropertyEnum obj "family"--{- |-Construct a `GValueConstruct` with valid value for the “@family@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructAddressFamily :: (IsAddress o) => Soup.Enums.AddressFamily -> IO (GValueConstruct o)-constructAddressFamily val = B.Properties.constructObjectPropertyEnum "family" val--#if ENABLE_OVERLOADING-data AddressFamilyPropertyInfo-instance AttrInfo AddressFamilyPropertyInfo where-    type AttrAllowedOps AddressFamilyPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AddressFamilyPropertyInfo = (~) Soup.Enums.AddressFamily-    type AttrBaseTypeConstraint AddressFamilyPropertyInfo = IsAddress-    type AttrGetType AddressFamilyPropertyInfo = Soup.Enums.AddressFamily-    type AttrLabel AddressFamilyPropertyInfo = "family"-    type AttrOrigin AddressFamilyPropertyInfo = Address-    attrGet _ = getAddressFamily-    attrSet _ = undefined-    attrConstruct _ = constructAddressFamily-    attrClear _ = undefined-#endif---- VVV Prop "name"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just True,Nothing)--{- |-Get the value of the “@name@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' address #name-@--}-getAddressName :: (MonadIO m, IsAddress o) => o -> m (Maybe T.Text)-getAddressName obj = liftIO $ B.Properties.getObjectPropertyString obj "name"--{- |-Construct a `GValueConstruct` with valid value for the “@name@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructAddressName :: (IsAddress o) => T.Text -> IO (GValueConstruct o)-constructAddressName val = B.Properties.constructObjectPropertyString "name" (Just val)--#if ENABLE_OVERLOADING-data AddressNamePropertyInfo-instance AttrInfo AddressNamePropertyInfo where-    type AttrAllowedOps AddressNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint AddressNamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint AddressNamePropertyInfo = IsAddress-    type AttrGetType AddressNamePropertyInfo = (Maybe T.Text)-    type AttrLabel AddressNamePropertyInfo = "name"-    type AttrOrigin AddressNamePropertyInfo = Address-    attrGet _ = getAddressName-    attrSet _ = undefined-    attrConstruct _ = constructAddressName-    attrClear _ = undefined-#endif---- VVV Prop "physical"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Just True,Nothing)--{- |-Get the value of the “@physical@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' address #physical-@--}-getAddressPhysical :: (MonadIO m, IsAddress o) => o -> m (Maybe T.Text)-getAddressPhysical obj = liftIO $ B.Properties.getObjectPropertyString obj "physical"--#if ENABLE_OVERLOADING-data AddressPhysicalPropertyInfo-instance AttrInfo AddressPhysicalPropertyInfo where-    type AttrAllowedOps AddressPhysicalPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint AddressPhysicalPropertyInfo = (~) ()-    type AttrBaseTypeConstraint AddressPhysicalPropertyInfo = IsAddress-    type AttrGetType AddressPhysicalPropertyInfo = (Maybe T.Text)-    type AttrLabel AddressPhysicalPropertyInfo = "physical"-    type AttrOrigin AddressPhysicalPropertyInfo = Address-    attrGet _ = getAddressPhysical-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "port"-   -- Type: TBasicType TInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@port@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' address #port-@--}-getAddressPort :: (MonadIO m, IsAddress o) => o -> m Int32-getAddressPort obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "port"--{- |-Construct a `GValueConstruct` with valid value for the “@port@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructAddressPort :: (IsAddress o) => Int32 -> IO (GValueConstruct o)-constructAddressPort val = B.Properties.constructObjectPropertyInt32 "port" val--#if ENABLE_OVERLOADING-data AddressPortPropertyInfo-instance AttrInfo AddressPortPropertyInfo where-    type AttrAllowedOps AddressPortPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AddressPortPropertyInfo = (~) Int32-    type AttrBaseTypeConstraint AddressPortPropertyInfo = IsAddress-    type AttrGetType AddressPortPropertyInfo = Int32-    type AttrLabel AddressPortPropertyInfo = "port"-    type AttrOrigin AddressPortPropertyInfo = Address-    attrGet _ = getAddressPort-    attrSet _ = undefined-    attrConstruct _ = constructAddressPort-    attrClear _ = undefined-#endif---- VVV Prop "protocol"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@protocol@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' address #protocol-@--}-getAddressProtocol :: (MonadIO m, IsAddress o) => o -> m (Maybe T.Text)-getAddressProtocol obj = liftIO $ B.Properties.getObjectPropertyString obj "protocol"--{- |-Construct a `GValueConstruct` with valid value for the “@protocol@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructAddressProtocol :: (IsAddress o) => T.Text -> IO (GValueConstruct o)-constructAddressProtocol val = B.Properties.constructObjectPropertyString "protocol" (Just val)--#if ENABLE_OVERLOADING-data AddressProtocolPropertyInfo-instance AttrInfo AddressProtocolPropertyInfo where-    type AttrAllowedOps AddressProtocolPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint AddressProtocolPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint AddressProtocolPropertyInfo = IsAddress-    type AttrGetType AddressProtocolPropertyInfo = (Maybe T.Text)-    type AttrLabel AddressProtocolPropertyInfo = "protocol"-    type AttrOrigin AddressProtocolPropertyInfo = Address-    attrGet _ = getAddressProtocol-    attrSet _ = undefined-    attrConstruct _ = constructAddressProtocol-    attrClear _ = undefined-#endif---- VVV Prop "sockaddr"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@sockaddr@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' address #sockaddr-@--}-getAddressSockaddr :: (MonadIO m, IsAddress o) => o -> m (Ptr ())-getAddressSockaddr obj = liftIO $ B.Properties.getObjectPropertyPtr obj "sockaddr"--{- |-Construct a `GValueConstruct` with valid value for the “@sockaddr@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructAddressSockaddr :: (IsAddress o) => Ptr () -> IO (GValueConstruct o)-constructAddressSockaddr val = B.Properties.constructObjectPropertyPtr "sockaddr" val--#if ENABLE_OVERLOADING-data AddressSockaddrPropertyInfo-instance AttrInfo AddressSockaddrPropertyInfo where-    type AttrAllowedOps AddressSockaddrPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AddressSockaddrPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint AddressSockaddrPropertyInfo = IsAddress-    type AttrGetType AddressSockaddrPropertyInfo = (Ptr ())-    type AttrLabel AddressSockaddrPropertyInfo = "sockaddr"-    type AttrOrigin AddressSockaddrPropertyInfo = Address-    attrGet _ = getAddressSockaddr-    attrSet _ = undefined-    attrConstruct _ = constructAddressSockaddr-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList Address-type instance O.AttributeList Address = AddressAttributeList-type AddressAttributeList = ('[ '("family", AddressFamilyPropertyInfo), '("name", AddressNamePropertyInfo), '("physical", AddressPhysicalPropertyInfo), '("port", AddressPortPropertyInfo), '("protocol", AddressProtocolPropertyInfo), '("sockaddr", AddressSockaddrPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-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--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList Address = AddressSignalList-type AddressSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method Address::new--- method type : Constructor--- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a hostname or physical address", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a port number", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "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)--{- |-Creates a 'GI.Soup.Objects.Address.Address' from /@name@/ and /@port@/. The 'GI.Soup.Objects.Address.Address'\'s IP-address may not be available right away; the caller can call-'GI.Soup.Objects.Address.addressResolveAsync' or 'GI.Soup.Objects.Address.addressResolveSync' to-force a DNS resolution.--}-addressNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@name@/: a hostname or physical address -}-    -> Word32-    {- ^ /@port@/: a port number -}-    -> m Address-    {- ^ __Returns:__ a 'GI.Soup.Objects.Address.Address' -}-addressNew name port = liftIO $ do-    name' <- textToCString name-    result <- soup_address_new name' port-    checkUnexpectedReturnNULL "addressNew" result-    result' <- (wrapObject Address) result-    freeMem name'-    return result'--#if ENABLE_OVERLOADING-#endif---- method Address::new_any--- method type : Constructor--- Args : [Arg {argCName = "family", argType = TInterface (Name {namespace = "Soup", name = "AddressFamily"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the address family", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the port number (usually %SOUP_ADDRESS_ANY_PORT)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Address"}))--- throws : False--- Skip return : False--foreign import ccall "soup_address_new_any" soup_address_new_any :: -    CInt ->                                 -- family : TInterface (Name {namespace = "Soup", name = "AddressFamily"})-    Word32 ->                               -- port : TBasicType TUInt-    IO (Ptr Address)--{- |-Returns a 'GI.Soup.Objects.Address.Address' corresponding to the \"any\" address-for /@family@/ (or 'Nothing' if /@family@/ isn\'t supported), suitable for-using as a listening 'GI.Soup.Objects.Socket.Socket'.--}-addressNewAny ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Soup.Enums.AddressFamily-    {- ^ /@family@/: the address family -}-    -> Word32-    {- ^ /@port@/: the port number (usually 'GI.Soup.Constants.ADDRESS_ANY_PORT') -}-    -> m (Maybe Address)-    {- ^ __Returns:__ the new 'GI.Soup.Objects.Address.Address' -}-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--#if ENABLE_OVERLOADING-#endif---- method Address::new_from_sockaddr--- method type : Constructor--- Args : [Arg {argCName = "sa", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a pointer to a sockaddr", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "size of @sa", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "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)--{- |-Returns a 'GI.Soup.Objects.Address.Address' equivalent to /@sa@/ (or 'Nothing' if /@sa@/\'s-address family isn\'t supported)--}-addressNewFromSockaddr ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Ptr ()-    {- ^ /@sa@/: a pointer to a sockaddr -}-    -> Int32-    {- ^ /@len@/: size of /@sa@/ -}-    -> m (Maybe Address)-    {- ^ __Returns:__ the new 'GI.Soup.Objects.Address.Address' -}-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--#if ENABLE_OVERLOADING-#endif---- method Address::equal_by_ip--- method type : OrdinaryMethod--- Args : [Arg {argCName = "addr1", argType = TInterface (Name {namespace = "Soup", name = "Address"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAddress with a resolved IP\n  address", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "addr2", argType = TInterface (Name {namespace = "Soup", name = "Address"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "another #SoupAddress with a resolved\n  IP address", sinceVersion = Nothing}, 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 ->                          -- addr1 : TInterface (Name {namespace = "Soup", name = "Address"})-    Ptr Address ->                          -- addr2 : TInterface (Name {namespace = "Soup", name = "Address"})-    IO CInt--{- |-Tests if /@addr1@/ and /@addr2@/ have the same IP address. This method-can be used with 'GI.Soup.Objects.Address.addressHashByIp' to create a-'GI.GLib.Structs.HashTable.HashTable' that hashes on IP address.--This would be used to distinguish hosts in situations where-different virtual hosts on the same IP address should be considered-the same. Eg, if \"www.example.com\" and \"www.example.net\" have the-same IP address, then a single connection can be used to talk-to either of them.--See also 'GI.Soup.Objects.Address.addressEqualByName', which compares by name-rather than by IP address.--/Since: 2.26/--}-addressEqualByIp ::-    (B.CallStack.HasCallStack, MonadIO m, IsAddress a, IsAddress b) =>-    a-    {- ^ /@addr1@/: a 'GI.Soup.Objects.Address.Address' with a resolved IP-  address -}-    -> b-    {- ^ /@addr2@/: another 'GI.Soup.Objects.Address.Address' with a resolved-  IP address -}-    -> m Bool-    {- ^ __Returns:__ whether or not /@addr1@/ and /@addr2@/ have the same IP-address. -}-addressEqualByIp addr1 addr2 = liftIO $ do-    addr1' <- unsafeManagedPtrCastPtr addr1-    addr2' <- unsafeManagedPtrCastPtr addr2-    result <- soup_address_equal_by_ip addr1' addr2'-    let result' = (/= 0) result-    touchManagedPtr addr1-    touchManagedPtr addr2-    return result'--#if ENABLE_OVERLOADING-data AddressEqualByIpMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, IsAddress a, IsAddress b) => O.MethodInfo AddressEqualByIpMethodInfo a signature where-    overloadedMethod _ = addressEqualByIp--#endif---- method Address::equal_by_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "addr1", argType = TInterface (Name {namespace = "Soup", name = "Address"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAddress with a resolved name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "addr2", argType = TInterface (Name {namespace = "Soup", name = "Address"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "another #SoupAddress with a resolved\n  name", sinceVersion = Nothing}, 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 ->                          -- addr1 : TInterface (Name {namespace = "Soup", name = "Address"})-    Ptr Address ->                          -- addr2 : TInterface (Name {namespace = "Soup", name = "Address"})-    IO CInt--{- |-Tests if /@addr1@/ and /@addr2@/ have the same \"name\". This method can be-used with 'GI.Soup.Objects.Address.addressHashByName' to create a 'GI.GLib.Structs.HashTable.HashTable' that-hashes on address \"names\".--Comparing by name normally means comparing the addresses by their-hostnames. But if the address was originally created using an IP-address literal, then it will be compared by that instead.--In particular, if \"www.example.com\" has the IP address 10.0.0.1,-and /@addr1@/ was created with the name \"www.example.com\" and /@addr2@/-was created with the name \"10.0.0.1\", then they will compare as-unequal for purposes of 'GI.Soup.Objects.Address.addressEqualByName'.--This would be used to distinguish hosts in situations where-different virtual hosts on the same IP address should be considered-different. Eg, for purposes of HTTP authentication or cookies, two-hosts with the same IP address but different names are considered-to be different hosts.--See also 'GI.Soup.Objects.Address.addressEqualByIp', which compares by IP address-rather than by name.--/Since: 2.26/--}-addressEqualByName ::-    (B.CallStack.HasCallStack, MonadIO m, IsAddress a, IsAddress b) =>-    a-    {- ^ /@addr1@/: a 'GI.Soup.Objects.Address.Address' with a resolved name -}-    -> b-    {- ^ /@addr2@/: another 'GI.Soup.Objects.Address.Address' with a resolved-  name -}-    -> m Bool-    {- ^ __Returns:__ whether or not /@addr1@/ and /@addr2@/ have the same name -}-addressEqualByName addr1 addr2 = liftIO $ do-    addr1' <- unsafeManagedPtrCastPtr addr1-    addr2' <- unsafeManagedPtrCastPtr addr2-    result <- soup_address_equal_by_name addr1' addr2'-    let result' = (/= 0) result-    touchManagedPtr addr1-    touchManagedPtr addr2-    return result'--#if ENABLE_OVERLOADING-data AddressEqualByNameMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, IsAddress a, IsAddress b) => O.MethodInfo AddressEqualByNameMethodInfo a signature where-    overloadedMethod _ = addressEqualByName--#endif---- method Address::get_gsockaddr--- method type : OrdinaryMethod--- Args : [Arg {argCName = "addr", argType = TInterface (Name {namespace = "Soup", name = "Address"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAddress", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketAddress"}))--- throws : False--- Skip return : False--foreign import ccall "soup_address_get_gsockaddr" soup_address_get_gsockaddr :: -    Ptr Address ->                          -- addr : TInterface (Name {namespace = "Soup", name = "Address"})-    IO (Ptr Gio.SocketAddress.SocketAddress)--{- |-Creates a new 'GI.Gio.Objects.SocketAddress.SocketAddress' corresponding to /@addr@/ (which is assumed-to only have one socket address associated with it).--/Since: 2.32/--}-addressGetGsockaddr ::-    (B.CallStack.HasCallStack, MonadIO m, IsAddress a) =>-    a-    {- ^ /@addr@/: a 'GI.Soup.Objects.Address.Address' -}-    -> m Gio.SocketAddress.SocketAddress-    {- ^ __Returns:__ a new 'GI.Gio.Objects.SocketAddress.SocketAddress' -}-addressGetGsockaddr addr = liftIO $ do-    addr' <- unsafeManagedPtrCastPtr addr-    result <- soup_address_get_gsockaddr addr'-    checkUnexpectedReturnNULL "addressGetGsockaddr" result-    result' <- (wrapObject Gio.SocketAddress.SocketAddress) result-    touchManagedPtr addr-    return result'--#if ENABLE_OVERLOADING-data AddressGetGsockaddrMethodInfo-instance (signature ~ (m Gio.SocketAddress.SocketAddress), MonadIO m, IsAddress a) => O.MethodInfo AddressGetGsockaddrMethodInfo a signature where-    overloadedMethod _ = addressGetGsockaddr--#endif---- method Address::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "addr", argType = TInterface (Name {namespace = "Soup", name = "Address"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAddress", sinceVersion = Nothing}, 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 ->                          -- addr : TInterface (Name {namespace = "Soup", name = "Address"})-    IO CString--{- |-Returns the hostname associated with /@addr@/.--This method is not thread-safe; if you call it while /@addr@/ is being-resolved in another thread, it may return garbage. You can use-'GI.Soup.Objects.Address.addressIsResolved' to safely test whether or not an address-is resolved before fetching its name or address.--}-addressGetName ::-    (B.CallStack.HasCallStack, MonadIO m, IsAddress a) =>-    a-    {- ^ /@addr@/: a 'GI.Soup.Objects.Address.Address' -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ the hostname, or 'Nothing' if it is not known. -}-addressGetName addr = liftIO $ do-    addr' <- unsafeManagedPtrCastPtr addr-    result <- soup_address_get_name addr'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr addr-    return maybeResult--#if ENABLE_OVERLOADING-data AddressGetNameMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsAddress a) => O.MethodInfo AddressGetNameMethodInfo a signature where-    overloadedMethod _ = addressGetName--#endif---- method Address::get_physical--- method type : OrdinaryMethod--- Args : [Arg {argCName = "addr", argType = TInterface (Name {namespace = "Soup", name = "Address"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAddress", sinceVersion = Nothing}, 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 ->                          -- addr : TInterface (Name {namespace = "Soup", name = "Address"})-    IO CString--{- |-Returns the physical address associated with /@addr@/ as a string.-(Eg, \"127.0.0.1\"). If the address is not yet known, returns 'Nothing'.--This method is not thread-safe; if you call it while /@addr@/ is being-resolved in another thread, it may return garbage. You can use-'GI.Soup.Objects.Address.addressIsResolved' to safely test whether or not an address-is resolved before fetching its name or address.--}-addressGetPhysical ::-    (B.CallStack.HasCallStack, MonadIO m, IsAddress a) =>-    a-    {- ^ /@addr@/: a 'GI.Soup.Objects.Address.Address' -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ the physical address, or 'Nothing' -}-addressGetPhysical addr = liftIO $ do-    addr' <- unsafeManagedPtrCastPtr addr-    result <- soup_address_get_physical addr'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr addr-    return maybeResult--#if ENABLE_OVERLOADING-data AddressGetPhysicalMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsAddress a) => O.MethodInfo AddressGetPhysicalMethodInfo a signature where-    overloadedMethod _ = addressGetPhysical--#endif---- method Address::get_port--- method type : OrdinaryMethod--- Args : [Arg {argCName = "addr", argType = TInterface (Name {namespace = "Soup", name = "Address"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAddress", sinceVersion = Nothing}, 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 ->                          -- addr : TInterface (Name {namespace = "Soup", name = "Address"})-    IO Word32--{- |-Returns the port associated with /@addr@/.--}-addressGetPort ::-    (B.CallStack.HasCallStack, MonadIO m, IsAddress a) =>-    a-    {- ^ /@addr@/: a 'GI.Soup.Objects.Address.Address' -}-    -> m Word32-    {- ^ __Returns:__ the port -}-addressGetPort addr = liftIO $ do-    addr' <- unsafeManagedPtrCastPtr addr-    result <- soup_address_get_port addr'-    touchManagedPtr addr-    return result--#if ENABLE_OVERLOADING-data AddressGetPortMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsAddress a) => O.MethodInfo AddressGetPortMethodInfo a signature where-    overloadedMethod _ = addressGetPort--#endif---- method Address::hash_by_ip--- method type : OrdinaryMethod--- Args : [Arg {argCName = "addr", argType = TInterface (Name {namespace = "Soup", name = "Address"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAddress", sinceVersion = Nothing}, 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 ->                          -- addr : TInterface (Name {namespace = "Soup", name = "Address"})-    IO Word32--{- |-A hash function (for 'GI.GLib.Structs.HashTable.HashTable') that corresponds to-'GI.Soup.Objects.Address.addressEqualByIp', qv--/Since: 2.26/--}-addressHashByIp ::-    (B.CallStack.HasCallStack, MonadIO m, IsAddress a) =>-    a-    {- ^ /@addr@/: a 'GI.Soup.Objects.Address.Address' -}-    -> m Word32-    {- ^ __Returns:__ the IP-based hash value for /@addr@/. -}-addressHashByIp addr = liftIO $ do-    addr' <- unsafeManagedPtrCastPtr addr-    result <- soup_address_hash_by_ip addr'-    touchManagedPtr addr-    return result--#if ENABLE_OVERLOADING-data AddressHashByIpMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsAddress a) => O.MethodInfo AddressHashByIpMethodInfo a signature where-    overloadedMethod _ = addressHashByIp--#endif---- method Address::hash_by_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "addr", argType = TInterface (Name {namespace = "Soup", name = "Address"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAddress", sinceVersion = Nothing}, 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 ->                          -- addr : TInterface (Name {namespace = "Soup", name = "Address"})-    IO Word32--{- |-A hash function (for 'GI.GLib.Structs.HashTable.HashTable') that corresponds to-'GI.Soup.Objects.Address.addressEqualByName', qv--/Since: 2.26/--}-addressHashByName ::-    (B.CallStack.HasCallStack, MonadIO m, IsAddress a) =>-    a-    {- ^ /@addr@/: a 'GI.Soup.Objects.Address.Address' -}-    -> m Word32-    {- ^ __Returns:__ the named-based hash value for /@addr@/. -}-addressHashByName addr = liftIO $ do-    addr' <- unsafeManagedPtrCastPtr addr-    result <- soup_address_hash_by_name addr'-    touchManagedPtr addr-    return result--#if ENABLE_OVERLOADING-data AddressHashByNameMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsAddress a) => O.MethodInfo AddressHashByNameMethodInfo a signature where-    overloadedMethod _ = addressHashByName--#endif---- method Address::is_resolved--- method type : OrdinaryMethod--- Args : [Arg {argCName = "addr", argType = TInterface (Name {namespace = "Soup", name = "Address"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAddress", sinceVersion = Nothing}, 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 ->                          -- addr : TInterface (Name {namespace = "Soup", name = "Address"})-    IO CInt--{- |-Tests if /@addr@/ has already been resolved. Unlike the other-'GI.Soup.Objects.Address.Address' \"get\" methods, this is safe to call when /@addr@/ might-be being resolved in another thread.--}-addressIsResolved ::-    (B.CallStack.HasCallStack, MonadIO m, IsAddress a) =>-    a-    {- ^ /@addr@/: a 'GI.Soup.Objects.Address.Address' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@addr@/ has been resolved. -}-addressIsResolved addr = liftIO $ do-    addr' <- unsafeManagedPtrCastPtr addr-    result <- soup_address_is_resolved addr'-    let result' = (/= 0) result-    touchManagedPtr addr-    return result'--#if ENABLE_OVERLOADING-data AddressIsResolvedMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsAddress a) => O.MethodInfo AddressIsResolvedMethodInfo a signature where-    overloadedMethod _ = addressIsResolved--#endif---- method Address::resolve_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "addr", argType = TInterface (Name {namespace = "Soup", name = "Address"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAddress", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "async_context", argType = TInterface (Name {namespace = "GLib", name = "MainContext"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the #GMainContext to call @callback from", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable object, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Soup", name = "AddressCallback"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "callback to call with the result", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data for @callback", sinceVersion = Nothing}, 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 ->                          -- addr : TInterface (Name {namespace = "Soup", name = "Address"})-    Ptr GLib.MainContext.MainContext ->     -- async_context : TInterface (Name {namespace = "GLib", name = "MainContext"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    FunPtr Soup.Callbacks.C_AddressCallback -> -- callback : TInterface (Name {namespace = "Soup", name = "AddressCallback"})-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()--{- |-Asynchronously resolves the missing half of /@addr@/ (its IP address-if it was created with 'GI.Soup.Objects.Address.addressNew', or its hostname if it-was created with 'GI.Soup.Objects.Address.addressNewFromSockaddr' or-'GI.Soup.Objects.Address.addressNewAny'.)--If /@cancellable@/ is non-'Nothing', it can be used to cancel the-resolution. /@callback@/ will still be invoked in this case, with a-status of 'GI.Soup.Enums.StatusCancelled'.--It is safe to call this more than once on a given address, from the-same thread, with the same /@asyncContext@/ (and doing so will not-result in redundant DNS queries being made). But it is not safe to-call from multiple threads, or with different /@asyncContexts@/, or-mixed with calls to 'GI.Soup.Objects.Address.addressResolveSync'.--}-addressResolveAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsAddress a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@addr@/: a 'GI.Soup.Objects.Address.Address' -}-    -> Maybe (GLib.MainContext.MainContext)-    {- ^ /@asyncContext@/: the 'GI.GLib.Structs.MainContext.MainContext' to call /@callback@/ from -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' object, or 'Nothing' -}-    -> Soup.Callbacks.AddressCallback-    {- ^ /@callback@/: callback to call with the result -}-    -> m ()-addressResolveAsync addr asyncContext cancellable callback = liftIO $ do-    addr' <- unsafeManagedPtrCastPtr addr-    maybeAsyncContext <- case asyncContext of-        Nothing -> return nullPtr-        Just jAsyncContext -> do-            jAsyncContext' <- unsafeManagedPtrGetPtr jAsyncContext-            return jAsyncContext'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr Soup.Callbacks.C_AddressCallback))-    callback' <- Soup.Callbacks.mk_AddressCallback (Soup.Callbacks.wrap_AddressCallback (Just ptrcallback) (Soup.Callbacks.drop_closures_AddressCallback callback))-    poke ptrcallback callback'-    let userData = nullPtr-    soup_address_resolve_async addr' maybeAsyncContext maybeCancellable callback' userData-    touchManagedPtr addr-    whenJust asyncContext touchManagedPtr-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data AddressResolveAsyncMethodInfo-instance (signature ~ (Maybe (GLib.MainContext.MainContext) -> Maybe (b) -> Soup.Callbacks.AddressCallback -> m ()), MonadIO m, IsAddress a, Gio.Cancellable.IsCancellable b) => O.MethodInfo AddressResolveAsyncMethodInfo a signature where-    overloadedMethod _ = addressResolveAsync--#endif---- method Address::resolve_sync--- method type : OrdinaryMethod--- Args : [Arg {argCName = "addr", argType = TInterface (Name {namespace = "Soup", name = "Address"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAddress", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable object, or %NULL", sinceVersion = Nothing}, 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 ->                          -- addr : TInterface (Name {namespace = "Soup", name = "Address"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    IO Word32--{- |-Synchronously resolves the missing half of /@addr@/, as with-'GI.Soup.Objects.Address.addressResolveAsync'.--If /@cancellable@/ is non-'Nothing', it can be used to cancel the-resolution. 'GI.Soup.Objects.Address.addressResolveSync' will then return a status-of 'GI.Soup.Enums.StatusCancelled'.--It is safe to call this more than once, even from different-threads, but it is not safe to mix calls to-'GI.Soup.Objects.Address.addressResolveSync' with calls to-'GI.Soup.Objects.Address.addressResolveAsync' on the same address.--}-addressResolveSync ::-    (B.CallStack.HasCallStack, MonadIO m, IsAddress a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@addr@/: a 'GI.Soup.Objects.Address.Address' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' object, or 'Nothing' -}-    -> m Word32-    {- ^ __Returns:__ 'GI.Soup.Enums.StatusOk', 'GI.Soup.Enums.StatusCantResolve', or-'GI.Soup.Enums.StatusCancelled'. -}-addressResolveSync addr cancellable = liftIO $ do-    addr' <- unsafeManagedPtrCastPtr addr-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    result <- soup_address_resolve_sync addr' maybeCancellable-    touchManagedPtr addr-    whenJust cancellable touchManagedPtr-    return result--#if ENABLE_OVERLOADING-data AddressResolveSyncMethodInfo-instance (signature ~ (Maybe (b) -> m Word32), MonadIO m, IsAddress a, Gio.Cancellable.IsCancellable b) => O.MethodInfo AddressResolveSyncMethodInfo a signature where-    overloadedMethod _ = addressResolveSync--#endif--
− GI/Soup/Objects/Address.hs-boot 
@@ -1,80 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Objects.Address where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype Address = Address (ManagedPtr Address)-instance GObject Address where-class (GObject o, O.IsDescendantOf Address o) => IsAddress o-instance (GObject o, O.IsDescendantOf Address o) => IsAddress o-instance O.HasParentTypes Address-#if ENABLE_OVERLOADING-data AddressFamilyPropertyInfo-#endif-#if ENABLE_OVERLOADING-data AddressNamePropertyInfo-#endif-#if ENABLE_OVERLOADING-data AddressPhysicalPropertyInfo-#endif-#if ENABLE_OVERLOADING-data AddressPortPropertyInfo-#endif-#if ENABLE_OVERLOADING-data AddressProtocolPropertyInfo-#endif-#if ENABLE_OVERLOADING-data AddressSockaddrPropertyInfo-#endif-#if ENABLE_OVERLOADING-data AddressEqualByIpMethodInfo-#endif-#if ENABLE_OVERLOADING-data AddressEqualByNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data AddressGetGsockaddrMethodInfo-#endif-#if ENABLE_OVERLOADING-data AddressGetNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data AddressGetPhysicalMethodInfo-#endif-#if ENABLE_OVERLOADING-data AddressGetPortMethodInfo-#endif-#if ENABLE_OVERLOADING-data AddressHashByIpMethodInfo-#endif-#if ENABLE_OVERLOADING-data AddressHashByNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data AddressIsResolvedMethodInfo-#endif-#if ENABLE_OVERLOADING-data AddressResolveAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data AddressResolveSyncMethodInfo-#endif
− GI/Soup/Objects/Auth.hs 
@@ -1,1271 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--The abstract base class for handling authentication. Specific HTTP-Authentication mechanisms are implemented by its subclasses, but-applications never need to be aware of the specific subclasses-being used.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Objects.Auth-    ( ---- * Exported types-    Auth(..)                                ,-    IsAuth                                  ,-    toAuth                                  ,-    noAuth                                  ,--- -- * Methods--- ** authenticate #method:authenticate#--#if ENABLE_OVERLOADING-    AuthAuthenticateMethodInfo              ,-#endif-    authAuthenticate                        ,----- ** canAuthenticate #method:canAuthenticate#--#if ENABLE_OVERLOADING-    AuthCanAuthenticateMethodInfo           ,-#endif-    authCanAuthenticate                     ,----- ** getAuthorization #method:getAuthorization#--#if ENABLE_OVERLOADING-    AuthGetAuthorizationMethodInfo          ,-#endif-    authGetAuthorization                    ,----- ** getHost #method:getHost#--#if ENABLE_OVERLOADING-    AuthGetHostMethodInfo                   ,-#endif-    authGetHost                             ,----- ** getInfo #method:getInfo#--#if ENABLE_OVERLOADING-    AuthGetInfoMethodInfo                   ,-#endif-    authGetInfo                             ,----- ** getProtectionSpace #method:getProtectionSpace#--#if ENABLE_OVERLOADING-    AuthGetProtectionSpaceMethodInfo        ,-#endif-    authGetProtectionSpace                  ,----- ** getRealm #method:getRealm#--#if ENABLE_OVERLOADING-    AuthGetRealmMethodInfo                  ,-#endif-    authGetRealm                            ,----- ** getSavedPassword #method:getSavedPassword#--#if ENABLE_OVERLOADING-    AuthGetSavedPasswordMethodInfo          ,-#endif-    authGetSavedPassword                    ,----- ** getSavedUsers #method:getSavedUsers#--#if ENABLE_OVERLOADING-    AuthGetSavedUsersMethodInfo             ,-#endif-    authGetSavedUsers                       ,----- ** getSchemeName #method:getSchemeName#--#if ENABLE_OVERLOADING-    AuthGetSchemeNameMethodInfo             ,-#endif-    authGetSchemeName                       ,----- ** hasSavedPassword #method:hasSavedPassword#--#if ENABLE_OVERLOADING-    AuthHasSavedPasswordMethodInfo          ,-#endif-    authHasSavedPassword                    ,----- ** isAuthenticated #method:isAuthenticated#--#if ENABLE_OVERLOADING-    AuthIsAuthenticatedMethodInfo           ,-#endif-    authIsAuthenticated                     ,----- ** isForProxy #method:isForProxy#--#if ENABLE_OVERLOADING-    AuthIsForProxyMethodInfo                ,-#endif-    authIsForProxy                          ,----- ** isReady #method:isReady#--#if ENABLE_OVERLOADING-    AuthIsReadyMethodInfo                   ,-#endif-    authIsReady                             ,----- ** new #method:new#--    authNew                                 ,----- ** savePassword #method:savePassword#--#if ENABLE_OVERLOADING-    AuthSavePasswordMethodInfo              ,-#endif-    authSavePassword                        ,----- ** update #method:update#--#if ENABLE_OVERLOADING-    AuthUpdateMethodInfo                    ,-#endif-    authUpdate                              ,----- -- * Properties--- ** host #attr:host#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    AuthHostPropertyInfo                    ,-#endif-#if ENABLE_OVERLOADING-    authHost                                ,-#endif-    clearAuthHost                           ,-    constructAuthHost                       ,-    getAuthHost                             ,-    setAuthHost                             ,----- ** isAuthenticated #attr:isAuthenticated#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    AuthIsAuthenticatedPropertyInfo         ,-#endif-    getAuthIsAuthenticated                  ,----- ** isForProxy #attr:isForProxy#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    AuthIsForProxyPropertyInfo              ,-#endif-    constructAuthIsForProxy                 ,-    getAuthIsForProxy                       ,-    setAuthIsForProxy                       ,----- ** realm #attr:realm#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    AuthRealmPropertyInfo                   ,-#endif-#if ENABLE_OVERLOADING-    authRealm                               ,-#endif-    clearAuthRealm                          ,-    constructAuthRealm                      ,-    getAuthRealm                            ,-    setAuthRealm                            ,----- ** schemeName #attr:schemeName#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    AuthSchemeNamePropertyInfo              ,-#endif-#if ENABLE_OVERLOADING-    authSchemeName                          ,-#endif-    getAuthSchemeName                       ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Soup.Objects.Message as Soup.Message-import {-# SOURCE #-} qualified GI.Soup.Structs.URI as Soup.URI---- | Memory-managed wrapper type.-newtype Auth = Auth (ManagedPtr Auth)-foreign import ccall "soup_auth_get_type"-    c_soup_auth_get_type :: IO GType--instance GObject Auth where-    gobjectType = c_soup_auth_get_type-    ---- | Type class for types which can be safely cast to `Auth`, for instance with `toAuth`.-class (GObject o, O.IsDescendantOf Auth o) => IsAuth o-instance (GObject o, O.IsDescendantOf Auth o) => IsAuth o--instance O.HasParentTypes Auth-type instance O.ParentTypes Auth = '[GObject.Object.Object]---- | Cast to `Auth`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toAuth :: (MonadIO m, IsAuth o) => o -> m Auth-toAuth = liftIO . unsafeCastTo Auth---- | A convenience alias for `Nothing` :: `Maybe` `Auth`.-noAuth :: Maybe Auth-noAuth = Nothing--#if ENABLE_OVERLOADING-type family ResolveAuthMethod (t :: Symbol) (o :: *) :: * where-    ResolveAuthMethod "authenticate" o = AuthAuthenticateMethodInfo-    ResolveAuthMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveAuthMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveAuthMethod "canAuthenticate" o = AuthCanAuthenticateMethodInfo-    ResolveAuthMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveAuthMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveAuthMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveAuthMethod "hasSavedPassword" o = AuthHasSavedPasswordMethodInfo-    ResolveAuthMethod "isAuthenticated" o = AuthIsAuthenticatedMethodInfo-    ResolveAuthMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveAuthMethod "isForProxy" o = AuthIsForProxyMethodInfo-    ResolveAuthMethod "isReady" o = AuthIsReadyMethodInfo-    ResolveAuthMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveAuthMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveAuthMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveAuthMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveAuthMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveAuthMethod "savePassword" o = AuthSavePasswordMethodInfo-    ResolveAuthMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveAuthMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveAuthMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveAuthMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveAuthMethod "update" o = AuthUpdateMethodInfo-    ResolveAuthMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveAuthMethod "getAuthorization" o = AuthGetAuthorizationMethodInfo-    ResolveAuthMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveAuthMethod "getHost" o = AuthGetHostMethodInfo-    ResolveAuthMethod "getInfo" o = AuthGetInfoMethodInfo-    ResolveAuthMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveAuthMethod "getProtectionSpace" o = AuthGetProtectionSpaceMethodInfo-    ResolveAuthMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveAuthMethod "getRealm" o = AuthGetRealmMethodInfo-    ResolveAuthMethod "getSavedPassword" o = AuthGetSavedPasswordMethodInfo-    ResolveAuthMethod "getSavedUsers" o = AuthGetSavedUsersMethodInfo-    ResolveAuthMethod "getSchemeName" o = AuthGetSchemeNameMethodInfo-    ResolveAuthMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveAuthMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveAuthMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveAuthMethod t Auth, O.MethodInfo info Auth p) => OL.IsLabel t (Auth -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif---- VVV Prop "host"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@host@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' auth #host-@--}-getAuthHost :: (MonadIO m, IsAuth o) => o -> m T.Text-getAuthHost obj = liftIO $ checkUnexpectedNothing "getAuthHost" $ B.Properties.getObjectPropertyString obj "host"--{- |-Set the value of the “@host@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' auth [ #host 'Data.GI.Base.Attributes.:=' value ]-@--}-setAuthHost :: (MonadIO m, IsAuth o) => o -> T.Text -> m ()-setAuthHost obj val = liftIO $ B.Properties.setObjectPropertyString obj "host" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@host@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructAuthHost :: (IsAuth o) => T.Text -> IO (GValueConstruct o)-constructAuthHost val = B.Properties.constructObjectPropertyString "host" (Just val)--{- |-Set the value of the “@host@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #host-@--}-clearAuthHost :: (MonadIO m, IsAuth o) => o -> m ()-clearAuthHost obj = liftIO $ B.Properties.setObjectPropertyString obj "host" (Nothing :: Maybe T.Text)--#if ENABLE_OVERLOADING-data AuthHostPropertyInfo-instance AttrInfo AuthHostPropertyInfo where-    type AttrAllowedOps AuthHostPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint AuthHostPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint AuthHostPropertyInfo = IsAuth-    type AttrGetType AuthHostPropertyInfo = T.Text-    type AttrLabel AuthHostPropertyInfo = "host"-    type AttrOrigin AuthHostPropertyInfo = Auth-    attrGet _ = getAuthHost-    attrSet _ = setAuthHost-    attrConstruct _ = constructAuthHost-    attrClear _ = clearAuthHost-#endif---- VVV Prop "is-authenticated"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@is-authenticated@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' auth #isAuthenticated-@--}-getAuthIsAuthenticated :: (MonadIO m, IsAuth o) => o -> m Bool-getAuthIsAuthenticated obj = liftIO $ B.Properties.getObjectPropertyBool obj "is-authenticated"--#if ENABLE_OVERLOADING-data AuthIsAuthenticatedPropertyInfo-instance AttrInfo AuthIsAuthenticatedPropertyInfo where-    type AttrAllowedOps AuthIsAuthenticatedPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint AuthIsAuthenticatedPropertyInfo = (~) ()-    type AttrBaseTypeConstraint AuthIsAuthenticatedPropertyInfo = IsAuth-    type AttrGetType AuthIsAuthenticatedPropertyInfo = Bool-    type AttrLabel AuthIsAuthenticatedPropertyInfo = "is-authenticated"-    type AttrOrigin AuthIsAuthenticatedPropertyInfo = Auth-    attrGet _ = getAuthIsAuthenticated-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "is-for-proxy"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@is-for-proxy@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' auth #isForProxy-@--}-getAuthIsForProxy :: (MonadIO m, IsAuth o) => o -> m Bool-getAuthIsForProxy obj = liftIO $ B.Properties.getObjectPropertyBool obj "is-for-proxy"--{- |-Set the value of the “@is-for-proxy@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' auth [ #isForProxy 'Data.GI.Base.Attributes.:=' value ]-@--}-setAuthIsForProxy :: (MonadIO m, IsAuth o) => o -> Bool -> m ()-setAuthIsForProxy obj val = liftIO $ B.Properties.setObjectPropertyBool obj "is-for-proxy" val--{- |-Construct a `GValueConstruct` with valid value for the “@is-for-proxy@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructAuthIsForProxy :: (IsAuth o) => Bool -> IO (GValueConstruct o)-constructAuthIsForProxy val = B.Properties.constructObjectPropertyBool "is-for-proxy" val--#if ENABLE_OVERLOADING-data AuthIsForProxyPropertyInfo-instance AttrInfo AuthIsForProxyPropertyInfo where-    type AttrAllowedOps AuthIsForProxyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AuthIsForProxyPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint AuthIsForProxyPropertyInfo = IsAuth-    type AttrGetType AuthIsForProxyPropertyInfo = Bool-    type AttrLabel AuthIsForProxyPropertyInfo = "is-for-proxy"-    type AttrOrigin AuthIsForProxyPropertyInfo = Auth-    attrGet _ = getAuthIsForProxy-    attrSet _ = setAuthIsForProxy-    attrConstruct _ = constructAuthIsForProxy-    attrClear _ = undefined-#endif---- VVV Prop "realm"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@realm@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' auth #realm-@--}-getAuthRealm :: (MonadIO m, IsAuth o) => o -> m T.Text-getAuthRealm obj = liftIO $ checkUnexpectedNothing "getAuthRealm" $ B.Properties.getObjectPropertyString obj "realm"--{- |-Set the value of the “@realm@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' auth [ #realm 'Data.GI.Base.Attributes.:=' value ]-@--}-setAuthRealm :: (MonadIO m, IsAuth o) => o -> T.Text -> m ()-setAuthRealm obj val = liftIO $ B.Properties.setObjectPropertyString obj "realm" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@realm@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructAuthRealm :: (IsAuth o) => T.Text -> IO (GValueConstruct o)-constructAuthRealm val = B.Properties.constructObjectPropertyString "realm" (Just val)--{- |-Set the value of the “@realm@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #realm-@--}-clearAuthRealm :: (MonadIO m, IsAuth o) => o -> m ()-clearAuthRealm obj = liftIO $ B.Properties.setObjectPropertyString obj "realm" (Nothing :: Maybe T.Text)--#if ENABLE_OVERLOADING-data AuthRealmPropertyInfo-instance AttrInfo AuthRealmPropertyInfo where-    type AttrAllowedOps AuthRealmPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint AuthRealmPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint AuthRealmPropertyInfo = IsAuth-    type AttrGetType AuthRealmPropertyInfo = T.Text-    type AttrLabel AuthRealmPropertyInfo = "realm"-    type AttrOrigin AuthRealmPropertyInfo = Auth-    attrGet _ = getAuthRealm-    attrSet _ = setAuthRealm-    attrConstruct _ = constructAuthRealm-    attrClear _ = clearAuthRealm-#endif---- VVV Prop "scheme-name"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@scheme-name@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' auth #schemeName-@--}-getAuthSchemeName :: (MonadIO m, IsAuth o) => o -> m T.Text-getAuthSchemeName obj = liftIO $ checkUnexpectedNothing "getAuthSchemeName" $ B.Properties.getObjectPropertyString obj "scheme-name"--#if ENABLE_OVERLOADING-data AuthSchemeNamePropertyInfo-instance AttrInfo AuthSchemeNamePropertyInfo where-    type AttrAllowedOps AuthSchemeNamePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint AuthSchemeNamePropertyInfo = (~) ()-    type AttrBaseTypeConstraint AuthSchemeNamePropertyInfo = IsAuth-    type AttrGetType AuthSchemeNamePropertyInfo = T.Text-    type AttrLabel AuthSchemeNamePropertyInfo = "scheme-name"-    type AttrOrigin AuthSchemeNamePropertyInfo = Auth-    attrGet _ = getAuthSchemeName-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList Auth-type instance O.AttributeList Auth = AuthAttributeList-type AuthAttributeList = ('[ '("host", AuthHostPropertyInfo), '("isAuthenticated", AuthIsAuthenticatedPropertyInfo), '("isForProxy", AuthIsForProxyPropertyInfo), '("realm", AuthRealmPropertyInfo), '("schemeName", AuthSchemeNamePropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-authHost :: AttrLabelProxy "host"-authHost = AttrLabelProxy--authRealm :: AttrLabelProxy "realm"-authRealm = AttrLabelProxy--authSchemeName :: AttrLabelProxy "schemeName"-authSchemeName = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList Auth = AuthSignalList-type AuthSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method Auth::new--- method type : Constructor--- Args : [Arg {argCName = "type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the type of auth to create (a subtype of #SoupAuth)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupMessage the auth is being created for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth_header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the WWW-Authenticate/Proxy-Authenticate header", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Auth"}))--- throws : False--- Skip return : False--foreign import ccall "soup_auth_new" soup_auth_new :: -    CGType ->                               -- type : TBasicType TGType-    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    CString ->                              -- auth_header : TBasicType TUTF8-    IO (Ptr Auth)--{- |-Creates a new 'GI.Soup.Objects.Auth.Auth' of type /@type@/ with the information from-/@msg@/ and /@authHeader@/.--This is called by 'GI.Soup.Objects.Session.Session'; you will normally not create auths-yourself.--}-authNew ::-    (B.CallStack.HasCallStack, MonadIO m, Soup.Message.IsMessage a) =>-    GType-    {- ^ /@type@/: the type of auth to create (a subtype of 'GI.Soup.Objects.Auth.Auth') -}-    -> a-    {- ^ /@msg@/: the 'GI.Soup.Objects.Message.Message' the auth is being created for -}-    -> T.Text-    {- ^ /@authHeader@/: the WWW-Authenticate\/Proxy-Authenticate header -}-    -> m (Maybe Auth)-    {- ^ __Returns:__ the new 'GI.Soup.Objects.Auth.Auth', or 'Nothing' if it could-not be created -}-authNew type_ msg authHeader = liftIO $ do-    let type_' = gtypeToCGType type_-    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--#if ENABLE_OVERLOADING-#endif---- method Auth::authenticate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "auth", argType = TInterface (Name {namespace = "Soup", name = "Auth"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAuth", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the username provided by the user or client", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the password provided by the user or client", sinceVersion = Nothing}, 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 ->                             -- auth : TInterface (Name {namespace = "Soup", name = "Auth"})-    CString ->                              -- username : TBasicType TUTF8-    CString ->                              -- password : TBasicType TUTF8-    IO ()--{- |-Call this on an auth to authenticate it; normally this will cause-the auth\'s message to be requeued with the new authentication info.--}-authAuthenticate ::-    (B.CallStack.HasCallStack, MonadIO m, IsAuth a) =>-    a-    {- ^ /@auth@/: a 'GI.Soup.Objects.Auth.Auth' -}-    -> T.Text-    {- ^ /@username@/: the username provided by the user or client -}-    -> T.Text-    {- ^ /@password@/: the password provided by the user or client -}-    -> m ()-authAuthenticate auth username password = liftIO $ do-    auth' <- unsafeManagedPtrCastPtr auth-    username' <- textToCString username-    password' <- textToCString password-    soup_auth_authenticate auth' username' password'-    touchManagedPtr auth-    freeMem username'-    freeMem password'-    return ()--#if ENABLE_OVERLOADING-data AuthAuthenticateMethodInfo-instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, IsAuth a) => O.MethodInfo AuthAuthenticateMethodInfo a signature where-    overloadedMethod _ = authAuthenticate--#endif---- method Auth::can_authenticate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "auth", argType = TInterface (Name {namespace = "Soup", name = "Auth"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAuth", sinceVersion = Nothing}, 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_can_authenticate" soup_auth_can_authenticate :: -    Ptr Auth ->                             -- auth : TInterface (Name {namespace = "Soup", name = "Auth"})-    IO CInt--{- |-Tests if /@auth@/ is able to authenticate by providing credentials to the-'GI.Soup.Objects.Auth.authAuthenticate'.--/Since: 2.54/--}-authCanAuthenticate ::-    (B.CallStack.HasCallStack, MonadIO m, IsAuth a) =>-    a-    {- ^ /@auth@/: a 'GI.Soup.Objects.Auth.Auth' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@auth@/ is able to accept credentials. -}-authCanAuthenticate auth = liftIO $ do-    auth' <- unsafeManagedPtrCastPtr auth-    result <- soup_auth_can_authenticate auth'-    let result' = (/= 0) result-    touchManagedPtr auth-    return result'--#if ENABLE_OVERLOADING-data AuthCanAuthenticateMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsAuth a) => O.MethodInfo AuthCanAuthenticateMethodInfo a signature where-    overloadedMethod _ = authCanAuthenticate--#endif---- method Auth::get_authorization--- method type : OrdinaryMethod--- Args : [Arg {argCName = "auth", argType = TInterface (Name {namespace = "Soup", name = "Auth"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAuth", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupMessage to be authorized", sinceVersion = Nothing}, 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 ->                             -- auth : TInterface (Name {namespace = "Soup", name = "Auth"})-    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO CString--{- |-Generates an appropriate \"Authorization\" header for /@msg@/. (The-session will only call this if 'GI.Soup.Objects.Auth.authIsAuthenticated'-returned 'True'.)--}-authGetAuthorization ::-    (B.CallStack.HasCallStack, MonadIO m, IsAuth a, Soup.Message.IsMessage b) =>-    a-    {- ^ /@auth@/: a 'GI.Soup.Objects.Auth.Auth' -}-    -> b-    {- ^ /@msg@/: the 'GI.Soup.Objects.Message.Message' to be authorized -}-    -> m T.Text-    {- ^ __Returns:__ the \"Authorization\" header, which must be freed. -}-authGetAuthorization auth msg = liftIO $ do-    auth' <- unsafeManagedPtrCastPtr auth-    msg' <- unsafeManagedPtrCastPtr msg-    result <- soup_auth_get_authorization auth' msg'-    checkUnexpectedReturnNULL "authGetAuthorization" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr auth-    touchManagedPtr msg-    return result'--#if ENABLE_OVERLOADING-data AuthGetAuthorizationMethodInfo-instance (signature ~ (b -> m T.Text), MonadIO m, IsAuth a, Soup.Message.IsMessage b) => O.MethodInfo AuthGetAuthorizationMethodInfo a signature where-    overloadedMethod _ = authGetAuthorization--#endif---- method Auth::get_host--- method type : OrdinaryMethod--- Args : [Arg {argCName = "auth", argType = TInterface (Name {namespace = "Soup", name = "Auth"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAuth", sinceVersion = Nothing}, 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 ->                             -- auth : TInterface (Name {namespace = "Soup", name = "Auth"})-    IO CString--{- |-Returns the host that /@auth@/ is associated with.--}-authGetHost ::-    (B.CallStack.HasCallStack, MonadIO m, IsAuth a) =>-    a-    {- ^ /@auth@/: a 'GI.Soup.Objects.Auth.Auth' -}-    -> m T.Text-    {- ^ __Returns:__ the hostname -}-authGetHost auth = liftIO $ do-    auth' <- unsafeManagedPtrCastPtr auth-    result <- soup_auth_get_host auth'-    checkUnexpectedReturnNULL "authGetHost" result-    result' <- cstringToText result-    touchManagedPtr auth-    return result'--#if ENABLE_OVERLOADING-data AuthGetHostMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsAuth a) => O.MethodInfo AuthGetHostMethodInfo a signature where-    overloadedMethod _ = authGetHost--#endif---- method Auth::get_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "auth", argType = TInterface (Name {namespace = "Soup", name = "Auth"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAuth", sinceVersion = Nothing}, 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 ->                             -- auth : TInterface (Name {namespace = "Soup", name = "Auth"})-    IO CString--{- |-Gets an opaque identifier for /@auth@/, for use as a hash key or the-like. 'GI.Soup.Objects.Auth.Auth' objects from the same server with the same-identifier refer to the same authentication domain (eg, the URLs-associated with them take the same usernames and passwords).--}-authGetInfo ::-    (B.CallStack.HasCallStack, MonadIO m, IsAuth a) =>-    a-    {- ^ /@auth@/: a 'GI.Soup.Objects.Auth.Auth' -}-    -> m T.Text-    {- ^ __Returns:__ the identifier -}-authGetInfo auth = liftIO $ do-    auth' <- unsafeManagedPtrCastPtr auth-    result <- soup_auth_get_info auth'-    checkUnexpectedReturnNULL "authGetInfo" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr auth-    return result'--#if ENABLE_OVERLOADING-data AuthGetInfoMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsAuth a) => O.MethodInfo AuthGetInfoMethodInfo a signature where-    overloadedMethod _ = authGetInfo--#endif---- method Auth::get_protection_space--- method type : OrdinaryMethod--- Args : [Arg {argCName = "auth", argType = TInterface (Name {namespace = "Soup", name = "Auth"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAuth", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the URI of the request that @auth was generated in\nresponse to.", sinceVersion = Nothing}, 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 ->                             -- auth : TInterface (Name {namespace = "Soup", name = "Auth"})-    Ptr Soup.URI.URI ->                     -- source_uri : TInterface (Name {namespace = "Soup", name = "URI"})-    IO (Ptr (GSList CString))--{- |-Returns a list of paths on the server which /@auth@/ extends over.-(All subdirectories of these paths are also assumed to be part-of /@auth@/\'s protection space, unless otherwise discovered not to-be.)--}-authGetProtectionSpace ::-    (B.CallStack.HasCallStack, MonadIO m, IsAuth a) =>-    a-    {- ^ /@auth@/: a 'GI.Soup.Objects.Auth.Auth' -}-    -> Soup.URI.URI-    {- ^ /@sourceUri@/: the URI of the request that /@auth@/ was generated in-response to. -}-    -> m [T.Text]-    {- ^ __Returns:__ the list of-paths, which can be freed with @/soup_auth_free_protection_space()/@. -}-authGetProtectionSpace auth sourceUri = liftIO $ do-    auth' <- unsafeManagedPtrCastPtr auth-    sourceUri' <- unsafeManagedPtrGetPtr sourceUri-    result <- soup_auth_get_protection_space auth' sourceUri'-    result' <- unpackGSList result-    result'' <- mapM cstringToText result'-    mapGSList freeMem result-    g_slist_free result-    touchManagedPtr auth-    touchManagedPtr sourceUri-    return result''--#if ENABLE_OVERLOADING-data AuthGetProtectionSpaceMethodInfo-instance (signature ~ (Soup.URI.URI -> m [T.Text]), MonadIO m, IsAuth a) => O.MethodInfo AuthGetProtectionSpaceMethodInfo a signature where-    overloadedMethod _ = authGetProtectionSpace--#endif---- method Auth::get_realm--- method type : OrdinaryMethod--- Args : [Arg {argCName = "auth", argType = TInterface (Name {namespace = "Soup", name = "Auth"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAuth", sinceVersion = Nothing}, 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 ->                             -- auth : TInterface (Name {namespace = "Soup", name = "Auth"})-    IO CString--{- |-Returns /@auth@/\'s realm. This is an identifier that distinguishes-separate authentication spaces on a given server, and may be some-string that is meaningful to the user. (Although it is probably not-localized.)--}-authGetRealm ::-    (B.CallStack.HasCallStack, MonadIO m, IsAuth a) =>-    a-    {- ^ /@auth@/: a 'GI.Soup.Objects.Auth.Auth' -}-    -> m T.Text-    {- ^ __Returns:__ the realm name -}-authGetRealm auth = liftIO $ do-    auth' <- unsafeManagedPtrCastPtr auth-    result <- soup_auth_get_realm auth'-    checkUnexpectedReturnNULL "authGetRealm" result-    result' <- cstringToText result-    touchManagedPtr auth-    return result'--#if ENABLE_OVERLOADING-data AuthGetRealmMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsAuth a) => O.MethodInfo AuthGetRealmMethodInfo a signature where-    overloadedMethod _ = authGetRealm--#endif---- method Auth::get_saved_password--- method type : OrdinaryMethod--- Args : [Arg {argCName = "auth", argType = TInterface (Name {namespace = "Soup", name = "Auth"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, 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 ->                             -- auth : TInterface (Name {namespace = "Soup", name = "Auth"})-    CString ->                              -- user : TBasicType TUTF8-    IO CString--{- |-/No description available in the introspection data./--}-authGetSavedPassword ::-    (B.CallStack.HasCallStack, MonadIO m, IsAuth a) =>-    a-    -> T.Text-    -> m T.Text-authGetSavedPassword auth user = liftIO $ do-    auth' <- unsafeManagedPtrCastPtr auth-    user' <- textToCString user-    result <- soup_auth_get_saved_password auth' user'-    checkUnexpectedReturnNULL "authGetSavedPassword" result-    result' <- cstringToText result-    touchManagedPtr auth-    freeMem user'-    return result'--#if ENABLE_OVERLOADING-data AuthGetSavedPasswordMethodInfo-instance (signature ~ (T.Text -> m T.Text), MonadIO m, IsAuth a) => O.MethodInfo AuthGetSavedPasswordMethodInfo a signature where-    overloadedMethod _ = authGetSavedPassword--#endif---- method Auth::get_saved_users--- method type : OrdinaryMethod--- Args : [Arg {argCName = "auth", argType = TInterface (Name {namespace = "Soup", name = "Auth"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, 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 ->                             -- auth : TInterface (Name {namespace = "Soup", name = "Auth"})-    IO (Ptr (GSList CString))--{- |-/No description available in the introspection data./--}-authGetSavedUsers ::-    (B.CallStack.HasCallStack, MonadIO m, IsAuth a) =>-    a-    -> m [T.Text]-authGetSavedUsers auth = liftIO $ do-    auth' <- unsafeManagedPtrCastPtr auth-    result <- soup_auth_get_saved_users auth'-    result' <- unpackGSList result-    result'' <- mapM cstringToText result'-    mapGSList freeMem result-    g_slist_free result-    touchManagedPtr auth-    return result''--#if ENABLE_OVERLOADING-data AuthGetSavedUsersMethodInfo-instance (signature ~ (m [T.Text]), MonadIO m, IsAuth a) => O.MethodInfo AuthGetSavedUsersMethodInfo a signature where-    overloadedMethod _ = authGetSavedUsers--#endif---- method Auth::get_scheme_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "auth", argType = TInterface (Name {namespace = "Soup", name = "Auth"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAuth", sinceVersion = Nothing}, 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 ->                             -- auth : TInterface (Name {namespace = "Soup", name = "Auth"})-    IO CString--{- |-Returns /@auth@/\'s scheme name. (Eg, \"Basic\", \"Digest\", or \"NTLM\")--}-authGetSchemeName ::-    (B.CallStack.HasCallStack, MonadIO m, IsAuth a) =>-    a-    {- ^ /@auth@/: a 'GI.Soup.Objects.Auth.Auth' -}-    -> m T.Text-    {- ^ __Returns:__ the scheme name -}-authGetSchemeName auth = liftIO $ do-    auth' <- unsafeManagedPtrCastPtr auth-    result <- soup_auth_get_scheme_name auth'-    checkUnexpectedReturnNULL "authGetSchemeName" result-    result' <- cstringToText result-    touchManagedPtr auth-    return result'--#if ENABLE_OVERLOADING-data AuthGetSchemeNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsAuth a) => O.MethodInfo AuthGetSchemeNameMethodInfo a signature where-    overloadedMethod _ = authGetSchemeName--#endif---- method Auth::has_saved_password--- method type : OrdinaryMethod--- Args : [Arg {argCName = "auth", argType = TInterface (Name {namespace = "Soup", name = "Auth"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, 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 ->                             -- auth : TInterface (Name {namespace = "Soup", name = "Auth"})-    CString ->                              -- username : TBasicType TUTF8-    CString ->                              -- password : TBasicType TUTF8-    IO ()--{- |-/No description available in the introspection data./--}-authHasSavedPassword ::-    (B.CallStack.HasCallStack, MonadIO m, IsAuth a) =>-    a-    -> T.Text-    -> T.Text-    -> m ()-authHasSavedPassword auth username password = liftIO $ do-    auth' <- unsafeManagedPtrCastPtr auth-    username' <- textToCString username-    password' <- textToCString password-    soup_auth_has_saved_password auth' username' password'-    touchManagedPtr auth-    freeMem username'-    freeMem password'-    return ()--#if ENABLE_OVERLOADING-data AuthHasSavedPasswordMethodInfo-instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, IsAuth a) => O.MethodInfo AuthHasSavedPasswordMethodInfo a signature where-    overloadedMethod _ = authHasSavedPassword--#endif---- method Auth::is_authenticated--- method type : OrdinaryMethod--- Args : [Arg {argCName = "auth", argType = TInterface (Name {namespace = "Soup", name = "Auth"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAuth", sinceVersion = Nothing}, 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 ->                             -- auth : TInterface (Name {namespace = "Soup", name = "Auth"})-    IO CInt--{- |-Tests if /@auth@/ has been given a username and password--}-authIsAuthenticated ::-    (B.CallStack.HasCallStack, MonadIO m, IsAuth a) =>-    a-    {- ^ /@auth@/: a 'GI.Soup.Objects.Auth.Auth' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@auth@/ has been given a username and password -}-authIsAuthenticated auth = liftIO $ do-    auth' <- unsafeManagedPtrCastPtr auth-    result <- soup_auth_is_authenticated auth'-    let result' = (/= 0) result-    touchManagedPtr auth-    return result'--#if ENABLE_OVERLOADING-data AuthIsAuthenticatedMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsAuth a) => O.MethodInfo AuthIsAuthenticatedMethodInfo a signature where-    overloadedMethod _ = authIsAuthenticated--#endif---- method Auth::is_for_proxy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "auth", argType = TInterface (Name {namespace = "Soup", name = "Auth"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAuth", sinceVersion = Nothing}, 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 ->                             -- auth : TInterface (Name {namespace = "Soup", name = "Auth"})-    IO CInt--{- |-Tests whether or not /@auth@/ is associated with a proxy server rather-than an \"origin\" server.--}-authIsForProxy ::-    (B.CallStack.HasCallStack, MonadIO m, IsAuth a) =>-    a-    {- ^ /@auth@/: a 'GI.Soup.Objects.Auth.Auth' -}-    -> m Bool-    {- ^ __Returns:__ 'True' or 'False' -}-authIsForProxy auth = liftIO $ do-    auth' <- unsafeManagedPtrCastPtr auth-    result <- soup_auth_is_for_proxy auth'-    let result' = (/= 0) result-    touchManagedPtr auth-    return result'--#if ENABLE_OVERLOADING-data AuthIsForProxyMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsAuth a) => O.MethodInfo AuthIsForProxyMethodInfo a signature where-    overloadedMethod _ = authIsForProxy--#endif---- method Auth::is_ready--- method type : OrdinaryMethod--- Args : [Arg {argCName = "auth", argType = TInterface (Name {namespace = "Soup", name = "Auth"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAuth", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, 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 ->                             -- auth : TInterface (Name {namespace = "Soup", name = "Auth"})-    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO CInt--{- |-Tests if /@auth@/ is ready to make a request for /@msg@/ with. For most-auths, this is equivalent to 'GI.Soup.Objects.Auth.authIsAuthenticated', but for-some auth types (eg, NTLM), the auth may be sendable (eg, as an-authentication request) even before it is authenticated.--/Since: 2.42/--}-authIsReady ::-    (B.CallStack.HasCallStack, MonadIO m, IsAuth a, Soup.Message.IsMessage b) =>-    a-    {- ^ /@auth@/: a 'GI.Soup.Objects.Auth.Auth' -}-    -> b-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@auth@/ is ready to make a request with. -}-authIsReady auth msg = liftIO $ do-    auth' <- unsafeManagedPtrCastPtr auth-    msg' <- unsafeManagedPtrCastPtr msg-    result <- soup_auth_is_ready auth' msg'-    let result' = (/= 0) result-    touchManagedPtr auth-    touchManagedPtr msg-    return result'--#if ENABLE_OVERLOADING-data AuthIsReadyMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, IsAuth a, Soup.Message.IsMessage b) => O.MethodInfo AuthIsReadyMethodInfo a signature where-    overloadedMethod _ = authIsReady--#endif---- method Auth::save_password--- method type : OrdinaryMethod--- Args : [Arg {argCName = "auth", argType = TInterface (Name {namespace = "Soup", name = "Auth"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, 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 ->                             -- auth : TInterface (Name {namespace = "Soup", name = "Auth"})-    CString ->                              -- username : TBasicType TUTF8-    CString ->                              -- password : TBasicType TUTF8-    IO ()--{- |-/No description available in the introspection data./--}-authSavePassword ::-    (B.CallStack.HasCallStack, MonadIO m, IsAuth a) =>-    a-    -> T.Text-    -> T.Text-    -> m ()-authSavePassword auth username password = liftIO $ do-    auth' <- unsafeManagedPtrCastPtr auth-    username' <- textToCString username-    password' <- textToCString password-    soup_auth_save_password auth' username' password'-    touchManagedPtr auth-    freeMem username'-    freeMem password'-    return ()--#if ENABLE_OVERLOADING-data AuthSavePasswordMethodInfo-instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, IsAuth a) => O.MethodInfo AuthSavePasswordMethodInfo a signature where-    overloadedMethod _ = authSavePassword--#endif---- method Auth::update--- method type : OrdinaryMethod--- Args : [Arg {argCName = "auth", argType = TInterface (Name {namespace = "Soup", name = "Auth"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAuth", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupMessage @auth is being updated for", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth_header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the WWW-Authenticate/Proxy-Authenticate header", sinceVersion = Nothing}, 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 ->                             -- auth : TInterface (Name {namespace = "Soup", name = "Auth"})-    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    CString ->                              -- auth_header : TBasicType TUTF8-    IO CInt--{- |-Updates /@auth@/ with the information from /@msg@/ and /@authHeader@/,-possibly un-authenticating it. As with 'GI.Soup.Objects.Auth.authNew', this is-normally only used by 'GI.Soup.Objects.Session.Session'.--}-authUpdate ::-    (B.CallStack.HasCallStack, MonadIO m, IsAuth a, Soup.Message.IsMessage b) =>-    a-    {- ^ /@auth@/: a 'GI.Soup.Objects.Auth.Auth' -}-    -> b-    {- ^ /@msg@/: the 'GI.Soup.Objects.Message.Message' /@auth@/ is being updated for -}-    -> T.Text-    {- ^ /@authHeader@/: the WWW-Authenticate\/Proxy-Authenticate header -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@auth@/ is still a valid (but potentially-unauthenticated) 'GI.Soup.Objects.Auth.Auth'. 'False' if something about /@authParams@/-could not be parsed or incorporated into /@auth@/ at all. -}-authUpdate auth msg authHeader = liftIO $ do-    auth' <- unsafeManagedPtrCastPtr auth-    msg' <- unsafeManagedPtrCastPtr msg-    authHeader' <- textToCString authHeader-    result <- soup_auth_update auth' msg' authHeader'-    let result' = (/= 0) result-    touchManagedPtr auth-    touchManagedPtr msg-    freeMem authHeader'-    return result'--#if ENABLE_OVERLOADING-data AuthUpdateMethodInfo-instance (signature ~ (b -> T.Text -> m Bool), MonadIO m, IsAuth a, Soup.Message.IsMessage b) => O.MethodInfo AuthUpdateMethodInfo a signature where-    overloadedMethod _ = authUpdate--#endif--
− GI/Soup/Objects/Auth.hs-boot 
@@ -1,92 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Objects.Auth where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype Auth = Auth (ManagedPtr Auth)-instance GObject Auth where-class (GObject o, O.IsDescendantOf Auth o) => IsAuth o-instance (GObject o, O.IsDescendantOf Auth o) => IsAuth o-instance O.HasParentTypes Auth-#if ENABLE_OVERLOADING-data AuthHostPropertyInfo-#endif-#if ENABLE_OVERLOADING-data AuthIsAuthenticatedPropertyInfo-#endif-#if ENABLE_OVERLOADING-data AuthIsForProxyPropertyInfo-#endif-#if ENABLE_OVERLOADING-data AuthRealmPropertyInfo-#endif-#if ENABLE_OVERLOADING-data AuthSchemeNamePropertyInfo-#endif-#if ENABLE_OVERLOADING-data AuthAuthenticateMethodInfo-#endif-#if ENABLE_OVERLOADING-data AuthCanAuthenticateMethodInfo-#endif-#if ENABLE_OVERLOADING-data AuthGetAuthorizationMethodInfo-#endif-#if ENABLE_OVERLOADING-data AuthGetHostMethodInfo-#endif-#if ENABLE_OVERLOADING-data AuthGetInfoMethodInfo-#endif-#if ENABLE_OVERLOADING-data AuthGetProtectionSpaceMethodInfo-#endif-#if ENABLE_OVERLOADING-data AuthGetRealmMethodInfo-#endif-#if ENABLE_OVERLOADING-data AuthGetSavedPasswordMethodInfo-#endif-#if ENABLE_OVERLOADING-data AuthGetSavedUsersMethodInfo-#endif-#if ENABLE_OVERLOADING-data AuthGetSchemeNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data AuthHasSavedPasswordMethodInfo-#endif-#if ENABLE_OVERLOADING-data AuthIsAuthenticatedMethodInfo-#endif-#if ENABLE_OVERLOADING-data AuthIsForProxyMethodInfo-#endif-#if ENABLE_OVERLOADING-data AuthIsReadyMethodInfo-#endif-#if ENABLE_OVERLOADING-data AuthSavePasswordMethodInfo-#endif-#if ENABLE_OVERLOADING-data AuthUpdateMethodInfo-#endif
− GI/Soup/Objects/AuthBasic.hs 
@@ -1,138 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Objects.AuthBasic-    ( ---- * Exported types-    AuthBasic(..)                           ,-    IsAuthBasic                             ,-    toAuthBasic                             ,-    noAuthBasic                             ,---    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Soup.Objects.Auth as Soup.Auth---- | Memory-managed wrapper type.-newtype AuthBasic = AuthBasic (ManagedPtr AuthBasic)-foreign import ccall "soup_auth_basic_get_type"-    c_soup_auth_basic_get_type :: IO GType--instance GObject AuthBasic where-    gobjectType = c_soup_auth_basic_get_type-    ---- | Type class for types which can be safely cast to `AuthBasic`, for instance with `toAuthBasic`.-class (GObject o, O.IsDescendantOf AuthBasic o) => IsAuthBasic o-instance (GObject o, O.IsDescendantOf AuthBasic o) => IsAuthBasic o--instance O.HasParentTypes AuthBasic-type instance O.ParentTypes AuthBasic = '[Soup.Auth.Auth, GObject.Object.Object]---- | Cast to `AuthBasic`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toAuthBasic :: (MonadIO m, IsAuthBasic o) => o -> m AuthBasic-toAuthBasic = liftIO . unsafeCastTo AuthBasic---- | A convenience alias for `Nothing` :: `Maybe` `AuthBasic`.-noAuthBasic :: Maybe AuthBasic-noAuthBasic = Nothing--#if ENABLE_OVERLOADING-type family ResolveAuthBasicMethod (t :: Symbol) (o :: *) :: * where-    ResolveAuthBasicMethod "authenticate" o = Soup.Auth.AuthAuthenticateMethodInfo-    ResolveAuthBasicMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveAuthBasicMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveAuthBasicMethod "canAuthenticate" o = Soup.Auth.AuthCanAuthenticateMethodInfo-    ResolveAuthBasicMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveAuthBasicMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveAuthBasicMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveAuthBasicMethod "hasSavedPassword" o = Soup.Auth.AuthHasSavedPasswordMethodInfo-    ResolveAuthBasicMethod "isAuthenticated" o = Soup.Auth.AuthIsAuthenticatedMethodInfo-    ResolveAuthBasicMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveAuthBasicMethod "isForProxy" o = Soup.Auth.AuthIsForProxyMethodInfo-    ResolveAuthBasicMethod "isReady" o = Soup.Auth.AuthIsReadyMethodInfo-    ResolveAuthBasicMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveAuthBasicMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveAuthBasicMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveAuthBasicMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveAuthBasicMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveAuthBasicMethod "savePassword" o = Soup.Auth.AuthSavePasswordMethodInfo-    ResolveAuthBasicMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveAuthBasicMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveAuthBasicMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveAuthBasicMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveAuthBasicMethod "update" o = Soup.Auth.AuthUpdateMethodInfo-    ResolveAuthBasicMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveAuthBasicMethod "getAuthorization" o = Soup.Auth.AuthGetAuthorizationMethodInfo-    ResolveAuthBasicMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveAuthBasicMethod "getHost" o = Soup.Auth.AuthGetHostMethodInfo-    ResolveAuthBasicMethod "getInfo" o = Soup.Auth.AuthGetInfoMethodInfo-    ResolveAuthBasicMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveAuthBasicMethod "getProtectionSpace" o = Soup.Auth.AuthGetProtectionSpaceMethodInfo-    ResolveAuthBasicMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveAuthBasicMethod "getRealm" o = Soup.Auth.AuthGetRealmMethodInfo-    ResolveAuthBasicMethod "getSavedPassword" o = Soup.Auth.AuthGetSavedPasswordMethodInfo-    ResolveAuthBasicMethod "getSavedUsers" o = Soup.Auth.AuthGetSavedUsersMethodInfo-    ResolveAuthBasicMethod "getSchemeName" o = Soup.Auth.AuthGetSchemeNameMethodInfo-    ResolveAuthBasicMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveAuthBasicMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveAuthBasicMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveAuthBasicMethod t AuthBasic, O.MethodInfo info AuthBasic p) => OL.IsLabel t (AuthBasic -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList AuthBasic-type instance O.AttributeList AuthBasic = AuthBasicAttributeList-type AuthBasicAttributeList = ('[ '("host", Soup.Auth.AuthHostPropertyInfo), '("isAuthenticated", Soup.Auth.AuthIsAuthenticatedPropertyInfo), '("isForProxy", Soup.Auth.AuthIsForProxyPropertyInfo), '("realm", Soup.Auth.AuthRealmPropertyInfo), '("schemeName", Soup.Auth.AuthSchemeNamePropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList AuthBasic = AuthBasicSignalList-type AuthBasicSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--
− GI/Soup/Objects/AuthBasic.hs-boot 
@@ -1,29 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Objects.AuthBasic where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype AuthBasic = AuthBasic (ManagedPtr AuthBasic)-instance GObject AuthBasic where-class (GObject o, O.IsDescendantOf AuthBasic o) => IsAuthBasic o-instance (GObject o, O.IsDescendantOf AuthBasic o) => IsAuthBasic o-instance O.HasParentTypes AuthBasic
− GI/Soup/Objects/AuthDigest.hs 
@@ -1,138 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Objects.AuthDigest-    ( ---- * Exported types-    AuthDigest(..)                          ,-    IsAuthDigest                            ,-    toAuthDigest                            ,-    noAuthDigest                            ,---    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Soup.Objects.Auth as Soup.Auth---- | Memory-managed wrapper type.-newtype AuthDigest = AuthDigest (ManagedPtr AuthDigest)-foreign import ccall "soup_auth_digest_get_type"-    c_soup_auth_digest_get_type :: IO GType--instance GObject AuthDigest where-    gobjectType = c_soup_auth_digest_get_type-    ---- | Type class for types which can be safely cast to `AuthDigest`, for instance with `toAuthDigest`.-class (GObject o, O.IsDescendantOf AuthDigest o) => IsAuthDigest o-instance (GObject o, O.IsDescendantOf AuthDigest o) => IsAuthDigest o--instance O.HasParentTypes AuthDigest-type instance O.ParentTypes AuthDigest = '[Soup.Auth.Auth, GObject.Object.Object]---- | Cast to `AuthDigest`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toAuthDigest :: (MonadIO m, IsAuthDigest o) => o -> m AuthDigest-toAuthDigest = liftIO . unsafeCastTo AuthDigest---- | A convenience alias for `Nothing` :: `Maybe` `AuthDigest`.-noAuthDigest :: Maybe AuthDigest-noAuthDigest = Nothing--#if ENABLE_OVERLOADING-type family ResolveAuthDigestMethod (t :: Symbol) (o :: *) :: * where-    ResolveAuthDigestMethod "authenticate" o = Soup.Auth.AuthAuthenticateMethodInfo-    ResolveAuthDigestMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveAuthDigestMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveAuthDigestMethod "canAuthenticate" o = Soup.Auth.AuthCanAuthenticateMethodInfo-    ResolveAuthDigestMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveAuthDigestMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveAuthDigestMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveAuthDigestMethod "hasSavedPassword" o = Soup.Auth.AuthHasSavedPasswordMethodInfo-    ResolveAuthDigestMethod "isAuthenticated" o = Soup.Auth.AuthIsAuthenticatedMethodInfo-    ResolveAuthDigestMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveAuthDigestMethod "isForProxy" o = Soup.Auth.AuthIsForProxyMethodInfo-    ResolveAuthDigestMethod "isReady" o = Soup.Auth.AuthIsReadyMethodInfo-    ResolveAuthDigestMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveAuthDigestMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveAuthDigestMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveAuthDigestMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveAuthDigestMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveAuthDigestMethod "savePassword" o = Soup.Auth.AuthSavePasswordMethodInfo-    ResolveAuthDigestMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveAuthDigestMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveAuthDigestMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveAuthDigestMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveAuthDigestMethod "update" o = Soup.Auth.AuthUpdateMethodInfo-    ResolveAuthDigestMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveAuthDigestMethod "getAuthorization" o = Soup.Auth.AuthGetAuthorizationMethodInfo-    ResolveAuthDigestMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveAuthDigestMethod "getHost" o = Soup.Auth.AuthGetHostMethodInfo-    ResolveAuthDigestMethod "getInfo" o = Soup.Auth.AuthGetInfoMethodInfo-    ResolveAuthDigestMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveAuthDigestMethod "getProtectionSpace" o = Soup.Auth.AuthGetProtectionSpaceMethodInfo-    ResolveAuthDigestMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveAuthDigestMethod "getRealm" o = Soup.Auth.AuthGetRealmMethodInfo-    ResolveAuthDigestMethod "getSavedPassword" o = Soup.Auth.AuthGetSavedPasswordMethodInfo-    ResolveAuthDigestMethod "getSavedUsers" o = Soup.Auth.AuthGetSavedUsersMethodInfo-    ResolveAuthDigestMethod "getSchemeName" o = Soup.Auth.AuthGetSchemeNameMethodInfo-    ResolveAuthDigestMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveAuthDigestMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveAuthDigestMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveAuthDigestMethod t AuthDigest, O.MethodInfo info AuthDigest p) => OL.IsLabel t (AuthDigest -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList AuthDigest-type instance O.AttributeList AuthDigest = AuthDigestAttributeList-type AuthDigestAttributeList = ('[ '("host", Soup.Auth.AuthHostPropertyInfo), '("isAuthenticated", Soup.Auth.AuthIsAuthenticatedPropertyInfo), '("isForProxy", Soup.Auth.AuthIsForProxyPropertyInfo), '("realm", Soup.Auth.AuthRealmPropertyInfo), '("schemeName", Soup.Auth.AuthSchemeNamePropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList AuthDigest = AuthDigestSignalList-type AuthDigestSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--
− GI/Soup/Objects/AuthDigest.hs-boot 
@@ -1,29 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Objects.AuthDigest where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype AuthDigest = AuthDigest (ManagedPtr AuthDigest)-instance GObject AuthDigest where-class (GObject o, O.IsDescendantOf AuthDigest o) => IsAuthDigest o-instance (GObject o, O.IsDescendantOf AuthDigest o) => IsAuthDigest o-instance O.HasParentTypes AuthDigest
− GI/Soup/Objects/AuthDomain.hs 
@@ -1,1201 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Objects.AuthDomain-    ( ---- * Exported types-    AuthDomain(..)                          ,-    IsAuthDomain                            ,-    toAuthDomain                            ,-    noAuthDomain                            ,--- -- * Methods--- ** accepts #method:accepts#--#if ENABLE_OVERLOADING-    AuthDomainAcceptsMethodInfo             ,-#endif-    authDomainAccepts                       ,----- ** addPath #method:addPath#--#if ENABLE_OVERLOADING-    AuthDomainAddPathMethodInfo             ,-#endif-    authDomainAddPath                       ,----- ** challenge #method:challenge#--#if ENABLE_OVERLOADING-    AuthDomainChallengeMethodInfo           ,-#endif-    authDomainChallenge                     ,----- ** checkPassword #method:checkPassword#--#if ENABLE_OVERLOADING-    AuthDomainCheckPasswordMethodInfo       ,-#endif-    authDomainCheckPassword                 ,----- ** covers #method:covers#--#if ENABLE_OVERLOADING-    AuthDomainCoversMethodInfo              ,-#endif-    authDomainCovers                        ,----- ** getRealm #method:getRealm#--#if ENABLE_OVERLOADING-    AuthDomainGetRealmMethodInfo            ,-#endif-    authDomainGetRealm                      ,----- ** removePath #method:removePath#--#if ENABLE_OVERLOADING-    AuthDomainRemovePathMethodInfo          ,-#endif-    authDomainRemovePath                    ,----- ** setFilter #method:setFilter#--#if ENABLE_OVERLOADING-    AuthDomainSetFilterMethodInfo           ,-#endif-    authDomainSetFilter                     ,----- ** setGenericAuthCallback #method:setGenericAuthCallback#--#if ENABLE_OVERLOADING-    AuthDomainSetGenericAuthCallbackMethodInfo,-#endif-    authDomainSetGenericAuthCallback        ,----- ** tryGenericAuthCallback #method:tryGenericAuthCallback#--#if ENABLE_OVERLOADING-    AuthDomainTryGenericAuthCallbackMethodInfo,-#endif-    authDomainTryGenericAuthCallback        ,----- -- * Properties--- ** addPath #attr:addPath#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    AuthDomainAddPathPropertyInfo           ,-#endif-    clearAuthDomainAddPath                  ,-    constructAuthDomainAddPath              ,-    setAuthDomainAddPath                    ,----- ** filter #attr:filter#-{- | The 'GI.Soup.Callbacks.AuthDomainFilter' for the domain--}-#if ENABLE_OVERLOADING-    AuthDomainFilterPropertyInfo            ,-#endif-#if ENABLE_OVERLOADING-    authDomainFilter                        ,-#endif-    clearAuthDomainFilter                   ,-    constructAuthDomainFilter               ,-    getAuthDomainFilter                     ,-    setAuthDomainFilter                     ,----- ** filterData #attr:filterData#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    AuthDomainFilterDataPropertyInfo        ,-#endif-#if ENABLE_OVERLOADING-    authDomainFilterData                    ,-#endif-    constructAuthDomainFilterData           ,-    getAuthDomainFilterData                 ,-    setAuthDomainFilterData                 ,----- ** genericAuthCallback #attr:genericAuthCallback#-{- | The 'GI.Soup.Callbacks.AuthDomainGenericAuthCallback' for the domain--}-#if ENABLE_OVERLOADING-    AuthDomainGenericAuthCallbackPropertyInfo,-#endif-#if ENABLE_OVERLOADING-    authDomainGenericAuthCallback           ,-#endif-    clearAuthDomainGenericAuthCallback      ,-    constructAuthDomainGenericAuthCallback  ,-    getAuthDomainGenericAuthCallback        ,-    setAuthDomainGenericAuthCallback        ,----- ** genericAuthData #attr:genericAuthData#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    AuthDomainGenericAuthDataPropertyInfo   ,-#endif-#if ENABLE_OVERLOADING-    authDomainGenericAuthData               ,-#endif-    constructAuthDomainGenericAuthData      ,-    getAuthDomainGenericAuthData            ,-    setAuthDomainGenericAuthData            ,----- ** proxy #attr:proxy#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    AuthDomainProxyPropertyInfo             ,-#endif-#if ENABLE_OVERLOADING-    authDomainProxy                         ,-#endif-    constructAuthDomainProxy                ,-    getAuthDomainProxy                      ,----- ** realm #attr:realm#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    AuthDomainRealmPropertyInfo             ,-#endif-#if ENABLE_OVERLOADING-    authDomainRealm                         ,-#endif-    constructAuthDomainRealm                ,-    getAuthDomainRealm                      ,----- ** removePath #attr:removePath#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    AuthDomainRemovePathPropertyInfo        ,-#endif-    clearAuthDomainRemovePath               ,-    constructAuthDomainRemovePath           ,-    setAuthDomainRemovePath                 ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GLib.Callbacks as GLib.Callbacks-import qualified GI.GObject.Objects.Object as GObject.Object-import qualified GI.Soup.Callbacks as Soup.Callbacks-import {-# SOURCE #-} qualified GI.Soup.Objects.Message as Soup.Message---- | Memory-managed wrapper type.-newtype AuthDomain = AuthDomain (ManagedPtr AuthDomain)-foreign import ccall "soup_auth_domain_get_type"-    c_soup_auth_domain_get_type :: IO GType--instance GObject AuthDomain where-    gobjectType = c_soup_auth_domain_get_type-    ---- | Type class for types which can be safely cast to `AuthDomain`, for instance with `toAuthDomain`.-class (GObject o, O.IsDescendantOf AuthDomain o) => IsAuthDomain o-instance (GObject o, O.IsDescendantOf AuthDomain o) => IsAuthDomain o--instance O.HasParentTypes AuthDomain-type instance O.ParentTypes AuthDomain = '[GObject.Object.Object]---- | Cast to `AuthDomain`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toAuthDomain :: (MonadIO m, IsAuthDomain o) => o -> m AuthDomain-toAuthDomain = liftIO . unsafeCastTo AuthDomain---- | A convenience alias for `Nothing` :: `Maybe` `AuthDomain`.-noAuthDomain :: Maybe AuthDomain-noAuthDomain = Nothing--#if ENABLE_OVERLOADING-type family ResolveAuthDomainMethod (t :: Symbol) (o :: *) :: * where-    ResolveAuthDomainMethod "accepts" o = AuthDomainAcceptsMethodInfo-    ResolveAuthDomainMethod "addPath" o = AuthDomainAddPathMethodInfo-    ResolveAuthDomainMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveAuthDomainMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveAuthDomainMethod "challenge" o = AuthDomainChallengeMethodInfo-    ResolveAuthDomainMethod "checkPassword" o = AuthDomainCheckPasswordMethodInfo-    ResolveAuthDomainMethod "covers" o = AuthDomainCoversMethodInfo-    ResolveAuthDomainMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveAuthDomainMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveAuthDomainMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveAuthDomainMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveAuthDomainMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveAuthDomainMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveAuthDomainMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveAuthDomainMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveAuthDomainMethod "removePath" o = AuthDomainRemovePathMethodInfo-    ResolveAuthDomainMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveAuthDomainMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveAuthDomainMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveAuthDomainMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveAuthDomainMethod "tryGenericAuthCallback" o = AuthDomainTryGenericAuthCallbackMethodInfo-    ResolveAuthDomainMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveAuthDomainMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveAuthDomainMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveAuthDomainMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveAuthDomainMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveAuthDomainMethod "getRealm" o = AuthDomainGetRealmMethodInfo-    ResolveAuthDomainMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveAuthDomainMethod "setFilter" o = AuthDomainSetFilterMethodInfo-    ResolveAuthDomainMethod "setGenericAuthCallback" o = AuthDomainSetGenericAuthCallbackMethodInfo-    ResolveAuthDomainMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveAuthDomainMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveAuthDomainMethod t AuthDomain, O.MethodInfo info AuthDomain p) => OL.IsLabel t (AuthDomain -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif---- VVV Prop "add-path"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Set the value of the “@add-path@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' authDomain [ #addPath 'Data.GI.Base.Attributes.:=' value ]-@--}-setAuthDomainAddPath :: (MonadIO m, IsAuthDomain o) => o -> T.Text -> m ()-setAuthDomainAddPath obj val = liftIO $ B.Properties.setObjectPropertyString obj "add-path" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@add-path@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructAuthDomainAddPath :: (IsAuthDomain o) => T.Text -> IO (GValueConstruct o)-constructAuthDomainAddPath val = B.Properties.constructObjectPropertyString "add-path" (Just val)--{- |-Set the value of the “@add-path@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #addPath-@--}-clearAuthDomainAddPath :: (MonadIO m, IsAuthDomain o) => o -> m ()-clearAuthDomainAddPath obj = liftIO $ B.Properties.setObjectPropertyString obj "add-path" (Nothing :: Maybe T.Text)--#if ENABLE_OVERLOADING-data AuthDomainAddPathPropertyInfo-instance AttrInfo AuthDomainAddPathPropertyInfo where-    type AttrAllowedOps AuthDomainAddPathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint AuthDomainAddPathPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint AuthDomainAddPathPropertyInfo = IsAuthDomain-    type AttrGetType AuthDomainAddPathPropertyInfo = ()-    type AttrLabel AuthDomainAddPathPropertyInfo = "add-path"-    type AttrOrigin AuthDomainAddPathPropertyInfo = AuthDomain-    attrGet _ = undefined-    attrSet _ = setAuthDomainAddPath-    attrConstruct _ = constructAuthDomainAddPath-    attrClear _ = clearAuthDomainAddPath-#endif---- VVV Prop "filter"-   -- Type: TInterface (Name {namespace = "Soup", name = "AuthDomainFilter"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@filter@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' authDomain #filter-@--}-getAuthDomainFilter :: (MonadIO m, IsAuthDomain o) => o -> m (Maybe Soup.Callbacks.AuthDomainFilter_WithClosures)-getAuthDomainFilter obj = liftIO $ B.Properties.getObjectPropertyCallback obj "filter" Soup.Callbacks.dynamic_AuthDomainFilter--{- |-Set the value of the “@filter@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' authDomain [ #filter 'Data.GI.Base.Attributes.:=' value ]-@--}-setAuthDomainFilter :: (MonadIO m, IsAuthDomain o) => o -> FunPtr Soup.Callbacks.C_AuthDomainFilter -> m ()-setAuthDomainFilter obj val = liftIO $ B.Properties.setObjectPropertyCallback obj "filter" val--{- |-Construct a `GValueConstruct` with valid value for the “@filter@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructAuthDomainFilter :: (IsAuthDomain o) => FunPtr Soup.Callbacks.C_AuthDomainFilter -> IO (GValueConstruct o)-constructAuthDomainFilter val = B.Properties.constructObjectPropertyCallback "filter" val--{- |-Set the value of the “@filter@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #filter-@--}-clearAuthDomainFilter :: (MonadIO m, IsAuthDomain o) => o -> m ()-clearAuthDomainFilter obj = liftIO $ B.Properties.setObjectPropertyCallback obj "filter" FP.nullFunPtr--#if ENABLE_OVERLOADING-data AuthDomainFilterPropertyInfo-instance AttrInfo AuthDomainFilterPropertyInfo where-    type AttrAllowedOps AuthDomainFilterPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint AuthDomainFilterPropertyInfo = (~) (FunPtr Soup.Callbacks.C_AuthDomainFilter)-    type AttrBaseTypeConstraint AuthDomainFilterPropertyInfo = IsAuthDomain-    type AttrGetType AuthDomainFilterPropertyInfo = (Maybe Soup.Callbacks.AuthDomainFilter_WithClosures)-    type AttrLabel AuthDomainFilterPropertyInfo = "filter"-    type AttrOrigin AuthDomainFilterPropertyInfo = AuthDomain-    attrGet _ = getAuthDomainFilter-    attrSet _ = setAuthDomainFilter-    attrConstruct _ = constructAuthDomainFilter-    attrClear _ = clearAuthDomainFilter-#endif---- VVV Prop "filter-data"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@filter-data@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' authDomain #filterData-@--}-getAuthDomainFilterData :: (MonadIO m, IsAuthDomain o) => o -> m (Ptr ())-getAuthDomainFilterData obj = liftIO $ B.Properties.getObjectPropertyPtr obj "filter-data"--{- |-Set the value of the “@filter-data@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' authDomain [ #filterData 'Data.GI.Base.Attributes.:=' value ]-@--}-setAuthDomainFilterData :: (MonadIO m, IsAuthDomain o) => o -> Ptr () -> m ()-setAuthDomainFilterData obj val = liftIO $ B.Properties.setObjectPropertyPtr obj "filter-data" val--{- |-Construct a `GValueConstruct` with valid value for the “@filter-data@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructAuthDomainFilterData :: (IsAuthDomain o) => Ptr () -> IO (GValueConstruct o)-constructAuthDomainFilterData val = B.Properties.constructObjectPropertyPtr "filter-data" val--#if ENABLE_OVERLOADING-data AuthDomainFilterDataPropertyInfo-instance AttrInfo AuthDomainFilterDataPropertyInfo where-    type AttrAllowedOps AuthDomainFilterDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AuthDomainFilterDataPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint AuthDomainFilterDataPropertyInfo = IsAuthDomain-    type AttrGetType AuthDomainFilterDataPropertyInfo = (Ptr ())-    type AttrLabel AuthDomainFilterDataPropertyInfo = "filter-data"-    type AttrOrigin AuthDomainFilterDataPropertyInfo = AuthDomain-    attrGet _ = getAuthDomainFilterData-    attrSet _ = setAuthDomainFilterData-    attrConstruct _ = constructAuthDomainFilterData-    attrClear _ = undefined-#endif---- VVV Prop "generic-auth-callback"-   -- Type: TInterface (Name {namespace = "Soup", name = "AuthDomainGenericAuthCallback"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@generic-auth-callback@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' authDomain #genericAuthCallback-@--}-getAuthDomainGenericAuthCallback :: (MonadIO m, IsAuthDomain o) => o -> m (Maybe Soup.Callbacks.AuthDomainGenericAuthCallback_WithClosures)-getAuthDomainGenericAuthCallback obj = liftIO $ B.Properties.getObjectPropertyCallback obj "generic-auth-callback" Soup.Callbacks.dynamic_AuthDomainGenericAuthCallback--{- |-Set the value of the “@generic-auth-callback@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' authDomain [ #genericAuthCallback 'Data.GI.Base.Attributes.:=' value ]-@--}-setAuthDomainGenericAuthCallback :: (MonadIO m, IsAuthDomain o) => o -> FunPtr Soup.Callbacks.C_AuthDomainGenericAuthCallback -> m ()-setAuthDomainGenericAuthCallback obj val = liftIO $ B.Properties.setObjectPropertyCallback obj "generic-auth-callback" val--{- |-Construct a `GValueConstruct` with valid value for the “@generic-auth-callback@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructAuthDomainGenericAuthCallback :: (IsAuthDomain o) => FunPtr Soup.Callbacks.C_AuthDomainGenericAuthCallback -> IO (GValueConstruct o)-constructAuthDomainGenericAuthCallback val = B.Properties.constructObjectPropertyCallback "generic-auth-callback" val--{- |-Set the value of the “@generic-auth-callback@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #genericAuthCallback-@--}-clearAuthDomainGenericAuthCallback :: (MonadIO m, IsAuthDomain o) => o -> m ()-clearAuthDomainGenericAuthCallback obj = liftIO $ B.Properties.setObjectPropertyCallback obj "generic-auth-callback" FP.nullFunPtr--#if ENABLE_OVERLOADING-data AuthDomainGenericAuthCallbackPropertyInfo-instance AttrInfo AuthDomainGenericAuthCallbackPropertyInfo where-    type AttrAllowedOps AuthDomainGenericAuthCallbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint AuthDomainGenericAuthCallbackPropertyInfo = (~) (FunPtr Soup.Callbacks.C_AuthDomainGenericAuthCallback)-    type AttrBaseTypeConstraint AuthDomainGenericAuthCallbackPropertyInfo = IsAuthDomain-    type AttrGetType AuthDomainGenericAuthCallbackPropertyInfo = (Maybe Soup.Callbacks.AuthDomainGenericAuthCallback_WithClosures)-    type AttrLabel AuthDomainGenericAuthCallbackPropertyInfo = "generic-auth-callback"-    type AttrOrigin AuthDomainGenericAuthCallbackPropertyInfo = AuthDomain-    attrGet _ = getAuthDomainGenericAuthCallback-    attrSet _ = setAuthDomainGenericAuthCallback-    attrConstruct _ = constructAuthDomainGenericAuthCallback-    attrClear _ = clearAuthDomainGenericAuthCallback-#endif---- VVV Prop "generic-auth-data"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@generic-auth-data@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' authDomain #genericAuthData-@--}-getAuthDomainGenericAuthData :: (MonadIO m, IsAuthDomain o) => o -> m (Ptr ())-getAuthDomainGenericAuthData obj = liftIO $ B.Properties.getObjectPropertyPtr obj "generic-auth-data"--{- |-Set the value of the “@generic-auth-data@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' authDomain [ #genericAuthData 'Data.GI.Base.Attributes.:=' value ]-@--}-setAuthDomainGenericAuthData :: (MonadIO m, IsAuthDomain o) => o -> Ptr () -> m ()-setAuthDomainGenericAuthData obj val = liftIO $ B.Properties.setObjectPropertyPtr obj "generic-auth-data" val--{- |-Construct a `GValueConstruct` with valid value for the “@generic-auth-data@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructAuthDomainGenericAuthData :: (IsAuthDomain o) => Ptr () -> IO (GValueConstruct o)-constructAuthDomainGenericAuthData val = B.Properties.constructObjectPropertyPtr "generic-auth-data" val--#if ENABLE_OVERLOADING-data AuthDomainGenericAuthDataPropertyInfo-instance AttrInfo AuthDomainGenericAuthDataPropertyInfo where-    type AttrAllowedOps AuthDomainGenericAuthDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AuthDomainGenericAuthDataPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint AuthDomainGenericAuthDataPropertyInfo = IsAuthDomain-    type AttrGetType AuthDomainGenericAuthDataPropertyInfo = (Ptr ())-    type AttrLabel AuthDomainGenericAuthDataPropertyInfo = "generic-auth-data"-    type AttrOrigin AuthDomainGenericAuthDataPropertyInfo = AuthDomain-    attrGet _ = getAuthDomainGenericAuthData-    attrSet _ = setAuthDomainGenericAuthData-    attrConstruct _ = constructAuthDomainGenericAuthData-    attrClear _ = undefined-#endif---- VVV Prop "proxy"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@proxy@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' authDomain #proxy-@--}-getAuthDomainProxy :: (MonadIO m, IsAuthDomain o) => o -> m Bool-getAuthDomainProxy obj = liftIO $ B.Properties.getObjectPropertyBool obj "proxy"--{- |-Construct a `GValueConstruct` with valid value for the “@proxy@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructAuthDomainProxy :: (IsAuthDomain o) => Bool -> IO (GValueConstruct o)-constructAuthDomainProxy val = B.Properties.constructObjectPropertyBool "proxy" val--#if ENABLE_OVERLOADING-data AuthDomainProxyPropertyInfo-instance AttrInfo AuthDomainProxyPropertyInfo where-    type AttrAllowedOps AuthDomainProxyPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AuthDomainProxyPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint AuthDomainProxyPropertyInfo = IsAuthDomain-    type AttrGetType AuthDomainProxyPropertyInfo = Bool-    type AttrLabel AuthDomainProxyPropertyInfo = "proxy"-    type AttrOrigin AuthDomainProxyPropertyInfo = AuthDomain-    attrGet _ = getAuthDomainProxy-    attrSet _ = undefined-    attrConstruct _ = constructAuthDomainProxy-    attrClear _ = undefined-#endif---- VVV Prop "realm"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@realm@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' authDomain #realm-@--}-getAuthDomainRealm :: (MonadIO m, IsAuthDomain o) => o -> m T.Text-getAuthDomainRealm obj = liftIO $ checkUnexpectedNothing "getAuthDomainRealm" $ B.Properties.getObjectPropertyString obj "realm"--{- |-Construct a `GValueConstruct` with valid value for the “@realm@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructAuthDomainRealm :: (IsAuthDomain o) => T.Text -> IO (GValueConstruct o)-constructAuthDomainRealm val = B.Properties.constructObjectPropertyString "realm" (Just val)--#if ENABLE_OVERLOADING-data AuthDomainRealmPropertyInfo-instance AttrInfo AuthDomainRealmPropertyInfo where-    type AttrAllowedOps AuthDomainRealmPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint AuthDomainRealmPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint AuthDomainRealmPropertyInfo = IsAuthDomain-    type AttrGetType AuthDomainRealmPropertyInfo = T.Text-    type AttrLabel AuthDomainRealmPropertyInfo = "realm"-    type AttrOrigin AuthDomainRealmPropertyInfo = AuthDomain-    attrGet _ = getAuthDomainRealm-    attrSet _ = undefined-    attrConstruct _ = constructAuthDomainRealm-    attrClear _ = undefined-#endif---- VVV Prop "remove-path"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Set the value of the “@remove-path@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' authDomain [ #removePath 'Data.GI.Base.Attributes.:=' value ]-@--}-setAuthDomainRemovePath :: (MonadIO m, IsAuthDomain o) => o -> T.Text -> m ()-setAuthDomainRemovePath obj val = liftIO $ B.Properties.setObjectPropertyString obj "remove-path" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@remove-path@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructAuthDomainRemovePath :: (IsAuthDomain o) => T.Text -> IO (GValueConstruct o)-constructAuthDomainRemovePath val = B.Properties.constructObjectPropertyString "remove-path" (Just val)--{- |-Set the value of the “@remove-path@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #removePath-@--}-clearAuthDomainRemovePath :: (MonadIO m, IsAuthDomain o) => o -> m ()-clearAuthDomainRemovePath obj = liftIO $ B.Properties.setObjectPropertyString obj "remove-path" (Nothing :: Maybe T.Text)--#if ENABLE_OVERLOADING-data AuthDomainRemovePathPropertyInfo-instance AttrInfo AuthDomainRemovePathPropertyInfo where-    type AttrAllowedOps AuthDomainRemovePathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint AuthDomainRemovePathPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint AuthDomainRemovePathPropertyInfo = IsAuthDomain-    type AttrGetType AuthDomainRemovePathPropertyInfo = ()-    type AttrLabel AuthDomainRemovePathPropertyInfo = "remove-path"-    type AttrOrigin AuthDomainRemovePathPropertyInfo = AuthDomain-    attrGet _ = undefined-    attrSet _ = setAuthDomainRemovePath-    attrConstruct _ = constructAuthDomainRemovePath-    attrClear _ = clearAuthDomainRemovePath-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList AuthDomain-type instance O.AttributeList AuthDomain = AuthDomainAttributeList-type AuthDomainAttributeList = ('[ '("addPath", AuthDomainAddPathPropertyInfo), '("filter", AuthDomainFilterPropertyInfo), '("filterData", AuthDomainFilterDataPropertyInfo), '("genericAuthCallback", AuthDomainGenericAuthCallbackPropertyInfo), '("genericAuthData", AuthDomainGenericAuthDataPropertyInfo), '("proxy", AuthDomainProxyPropertyInfo), '("realm", AuthDomainRealmPropertyInfo), '("removePath", AuthDomainRemovePathPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-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--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList AuthDomain = AuthDomainSignalList-type AuthDomainSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method AuthDomain::accepts--- method type : OrdinaryMethod--- Args : [Arg {argCName = "domain", argType = TInterface (Name {namespace = "Soup", name = "AuthDomain"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAuthDomain", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, 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 ->                       -- domain : TInterface (Name {namespace = "Soup", name = "AuthDomain"})-    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO CString--{- |-Checks if /@msg@/ contains appropriate authorization for /@domain@/ to-accept it. Mirroring 'GI.Soup.Objects.AuthDomain.authDomainCovers', this does not check-whether or not /@domain@/ \<emphasis>cares\<\/emphasis> if /@msg@/ is-authorized.--This is used by 'GI.Soup.Objects.Server.Server' internally and is probably of no use to-anyone else.--}-authDomainAccepts ::-    (B.CallStack.HasCallStack, MonadIO m, IsAuthDomain a, Soup.Message.IsMessage b) =>-    a-    {- ^ /@domain@/: a 'GI.Soup.Objects.AuthDomain.AuthDomain' -}-    -> b-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ the username that /@msg@/ has authenticated-as, if in fact it has authenticated. 'Nothing' otherwise. -}-authDomainAccepts domain msg = liftIO $ do-    domain' <- unsafeManagedPtrCastPtr domain-    msg' <- unsafeManagedPtrCastPtr msg-    result <- soup_auth_domain_accepts domain' msg'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        freeMem result'-        return result''-    touchManagedPtr domain-    touchManagedPtr msg-    return maybeResult--#if ENABLE_OVERLOADING-data AuthDomainAcceptsMethodInfo-instance (signature ~ (b -> m (Maybe T.Text)), MonadIO m, IsAuthDomain a, Soup.Message.IsMessage b) => O.MethodInfo AuthDomainAcceptsMethodInfo a signature where-    overloadedMethod _ = authDomainAccepts--#endif---- method AuthDomain::add_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "domain", argType = TInterface (Name {namespace = "Soup", name = "AuthDomain"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAuthDomain", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the path to add to @domain", sinceVersion = Nothing}, 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 ->                       -- domain : TInterface (Name {namespace = "Soup", name = "AuthDomain"})-    CString ->                              -- path : TBasicType TUTF8-    IO ()--{- |-Adds /@path@/ to /@domain@/, such that requests under /@path@/ on /@domain@/\'s-server will require authentication (unless overridden by-'GI.Soup.Objects.AuthDomain.authDomainRemovePath' or 'GI.Soup.Objects.AuthDomain.authDomainSetFilter').--You can also add paths by setting the 'GI.Soup.Constants.AUTH_DOMAIN_ADD_PATH'-property, which can also be used to add one or more paths at-construct time.--}-authDomainAddPath ::-    (B.CallStack.HasCallStack, MonadIO m, IsAuthDomain a) =>-    a-    {- ^ /@domain@/: a 'GI.Soup.Objects.AuthDomain.AuthDomain' -}-    -> T.Text-    {- ^ /@path@/: the path to add to /@domain@/ -}-    -> m ()-authDomainAddPath domain path = liftIO $ do-    domain' <- unsafeManagedPtrCastPtr domain-    path' <- textToCString path-    soup_auth_domain_add_path domain' path'-    touchManagedPtr domain-    freeMem path'-    return ()--#if ENABLE_OVERLOADING-data AuthDomainAddPathMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsAuthDomain a) => O.MethodInfo AuthDomainAddPathMethodInfo a signature where-    overloadedMethod _ = authDomainAddPath--#endif---- method AuthDomain::challenge--- method type : OrdinaryMethod--- Args : [Arg {argCName = "domain", argType = TInterface (Name {namespace = "Soup", name = "AuthDomain"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAuthDomain", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, 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 ->                       -- domain : TInterface (Name {namespace = "Soup", name = "AuthDomain"})-    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO ()--{- |-Adds a \"WWW-Authenticate\" or \"Proxy-Authenticate\" header to /@msg@/,-requesting that the client authenticate, and sets /@msg@/\'s status-accordingly.--This is used by 'GI.Soup.Objects.Server.Server' internally and is probably of no use to-anyone else.--}-authDomainChallenge ::-    (B.CallStack.HasCallStack, MonadIO m, IsAuthDomain a, Soup.Message.IsMessage b) =>-    a-    {- ^ /@domain@/: a 'GI.Soup.Objects.AuthDomain.AuthDomain' -}-    -> b-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> m ()-authDomainChallenge domain msg = liftIO $ do-    domain' <- unsafeManagedPtrCastPtr domain-    msg' <- unsafeManagedPtrCastPtr msg-    soup_auth_domain_challenge domain' msg'-    touchManagedPtr domain-    touchManagedPtr msg-    return ()--#if ENABLE_OVERLOADING-data AuthDomainChallengeMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsAuthDomain a, Soup.Message.IsMessage b) => O.MethodInfo AuthDomainChallengeMethodInfo a signature where-    overloadedMethod _ = authDomainChallenge--#endif---- method AuthDomain::check_password--- method type : OrdinaryMethod--- Args : [Arg {argCName = "domain", argType = TInterface (Name {namespace = "Soup", name = "AuthDomain"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAuthDomain", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a username", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a password", sinceVersion = Nothing}, 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 ->                       -- domain : TInterface (Name {namespace = "Soup", name = "AuthDomain"})-    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    CString ->                              -- username : TBasicType TUTF8-    CString ->                              -- password : TBasicType TUTF8-    IO CInt--{- |-Checks if /@msg@/ authenticates to /@domain@/ via /@username@/ and-/@password@/. This would normally be called from a-'GI.Soup.Callbacks.AuthDomainGenericAuthCallback'.--}-authDomainCheckPassword ::-    (B.CallStack.HasCallStack, MonadIO m, IsAuthDomain a, Soup.Message.IsMessage b) =>-    a-    {- ^ /@domain@/: a 'GI.Soup.Objects.AuthDomain.AuthDomain' -}-    -> b-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> T.Text-    {- ^ /@username@/: a username -}-    -> T.Text-    {- ^ /@password@/: a password -}-    -> m Bool-    {- ^ __Returns:__ whether or not the message is authenticated -}-authDomainCheckPassword domain msg username password = liftIO $ do-    domain' <- unsafeManagedPtrCastPtr domain-    msg' <- unsafeManagedPtrCastPtr msg-    username' <- textToCString username-    password' <- textToCString password-    result <- soup_auth_domain_check_password domain' msg' username' password'-    let result' = (/= 0) result-    touchManagedPtr domain-    touchManagedPtr msg-    freeMem username'-    freeMem password'-    return result'--#if ENABLE_OVERLOADING-data AuthDomainCheckPasswordMethodInfo-instance (signature ~ (b -> T.Text -> T.Text -> m Bool), MonadIO m, IsAuthDomain a, Soup.Message.IsMessage b) => O.MethodInfo AuthDomainCheckPasswordMethodInfo a signature where-    overloadedMethod _ = authDomainCheckPassword--#endif---- method AuthDomain::covers--- method type : OrdinaryMethod--- Args : [Arg {argCName = "domain", argType = TInterface (Name {namespace = "Soup", name = "AuthDomain"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAuthDomain", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, 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 ->                       -- domain : TInterface (Name {namespace = "Soup", name = "AuthDomain"})-    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO CInt--{- |-Checks if /@domain@/ requires /@msg@/ to be authenticated (according to-its paths and filter function). This does not actually look at-whether /@msg@/ \<emphasis>is\<\/emphasis> authenticated, merely whether-or not it needs to be.--This is used by 'GI.Soup.Objects.Server.Server' internally and is probably of no use to-anyone else.--}-authDomainCovers ::-    (B.CallStack.HasCallStack, MonadIO m, IsAuthDomain a, Soup.Message.IsMessage b) =>-    a-    {- ^ /@domain@/: a 'GI.Soup.Objects.AuthDomain.AuthDomain' -}-    -> b-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@domain@/ requires /@msg@/ to be authenticated -}-authDomainCovers domain msg = liftIO $ do-    domain' <- unsafeManagedPtrCastPtr domain-    msg' <- unsafeManagedPtrCastPtr msg-    result <- soup_auth_domain_covers domain' msg'-    let result' = (/= 0) result-    touchManagedPtr domain-    touchManagedPtr msg-    return result'--#if ENABLE_OVERLOADING-data AuthDomainCoversMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, IsAuthDomain a, Soup.Message.IsMessage b) => O.MethodInfo AuthDomainCoversMethodInfo a signature where-    overloadedMethod _ = authDomainCovers--#endif---- method AuthDomain::get_realm--- method type : OrdinaryMethod--- Args : [Arg {argCName = "domain", argType = TInterface (Name {namespace = "Soup", name = "AuthDomain"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAuthDomain", sinceVersion = Nothing}, 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 ->                       -- domain : TInterface (Name {namespace = "Soup", name = "AuthDomain"})-    IO CString--{- |-Gets the realm name associated with /@domain@/--}-authDomainGetRealm ::-    (B.CallStack.HasCallStack, MonadIO m, IsAuthDomain a) =>-    a-    {- ^ /@domain@/: a 'GI.Soup.Objects.AuthDomain.AuthDomain' -}-    -> m T.Text-    {- ^ __Returns:__ /@domain@/\'s realm -}-authDomainGetRealm domain = liftIO $ do-    domain' <- unsafeManagedPtrCastPtr domain-    result <- soup_auth_domain_get_realm domain'-    checkUnexpectedReturnNULL "authDomainGetRealm" result-    result' <- cstringToText result-    touchManagedPtr domain-    return result'--#if ENABLE_OVERLOADING-data AuthDomainGetRealmMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsAuthDomain a) => O.MethodInfo AuthDomainGetRealmMethodInfo a signature where-    overloadedMethod _ = authDomainGetRealm--#endif---- method AuthDomain::remove_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "domain", argType = TInterface (Name {namespace = "Soup", name = "AuthDomain"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAuthDomain", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the path to remove from @domain", sinceVersion = Nothing}, 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 ->                       -- domain : TInterface (Name {namespace = "Soup", name = "AuthDomain"})-    CString ->                              -- path : TBasicType TUTF8-    IO ()--{- |-Removes /@path@/ from /@domain@/, such that requests under /@path@/ on-/@domain@/\'s server will NOT require authentication.--This is not simply an undo-er for 'GI.Soup.Objects.AuthDomain.authDomainAddPath'; it-can be used to \"carve out\" a subtree that does not require-authentication inside a hierarchy that does. Note also that unlike-with 'GI.Soup.Objects.AuthDomain.authDomainAddPath', this cannot be overridden by-adding a filter, as filters can only bypass authentication that-would otherwise be required, not require it where it would-otherwise be unnecessary.--You can also remove paths by setting the-'GI.Soup.Constants.AUTH_DOMAIN_REMOVE_PATH' property, which can also be used to-remove one or more paths at construct time.--}-authDomainRemovePath ::-    (B.CallStack.HasCallStack, MonadIO m, IsAuthDomain a) =>-    a-    {- ^ /@domain@/: a 'GI.Soup.Objects.AuthDomain.AuthDomain' -}-    -> T.Text-    {- ^ /@path@/: the path to remove from /@domain@/ -}-    -> m ()-authDomainRemovePath domain path = liftIO $ do-    domain' <- unsafeManagedPtrCastPtr domain-    path' <- textToCString path-    soup_auth_domain_remove_path domain' path'-    touchManagedPtr domain-    freeMem path'-    return ()--#if ENABLE_OVERLOADING-data AuthDomainRemovePathMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsAuthDomain a) => O.MethodInfo AuthDomainRemovePathMethodInfo a signature where-    overloadedMethod _ = authDomainRemovePath--#endif---- method AuthDomain::set_filter--- method type : OrdinaryMethod--- Args : [Arg {argCName = "domain", argType = TInterface (Name {namespace = "Soup", name = "AuthDomain"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAuthDomain", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter", argType = TInterface (Name {namespace = "Soup", name = "AuthDomainFilter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the auth filter for @domain", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data to pass to @filter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dnotify", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "destroy notifier to free @filter_data when @domain\nis destroyed", sinceVersion = Nothing}, 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 ->                       -- domain : TInterface (Name {namespace = "Soup", name = "AuthDomain"})-    FunPtr Soup.Callbacks.C_AuthDomainFilter -> -- filter : TInterface (Name {namespace = "Soup", name = "AuthDomainFilter"})-    Ptr () ->                               -- filter_data : TBasicType TPtr-    FunPtr GLib.Callbacks.C_DestroyNotify -> -- dnotify : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})-    IO ()--{- |-Adds /@filter@/ as an authentication filter to /@domain@/. The filter-gets a chance to bypass authentication for certain requests that-would otherwise require it. Eg, it might check the message\'s path-in some way that is too complicated to do via the other methods, or-it might check the message\'s method, and allow GETs but not PUTs.--The filter function returns 'True' if the request should still-require authentication, or 'False' if authentication is unnecessary-for this request.--To help prevent security holes, your filter should return 'True' by-default, and only return 'False' under specifically-tested-circumstances, rather than the other way around. Eg, in the example-above, where you want to authenticate PUTs but not GETs, you should-check if the method is GET and return 'False' in that case, and then-return 'True' for all other methods (rather than returning 'True' for-PUT and 'False' for all other methods). This way if it turned out-(now or later) that some paths supported additional methods besides-GET and PUT, those methods would default to being NOT allowed for-unauthenticated users.--You can also set the filter by setting the 'GI.Soup.Constants.AUTH_DOMAIN_FILTER'-and 'GI.Soup.Constants.AUTH_DOMAIN_FILTER_DATA' properties, which can also be-used to set the filter at construct time.--}-authDomainSetFilter ::-    (B.CallStack.HasCallStack, MonadIO m, IsAuthDomain a) =>-    a-    {- ^ /@domain@/: a 'GI.Soup.Objects.AuthDomain.AuthDomain' -}-    -> Soup.Callbacks.AuthDomainFilter-    {- ^ /@filter@/: the auth filter for /@domain@/ -}-    -> m ()-authDomainSetFilter domain filter = liftIO $ do-    domain' <- unsafeManagedPtrCastPtr domain-    filter' <- Soup.Callbacks.mk_AuthDomainFilter (Soup.Callbacks.wrap_AuthDomainFilter Nothing (Soup.Callbacks.drop_closures_AuthDomainFilter filter))-    let filterData = castFunPtrToPtr filter'-    let dnotify = safeFreeFunPtrPtr-    soup_auth_domain_set_filter domain' filter' filterData dnotify-    touchManagedPtr domain-    return ()--#if ENABLE_OVERLOADING-data AuthDomainSetFilterMethodInfo-instance (signature ~ (Soup.Callbacks.AuthDomainFilter -> m ()), MonadIO m, IsAuthDomain a) => O.MethodInfo AuthDomainSetFilterMethodInfo a signature where-    overloadedMethod _ = authDomainSetFilter--#endif---- method AuthDomain::set_generic_auth_callback--- method type : OrdinaryMethod--- Args : [Arg {argCName = "domain", argType = TInterface (Name {namespace = "Soup", name = "AuthDomain"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAuthDomain", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth_callback", argType = TInterface (Name {namespace = "Soup", name = "AuthDomainGenericAuthCallback"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the auth callback", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data to pass to @auth_callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dnotify", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "destroy notifier to free @auth_data when @domain\nis destroyed", sinceVersion = Nothing}, 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 ->                       -- domain : TInterface (Name {namespace = "Soup", name = "AuthDomain"})-    FunPtr Soup.Callbacks.C_AuthDomainGenericAuthCallback -> -- auth_callback : TInterface (Name {namespace = "Soup", name = "AuthDomainGenericAuthCallback"})-    Ptr () ->                               -- auth_data : TBasicType TPtr-    FunPtr GLib.Callbacks.C_DestroyNotify -> -- dnotify : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})-    IO ()--{- |-Sets /@authCallback@/ as an authentication-handling callback for-/@domain@/. Whenever a request comes in to /@domain@/ which cannot be-authenticated via a domain-specific auth callback (eg,-'GI.Soup.Callbacks.AuthDomainDigestAuthCallback'), the generic auth callback-will be invoked. See 'GI.Soup.Callbacks.AuthDomainGenericAuthCallback' for information-on what the callback should do.--}-authDomainSetGenericAuthCallback ::-    (B.CallStack.HasCallStack, MonadIO m, IsAuthDomain a) =>-    a-    {- ^ /@domain@/: a 'GI.Soup.Objects.AuthDomain.AuthDomain' -}-    -> Soup.Callbacks.AuthDomainGenericAuthCallback-    {- ^ /@authCallback@/: the auth callback -}-    -> m ()-authDomainSetGenericAuthCallback domain authCallback = liftIO $ do-    domain' <- unsafeManagedPtrCastPtr domain-    authCallback' <- Soup.Callbacks.mk_AuthDomainGenericAuthCallback (Soup.Callbacks.wrap_AuthDomainGenericAuthCallback Nothing (Soup.Callbacks.drop_closures_AuthDomainGenericAuthCallback authCallback))-    let authData = castFunPtrToPtr authCallback'-    let dnotify = safeFreeFunPtrPtr-    soup_auth_domain_set_generic_auth_callback domain' authCallback' authData dnotify-    touchManagedPtr domain-    return ()--#if ENABLE_OVERLOADING-data AuthDomainSetGenericAuthCallbackMethodInfo-instance (signature ~ (Soup.Callbacks.AuthDomainGenericAuthCallback -> m ()), MonadIO m, IsAuthDomain a) => O.MethodInfo AuthDomainSetGenericAuthCallbackMethodInfo a signature where-    overloadedMethod _ = authDomainSetGenericAuthCallback--#endif---- method AuthDomain::try_generic_auth_callback--- method type : OrdinaryMethod--- Args : [Arg {argCName = "domain", argType = TInterface (Name {namespace = "Soup", name = "AuthDomain"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, 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 ->                       -- domain : TInterface (Name {namespace = "Soup", name = "AuthDomain"})-    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    CString ->                              -- username : TBasicType TUTF8-    IO CInt--{- |-/No description available in the introspection data./--}-authDomainTryGenericAuthCallback ::-    (B.CallStack.HasCallStack, MonadIO m, IsAuthDomain a, Soup.Message.IsMessage b) =>-    a-    -> b-    -> T.Text-    -> m Bool-authDomainTryGenericAuthCallback domain msg username = liftIO $ do-    domain' <- unsafeManagedPtrCastPtr domain-    msg' <- unsafeManagedPtrCastPtr msg-    username' <- textToCString username-    result <- soup_auth_domain_try_generic_auth_callback domain' msg' username'-    let result' = (/= 0) result-    touchManagedPtr domain-    touchManagedPtr msg-    freeMem username'-    return result'--#if ENABLE_OVERLOADING-data AuthDomainTryGenericAuthCallbackMethodInfo-instance (signature ~ (b -> T.Text -> m Bool), MonadIO m, IsAuthDomain a, Soup.Message.IsMessage b) => O.MethodInfo AuthDomainTryGenericAuthCallbackMethodInfo a signature where-    overloadedMethod _ = authDomainTryGenericAuthCallback--#endif--
− GI/Soup/Objects/AuthDomain.hs-boot 
@@ -1,83 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Objects.AuthDomain where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype AuthDomain = AuthDomain (ManagedPtr AuthDomain)-instance GObject AuthDomain where-class (GObject o, O.IsDescendantOf AuthDomain o) => IsAuthDomain o-instance (GObject o, O.IsDescendantOf AuthDomain o) => IsAuthDomain o-instance O.HasParentTypes AuthDomain-#if ENABLE_OVERLOADING-data AuthDomainAddPathPropertyInfo-#endif-#if ENABLE_OVERLOADING-data AuthDomainFilterPropertyInfo-#endif-#if ENABLE_OVERLOADING-data AuthDomainFilterDataPropertyInfo-#endif-#if ENABLE_OVERLOADING-data AuthDomainGenericAuthCallbackPropertyInfo-#endif-#if ENABLE_OVERLOADING-data AuthDomainGenericAuthDataPropertyInfo-#endif-#if ENABLE_OVERLOADING-data AuthDomainProxyPropertyInfo-#endif-#if ENABLE_OVERLOADING-data AuthDomainRealmPropertyInfo-#endif-#if ENABLE_OVERLOADING-data AuthDomainRemovePathPropertyInfo-#endif-#if ENABLE_OVERLOADING-data AuthDomainAcceptsMethodInfo-#endif-#if ENABLE_OVERLOADING-data AuthDomainAddPathMethodInfo-#endif-#if ENABLE_OVERLOADING-data AuthDomainChallengeMethodInfo-#endif-#if ENABLE_OVERLOADING-data AuthDomainCheckPasswordMethodInfo-#endif-#if ENABLE_OVERLOADING-data AuthDomainCoversMethodInfo-#endif-#if ENABLE_OVERLOADING-data AuthDomainGetRealmMethodInfo-#endif-#if ENABLE_OVERLOADING-data AuthDomainRemovePathMethodInfo-#endif-#if ENABLE_OVERLOADING-data AuthDomainSetFilterMethodInfo-#endif-#if ENABLE_OVERLOADING-data AuthDomainSetGenericAuthCallbackMethodInfo-#endif-#if ENABLE_OVERLOADING-data AuthDomainTryGenericAuthCallbackMethodInfo-#endif
− GI/Soup/Objects/AuthDomainBasic.hs 
@@ -1,340 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Objects.AuthDomainBasic-    ( ---- * Exported types-    AuthDomainBasic(..)                     ,-    IsAuthDomainBasic                       ,-    toAuthDomainBasic                       ,-    noAuthDomainBasic                       ,--- -- * Methods--- ** setAuthCallback #method:setAuthCallback#--#if ENABLE_OVERLOADING-    AuthDomainBasicSetAuthCallbackMethodInfo,-#endif-    authDomainBasicSetAuthCallback          ,----- -- * Properties--- ** authCallback #attr:authCallback#-{- | The 'GI.Soup.Callbacks.AuthDomainBasicAuthCallback'--}-#if ENABLE_OVERLOADING-    AuthDomainBasicAuthCallbackPropertyInfo ,-#endif-#if ENABLE_OVERLOADING-    authDomainBasicAuthCallback             ,-#endif-    clearAuthDomainBasicAuthCallback        ,-    constructAuthDomainBasicAuthCallback    ,-    getAuthDomainBasicAuthCallback          ,-    setAuthDomainBasicAuthCallback          ,----- ** authData #attr:authData#-{- | The data to pass to the 'GI.Soup.Callbacks.AuthDomainBasicAuthCallback'--}-#if ENABLE_OVERLOADING-    AuthDomainBasicAuthDataPropertyInfo     ,-#endif-#if ENABLE_OVERLOADING-    authDomainBasicAuthData                 ,-#endif-    constructAuthDomainBasicAuthData        ,-    getAuthDomainBasicAuthData              ,-    setAuthDomainBasicAuthData              ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GLib.Callbacks as GLib.Callbacks-import qualified GI.GObject.Objects.Object as GObject.Object-import qualified GI.Soup.Callbacks as Soup.Callbacks-import {-# SOURCE #-} qualified GI.Soup.Objects.AuthDomain as Soup.AuthDomain---- | Memory-managed wrapper type.-newtype AuthDomainBasic = AuthDomainBasic (ManagedPtr AuthDomainBasic)-foreign import ccall "soup_auth_domain_basic_get_type"-    c_soup_auth_domain_basic_get_type :: IO GType--instance GObject AuthDomainBasic where-    gobjectType = c_soup_auth_domain_basic_get_type-    ---- | Type class for types which can be safely cast to `AuthDomainBasic`, for instance with `toAuthDomainBasic`.-class (GObject o, O.IsDescendantOf AuthDomainBasic o) => IsAuthDomainBasic o-instance (GObject o, O.IsDescendantOf AuthDomainBasic o) => IsAuthDomainBasic o--instance O.HasParentTypes AuthDomainBasic-type instance O.ParentTypes AuthDomainBasic = '[Soup.AuthDomain.AuthDomain, GObject.Object.Object]---- | Cast to `AuthDomainBasic`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toAuthDomainBasic :: (MonadIO m, IsAuthDomainBasic o) => o -> m AuthDomainBasic-toAuthDomainBasic = liftIO . unsafeCastTo AuthDomainBasic---- | A convenience alias for `Nothing` :: `Maybe` `AuthDomainBasic`.-noAuthDomainBasic :: Maybe AuthDomainBasic-noAuthDomainBasic = Nothing--#if ENABLE_OVERLOADING-type family ResolveAuthDomainBasicMethod (t :: Symbol) (o :: *) :: * where-    ResolveAuthDomainBasicMethod "accepts" o = Soup.AuthDomain.AuthDomainAcceptsMethodInfo-    ResolveAuthDomainBasicMethod "addPath" o = Soup.AuthDomain.AuthDomainAddPathMethodInfo-    ResolveAuthDomainBasicMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveAuthDomainBasicMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveAuthDomainBasicMethod "challenge" o = Soup.AuthDomain.AuthDomainChallengeMethodInfo-    ResolveAuthDomainBasicMethod "checkPassword" o = Soup.AuthDomain.AuthDomainCheckPasswordMethodInfo-    ResolveAuthDomainBasicMethod "covers" o = Soup.AuthDomain.AuthDomainCoversMethodInfo-    ResolveAuthDomainBasicMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveAuthDomainBasicMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveAuthDomainBasicMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveAuthDomainBasicMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveAuthDomainBasicMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveAuthDomainBasicMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveAuthDomainBasicMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveAuthDomainBasicMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveAuthDomainBasicMethod "removePath" o = Soup.AuthDomain.AuthDomainRemovePathMethodInfo-    ResolveAuthDomainBasicMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveAuthDomainBasicMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveAuthDomainBasicMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveAuthDomainBasicMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveAuthDomainBasicMethod "tryGenericAuthCallback" o = Soup.AuthDomain.AuthDomainTryGenericAuthCallbackMethodInfo-    ResolveAuthDomainBasicMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveAuthDomainBasicMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveAuthDomainBasicMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveAuthDomainBasicMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveAuthDomainBasicMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveAuthDomainBasicMethod "getRealm" o = Soup.AuthDomain.AuthDomainGetRealmMethodInfo-    ResolveAuthDomainBasicMethod "setAuthCallback" o = AuthDomainBasicSetAuthCallbackMethodInfo-    ResolveAuthDomainBasicMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveAuthDomainBasicMethod "setFilter" o = Soup.AuthDomain.AuthDomainSetFilterMethodInfo-    ResolveAuthDomainBasicMethod "setGenericAuthCallback" o = Soup.AuthDomain.AuthDomainSetGenericAuthCallbackMethodInfo-    ResolveAuthDomainBasicMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveAuthDomainBasicMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveAuthDomainBasicMethod t AuthDomainBasic, O.MethodInfo info AuthDomainBasic p) => OL.IsLabel t (AuthDomainBasic -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif---- VVV Prop "auth-callback"-   -- Type: TInterface (Name {namespace = "Soup", name = "AuthDomainBasicAuthCallback"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@auth-callback@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' authDomainBasic #authCallback-@--}-getAuthDomainBasicAuthCallback :: (MonadIO m, IsAuthDomainBasic o) => o -> m (Maybe Soup.Callbacks.AuthDomainBasicAuthCallback_WithClosures)-getAuthDomainBasicAuthCallback obj = liftIO $ B.Properties.getObjectPropertyCallback obj "auth-callback" Soup.Callbacks.dynamic_AuthDomainBasicAuthCallback--{- |-Set the value of the “@auth-callback@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' authDomainBasic [ #authCallback 'Data.GI.Base.Attributes.:=' value ]-@--}-setAuthDomainBasicAuthCallback :: (MonadIO m, IsAuthDomainBasic o) => o -> FunPtr Soup.Callbacks.C_AuthDomainBasicAuthCallback -> m ()-setAuthDomainBasicAuthCallback obj val = liftIO $ B.Properties.setObjectPropertyCallback obj "auth-callback" val--{- |-Construct a `GValueConstruct` with valid value for the “@auth-callback@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructAuthDomainBasicAuthCallback :: (IsAuthDomainBasic o) => FunPtr Soup.Callbacks.C_AuthDomainBasicAuthCallback -> IO (GValueConstruct o)-constructAuthDomainBasicAuthCallback val = B.Properties.constructObjectPropertyCallback "auth-callback" val--{- |-Set the value of the “@auth-callback@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #authCallback-@--}-clearAuthDomainBasicAuthCallback :: (MonadIO m, IsAuthDomainBasic o) => o -> m ()-clearAuthDomainBasicAuthCallback obj = liftIO $ B.Properties.setObjectPropertyCallback obj "auth-callback" FP.nullFunPtr--#if ENABLE_OVERLOADING-data AuthDomainBasicAuthCallbackPropertyInfo-instance AttrInfo AuthDomainBasicAuthCallbackPropertyInfo where-    type AttrAllowedOps AuthDomainBasicAuthCallbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint AuthDomainBasicAuthCallbackPropertyInfo = (~) (FunPtr Soup.Callbacks.C_AuthDomainBasicAuthCallback)-    type AttrBaseTypeConstraint AuthDomainBasicAuthCallbackPropertyInfo = IsAuthDomainBasic-    type AttrGetType AuthDomainBasicAuthCallbackPropertyInfo = (Maybe Soup.Callbacks.AuthDomainBasicAuthCallback_WithClosures)-    type AttrLabel AuthDomainBasicAuthCallbackPropertyInfo = "auth-callback"-    type AttrOrigin AuthDomainBasicAuthCallbackPropertyInfo = AuthDomainBasic-    attrGet _ = getAuthDomainBasicAuthCallback-    attrSet _ = setAuthDomainBasicAuthCallback-    attrConstruct _ = constructAuthDomainBasicAuthCallback-    attrClear _ = clearAuthDomainBasicAuthCallback-#endif---- VVV Prop "auth-data"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@auth-data@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' authDomainBasic #authData-@--}-getAuthDomainBasicAuthData :: (MonadIO m, IsAuthDomainBasic o) => o -> m (Ptr ())-getAuthDomainBasicAuthData obj = liftIO $ B.Properties.getObjectPropertyPtr obj "auth-data"--{- |-Set the value of the “@auth-data@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' authDomainBasic [ #authData 'Data.GI.Base.Attributes.:=' value ]-@--}-setAuthDomainBasicAuthData :: (MonadIO m, IsAuthDomainBasic o) => o -> Ptr () -> m ()-setAuthDomainBasicAuthData obj val = liftIO $ B.Properties.setObjectPropertyPtr obj "auth-data" val--{- |-Construct a `GValueConstruct` with valid value for the “@auth-data@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructAuthDomainBasicAuthData :: (IsAuthDomainBasic o) => Ptr () -> IO (GValueConstruct o)-constructAuthDomainBasicAuthData val = B.Properties.constructObjectPropertyPtr "auth-data" val--#if ENABLE_OVERLOADING-data AuthDomainBasicAuthDataPropertyInfo-instance AttrInfo AuthDomainBasicAuthDataPropertyInfo where-    type AttrAllowedOps AuthDomainBasicAuthDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AuthDomainBasicAuthDataPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint AuthDomainBasicAuthDataPropertyInfo = IsAuthDomainBasic-    type AttrGetType AuthDomainBasicAuthDataPropertyInfo = (Ptr ())-    type AttrLabel AuthDomainBasicAuthDataPropertyInfo = "auth-data"-    type AttrOrigin AuthDomainBasicAuthDataPropertyInfo = AuthDomainBasic-    attrGet _ = getAuthDomainBasicAuthData-    attrSet _ = setAuthDomainBasicAuthData-    attrConstruct _ = constructAuthDomainBasicAuthData-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList AuthDomainBasic-type instance O.AttributeList AuthDomainBasic = AuthDomainBasicAttributeList-type AuthDomainBasicAttributeList = ('[ '("addPath", Soup.AuthDomain.AuthDomainAddPathPropertyInfo), '("authCallback", AuthDomainBasicAuthCallbackPropertyInfo), '("authData", AuthDomainBasicAuthDataPropertyInfo), '("filter", Soup.AuthDomain.AuthDomainFilterPropertyInfo), '("filterData", Soup.AuthDomain.AuthDomainFilterDataPropertyInfo), '("genericAuthCallback", Soup.AuthDomain.AuthDomainGenericAuthCallbackPropertyInfo), '("genericAuthData", Soup.AuthDomain.AuthDomainGenericAuthDataPropertyInfo), '("proxy", Soup.AuthDomain.AuthDomainProxyPropertyInfo), '("realm", Soup.AuthDomain.AuthDomainRealmPropertyInfo), '("removePath", Soup.AuthDomain.AuthDomainRemovePathPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-authDomainBasicAuthCallback :: AttrLabelProxy "authCallback"-authDomainBasicAuthCallback = AttrLabelProxy--authDomainBasicAuthData :: AttrLabelProxy "authData"-authDomainBasicAuthData = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList AuthDomainBasic = AuthDomainBasicSignalList-type AuthDomainBasicSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method AuthDomainBasic::set_auth_callback--- method type : OrdinaryMethod--- Args : [Arg {argCName = "domain", argType = TInterface (Name {namespace = "Soup", name = "AuthDomainBasic"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the domain", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Soup", name = "AuthDomainBasicAuthCallback"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the callback", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data to pass to @auth_callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dnotify", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "destroy notifier to free @user_data when @domain\nis destroyed", sinceVersion = Nothing}, 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 AuthDomainBasic ->                  -- domain : TInterface (Name {namespace = "Soup", name = "AuthDomainBasic"})-    FunPtr Soup.Callbacks.C_AuthDomainBasicAuthCallback -> -- callback : TInterface (Name {namespace = "Soup", name = "AuthDomainBasicAuthCallback"})-    Ptr () ->                               -- user_data : TBasicType TPtr-    FunPtr GLib.Callbacks.C_DestroyNotify -> -- dnotify : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})-    IO ()--{- |-Sets the callback that /@domain@/ will use to authenticate incoming-requests. For each request containing authorization, /@domain@/ will-invoke the callback, and then either accept or reject the request-based on /@callback@/\'s return value.--You can also set the auth callback by setting the-'GI.Soup.Constants.AUTH_DOMAIN_BASIC_AUTH_CALLBACK' and-'GI.Soup.Constants.AUTH_DOMAIN_BASIC_AUTH_DATA' properties, which can also be-used to set the callback at construct time.--}-authDomainBasicSetAuthCallback ::-    (B.CallStack.HasCallStack, MonadIO m, IsAuthDomainBasic a) =>-    a-    {- ^ /@domain@/: the domain -}-    -> Soup.Callbacks.AuthDomainBasicAuthCallback-    {- ^ /@callback@/: the callback -}-    -> m ()-authDomainBasicSetAuthCallback domain callback = liftIO $ do-    domain' <- unsafeManagedPtrCastPtr domain-    callback' <- Soup.Callbacks.mk_AuthDomainBasicAuthCallback (Soup.Callbacks.wrap_AuthDomainBasicAuthCallback Nothing (Soup.Callbacks.drop_closures_AuthDomainBasicAuthCallback callback))-    let userData = castFunPtrToPtr callback'-    let dnotify = safeFreeFunPtrPtr-    soup_auth_domain_basic_set_auth_callback domain' callback' userData dnotify-    touchManagedPtr domain-    return ()--#if ENABLE_OVERLOADING-data AuthDomainBasicSetAuthCallbackMethodInfo-instance (signature ~ (Soup.Callbacks.AuthDomainBasicAuthCallback -> m ()), MonadIO m, IsAuthDomainBasic a) => O.MethodInfo AuthDomainBasicSetAuthCallbackMethodInfo a signature where-    overloadedMethod _ = authDomainBasicSetAuthCallback--#endif--
− GI/Soup/Objects/AuthDomainBasic.hs-boot 
@@ -1,38 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Objects.AuthDomainBasic where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype AuthDomainBasic = AuthDomainBasic (ManagedPtr AuthDomainBasic)-instance GObject AuthDomainBasic where-class (GObject o, O.IsDescendantOf AuthDomainBasic o) => IsAuthDomainBasic o-instance (GObject o, O.IsDescendantOf AuthDomainBasic o) => IsAuthDomainBasic o-instance O.HasParentTypes AuthDomainBasic-#if ENABLE_OVERLOADING-data AuthDomainBasicAuthCallbackPropertyInfo-#endif-#if ENABLE_OVERLOADING-data AuthDomainBasicAuthDataPropertyInfo-#endif-#if ENABLE_OVERLOADING-data AuthDomainBasicSetAuthCallbackMethodInfo-#endif
− GI/Soup/Objects/AuthDomainDigest.hs 
@@ -1,400 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Objects.AuthDomainDigest-    ( ---- * Exported types-    AuthDomainDigest(..)                    ,-    IsAuthDomainDigest                      ,-    toAuthDomainDigest                      ,-    noAuthDomainDigest                      ,--- -- * Methods--- ** encodePassword #method:encodePassword#--    authDomainDigestEncodePassword          ,----- ** setAuthCallback #method:setAuthCallback#--#if ENABLE_OVERLOADING-    AuthDomainDigestSetAuthCallbackMethodInfo,-#endif-    authDomainDigestSetAuthCallback         ,----- -- * Properties--- ** authCallback #attr:authCallback#-{- | The 'GI.Soup.Callbacks.AuthDomainDigestAuthCallback'--}-#if ENABLE_OVERLOADING-    AuthDomainDigestAuthCallbackPropertyInfo,-#endif-#if ENABLE_OVERLOADING-    authDomainDigestAuthCallback            ,-#endif-    clearAuthDomainDigestAuthCallback       ,-    constructAuthDomainDigestAuthCallback   ,-    getAuthDomainDigestAuthCallback         ,-    setAuthDomainDigestAuthCallback         ,----- ** authData #attr:authData#-{- | The data to pass to the 'GI.Soup.Callbacks.AuthDomainDigestAuthCallback'--}-#if ENABLE_OVERLOADING-    AuthDomainDigestAuthDataPropertyInfo    ,-#endif-#if ENABLE_OVERLOADING-    authDomainDigestAuthData                ,-#endif-    constructAuthDomainDigestAuthData       ,-    getAuthDomainDigestAuthData             ,-    setAuthDomainDigestAuthData             ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GLib.Callbacks as GLib.Callbacks-import qualified GI.GObject.Objects.Object as GObject.Object-import qualified GI.Soup.Callbacks as Soup.Callbacks-import {-# SOURCE #-} qualified GI.Soup.Objects.AuthDomain as Soup.AuthDomain---- | Memory-managed wrapper type.-newtype AuthDomainDigest = AuthDomainDigest (ManagedPtr AuthDomainDigest)-foreign import ccall "soup_auth_domain_digest_get_type"-    c_soup_auth_domain_digest_get_type :: IO GType--instance GObject AuthDomainDigest where-    gobjectType = c_soup_auth_domain_digest_get_type-    ---- | Type class for types which can be safely cast to `AuthDomainDigest`, for instance with `toAuthDomainDigest`.-class (GObject o, O.IsDescendantOf AuthDomainDigest o) => IsAuthDomainDigest o-instance (GObject o, O.IsDescendantOf AuthDomainDigest o) => IsAuthDomainDigest o--instance O.HasParentTypes AuthDomainDigest-type instance O.ParentTypes AuthDomainDigest = '[Soup.AuthDomain.AuthDomain, GObject.Object.Object]---- | Cast to `AuthDomainDigest`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toAuthDomainDigest :: (MonadIO m, IsAuthDomainDigest o) => o -> m AuthDomainDigest-toAuthDomainDigest = liftIO . unsafeCastTo AuthDomainDigest---- | A convenience alias for `Nothing` :: `Maybe` `AuthDomainDigest`.-noAuthDomainDigest :: Maybe AuthDomainDigest-noAuthDomainDigest = Nothing--#if ENABLE_OVERLOADING-type family ResolveAuthDomainDigestMethod (t :: Symbol) (o :: *) :: * where-    ResolveAuthDomainDigestMethod "accepts" o = Soup.AuthDomain.AuthDomainAcceptsMethodInfo-    ResolveAuthDomainDigestMethod "addPath" o = Soup.AuthDomain.AuthDomainAddPathMethodInfo-    ResolveAuthDomainDigestMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveAuthDomainDigestMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveAuthDomainDigestMethod "challenge" o = Soup.AuthDomain.AuthDomainChallengeMethodInfo-    ResolveAuthDomainDigestMethod "checkPassword" o = Soup.AuthDomain.AuthDomainCheckPasswordMethodInfo-    ResolveAuthDomainDigestMethod "covers" o = Soup.AuthDomain.AuthDomainCoversMethodInfo-    ResolveAuthDomainDigestMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveAuthDomainDigestMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveAuthDomainDigestMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveAuthDomainDigestMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveAuthDomainDigestMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveAuthDomainDigestMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveAuthDomainDigestMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveAuthDomainDigestMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveAuthDomainDigestMethod "removePath" o = Soup.AuthDomain.AuthDomainRemovePathMethodInfo-    ResolveAuthDomainDigestMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveAuthDomainDigestMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveAuthDomainDigestMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveAuthDomainDigestMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveAuthDomainDigestMethod "tryGenericAuthCallback" o = Soup.AuthDomain.AuthDomainTryGenericAuthCallbackMethodInfo-    ResolveAuthDomainDigestMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveAuthDomainDigestMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveAuthDomainDigestMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveAuthDomainDigestMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveAuthDomainDigestMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveAuthDomainDigestMethod "getRealm" o = Soup.AuthDomain.AuthDomainGetRealmMethodInfo-    ResolveAuthDomainDigestMethod "setAuthCallback" o = AuthDomainDigestSetAuthCallbackMethodInfo-    ResolveAuthDomainDigestMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveAuthDomainDigestMethod "setFilter" o = Soup.AuthDomain.AuthDomainSetFilterMethodInfo-    ResolveAuthDomainDigestMethod "setGenericAuthCallback" o = Soup.AuthDomain.AuthDomainSetGenericAuthCallbackMethodInfo-    ResolveAuthDomainDigestMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveAuthDomainDigestMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveAuthDomainDigestMethod t AuthDomainDigest, O.MethodInfo info AuthDomainDigest p) => OL.IsLabel t (AuthDomainDigest -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif---- VVV Prop "auth-callback"-   -- Type: TInterface (Name {namespace = "Soup", name = "AuthDomainDigestAuthCallback"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@auth-callback@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' authDomainDigest #authCallback-@--}-getAuthDomainDigestAuthCallback :: (MonadIO m, IsAuthDomainDigest o) => o -> m (Maybe Soup.Callbacks.AuthDomainDigestAuthCallback_WithClosures)-getAuthDomainDigestAuthCallback obj = liftIO $ B.Properties.getObjectPropertyCallback obj "auth-callback" Soup.Callbacks.dynamic_AuthDomainDigestAuthCallback--{- |-Set the value of the “@auth-callback@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' authDomainDigest [ #authCallback 'Data.GI.Base.Attributes.:=' value ]-@--}-setAuthDomainDigestAuthCallback :: (MonadIO m, IsAuthDomainDigest o) => o -> FunPtr Soup.Callbacks.C_AuthDomainDigestAuthCallback -> m ()-setAuthDomainDigestAuthCallback obj val = liftIO $ B.Properties.setObjectPropertyCallback obj "auth-callback" val--{- |-Construct a `GValueConstruct` with valid value for the “@auth-callback@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructAuthDomainDigestAuthCallback :: (IsAuthDomainDigest o) => FunPtr Soup.Callbacks.C_AuthDomainDigestAuthCallback -> IO (GValueConstruct o)-constructAuthDomainDigestAuthCallback val = B.Properties.constructObjectPropertyCallback "auth-callback" val--{- |-Set the value of the “@auth-callback@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #authCallback-@--}-clearAuthDomainDigestAuthCallback :: (MonadIO m, IsAuthDomainDigest o) => o -> m ()-clearAuthDomainDigestAuthCallback obj = liftIO $ B.Properties.setObjectPropertyCallback obj "auth-callback" FP.nullFunPtr--#if ENABLE_OVERLOADING-data AuthDomainDigestAuthCallbackPropertyInfo-instance AttrInfo AuthDomainDigestAuthCallbackPropertyInfo where-    type AttrAllowedOps AuthDomainDigestAuthCallbackPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint AuthDomainDigestAuthCallbackPropertyInfo = (~) (FunPtr Soup.Callbacks.C_AuthDomainDigestAuthCallback)-    type AttrBaseTypeConstraint AuthDomainDigestAuthCallbackPropertyInfo = IsAuthDomainDigest-    type AttrGetType AuthDomainDigestAuthCallbackPropertyInfo = (Maybe Soup.Callbacks.AuthDomainDigestAuthCallback_WithClosures)-    type AttrLabel AuthDomainDigestAuthCallbackPropertyInfo = "auth-callback"-    type AttrOrigin AuthDomainDigestAuthCallbackPropertyInfo = AuthDomainDigest-    attrGet _ = getAuthDomainDigestAuthCallback-    attrSet _ = setAuthDomainDigestAuthCallback-    attrConstruct _ = constructAuthDomainDigestAuthCallback-    attrClear _ = clearAuthDomainDigestAuthCallback-#endif---- VVV Prop "auth-data"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@auth-data@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' authDomainDigest #authData-@--}-getAuthDomainDigestAuthData :: (MonadIO m, IsAuthDomainDigest o) => o -> m (Ptr ())-getAuthDomainDigestAuthData obj = liftIO $ B.Properties.getObjectPropertyPtr obj "auth-data"--{- |-Set the value of the “@auth-data@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' authDomainDigest [ #authData 'Data.GI.Base.Attributes.:=' value ]-@--}-setAuthDomainDigestAuthData :: (MonadIO m, IsAuthDomainDigest o) => o -> Ptr () -> m ()-setAuthDomainDigestAuthData obj val = liftIO $ B.Properties.setObjectPropertyPtr obj "auth-data" val--{- |-Construct a `GValueConstruct` with valid value for the “@auth-data@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructAuthDomainDigestAuthData :: (IsAuthDomainDigest o) => Ptr () -> IO (GValueConstruct o)-constructAuthDomainDigestAuthData val = B.Properties.constructObjectPropertyPtr "auth-data" val--#if ENABLE_OVERLOADING-data AuthDomainDigestAuthDataPropertyInfo-instance AttrInfo AuthDomainDigestAuthDataPropertyInfo where-    type AttrAllowedOps AuthDomainDigestAuthDataPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AuthDomainDigestAuthDataPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint AuthDomainDigestAuthDataPropertyInfo = IsAuthDomainDigest-    type AttrGetType AuthDomainDigestAuthDataPropertyInfo = (Ptr ())-    type AttrLabel AuthDomainDigestAuthDataPropertyInfo = "auth-data"-    type AttrOrigin AuthDomainDigestAuthDataPropertyInfo = AuthDomainDigest-    attrGet _ = getAuthDomainDigestAuthData-    attrSet _ = setAuthDomainDigestAuthData-    attrConstruct _ = constructAuthDomainDigestAuthData-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList AuthDomainDigest-type instance O.AttributeList AuthDomainDigest = AuthDomainDigestAttributeList-type AuthDomainDigestAttributeList = ('[ '("addPath", Soup.AuthDomain.AuthDomainAddPathPropertyInfo), '("authCallback", AuthDomainDigestAuthCallbackPropertyInfo), '("authData", AuthDomainDigestAuthDataPropertyInfo), '("filter", Soup.AuthDomain.AuthDomainFilterPropertyInfo), '("filterData", Soup.AuthDomain.AuthDomainFilterDataPropertyInfo), '("genericAuthCallback", Soup.AuthDomain.AuthDomainGenericAuthCallbackPropertyInfo), '("genericAuthData", Soup.AuthDomain.AuthDomainGenericAuthDataPropertyInfo), '("proxy", Soup.AuthDomain.AuthDomainProxyPropertyInfo), '("realm", Soup.AuthDomain.AuthDomainRealmPropertyInfo), '("removePath", Soup.AuthDomain.AuthDomainRemovePathPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-authDomainDigestAuthCallback :: AttrLabelProxy "authCallback"-authDomainDigestAuthCallback = AttrLabelProxy--authDomainDigestAuthData :: AttrLabelProxy "authData"-authDomainDigestAuthData = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList AuthDomainDigest = AuthDomainDigestSignalList-type AuthDomainDigestSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method AuthDomainDigest::set_auth_callback--- method type : OrdinaryMethod--- Args : [Arg {argCName = "domain", argType = TInterface (Name {namespace = "Soup", name = "AuthDomainDigest"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the domain", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Soup", name = "AuthDomainDigestAuthCallback"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the callback", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data to pass to @auth_callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dnotify", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "destroy notifier to free @user_data when @domain\nis destroyed", sinceVersion = Nothing}, 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 AuthDomainDigest ->                 -- domain : TInterface (Name {namespace = "Soup", name = "AuthDomainDigest"})-    FunPtr Soup.Callbacks.C_AuthDomainDigestAuthCallback -> -- callback : TInterface (Name {namespace = "Soup", name = "AuthDomainDigestAuthCallback"})-    Ptr () ->                               -- user_data : TBasicType TPtr-    FunPtr GLib.Callbacks.C_DestroyNotify -> -- dnotify : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})-    IO ()--{- |-Sets the callback that /@domain@/ will use to authenticate incoming-requests. For each request containing authorization, /@domain@/ will-invoke the callback, and then either accept or reject the request-based on /@callback@/\'s return value.--You can also set the auth callback by setting the-'GI.Soup.Constants.AUTH_DOMAIN_DIGEST_AUTH_CALLBACK' and-'GI.Soup.Constants.AUTH_DOMAIN_DIGEST_AUTH_DATA' properties, which can also be-used to set the callback at construct time.--}-authDomainDigestSetAuthCallback ::-    (B.CallStack.HasCallStack, MonadIO m, IsAuthDomainDigest a) =>-    a-    {- ^ /@domain@/: the domain -}-    -> Soup.Callbacks.AuthDomainDigestAuthCallback-    {- ^ /@callback@/: the callback -}-    -> m ()-authDomainDigestSetAuthCallback domain callback = liftIO $ do-    domain' <- unsafeManagedPtrCastPtr domain-    callback' <- Soup.Callbacks.mk_AuthDomainDigestAuthCallback (Soup.Callbacks.wrap_AuthDomainDigestAuthCallback Nothing (Soup.Callbacks.drop_closures_AuthDomainDigestAuthCallback callback))-    let userData = castFunPtrToPtr callback'-    let dnotify = safeFreeFunPtrPtr-    soup_auth_domain_digest_set_auth_callback domain' callback' userData dnotify-    touchManagedPtr domain-    return ()--#if ENABLE_OVERLOADING-data AuthDomainDigestSetAuthCallbackMethodInfo-instance (signature ~ (Soup.Callbacks.AuthDomainDigestAuthCallback -> m ()), MonadIO m, IsAuthDomainDigest a) => O.MethodInfo AuthDomainDigestSetAuthCallbackMethodInfo a signature where-    overloadedMethod _ = authDomainDigestSetAuthCallback--#endif---- method AuthDomainDigest::encode_password--- method type : MemberFunction--- Args : [Arg {argCName = "username", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a username", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "realm", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an auth realm name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the password for @username in @realm", sinceVersion = Nothing}, 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--{- |-Encodes the username\/realm\/password triplet for Digest-authentication. (That is, it returns a stringified MD5 hash of-/@username@/, /@realm@/, and /@password@/ concatenated together). This is-the form that is needed as the return value of-'GI.Soup.Objects.AuthDomainDigest.AuthDomainDigest'\'s auth handler.--For security reasons, you should store the encoded hash, rather-than storing the cleartext password itself and calling this method-only when you need to verify it. This way, if your server is-compromised, the attackers will not gain access to cleartext-passwords which might also be usable at other sites. (Note also-that the encoded password returned by this method is identical to-the encoded password stored in an Apache .htdigest file.)--}-authDomainDigestEncodePassword ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@username@/: a username -}-    -> T.Text-    {- ^ /@realm@/: an auth realm name -}-    -> T.Text-    {- ^ /@password@/: the password for /@username@/ in /@realm@/ -}-    -> m T.Text-    {- ^ __Returns:__ the encoded password -}-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 "authDomainDigestEncodePassword" result-    result' <- cstringToText result-    freeMem result-    freeMem username'-    freeMem realm'-    freeMem password'-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/Soup/Objects/AuthDomainDigest.hs-boot 
@@ -1,38 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Objects.AuthDomainDigest where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype AuthDomainDigest = AuthDomainDigest (ManagedPtr AuthDomainDigest)-instance GObject AuthDomainDigest where-class (GObject o, O.IsDescendantOf AuthDomainDigest o) => IsAuthDomainDigest o-instance (GObject o, O.IsDescendantOf AuthDomainDigest o) => IsAuthDomainDigest o-instance O.HasParentTypes AuthDomainDigest-#if ENABLE_OVERLOADING-data AuthDomainDigestAuthCallbackPropertyInfo-#endif-#if ENABLE_OVERLOADING-data AuthDomainDigestAuthDataPropertyInfo-#endif-#if ENABLE_OVERLOADING-data AuthDomainDigestSetAuthCallbackMethodInfo-#endif
− GI/Soup/Objects/AuthManager.hs 
@@ -1,347 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Objects.AuthManager-    ( ---- * Exported types-    AuthManager(..)                         ,-    IsAuthManager                           ,-    toAuthManager                           ,-    noAuthManager                           ,--- -- * Methods--- ** clearCachedCredentials #method:clearCachedCredentials#--#if ENABLE_OVERLOADING-    AuthManagerClearCachedCredentialsMethodInfo,-#endif-    authManagerClearCachedCredentials       ,----- ** useAuth #method:useAuth#--#if ENABLE_OVERLOADING-    AuthManagerUseAuthMethodInfo            ,-#endif-    authManagerUseAuth                      ,----- -- * Signals--- ** authenticate #signal:authenticate#--    AuthManagerAuthenticateCallback         ,-#if ENABLE_OVERLOADING-    AuthManagerAuthenticateSignalInfo       ,-#endif-    C_AuthManagerAuthenticateCallback       ,-    afterAuthManagerAuthenticate            ,-    genClosure_AuthManagerAuthenticate      ,-    mk_AuthManagerAuthenticateCallback      ,-    noAuthManagerAuthenticateCallback       ,-    onAuthManagerAuthenticate               ,-    wrap_AuthManagerAuthenticateCallback    ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Soup.Interfaces.SessionFeature as Soup.SessionFeature-import {-# SOURCE #-} qualified GI.Soup.Objects.Auth as Soup.Auth-import {-# SOURCE #-} qualified GI.Soup.Objects.Message as Soup.Message-import {-# SOURCE #-} qualified GI.Soup.Structs.URI as Soup.URI---- | Memory-managed wrapper type.-newtype AuthManager = AuthManager (ManagedPtr AuthManager)-foreign import ccall "soup_auth_manager_get_type"-    c_soup_auth_manager_get_type :: IO GType--instance GObject AuthManager where-    gobjectType = c_soup_auth_manager_get_type-    ---- | Type class for types which can be safely cast to `AuthManager`, for instance with `toAuthManager`.-class (GObject o, O.IsDescendantOf AuthManager o) => IsAuthManager o-instance (GObject o, O.IsDescendantOf AuthManager o) => IsAuthManager o--instance O.HasParentTypes AuthManager-type instance O.ParentTypes AuthManager = '[GObject.Object.Object, Soup.SessionFeature.SessionFeature]---- | Cast to `AuthManager`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toAuthManager :: (MonadIO m, IsAuthManager o) => o -> m AuthManager-toAuthManager = liftIO . unsafeCastTo AuthManager---- | A convenience alias for `Nothing` :: `Maybe` `AuthManager`.-noAuthManager :: Maybe AuthManager-noAuthManager = Nothing--#if ENABLE_OVERLOADING-type family ResolveAuthManagerMethod (t :: Symbol) (o :: *) :: * where-    ResolveAuthManagerMethod "addFeature" o = Soup.SessionFeature.SessionFeatureAddFeatureMethodInfo-    ResolveAuthManagerMethod "attach" o = Soup.SessionFeature.SessionFeatureAttachMethodInfo-    ResolveAuthManagerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveAuthManagerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveAuthManagerMethod "clearCachedCredentials" o = AuthManagerClearCachedCredentialsMethodInfo-    ResolveAuthManagerMethod "detach" o = Soup.SessionFeature.SessionFeatureDetachMethodInfo-    ResolveAuthManagerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveAuthManagerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveAuthManagerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveAuthManagerMethod "hasFeature" o = Soup.SessionFeature.SessionFeatureHasFeatureMethodInfo-    ResolveAuthManagerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveAuthManagerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveAuthManagerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveAuthManagerMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveAuthManagerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveAuthManagerMethod "removeFeature" o = Soup.SessionFeature.SessionFeatureRemoveFeatureMethodInfo-    ResolveAuthManagerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveAuthManagerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveAuthManagerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveAuthManagerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveAuthManagerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveAuthManagerMethod "useAuth" o = AuthManagerUseAuthMethodInfo-    ResolveAuthManagerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveAuthManagerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveAuthManagerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveAuthManagerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveAuthManagerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveAuthManagerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveAuthManagerMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveAuthManagerMethod t AuthManager, O.MethodInfo info AuthManager p) => OL.IsLabel t (AuthManager -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif---- signal AuthManager::authenticate-{- |-Emitted when the manager requires the application to-provide authentication credentials.--'GI.Soup.Objects.Session.Session' connects to this signal and emits its own-'GI.Soup.Objects.Session.Session'::@/authenticate/@ signal when it is emitted, so-you shouldn\'t need to use this signal directly.--}-type AuthManagerAuthenticateCallback =-    Soup.Message.Message-    {- ^ /@msg@/: the 'GI.Soup.Objects.Message.Message' being sent -}-    -> Soup.Auth.Auth-    {- ^ /@auth@/: the 'GI.Soup.Objects.Auth.Auth' to authenticate -}-    -> Bool-    {- ^ /@retrying@/: 'True' if this is the second (or later) attempt -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `AuthManagerAuthenticateCallback`@.-noAuthManagerAuthenticateCallback :: Maybe AuthManagerAuthenticateCallback-noAuthManagerAuthenticateCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_AuthManagerAuthenticateCallback =-    Ptr () ->                               -- object-    Ptr Soup.Message.Message ->-    Ptr Soup.Auth.Auth ->-    CInt ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_AuthManagerAuthenticateCallback`.-foreign import ccall "wrapper"-    mk_AuthManagerAuthenticateCallback :: C_AuthManagerAuthenticateCallback -> IO (FunPtr C_AuthManagerAuthenticateCallback)---- | Wrap the callback into a `GClosure`.-genClosure_AuthManagerAuthenticate :: MonadIO m => AuthManagerAuthenticateCallback -> m (GClosure C_AuthManagerAuthenticateCallback)-genClosure_AuthManagerAuthenticate cb = liftIO $ do-    let cb' = wrap_AuthManagerAuthenticateCallback cb-    mk_AuthManagerAuthenticateCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `AuthManagerAuthenticateCallback` into a `C_AuthManagerAuthenticateCallback`.-wrap_AuthManagerAuthenticateCallback ::-    AuthManagerAuthenticateCallback ->-    C_AuthManagerAuthenticateCallback-wrap_AuthManagerAuthenticateCallback _cb _ msg auth retrying _ = do-    msg' <- (newObject Soup.Message.Message) msg-    auth' <- (newObject Soup.Auth.Auth) auth-    let retrying' = (/= 0) retrying-    _cb  msg' auth' retrying'---{- |-Connect a signal handler for the “@authenticate@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' authManager #authenticate callback-@--}-onAuthManagerAuthenticate :: (IsAuthManager a, MonadIO m) => a -> AuthManagerAuthenticateCallback -> m SignalHandlerId-onAuthManagerAuthenticate obj cb = liftIO $ do-    let cb' = wrap_AuthManagerAuthenticateCallback cb-    cb'' <- mk_AuthManagerAuthenticateCallback cb'-    connectSignalFunPtr obj "authenticate" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@authenticate@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' authManager #authenticate callback-@--}-afterAuthManagerAuthenticate :: (IsAuthManager a, MonadIO m) => a -> AuthManagerAuthenticateCallback -> m SignalHandlerId-afterAuthManagerAuthenticate obj cb = liftIO $ do-    let cb' = wrap_AuthManagerAuthenticateCallback cb-    cb'' <- mk_AuthManagerAuthenticateCallback cb'-    connectSignalFunPtr obj "authenticate" cb'' SignalConnectAfter---#if ENABLE_OVERLOADING-instance O.HasAttributeList AuthManager-type instance O.AttributeList AuthManager = AuthManagerAttributeList-type AuthManagerAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-data AuthManagerAuthenticateSignalInfo-instance SignalInfo AuthManagerAuthenticateSignalInfo where-    type HaskellCallbackType AuthManagerAuthenticateSignalInfo = AuthManagerAuthenticateCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_AuthManagerAuthenticateCallback cb-        cb'' <- mk_AuthManagerAuthenticateCallback cb'-        connectSignalFunPtr obj "authenticate" cb'' connectMode--type instance O.SignalList AuthManager = AuthManagerSignalList-type AuthManagerSignalList = ('[ '("authenticate", AuthManagerAuthenticateSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method AuthManager::clear_cached_credentials--- method type : OrdinaryMethod--- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "Soup", name = "AuthManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAuthManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_auth_manager_clear_cached_credentials" soup_auth_manager_clear_cached_credentials :: -    Ptr AuthManager ->                      -- manager : TInterface (Name {namespace = "Soup", name = "AuthManager"})-    IO ()--{- |-Clear all credentials cached by /@manager@/--/Since: 2.58/--}-authManagerClearCachedCredentials ::-    (B.CallStack.HasCallStack, MonadIO m, IsAuthManager a) =>-    a-    {- ^ /@manager@/: a 'GI.Soup.Objects.AuthManager.AuthManager' -}-    -> m ()-authManagerClearCachedCredentials manager = liftIO $ do-    manager' <- unsafeManagedPtrCastPtr manager-    soup_auth_manager_clear_cached_credentials manager'-    touchManagedPtr manager-    return ()--#if ENABLE_OVERLOADING-data AuthManagerClearCachedCredentialsMethodInfo-instance (signature ~ (m ()), MonadIO m, IsAuthManager a) => O.MethodInfo AuthManagerClearCachedCredentialsMethodInfo a signature where-    overloadedMethod _ = authManagerClearCachedCredentials--#endif---- method AuthManager::use_auth--- method type : OrdinaryMethod--- Args : [Arg {argCName = "manager", argType = TInterface (Name {namespace = "Soup", name = "AuthManager"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAuthManager", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupURI under which @auth is to be used", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth", argType = TInterface (Name {namespace = "Soup", name = "Auth"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupAuth to use", sinceVersion = Nothing}, 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 ->                      -- manager : TInterface (Name {namespace = "Soup", name = "AuthManager"})-    Ptr Soup.URI.URI ->                     -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    Ptr Soup.Auth.Auth ->                   -- auth : TInterface (Name {namespace = "Soup", name = "Auth"})-    IO ()--{- |-Records that /@auth@/ is to be used under /@uri@/, as though a-WWW-Authenticate header had been received at that URI. This can be-used to \"preload\" /@manager@/\'s auth cache, to avoid an extra HTTP-round trip in the case where you know ahead of time that a 401-response will be returned.--This is only useful for authentication types where the initial-Authorization header does not depend on any additional information-from the server. (Eg, Basic or NTLM, but not Digest.)--/Since: 2.42/--}-authManagerUseAuth ::-    (B.CallStack.HasCallStack, MonadIO m, IsAuthManager a, Soup.Auth.IsAuth b) =>-    a-    {- ^ /@manager@/: a 'GI.Soup.Objects.AuthManager.AuthManager' -}-    -> Soup.URI.URI-    {- ^ /@uri@/: the 'GI.Soup.Structs.URI.URI' under which /@auth@/ is to be used -}-    -> b-    {- ^ /@auth@/: the 'GI.Soup.Objects.Auth.Auth' to use -}-    -> m ()-authManagerUseAuth manager uri auth = liftIO $ do-    manager' <- unsafeManagedPtrCastPtr manager-    uri' <- unsafeManagedPtrGetPtr uri-    auth' <- unsafeManagedPtrCastPtr auth-    soup_auth_manager_use_auth manager' uri' auth'-    touchManagedPtr manager-    touchManagedPtr uri-    touchManagedPtr auth-    return ()--#if ENABLE_OVERLOADING-data AuthManagerUseAuthMethodInfo-instance (signature ~ (Soup.URI.URI -> b -> m ()), MonadIO m, IsAuthManager a, Soup.Auth.IsAuth b) => O.MethodInfo AuthManagerUseAuthMethodInfo a signature where-    overloadedMethod _ = authManagerUseAuth--#endif--
− GI/Soup/Objects/AuthManager.hs-boot 
@@ -1,38 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Objects.AuthManager where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype AuthManager = AuthManager (ManagedPtr AuthManager)-instance GObject AuthManager where-class (GObject o, O.IsDescendantOf AuthManager o) => IsAuthManager o-instance (GObject o, O.IsDescendantOf AuthManager o) => IsAuthManager o-instance O.HasParentTypes AuthManager-#if ENABLE_OVERLOADING-data AuthManagerAuthenticateSignalInfo-#endif-#if ENABLE_OVERLOADING-data AuthManagerClearCachedCredentialsMethodInfo-#endif-#if ENABLE_OVERLOADING-data AuthManagerUseAuthMethodInfo-#endif
− GI/Soup/Objects/AuthNTLM.hs 
@@ -1,138 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Objects.AuthNTLM-    ( ---- * Exported types-    AuthNTLM(..)                            ,-    IsAuthNTLM                              ,-    toAuthNTLM                              ,-    noAuthNTLM                              ,---    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Soup.Objects.Auth as Soup.Auth---- | Memory-managed wrapper type.-newtype AuthNTLM = AuthNTLM (ManagedPtr AuthNTLM)-foreign import ccall "soup_auth_ntlm_get_type"-    c_soup_auth_ntlm_get_type :: IO GType--instance GObject AuthNTLM where-    gobjectType = c_soup_auth_ntlm_get_type-    ---- | Type class for types which can be safely cast to `AuthNTLM`, for instance with `toAuthNTLM`.-class (GObject o, O.IsDescendantOf AuthNTLM o) => IsAuthNTLM o-instance (GObject o, O.IsDescendantOf AuthNTLM o) => IsAuthNTLM o--instance O.HasParentTypes AuthNTLM-type instance O.ParentTypes AuthNTLM = '[Soup.Auth.Auth, GObject.Object.Object]---- | Cast to `AuthNTLM`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toAuthNTLM :: (MonadIO m, IsAuthNTLM o) => o -> m AuthNTLM-toAuthNTLM = liftIO . unsafeCastTo AuthNTLM---- | A convenience alias for `Nothing` :: `Maybe` `AuthNTLM`.-noAuthNTLM :: Maybe AuthNTLM-noAuthNTLM = Nothing--#if ENABLE_OVERLOADING-type family ResolveAuthNTLMMethod (t :: Symbol) (o :: *) :: * where-    ResolveAuthNTLMMethod "authenticate" o = Soup.Auth.AuthAuthenticateMethodInfo-    ResolveAuthNTLMMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveAuthNTLMMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveAuthNTLMMethod "canAuthenticate" o = Soup.Auth.AuthCanAuthenticateMethodInfo-    ResolveAuthNTLMMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveAuthNTLMMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveAuthNTLMMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveAuthNTLMMethod "hasSavedPassword" o = Soup.Auth.AuthHasSavedPasswordMethodInfo-    ResolveAuthNTLMMethod "isAuthenticated" o = Soup.Auth.AuthIsAuthenticatedMethodInfo-    ResolveAuthNTLMMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveAuthNTLMMethod "isForProxy" o = Soup.Auth.AuthIsForProxyMethodInfo-    ResolveAuthNTLMMethod "isReady" o = Soup.Auth.AuthIsReadyMethodInfo-    ResolveAuthNTLMMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveAuthNTLMMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveAuthNTLMMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveAuthNTLMMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveAuthNTLMMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveAuthNTLMMethod "savePassword" o = Soup.Auth.AuthSavePasswordMethodInfo-    ResolveAuthNTLMMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveAuthNTLMMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveAuthNTLMMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveAuthNTLMMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveAuthNTLMMethod "update" o = Soup.Auth.AuthUpdateMethodInfo-    ResolveAuthNTLMMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveAuthNTLMMethod "getAuthorization" o = Soup.Auth.AuthGetAuthorizationMethodInfo-    ResolveAuthNTLMMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveAuthNTLMMethod "getHost" o = Soup.Auth.AuthGetHostMethodInfo-    ResolveAuthNTLMMethod "getInfo" o = Soup.Auth.AuthGetInfoMethodInfo-    ResolveAuthNTLMMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveAuthNTLMMethod "getProtectionSpace" o = Soup.Auth.AuthGetProtectionSpaceMethodInfo-    ResolveAuthNTLMMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveAuthNTLMMethod "getRealm" o = Soup.Auth.AuthGetRealmMethodInfo-    ResolveAuthNTLMMethod "getSavedPassword" o = Soup.Auth.AuthGetSavedPasswordMethodInfo-    ResolveAuthNTLMMethod "getSavedUsers" o = Soup.Auth.AuthGetSavedUsersMethodInfo-    ResolveAuthNTLMMethod "getSchemeName" o = Soup.Auth.AuthGetSchemeNameMethodInfo-    ResolveAuthNTLMMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveAuthNTLMMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveAuthNTLMMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveAuthNTLMMethod t AuthNTLM, O.MethodInfo info AuthNTLM p) => OL.IsLabel t (AuthNTLM -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList AuthNTLM-type instance O.AttributeList AuthNTLM = AuthNTLMAttributeList-type AuthNTLMAttributeList = ('[ '("host", Soup.Auth.AuthHostPropertyInfo), '("isAuthenticated", Soup.Auth.AuthIsAuthenticatedPropertyInfo), '("isForProxy", Soup.Auth.AuthIsForProxyPropertyInfo), '("realm", Soup.Auth.AuthRealmPropertyInfo), '("schemeName", Soup.Auth.AuthSchemeNamePropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList AuthNTLM = AuthNTLMSignalList-type AuthNTLMSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--
− GI/Soup/Objects/AuthNTLM.hs-boot 
@@ -1,29 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Objects.AuthNTLM where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype AuthNTLM = AuthNTLM (ManagedPtr AuthNTLM)-instance GObject AuthNTLM where-class (GObject o, O.IsDescendantOf AuthNTLM o) => IsAuthNTLM o-instance (GObject o, O.IsDescendantOf AuthNTLM o) => IsAuthNTLM o-instance O.HasParentTypes AuthNTLM
− GI/Soup/Objects/AuthNegotiate.hs 
@@ -1,176 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Objects.AuthNegotiate-    ( ---- * Exported types-    AuthNegotiate(..)                       ,-    IsAuthNegotiate                         ,-    toAuthNegotiate                         ,-    noAuthNegotiate                         ,--- -- * Methods--- ** supported #method:supported#--    authNegotiateSupported                  ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Soup.Objects.Auth as Soup.Auth---- | Memory-managed wrapper type.-newtype AuthNegotiate = AuthNegotiate (ManagedPtr AuthNegotiate)-foreign import ccall "soup_auth_negotiate_get_type"-    c_soup_auth_negotiate_get_type :: IO GType--instance GObject AuthNegotiate where-    gobjectType = c_soup_auth_negotiate_get_type-    ---- | Type class for types which can be safely cast to `AuthNegotiate`, for instance with `toAuthNegotiate`.-class (GObject o, O.IsDescendantOf AuthNegotiate o) => IsAuthNegotiate o-instance (GObject o, O.IsDescendantOf AuthNegotiate o) => IsAuthNegotiate o--instance O.HasParentTypes AuthNegotiate-type instance O.ParentTypes AuthNegotiate = '[Soup.Auth.Auth, GObject.Object.Object]---- | Cast to `AuthNegotiate`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toAuthNegotiate :: (MonadIO m, IsAuthNegotiate o) => o -> m AuthNegotiate-toAuthNegotiate = liftIO . unsafeCastTo AuthNegotiate---- | A convenience alias for `Nothing` :: `Maybe` `AuthNegotiate`.-noAuthNegotiate :: Maybe AuthNegotiate-noAuthNegotiate = Nothing--#if ENABLE_OVERLOADING-type family ResolveAuthNegotiateMethod (t :: Symbol) (o :: *) :: * where-    ResolveAuthNegotiateMethod "authenticate" o = Soup.Auth.AuthAuthenticateMethodInfo-    ResolveAuthNegotiateMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveAuthNegotiateMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveAuthNegotiateMethod "canAuthenticate" o = Soup.Auth.AuthCanAuthenticateMethodInfo-    ResolveAuthNegotiateMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveAuthNegotiateMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveAuthNegotiateMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveAuthNegotiateMethod "hasSavedPassword" o = Soup.Auth.AuthHasSavedPasswordMethodInfo-    ResolveAuthNegotiateMethod "isAuthenticated" o = Soup.Auth.AuthIsAuthenticatedMethodInfo-    ResolveAuthNegotiateMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveAuthNegotiateMethod "isForProxy" o = Soup.Auth.AuthIsForProxyMethodInfo-    ResolveAuthNegotiateMethod "isReady" o = Soup.Auth.AuthIsReadyMethodInfo-    ResolveAuthNegotiateMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveAuthNegotiateMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveAuthNegotiateMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveAuthNegotiateMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveAuthNegotiateMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveAuthNegotiateMethod "savePassword" o = Soup.Auth.AuthSavePasswordMethodInfo-    ResolveAuthNegotiateMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveAuthNegotiateMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveAuthNegotiateMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveAuthNegotiateMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveAuthNegotiateMethod "update" o = Soup.Auth.AuthUpdateMethodInfo-    ResolveAuthNegotiateMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveAuthNegotiateMethod "getAuthorization" o = Soup.Auth.AuthGetAuthorizationMethodInfo-    ResolveAuthNegotiateMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveAuthNegotiateMethod "getHost" o = Soup.Auth.AuthGetHostMethodInfo-    ResolveAuthNegotiateMethod "getInfo" o = Soup.Auth.AuthGetInfoMethodInfo-    ResolveAuthNegotiateMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveAuthNegotiateMethod "getProtectionSpace" o = Soup.Auth.AuthGetProtectionSpaceMethodInfo-    ResolveAuthNegotiateMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveAuthNegotiateMethod "getRealm" o = Soup.Auth.AuthGetRealmMethodInfo-    ResolveAuthNegotiateMethod "getSavedPassword" o = Soup.Auth.AuthGetSavedPasswordMethodInfo-    ResolveAuthNegotiateMethod "getSavedUsers" o = Soup.Auth.AuthGetSavedUsersMethodInfo-    ResolveAuthNegotiateMethod "getSchemeName" o = Soup.Auth.AuthGetSchemeNameMethodInfo-    ResolveAuthNegotiateMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveAuthNegotiateMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveAuthNegotiateMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveAuthNegotiateMethod t AuthNegotiate, O.MethodInfo info AuthNegotiate p) => OL.IsLabel t (AuthNegotiate -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList AuthNegotiate-type instance O.AttributeList AuthNegotiate = AuthNegotiateAttributeList-type AuthNegotiateAttributeList = ('[ '("host", Soup.Auth.AuthHostPropertyInfo), '("isAuthenticated", Soup.Auth.AuthIsAuthenticatedPropertyInfo), '("isForProxy", Soup.Auth.AuthIsForProxyPropertyInfo), '("realm", Soup.Auth.AuthRealmPropertyInfo), '("schemeName", Soup.Auth.AuthSchemeNamePropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList AuthNegotiate = AuthNegotiateSignalList-type AuthNegotiateSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method AuthNegotiate::supported--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "soup_auth_negotiate_supported" soup_auth_negotiate_supported :: -    IO CInt--{- |-Indicates whether libsoup was built with GSSAPI support. If this is-'False', @/SOUP_TYPE_AUTH_NEGOTIATE/@ will still be defined and can-still be added to a 'GI.Soup.Objects.Session.Session', but libsoup will never attempt to-actually use this auth type.--/Since: 2.54/--}-authNegotiateSupported ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m Bool-authNegotiateSupported  = liftIO $ do-    result <- soup_auth_negotiate_supported-    let result' = (/= 0) result-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/Soup/Objects/AuthNegotiate.hs-boot 
@@ -1,29 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Objects.AuthNegotiate where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype AuthNegotiate = AuthNegotiate (ManagedPtr AuthNegotiate)-instance GObject AuthNegotiate where-class (GObject o, O.IsDescendantOf AuthNegotiate o) => IsAuthNegotiate o-instance (GObject o, O.IsDescendantOf AuthNegotiate o) => IsAuthNegotiate o-instance O.HasParentTypes AuthNegotiate
− GI/Soup/Objects/Cache.hs 
@@ -1,568 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Objects.Cache-    ( ---- * Exported types-    Cache(..)                               ,-    IsCache                                 ,-    toCache                                 ,-    noCache                                 ,--- -- * Methods--- ** clear #method:clear#--#if ENABLE_OVERLOADING-    CacheClearMethodInfo                    ,-#endif-    cacheClear                              ,----- ** dump #method:dump#--#if ENABLE_OVERLOADING-    CacheDumpMethodInfo                     ,-#endif-    cacheDump                               ,----- ** flush #method:flush#--#if ENABLE_OVERLOADING-    CacheFlushMethodInfo                    ,-#endif-    cacheFlush                              ,----- ** getMaxSize #method:getMaxSize#--#if ENABLE_OVERLOADING-    CacheGetMaxSizeMethodInfo               ,-#endif-    cacheGetMaxSize                         ,----- ** load #method:load#--#if ENABLE_OVERLOADING-    CacheLoadMethodInfo                     ,-#endif-    cacheLoad                               ,----- ** new #method:new#--    cacheNew                                ,----- ** setMaxSize #method:setMaxSize#--#if ENABLE_OVERLOADING-    CacheSetMaxSizeMethodInfo               ,-#endif-    cacheSetMaxSize                         ,----- -- * Properties--- ** cacheDir #attr:cacheDir#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    CacheCacheDirPropertyInfo               ,-#endif-#if ENABLE_OVERLOADING-    cacheCacheDir                           ,-#endif-    constructCacheCacheDir                  ,-    getCacheCacheDir                        ,----- ** cacheType #attr:cacheType#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    CacheCacheTypePropertyInfo              ,-#endif-#if ENABLE_OVERLOADING-    cacheCacheType                          ,-#endif-    constructCacheCacheType                 ,-    getCacheCacheType                       ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Soup.Enums as Soup.Enums-import {-# SOURCE #-} qualified GI.Soup.Interfaces.SessionFeature as Soup.SessionFeature---- | Memory-managed wrapper type.-newtype Cache = Cache (ManagedPtr Cache)-foreign import ccall "soup_cache_get_type"-    c_soup_cache_get_type :: IO GType--instance GObject Cache where-    gobjectType = c_soup_cache_get_type-    ---- | Type class for types which can be safely cast to `Cache`, for instance with `toCache`.-class (GObject o, O.IsDescendantOf Cache o) => IsCache o-instance (GObject o, O.IsDescendantOf Cache o) => IsCache o--instance O.HasParentTypes Cache-type instance O.ParentTypes Cache = '[GObject.Object.Object, Soup.SessionFeature.SessionFeature]---- | Cast to `Cache`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toCache :: (MonadIO m, IsCache o) => o -> m Cache-toCache = liftIO . unsafeCastTo Cache---- | A convenience alias for `Nothing` :: `Maybe` `Cache`.-noCache :: Maybe Cache-noCache = Nothing--#if ENABLE_OVERLOADING-type family ResolveCacheMethod (t :: Symbol) (o :: *) :: * where-    ResolveCacheMethod "addFeature" o = Soup.SessionFeature.SessionFeatureAddFeatureMethodInfo-    ResolveCacheMethod "attach" o = Soup.SessionFeature.SessionFeatureAttachMethodInfo-    ResolveCacheMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveCacheMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveCacheMethod "clear" o = CacheClearMethodInfo-    ResolveCacheMethod "detach" o = Soup.SessionFeature.SessionFeatureDetachMethodInfo-    ResolveCacheMethod "dump" o = CacheDumpMethodInfo-    ResolveCacheMethod "flush" o = CacheFlushMethodInfo-    ResolveCacheMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveCacheMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveCacheMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveCacheMethod "hasFeature" o = Soup.SessionFeature.SessionFeatureHasFeatureMethodInfo-    ResolveCacheMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveCacheMethod "load" o = CacheLoadMethodInfo-    ResolveCacheMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveCacheMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveCacheMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveCacheMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveCacheMethod "removeFeature" o = Soup.SessionFeature.SessionFeatureRemoveFeatureMethodInfo-    ResolveCacheMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveCacheMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveCacheMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveCacheMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveCacheMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveCacheMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveCacheMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveCacheMethod "getMaxSize" o = CacheGetMaxSizeMethodInfo-    ResolveCacheMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveCacheMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveCacheMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveCacheMethod "setMaxSize" o = CacheSetMaxSizeMethodInfo-    ResolveCacheMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveCacheMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveCacheMethod t Cache, O.MethodInfo info Cache p) => OL.IsLabel t (Cache -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif---- VVV Prop "cache-dir"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@cache-dir@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' cache #cacheDir-@--}-getCacheCacheDir :: (MonadIO m, IsCache o) => o -> m (Maybe T.Text)-getCacheCacheDir obj = liftIO $ B.Properties.getObjectPropertyString obj "cache-dir"--{- |-Construct a `GValueConstruct` with valid value for the “@cache-dir@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructCacheCacheDir :: (IsCache o) => T.Text -> IO (GValueConstruct o)-constructCacheCacheDir val = B.Properties.constructObjectPropertyString "cache-dir" (Just val)--#if ENABLE_OVERLOADING-data CacheCacheDirPropertyInfo-instance AttrInfo CacheCacheDirPropertyInfo where-    type AttrAllowedOps CacheCacheDirPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint CacheCacheDirPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint CacheCacheDirPropertyInfo = IsCache-    type AttrGetType CacheCacheDirPropertyInfo = (Maybe T.Text)-    type AttrLabel CacheCacheDirPropertyInfo = "cache-dir"-    type AttrOrigin CacheCacheDirPropertyInfo = Cache-    attrGet _ = getCacheCacheDir-    attrSet _ = undefined-    attrConstruct _ = constructCacheCacheDir-    attrClear _ = undefined-#endif---- VVV Prop "cache-type"-   -- Type: TInterface (Name {namespace = "Soup", name = "CacheType"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@cache-type@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' cache #cacheType-@--}-getCacheCacheType :: (MonadIO m, IsCache o) => o -> m Soup.Enums.CacheType-getCacheCacheType obj = liftIO $ B.Properties.getObjectPropertyEnum obj "cache-type"--{- |-Construct a `GValueConstruct` with valid value for the “@cache-type@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructCacheCacheType :: (IsCache o) => Soup.Enums.CacheType -> IO (GValueConstruct o)-constructCacheCacheType val = B.Properties.constructObjectPropertyEnum "cache-type" val--#if ENABLE_OVERLOADING-data CacheCacheTypePropertyInfo-instance AttrInfo CacheCacheTypePropertyInfo where-    type AttrAllowedOps CacheCacheTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint CacheCacheTypePropertyInfo = (~) Soup.Enums.CacheType-    type AttrBaseTypeConstraint CacheCacheTypePropertyInfo = IsCache-    type AttrGetType CacheCacheTypePropertyInfo = Soup.Enums.CacheType-    type AttrLabel CacheCacheTypePropertyInfo = "cache-type"-    type AttrOrigin CacheCacheTypePropertyInfo = Cache-    attrGet _ = getCacheCacheType-    attrSet _ = undefined-    attrConstruct _ = constructCacheCacheType-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList Cache-type instance O.AttributeList Cache = CacheAttributeList-type CacheAttributeList = ('[ '("cacheDir", CacheCacheDirPropertyInfo), '("cacheType", CacheCacheTypePropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-cacheCacheDir :: AttrLabelProxy "cacheDir"-cacheCacheDir = AttrLabelProxy--cacheCacheType :: AttrLabelProxy "cacheType"-cacheCacheType = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList Cache = CacheSignalList-type CacheSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method Cache::new--- method type : Constructor--- Args : [Arg {argCName = "cache_dir", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the directory to store the cached data, or %NULL\n  to use the default one. Note that since the cache isn't safe to access for\n  multiple processes at once, and the default directory isn't namespaced by\n  process, clients are strongly discouraged from passing %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cache_type", argType = TInterface (Name {namespace = "Soup", name = "CacheType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupCacheType of the cache", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Cache"}))--- throws : False--- Skip return : False--foreign import ccall "soup_cache_new" soup_cache_new :: -    CString ->                              -- cache_dir : TBasicType TUTF8-    CUInt ->                                -- cache_type : TInterface (Name {namespace = "Soup", name = "CacheType"})-    IO (Ptr Cache)--{- |-Creates a new 'GI.Soup.Objects.Cache.Cache'.--/Since: 2.34/--}-cacheNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Maybe (T.Text)-    {- ^ /@cacheDir@/: the directory to store the cached data, or 'Nothing'-  to use the default one. Note that since the cache isn\'t safe to access for-  multiple processes at once, and the default directory isn\'t namespaced by-  process, clients are strongly discouraged from passing 'Nothing'. -}-    -> Soup.Enums.CacheType-    {- ^ /@cacheType@/: the 'GI.Soup.Enums.CacheType' of the cache -}-    -> m Cache-    {- ^ __Returns:__ a new 'GI.Soup.Objects.Cache.Cache' -}-cacheNew cacheDir cacheType = liftIO $ do-    maybeCacheDir <- case cacheDir of-        Nothing -> return nullPtr-        Just jCacheDir -> do-            jCacheDir' <- textToCString jCacheDir-            return jCacheDir'-    let cacheType' = (fromIntegral . fromEnum) cacheType-    result <- soup_cache_new maybeCacheDir cacheType'-    checkUnexpectedReturnNULL "cacheNew" result-    result' <- (wrapObject Cache) result-    freeMem maybeCacheDir-    return result'--#if ENABLE_OVERLOADING-#endif---- method Cache::clear--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cache", argType = TInterface (Name {namespace = "Soup", name = "Cache"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCache", sinceVersion = Nothing}, 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 ->                            -- cache : TInterface (Name {namespace = "Soup", name = "Cache"})-    IO ()--{- |-Will remove all entries in the /@cache@/ plus all the cache files.--/Since: 2.34/--}-cacheClear ::-    (B.CallStack.HasCallStack, MonadIO m, IsCache a) =>-    a-    {- ^ /@cache@/: a 'GI.Soup.Objects.Cache.Cache' -}-    -> m ()-cacheClear cache = liftIO $ do-    cache' <- unsafeManagedPtrCastPtr cache-    soup_cache_clear cache'-    touchManagedPtr cache-    return ()--#if ENABLE_OVERLOADING-data CacheClearMethodInfo-instance (signature ~ (m ()), MonadIO m, IsCache a) => O.MethodInfo CacheClearMethodInfo a signature where-    overloadedMethod _ = cacheClear--#endif---- method Cache::dump--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cache", argType = TInterface (Name {namespace = "Soup", name = "Cache"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCache", sinceVersion = Nothing}, 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 ->                            -- cache : TInterface (Name {namespace = "Soup", name = "Cache"})-    IO ()--{- |-Synchronously writes the cache index out to disk. Contrast with-'GI.Soup.Objects.Cache.cacheFlush', which writes pending cache-\<emphasis>entries\<\/emphasis> to disk.--You must call this before exiting if you want your cache data to-persist between sessions.--/Since: 2.34./--}-cacheDump ::-    (B.CallStack.HasCallStack, MonadIO m, IsCache a) =>-    a-    {- ^ /@cache@/: a 'GI.Soup.Objects.Cache.Cache' -}-    -> m ()-cacheDump cache = liftIO $ do-    cache' <- unsafeManagedPtrCastPtr cache-    soup_cache_dump cache'-    touchManagedPtr cache-    return ()--#if ENABLE_OVERLOADING-data CacheDumpMethodInfo-instance (signature ~ (m ()), MonadIO m, IsCache a) => O.MethodInfo CacheDumpMethodInfo a signature where-    overloadedMethod _ = cacheDump--#endif---- method Cache::flush--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cache", argType = TInterface (Name {namespace = "Soup", name = "Cache"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCache", sinceVersion = Nothing}, 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 ->                            -- cache : TInterface (Name {namespace = "Soup", name = "Cache"})-    IO ()--{- |-This function will force all pending writes in the /@cache@/ to be-committed to disk. For doing so it will iterate the 'GI.GLib.Structs.MainContext.MainContext'-associated with /@cache@/\'s session as long as needed.--Contrast with 'GI.Soup.Objects.Cache.cacheDump', which writes out the cache index-file.--/Since: 2.34/--}-cacheFlush ::-    (B.CallStack.HasCallStack, MonadIO m, IsCache a) =>-    a-    {- ^ /@cache@/: a 'GI.Soup.Objects.Cache.Cache' -}-    -> m ()-cacheFlush cache = liftIO $ do-    cache' <- unsafeManagedPtrCastPtr cache-    soup_cache_flush cache'-    touchManagedPtr cache-    return ()--#if ENABLE_OVERLOADING-data CacheFlushMethodInfo-instance (signature ~ (m ()), MonadIO m, IsCache a) => O.MethodInfo CacheFlushMethodInfo a signature where-    overloadedMethod _ = cacheFlush--#endif---- method Cache::get_max_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cache", argType = TInterface (Name {namespace = "Soup", name = "Cache"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCache", sinceVersion = Nothing}, 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 ->                            -- cache : TInterface (Name {namespace = "Soup", name = "Cache"})-    IO Word32--{- |-Gets the maximum size of the cache.--/Since: 2.34/--}-cacheGetMaxSize ::-    (B.CallStack.HasCallStack, MonadIO m, IsCache a) =>-    a-    {- ^ /@cache@/: a 'GI.Soup.Objects.Cache.Cache' -}-    -> m Word32-    {- ^ __Returns:__ the maximum size of the cache, in bytes. -}-cacheGetMaxSize cache = liftIO $ do-    cache' <- unsafeManagedPtrCastPtr cache-    result <- soup_cache_get_max_size cache'-    touchManagedPtr cache-    return result--#if ENABLE_OVERLOADING-data CacheGetMaxSizeMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsCache a) => O.MethodInfo CacheGetMaxSizeMethodInfo a signature where-    overloadedMethod _ = cacheGetMaxSize--#endif---- method Cache::load--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cache", argType = TInterface (Name {namespace = "Soup", name = "Cache"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCache", sinceVersion = Nothing}, 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 ->                            -- cache : TInterface (Name {namespace = "Soup", name = "Cache"})-    IO ()--{- |-Loads the contents of /@cache@/\'s index into memory.--/Since: 2.34/--}-cacheLoad ::-    (B.CallStack.HasCallStack, MonadIO m, IsCache a) =>-    a-    {- ^ /@cache@/: a 'GI.Soup.Objects.Cache.Cache' -}-    -> m ()-cacheLoad cache = liftIO $ do-    cache' <- unsafeManagedPtrCastPtr cache-    soup_cache_load cache'-    touchManagedPtr cache-    return ()--#if ENABLE_OVERLOADING-data CacheLoadMethodInfo-instance (signature ~ (m ()), MonadIO m, IsCache a) => O.MethodInfo CacheLoadMethodInfo a signature where-    overloadedMethod _ = cacheLoad--#endif---- method Cache::set_max_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cache", argType = TInterface (Name {namespace = "Soup", name = "Cache"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCache", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_size", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the maximum size of the cache, in bytes", sinceVersion = Nothing}, 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 ->                            -- cache : TInterface (Name {namespace = "Soup", name = "Cache"})-    Word32 ->                               -- max_size : TBasicType TUInt-    IO ()--{- |-Sets the maximum size of the cache.--/Since: 2.34/--}-cacheSetMaxSize ::-    (B.CallStack.HasCallStack, MonadIO m, IsCache a) =>-    a-    {- ^ /@cache@/: a 'GI.Soup.Objects.Cache.Cache' -}-    -> Word32-    {- ^ /@maxSize@/: the maximum size of the cache, in bytes -}-    -> m ()-cacheSetMaxSize cache maxSize = liftIO $ do-    cache' <- unsafeManagedPtrCastPtr cache-    soup_cache_set_max_size cache' maxSize-    touchManagedPtr cache-    return ()--#if ENABLE_OVERLOADING-data CacheSetMaxSizeMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, IsCache a) => O.MethodInfo CacheSetMaxSizeMethodInfo a signature where-    overloadedMethod _ = cacheSetMaxSize--#endif--
− GI/Soup/Objects/Cache.hs-boot 
@@ -1,53 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Objects.Cache where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype Cache = Cache (ManagedPtr Cache)-instance GObject Cache where-class (GObject o, O.IsDescendantOf Cache o) => IsCache o-instance (GObject o, O.IsDescendantOf Cache o) => IsCache o-instance O.HasParentTypes Cache-#if ENABLE_OVERLOADING-data CacheCacheDirPropertyInfo-#endif-#if ENABLE_OVERLOADING-data CacheCacheTypePropertyInfo-#endif-#if ENABLE_OVERLOADING-data CacheClearMethodInfo-#endif-#if ENABLE_OVERLOADING-data CacheDumpMethodInfo-#endif-#if ENABLE_OVERLOADING-data CacheFlushMethodInfo-#endif-#if ENABLE_OVERLOADING-data CacheGetMaxSizeMethodInfo-#endif-#if ENABLE_OVERLOADING-data CacheLoadMethodInfo-#endif-#if ENABLE_OVERLOADING-data CacheSetMaxSizeMethodInfo-#endif
− GI/Soup/Objects/ContentDecoder.hs 
@@ -1,127 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Objects.ContentDecoder-    ( ---- * Exported types-    ContentDecoder(..)                      ,-    IsContentDecoder                        ,-    toContentDecoder                        ,-    noContentDecoder                        ,---    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Soup.Interfaces.SessionFeature as Soup.SessionFeature---- | Memory-managed wrapper type.-newtype ContentDecoder = ContentDecoder (ManagedPtr ContentDecoder)-foreign import ccall "soup_content_decoder_get_type"-    c_soup_content_decoder_get_type :: IO GType--instance GObject ContentDecoder where-    gobjectType = c_soup_content_decoder_get_type-    ---- | Type class for types which can be safely cast to `ContentDecoder`, for instance with `toContentDecoder`.-class (GObject o, O.IsDescendantOf ContentDecoder o) => IsContentDecoder o-instance (GObject o, O.IsDescendantOf ContentDecoder o) => IsContentDecoder o--instance O.HasParentTypes ContentDecoder-type instance O.ParentTypes ContentDecoder = '[GObject.Object.Object, Soup.SessionFeature.SessionFeature]---- | Cast to `ContentDecoder`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toContentDecoder :: (MonadIO m, IsContentDecoder o) => o -> m ContentDecoder-toContentDecoder = liftIO . unsafeCastTo ContentDecoder---- | A convenience alias for `Nothing` :: `Maybe` `ContentDecoder`.-noContentDecoder :: Maybe ContentDecoder-noContentDecoder = Nothing--#if ENABLE_OVERLOADING-type family ResolveContentDecoderMethod (t :: Symbol) (o :: *) :: * where-    ResolveContentDecoderMethod "addFeature" o = Soup.SessionFeature.SessionFeatureAddFeatureMethodInfo-    ResolveContentDecoderMethod "attach" o = Soup.SessionFeature.SessionFeatureAttachMethodInfo-    ResolveContentDecoderMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveContentDecoderMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveContentDecoderMethod "detach" o = Soup.SessionFeature.SessionFeatureDetachMethodInfo-    ResolveContentDecoderMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveContentDecoderMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveContentDecoderMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveContentDecoderMethod "hasFeature" o = Soup.SessionFeature.SessionFeatureHasFeatureMethodInfo-    ResolveContentDecoderMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveContentDecoderMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveContentDecoderMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveContentDecoderMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveContentDecoderMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveContentDecoderMethod "removeFeature" o = Soup.SessionFeature.SessionFeatureRemoveFeatureMethodInfo-    ResolveContentDecoderMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveContentDecoderMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveContentDecoderMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveContentDecoderMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveContentDecoderMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveContentDecoderMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveContentDecoderMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveContentDecoderMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveContentDecoderMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveContentDecoderMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveContentDecoderMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveContentDecoderMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveContentDecoderMethod t ContentDecoder, O.MethodInfo info ContentDecoder p) => OL.IsLabel t (ContentDecoder -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList ContentDecoder-type instance O.AttributeList ContentDecoder = ContentDecoderAttributeList-type ContentDecoderAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList ContentDecoder = ContentDecoderSignalList-type ContentDecoderSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--
− GI/Soup/Objects/ContentDecoder.hs-boot 
@@ -1,29 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Objects.ContentDecoder where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype ContentDecoder = ContentDecoder (ManagedPtr ContentDecoder)-instance GObject ContentDecoder where-class (GObject o, O.IsDescendantOf ContentDecoder o) => IsContentDecoder o-instance (GObject o, O.IsDescendantOf ContentDecoder o) => IsContentDecoder o-instance O.HasParentTypes ContentDecoder
− GI/Soup/Objects/ContentSniffer.hs 
@@ -1,284 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Objects.ContentSniffer-    ( ---- * Exported types-    ContentSniffer(..)                      ,-    IsContentSniffer                        ,-    toContentSniffer                        ,-    noContentSniffer                        ,--- -- * Methods--- ** getBufferSize #method:getBufferSize#--#if ENABLE_OVERLOADING-    ContentSnifferGetBufferSizeMethodInfo   ,-#endif-    contentSnifferGetBufferSize             ,----- ** new #method:new#--    contentSnifferNew                       ,----- ** sniff #method:sniff#--#if ENABLE_OVERLOADING-    ContentSnifferSniffMethodInfo           ,-#endif-    contentSnifferSniff                     ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Soup.Interfaces.SessionFeature as Soup.SessionFeature-import {-# SOURCE #-} qualified GI.Soup.Objects.Message as Soup.Message-import {-# SOURCE #-} qualified GI.Soup.Structs.Buffer as Soup.Buffer---- | Memory-managed wrapper type.-newtype ContentSniffer = ContentSniffer (ManagedPtr ContentSniffer)-foreign import ccall "soup_content_sniffer_get_type"-    c_soup_content_sniffer_get_type :: IO GType--instance GObject ContentSniffer where-    gobjectType = c_soup_content_sniffer_get_type-    ---- | Type class for types which can be safely cast to `ContentSniffer`, for instance with `toContentSniffer`.-class (GObject o, O.IsDescendantOf ContentSniffer o) => IsContentSniffer o-instance (GObject o, O.IsDescendantOf ContentSniffer o) => IsContentSniffer o--instance O.HasParentTypes ContentSniffer-type instance O.ParentTypes ContentSniffer = '[GObject.Object.Object, Soup.SessionFeature.SessionFeature]---- | Cast to `ContentSniffer`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toContentSniffer :: (MonadIO m, IsContentSniffer o) => o -> m ContentSniffer-toContentSniffer = liftIO . unsafeCastTo ContentSniffer---- | A convenience alias for `Nothing` :: `Maybe` `ContentSniffer`.-noContentSniffer :: Maybe ContentSniffer-noContentSniffer = Nothing--#if ENABLE_OVERLOADING-type family ResolveContentSnifferMethod (t :: Symbol) (o :: *) :: * where-    ResolveContentSnifferMethod "addFeature" o = Soup.SessionFeature.SessionFeatureAddFeatureMethodInfo-    ResolveContentSnifferMethod "attach" o = Soup.SessionFeature.SessionFeatureAttachMethodInfo-    ResolveContentSnifferMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveContentSnifferMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveContentSnifferMethod "detach" o = Soup.SessionFeature.SessionFeatureDetachMethodInfo-    ResolveContentSnifferMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveContentSnifferMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveContentSnifferMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveContentSnifferMethod "hasFeature" o = Soup.SessionFeature.SessionFeatureHasFeatureMethodInfo-    ResolveContentSnifferMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveContentSnifferMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveContentSnifferMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveContentSnifferMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveContentSnifferMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveContentSnifferMethod "removeFeature" o = Soup.SessionFeature.SessionFeatureRemoveFeatureMethodInfo-    ResolveContentSnifferMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveContentSnifferMethod "sniff" o = ContentSnifferSniffMethodInfo-    ResolveContentSnifferMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveContentSnifferMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveContentSnifferMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveContentSnifferMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveContentSnifferMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveContentSnifferMethod "getBufferSize" o = ContentSnifferGetBufferSizeMethodInfo-    ResolveContentSnifferMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveContentSnifferMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveContentSnifferMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveContentSnifferMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveContentSnifferMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveContentSnifferMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveContentSnifferMethod t ContentSniffer, O.MethodInfo info ContentSniffer p) => OL.IsLabel t (ContentSniffer -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList ContentSniffer-type instance O.AttributeList ContentSniffer = ContentSnifferAttributeList-type ContentSnifferAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList ContentSniffer = ContentSnifferSignalList-type ContentSnifferSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method ContentSniffer::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "ContentSniffer"}))--- throws : False--- Skip return : False--foreign import ccall "soup_content_sniffer_new" soup_content_sniffer_new :: -    IO (Ptr ContentSniffer)--{- |-Creates a new 'GI.Soup.Objects.ContentSniffer.ContentSniffer'.--/Since: 2.28/--}-contentSnifferNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m ContentSniffer-    {- ^ __Returns:__ a new 'GI.Soup.Objects.ContentSniffer.ContentSniffer' -}-contentSnifferNew  = liftIO $ do-    result <- soup_content_sniffer_new-    checkUnexpectedReturnNULL "contentSnifferNew" result-    result' <- (wrapObject ContentSniffer) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method ContentSniffer::get_buffer_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "sniffer", argType = TInterface (Name {namespace = "Soup", name = "ContentSniffer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupContentSniffer", sinceVersion = Nothing}, 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 ->                   -- sniffer : TInterface (Name {namespace = "Soup", name = "ContentSniffer"})-    IO Word64--{- |-Gets the number of bytes /@sniffer@/ needs in order to properly sniff-a buffer.--/Since: 2.28/--}-contentSnifferGetBufferSize ::-    (B.CallStack.HasCallStack, MonadIO m, IsContentSniffer a) =>-    a-    {- ^ /@sniffer@/: a 'GI.Soup.Objects.ContentSniffer.ContentSniffer' -}-    -> m Word64-    {- ^ __Returns:__ the number of bytes to sniff -}-contentSnifferGetBufferSize sniffer = liftIO $ do-    sniffer' <- unsafeManagedPtrCastPtr sniffer-    result <- soup_content_sniffer_get_buffer_size sniffer'-    touchManagedPtr sniffer-    return result--#if ENABLE_OVERLOADING-data ContentSnifferGetBufferSizeMethodInfo-instance (signature ~ (m Word64), MonadIO m, IsContentSniffer a) => O.MethodInfo ContentSnifferGetBufferSizeMethodInfo a signature where-    overloadedMethod _ = contentSnifferGetBufferSize--#endif---- method ContentSniffer::sniff--- method type : OrdinaryMethod--- Args : [Arg {argCName = "sniffer", argType = TInterface (Name {namespace = "Soup", name = "ContentSniffer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupContentSniffer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the message to sniff", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface (Name {namespace = "Soup", name = "Buffer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a buffer containing the start of @msg's response body", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return\n  location for Content-Type parameters (eg, \"charset\"), or %NULL", sinceVersion = Nothing}, 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 ->                   -- sniffer : TInterface (Name {namespace = "Soup", name = "ContentSniffer"})-    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    Ptr Soup.Buffer.Buffer ->               -- buffer : TInterface (Name {namespace = "Soup", name = "Buffer"})-    Ptr (Ptr (GHashTable CString CString)) -> -- params : TGHash (TBasicType TUTF8) (TBasicType TUTF8)-    IO CString--{- |-Sniffs /@buffer@/ to determine its Content-Type. The result may also-be influenced by the Content-Type declared in /@msg@/\'s response-headers.--/Since: 2.28/--}-contentSnifferSniff ::-    (B.CallStack.HasCallStack, MonadIO m, IsContentSniffer a, Soup.Message.IsMessage b) =>-    a-    {- ^ /@sniffer@/: a 'GI.Soup.Objects.ContentSniffer.ContentSniffer' -}-    -> b-    {- ^ /@msg@/: the message to sniff -}-    -> Soup.Buffer.Buffer-    {- ^ /@buffer@/: a buffer containing the start of /@msg@/\'s response body -}-    -> m ((T.Text, Map.Map T.Text T.Text))-    {- ^ __Returns:__ the sniffed Content-Type of /@buffer@/; this will never be 'Nothing',-  but may be \"application\/octet-stream\". -}-contentSnifferSniff sniffer msg buffer = liftIO $ do-    sniffer' <- unsafeManagedPtrCastPtr sniffer-    msg' <- unsafeManagedPtrCastPtr msg-    buffer' <- unsafeManagedPtrGetPtr buffer-    params <- allocMem :: IO (Ptr (Ptr (GHashTable CString CString)))-    result <- soup_content_sniffer_sniff sniffer' msg' buffer' params-    checkUnexpectedReturnNULL "contentSnifferSniff" 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 sniffer-    touchManagedPtr msg-    touchManagedPtr buffer-    freeMem params-    return (result', params''''''')--#if ENABLE_OVERLOADING-data ContentSnifferSniffMethodInfo-instance (signature ~ (b -> Soup.Buffer.Buffer -> m ((T.Text, Map.Map T.Text T.Text))), MonadIO m, IsContentSniffer a, Soup.Message.IsMessage b) => O.MethodInfo ContentSnifferSniffMethodInfo a signature where-    overloadedMethod _ = contentSnifferSniff--#endif--
− GI/Soup/Objects/ContentSniffer.hs-boot 
@@ -1,35 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Objects.ContentSniffer where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype ContentSniffer = ContentSniffer (ManagedPtr ContentSniffer)-instance GObject ContentSniffer where-class (GObject o, O.IsDescendantOf ContentSniffer o) => IsContentSniffer o-instance (GObject o, O.IsDescendantOf ContentSniffer o) => IsContentSniffer o-instance O.HasParentTypes ContentSniffer-#if ENABLE_OVERLOADING-data ContentSnifferGetBufferSizeMethodInfo-#endif-#if ENABLE_OVERLOADING-data ContentSnifferSniffMethodInfo-#endif
− GI/Soup/Objects/CookieJar.hs 
@@ -1,1057 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Objects.CookieJar-    ( ---- * Exported types-    CookieJar(..)                           ,-    IsCookieJar                             ,-    toCookieJar                             ,-    noCookieJar                             ,--- -- * Methods--- ** addCookie #method:addCookie#--#if ENABLE_OVERLOADING-    CookieJarAddCookieMethodInfo            ,-#endif-    cookieJarAddCookie                      ,----- ** addCookieWithFirstParty #method:addCookieWithFirstParty#--#if ENABLE_OVERLOADING-    CookieJarAddCookieWithFirstPartyMethodInfo,-#endif-    cookieJarAddCookieWithFirstParty        ,----- ** allCookies #method:allCookies#--#if ENABLE_OVERLOADING-    CookieJarAllCookiesMethodInfo           ,-#endif-    cookieJarAllCookies                     ,----- ** deleteCookie #method:deleteCookie#--#if ENABLE_OVERLOADING-    CookieJarDeleteCookieMethodInfo         ,-#endif-    cookieJarDeleteCookie                   ,----- ** getAcceptPolicy #method:getAcceptPolicy#--#if ENABLE_OVERLOADING-    CookieJarGetAcceptPolicyMethodInfo      ,-#endif-    cookieJarGetAcceptPolicy                ,----- ** getCookieList #method:getCookieList#--#if ENABLE_OVERLOADING-    CookieJarGetCookieListMethodInfo        ,-#endif-    cookieJarGetCookieList                  ,----- ** getCookies #method:getCookies#--#if ENABLE_OVERLOADING-    CookieJarGetCookiesMethodInfo           ,-#endif-    cookieJarGetCookies                     ,----- ** isPersistent #method:isPersistent#--#if ENABLE_OVERLOADING-    CookieJarIsPersistentMethodInfo         ,-#endif-    cookieJarIsPersistent                   ,----- ** new #method:new#--    cookieJarNew                            ,----- ** save #method:save#--#if ENABLE_OVERLOADING-    CookieJarSaveMethodInfo                 ,-#endif-    cookieJarSave                           ,----- ** setAcceptPolicy #method:setAcceptPolicy#--#if ENABLE_OVERLOADING-    CookieJarSetAcceptPolicyMethodInfo      ,-#endif-    cookieJarSetAcceptPolicy                ,----- ** setCookie #method:setCookie#--#if ENABLE_OVERLOADING-    CookieJarSetCookieMethodInfo            ,-#endif-    cookieJarSetCookie                      ,----- ** setCookieWithFirstParty #method:setCookieWithFirstParty#--#if ENABLE_OVERLOADING-    CookieJarSetCookieWithFirstPartyMethodInfo,-#endif-    cookieJarSetCookieWithFirstParty        ,----- -- * Properties--- ** acceptPolicy #attr:acceptPolicy#-{- | The policy the jar should follow to accept or reject cookies--/Since: 2.30/--}-#if ENABLE_OVERLOADING-    CookieJarAcceptPolicyPropertyInfo       ,-#endif-    constructCookieJarAcceptPolicy          ,-#if ENABLE_OVERLOADING-    cookieJarAcceptPolicy                   ,-#endif-    getCookieJarAcceptPolicy                ,-    setCookieJarAcceptPolicy                ,----- ** readOnly #attr:readOnly#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    CookieJarReadOnlyPropertyInfo           ,-#endif-    constructCookieJarReadOnly              ,-#if ENABLE_OVERLOADING-    cookieJarReadOnly                       ,-#endif-    getCookieJarReadOnly                    ,----- -- * Signals--- ** changed #signal:changed#--    C_CookieJarChangedCallback              ,-    CookieJarChangedCallback                ,-#if ENABLE_OVERLOADING-    CookieJarChangedSignalInfo              ,-#endif-    afterCookieJarChanged                   ,-    genClosure_CookieJarChanged             ,-    mk_CookieJarChangedCallback             ,-    noCookieJarChangedCallback              ,-    onCookieJarChanged                      ,-    wrap_CookieJarChangedCallback           ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Soup.Enums as Soup.Enums-import {-# SOURCE #-} qualified GI.Soup.Interfaces.SessionFeature as Soup.SessionFeature-import {-# SOURCE #-} qualified GI.Soup.Structs.Cookie as Soup.Cookie-import {-# SOURCE #-} qualified GI.Soup.Structs.URI as Soup.URI---- | Memory-managed wrapper type.-newtype CookieJar = CookieJar (ManagedPtr CookieJar)-foreign import ccall "soup_cookie_jar_get_type"-    c_soup_cookie_jar_get_type :: IO GType--instance GObject CookieJar where-    gobjectType = c_soup_cookie_jar_get_type-    ---- | Type class for types which can be safely cast to `CookieJar`, for instance with `toCookieJar`.-class (GObject o, O.IsDescendantOf CookieJar o) => IsCookieJar o-instance (GObject o, O.IsDescendantOf CookieJar o) => IsCookieJar o--instance O.HasParentTypes CookieJar-type instance O.ParentTypes CookieJar = '[GObject.Object.Object, Soup.SessionFeature.SessionFeature]---- | Cast to `CookieJar`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toCookieJar :: (MonadIO m, IsCookieJar o) => o -> m CookieJar-toCookieJar = liftIO . unsafeCastTo CookieJar---- | A convenience alias for `Nothing` :: `Maybe` `CookieJar`.-noCookieJar :: Maybe CookieJar-noCookieJar = Nothing--#if ENABLE_OVERLOADING-type family ResolveCookieJarMethod (t :: Symbol) (o :: *) :: * where-    ResolveCookieJarMethod "addCookie" o = CookieJarAddCookieMethodInfo-    ResolveCookieJarMethod "addCookieWithFirstParty" o = CookieJarAddCookieWithFirstPartyMethodInfo-    ResolveCookieJarMethod "addFeature" o = Soup.SessionFeature.SessionFeatureAddFeatureMethodInfo-    ResolveCookieJarMethod "allCookies" o = CookieJarAllCookiesMethodInfo-    ResolveCookieJarMethod "attach" o = Soup.SessionFeature.SessionFeatureAttachMethodInfo-    ResolveCookieJarMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveCookieJarMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveCookieJarMethod "deleteCookie" o = CookieJarDeleteCookieMethodInfo-    ResolveCookieJarMethod "detach" o = Soup.SessionFeature.SessionFeatureDetachMethodInfo-    ResolveCookieJarMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveCookieJarMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveCookieJarMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveCookieJarMethod "hasFeature" o = Soup.SessionFeature.SessionFeatureHasFeatureMethodInfo-    ResolveCookieJarMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveCookieJarMethod "isPersistent" o = CookieJarIsPersistentMethodInfo-    ResolveCookieJarMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveCookieJarMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveCookieJarMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveCookieJarMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveCookieJarMethod "removeFeature" o = Soup.SessionFeature.SessionFeatureRemoveFeatureMethodInfo-    ResolveCookieJarMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveCookieJarMethod "save" o = CookieJarSaveMethodInfo-    ResolveCookieJarMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveCookieJarMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveCookieJarMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveCookieJarMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveCookieJarMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveCookieJarMethod "getAcceptPolicy" o = CookieJarGetAcceptPolicyMethodInfo-    ResolveCookieJarMethod "getCookieList" o = CookieJarGetCookieListMethodInfo-    ResolveCookieJarMethod "getCookies" o = CookieJarGetCookiesMethodInfo-    ResolveCookieJarMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveCookieJarMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveCookieJarMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveCookieJarMethod "setAcceptPolicy" o = CookieJarSetAcceptPolicyMethodInfo-    ResolveCookieJarMethod "setCookie" o = CookieJarSetCookieMethodInfo-    ResolveCookieJarMethod "setCookieWithFirstParty" o = CookieJarSetCookieWithFirstPartyMethodInfo-    ResolveCookieJarMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveCookieJarMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveCookieJarMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveCookieJarMethod t CookieJar, O.MethodInfo info CookieJar p) => OL.IsLabel t (CookieJar -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif---- signal CookieJar::changed-{- |-Emitted when /@jar@/ changes. If a cookie has been added,-/@newCookie@/ will contain the newly-added cookie and-/@oldCookie@/ will be 'Nothing'. If a cookie has been deleted,-/@oldCookie@/ will contain the to-be-deleted cookie and-/@newCookie@/ will be 'Nothing'. If a cookie has been changed,-/@oldCookie@/ will contain its old value, and /@newCookie@/ its-new value.--}-type CookieJarChangedCallback =-    Soup.Cookie.Cookie-    {- ^ /@oldCookie@/: the old 'GI.Soup.Structs.Cookie.Cookie' value -}-    -> Soup.Cookie.Cookie-    {- ^ /@newCookie@/: the new 'GI.Soup.Structs.Cookie.Cookie' value -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `CookieJarChangedCallback`@.-noCookieJarChangedCallback :: Maybe CookieJarChangedCallback-noCookieJarChangedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_CookieJarChangedCallback =-    Ptr () ->                               -- object-    Ptr Soup.Cookie.Cookie ->-    Ptr Soup.Cookie.Cookie ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_CookieJarChangedCallback`.-foreign import ccall "wrapper"-    mk_CookieJarChangedCallback :: C_CookieJarChangedCallback -> IO (FunPtr C_CookieJarChangedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_CookieJarChanged :: MonadIO m => CookieJarChangedCallback -> m (GClosure C_CookieJarChangedCallback)-genClosure_CookieJarChanged cb = liftIO $ do-    let cb' = wrap_CookieJarChangedCallback cb-    mk_CookieJarChangedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `CookieJarChangedCallback` into a `C_CookieJarChangedCallback`.-wrap_CookieJarChangedCallback ::-    CookieJarChangedCallback ->-    C_CookieJarChangedCallback-wrap_CookieJarChangedCallback _cb _ oldCookie newCookie _ = do-    B.ManagedPtr.withTransient Soup.Cookie.Cookie oldCookie $ \oldCookie' -> do-        B.ManagedPtr.withTransient Soup.Cookie.Cookie newCookie $ \newCookie' -> do-            _cb  oldCookie' newCookie'---{- |-Connect a signal handler for the “@changed@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' cookieJar #changed callback-@--}-onCookieJarChanged :: (IsCookieJar a, MonadIO m) => a -> CookieJarChangedCallback -> m SignalHandlerId-onCookieJarChanged obj cb = liftIO $ do-    let cb' = wrap_CookieJarChangedCallback cb-    cb'' <- mk_CookieJarChangedCallback cb'-    connectSignalFunPtr obj "changed" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@changed@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' cookieJar #changed callback-@--}-afterCookieJarChanged :: (IsCookieJar a, MonadIO m) => a -> CookieJarChangedCallback -> m SignalHandlerId-afterCookieJarChanged obj cb = liftIO $ do-    let cb' = wrap_CookieJarChangedCallback cb-    cb'' <- mk_CookieJarChangedCallback cb'-    connectSignalFunPtr obj "changed" cb'' SignalConnectAfter----- VVV Prop "accept-policy"-   -- Type: TInterface (Name {namespace = "Soup", name = "CookieJarAcceptPolicy"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@accept-policy@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' cookieJar #acceptPolicy-@--}-getCookieJarAcceptPolicy :: (MonadIO m, IsCookieJar o) => o -> m Soup.Enums.CookieJarAcceptPolicy-getCookieJarAcceptPolicy obj = liftIO $ B.Properties.getObjectPropertyEnum obj "accept-policy"--{- |-Set the value of the “@accept-policy@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' cookieJar [ #acceptPolicy 'Data.GI.Base.Attributes.:=' value ]-@--}-setCookieJarAcceptPolicy :: (MonadIO m, IsCookieJar o) => o -> Soup.Enums.CookieJarAcceptPolicy -> m ()-setCookieJarAcceptPolicy obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "accept-policy" val--{- |-Construct a `GValueConstruct` with valid value for the “@accept-policy@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructCookieJarAcceptPolicy :: (IsCookieJar o) => Soup.Enums.CookieJarAcceptPolicy -> IO (GValueConstruct o)-constructCookieJarAcceptPolicy val = B.Properties.constructObjectPropertyEnum "accept-policy" val--#if ENABLE_OVERLOADING-data CookieJarAcceptPolicyPropertyInfo-instance AttrInfo CookieJarAcceptPolicyPropertyInfo where-    type AttrAllowedOps CookieJarAcceptPolicyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint CookieJarAcceptPolicyPropertyInfo = (~) Soup.Enums.CookieJarAcceptPolicy-    type AttrBaseTypeConstraint CookieJarAcceptPolicyPropertyInfo = IsCookieJar-    type AttrGetType CookieJarAcceptPolicyPropertyInfo = Soup.Enums.CookieJarAcceptPolicy-    type AttrLabel CookieJarAcceptPolicyPropertyInfo = "accept-policy"-    type AttrOrigin CookieJarAcceptPolicyPropertyInfo = CookieJar-    attrGet _ = getCookieJarAcceptPolicy-    attrSet _ = setCookieJarAcceptPolicy-    attrConstruct _ = constructCookieJarAcceptPolicy-    attrClear _ = undefined-#endif---- VVV Prop "read-only"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@read-only@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' cookieJar #readOnly-@--}-getCookieJarReadOnly :: (MonadIO m, IsCookieJar o) => o -> m Bool-getCookieJarReadOnly obj = liftIO $ B.Properties.getObjectPropertyBool obj "read-only"--{- |-Construct a `GValueConstruct` with valid value for the “@read-only@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructCookieJarReadOnly :: (IsCookieJar o) => Bool -> IO (GValueConstruct o)-constructCookieJarReadOnly val = B.Properties.constructObjectPropertyBool "read-only" val--#if ENABLE_OVERLOADING-data CookieJarReadOnlyPropertyInfo-instance AttrInfo CookieJarReadOnlyPropertyInfo where-    type AttrAllowedOps CookieJarReadOnlyPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint CookieJarReadOnlyPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint CookieJarReadOnlyPropertyInfo = IsCookieJar-    type AttrGetType CookieJarReadOnlyPropertyInfo = Bool-    type AttrLabel CookieJarReadOnlyPropertyInfo = "read-only"-    type AttrOrigin CookieJarReadOnlyPropertyInfo = CookieJar-    attrGet _ = getCookieJarReadOnly-    attrSet _ = undefined-    attrConstruct _ = constructCookieJarReadOnly-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList CookieJar-type instance O.AttributeList CookieJar = CookieJarAttributeList-type CookieJarAttributeList = ('[ '("acceptPolicy", CookieJarAcceptPolicyPropertyInfo), '("readOnly", CookieJarReadOnlyPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-cookieJarAcceptPolicy :: AttrLabelProxy "acceptPolicy"-cookieJarAcceptPolicy = AttrLabelProxy--cookieJarReadOnly :: AttrLabelProxy "readOnly"-cookieJarReadOnly = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-data CookieJarChangedSignalInfo-instance SignalInfo CookieJarChangedSignalInfo where-    type HaskellCallbackType CookieJarChangedSignalInfo = CookieJarChangedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_CookieJarChangedCallback cb-        cb'' <- mk_CookieJarChangedCallback cb'-        connectSignalFunPtr obj "changed" cb'' connectMode--type instance O.SignalList CookieJar = CookieJarSignalList-type CookieJarSignalList = ('[ '("changed", CookieJarChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method CookieJar::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "CookieJar"}))--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_new" soup_cookie_jar_new :: -    IO (Ptr CookieJar)--{- |-Creates a new 'GI.Soup.Objects.CookieJar.CookieJar'. The base 'GI.Soup.Objects.CookieJar.CookieJar' class does-not support persistent storage of cookies; use a subclass for that.--/Since: 2.24/--}-cookieJarNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m CookieJar-    {- ^ __Returns:__ a new 'GI.Soup.Objects.CookieJar.CookieJar' -}-cookieJarNew  = liftIO $ do-    result <- soup_cookie_jar_new-    checkUnexpectedReturnNULL "cookieJarNew" result-    result' <- (wrapObject CookieJar) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method CookieJar::add_cookie--- method type : OrdinaryMethod--- Args : [Arg {argCName = "jar", argType = TInterface (Name {namespace = "Soup", name = "CookieJar"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookieJar", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie", argType = TInterface (Name {namespace = "Soup", name = "Cookie"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookie", sinceVersion = Nothing}, 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 ->                        -- jar : TInterface (Name {namespace = "Soup", name = "CookieJar"})-    Ptr Soup.Cookie.Cookie ->               -- cookie : TInterface (Name {namespace = "Soup", name = "Cookie"})-    IO ()--{- |-Adds /@cookie@/ to /@jar@/, emitting the \'changed\' signal if we are modifying-an existing cookie or adding a valid new cookie (\'valid\' means-that the cookie\'s expire date is not in the past).--/@cookie@/ will be \'stolen\' by the jar, so don\'t free it afterwards.--/Since: 2.26/--}-cookieJarAddCookie ::-    (B.CallStack.HasCallStack, MonadIO m, IsCookieJar a) =>-    a-    {- ^ /@jar@/: a 'GI.Soup.Objects.CookieJar.CookieJar' -}-    -> Soup.Cookie.Cookie-    {- ^ /@cookie@/: a 'GI.Soup.Structs.Cookie.Cookie' -}-    -> m ()-cookieJarAddCookie jar cookie = liftIO $ do-    jar' <- unsafeManagedPtrCastPtr jar-    cookie' <- B.ManagedPtr.disownBoxed cookie-    soup_cookie_jar_add_cookie jar' cookie'-    touchManagedPtr jar-    touchManagedPtr cookie-    return ()--#if ENABLE_OVERLOADING-data CookieJarAddCookieMethodInfo-instance (signature ~ (Soup.Cookie.Cookie -> m ()), MonadIO m, IsCookieJar a) => O.MethodInfo CookieJarAddCookieMethodInfo a signature where-    overloadedMethod _ = cookieJarAddCookie--#endif---- method CookieJar::add_cookie_with_first_party--- method type : OrdinaryMethod--- Args : [Arg {argCName = "jar", argType = TInterface (Name {namespace = "Soup", name = "CookieJar"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookieJar", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "first_party", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the URI for the main document", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie", argType = TInterface (Name {namespace = "Soup", name = "Cookie"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookie", sinceVersion = Nothing}, 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 ->                        -- jar : TInterface (Name {namespace = "Soup", name = "CookieJar"})-    Ptr Soup.URI.URI ->                     -- first_party : TInterface (Name {namespace = "Soup", name = "URI"})-    Ptr Soup.Cookie.Cookie ->               -- cookie : TInterface (Name {namespace = "Soup", name = "Cookie"})-    IO ()--{- |-Adds /@cookie@/ to /@jar@/, emitting the \'changed\' signal if we are modifying-an existing cookie or adding a valid new cookie (\'valid\' means-that the cookie\'s expire date is not in the past).--/@firstParty@/ will be used to reject cookies coming from third party-resources in case such a security policy is set in the /@jar@/.--/@cookie@/ will be \'stolen\' by the jar, so don\'t free it afterwards.--/Since: 2.40/--}-cookieJarAddCookieWithFirstParty ::-    (B.CallStack.HasCallStack, MonadIO m, IsCookieJar a) =>-    a-    {- ^ /@jar@/: a 'GI.Soup.Objects.CookieJar.CookieJar' -}-    -> Soup.URI.URI-    {- ^ /@firstParty@/: the URI for the main document -}-    -> Soup.Cookie.Cookie-    {- ^ /@cookie@/: a 'GI.Soup.Structs.Cookie.Cookie' -}-    -> m ()-cookieJarAddCookieWithFirstParty jar firstParty cookie = liftIO $ do-    jar' <- unsafeManagedPtrCastPtr jar-    firstParty' <- unsafeManagedPtrGetPtr firstParty-    cookie' <- B.ManagedPtr.disownBoxed cookie-    soup_cookie_jar_add_cookie_with_first_party jar' firstParty' cookie'-    touchManagedPtr jar-    touchManagedPtr firstParty-    touchManagedPtr cookie-    return ()--#if ENABLE_OVERLOADING-data CookieJarAddCookieWithFirstPartyMethodInfo-instance (signature ~ (Soup.URI.URI -> Soup.Cookie.Cookie -> m ()), MonadIO m, IsCookieJar a) => O.MethodInfo CookieJarAddCookieWithFirstPartyMethodInfo a signature where-    overloadedMethod _ = cookieJarAddCookieWithFirstParty--#endif---- method CookieJar::all_cookies--- method type : OrdinaryMethod--- Args : [Arg {argCName = "jar", argType = TInterface (Name {namespace = "Soup", name = "CookieJar"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookieJar", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGSList (TInterface (Name {namespace = "Soup", name = "Cookie"})))--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_all_cookies" soup_cookie_jar_all_cookies :: -    Ptr CookieJar ->                        -- jar : TInterface (Name {namespace = "Soup", name = "CookieJar"})-    IO (Ptr (GSList (Ptr Soup.Cookie.Cookie)))--{- |-Constructs a 'GI.GLib.Structs.SList.SList' with every cookie inside the /@jar@/.-The cookies in the list are a copy of the original, so-you have to free them when you are done with them.--/Since: 2.26/--}-cookieJarAllCookies ::-    (B.CallStack.HasCallStack, MonadIO m, IsCookieJar a) =>-    a-    {- ^ /@jar@/: a 'GI.Soup.Objects.CookieJar.CookieJar' -}-    -> m [Soup.Cookie.Cookie]-    {- ^ __Returns:__ a 'GI.GLib.Structs.SList.SList'-with all the cookies in the /@jar@/. -}-cookieJarAllCookies jar = liftIO $ do-    jar' <- unsafeManagedPtrCastPtr jar-    result <- soup_cookie_jar_all_cookies jar'-    result' <- unpackGSList result-    result'' <- mapM (wrapBoxed Soup.Cookie.Cookie) result'-    g_slist_free result-    touchManagedPtr jar-    return result''--#if ENABLE_OVERLOADING-data CookieJarAllCookiesMethodInfo-instance (signature ~ (m [Soup.Cookie.Cookie]), MonadIO m, IsCookieJar a) => O.MethodInfo CookieJarAllCookiesMethodInfo a signature where-    overloadedMethod _ = cookieJarAllCookies--#endif---- method CookieJar::delete_cookie--- method type : OrdinaryMethod--- Args : [Arg {argCName = "jar", argType = TInterface (Name {namespace = "Soup", name = "CookieJar"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookieJar", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie", argType = TInterface (Name {namespace = "Soup", name = "Cookie"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookie", sinceVersion = Nothing}, 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 ->                        -- jar : TInterface (Name {namespace = "Soup", name = "CookieJar"})-    Ptr Soup.Cookie.Cookie ->               -- cookie : TInterface (Name {namespace = "Soup", name = "Cookie"})-    IO ()--{- |-Deletes /@cookie@/ from /@jar@/, emitting the \'changed\' signal.--/Since: 2.26/--}-cookieJarDeleteCookie ::-    (B.CallStack.HasCallStack, MonadIO m, IsCookieJar a) =>-    a-    {- ^ /@jar@/: a 'GI.Soup.Objects.CookieJar.CookieJar' -}-    -> Soup.Cookie.Cookie-    {- ^ /@cookie@/: a 'GI.Soup.Structs.Cookie.Cookie' -}-    -> m ()-cookieJarDeleteCookie jar cookie = liftIO $ do-    jar' <- unsafeManagedPtrCastPtr jar-    cookie' <- unsafeManagedPtrGetPtr cookie-    soup_cookie_jar_delete_cookie jar' cookie'-    touchManagedPtr jar-    touchManagedPtr cookie-    return ()--#if ENABLE_OVERLOADING-data CookieJarDeleteCookieMethodInfo-instance (signature ~ (Soup.Cookie.Cookie -> m ()), MonadIO m, IsCookieJar a) => O.MethodInfo CookieJarDeleteCookieMethodInfo a signature where-    overloadedMethod _ = cookieJarDeleteCookie--#endif---- method CookieJar::get_accept_policy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "jar", argType = TInterface (Name {namespace = "Soup", name = "CookieJar"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookieJar", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "CookieJarAcceptPolicy"}))--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_get_accept_policy" soup_cookie_jar_get_accept_policy :: -    Ptr CookieJar ->                        -- jar : TInterface (Name {namespace = "Soup", name = "CookieJar"})-    IO CUInt--{- |-Gets /@jar@/\'s 'GI.Soup.Enums.CookieJarAcceptPolicy'--/Since: 2.30/--}-cookieJarGetAcceptPolicy ::-    (B.CallStack.HasCallStack, MonadIO m, IsCookieJar a) =>-    a-    {- ^ /@jar@/: a 'GI.Soup.Objects.CookieJar.CookieJar' -}-    -> m Soup.Enums.CookieJarAcceptPolicy-    {- ^ __Returns:__ the 'GI.Soup.Enums.CookieJarAcceptPolicy' set in the /@jar@/ -}-cookieJarGetAcceptPolicy jar = liftIO $ do-    jar' <- unsafeManagedPtrCastPtr jar-    result <- soup_cookie_jar_get_accept_policy jar'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr jar-    return result'--#if ENABLE_OVERLOADING-data CookieJarGetAcceptPolicyMethodInfo-instance (signature ~ (m Soup.Enums.CookieJarAcceptPolicy), MonadIO m, IsCookieJar a) => O.MethodInfo CookieJarGetAcceptPolicyMethodInfo a signature where-    overloadedMethod _ = cookieJarGetAcceptPolicy--#endif---- method CookieJar::get_cookie_list--- method type : OrdinaryMethod--- Args : [Arg {argCName = "jar", argType = TInterface (Name {namespace = "Soup", name = "CookieJar"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookieJar", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "for_http", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether or not the return value is being passed directly\nto an HTTP operation", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGSList (TInterface (Name {namespace = "Soup", name = "Cookie"})))--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_jar_get_cookie_list" soup_cookie_jar_get_cookie_list :: -    Ptr CookieJar ->                        -- jar : TInterface (Name {namespace = "Soup", name = "CookieJar"})-    Ptr Soup.URI.URI ->                     -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    CInt ->                                 -- for_http : TBasicType TBoolean-    IO (Ptr (GSList (Ptr Soup.Cookie.Cookie)))--{- |-Retrieves the list of cookies that would be sent with a request to /@uri@/-as a 'GI.GLib.Structs.SList.SList' of 'GI.Soup.Structs.Cookie.Cookie' objects.--If /@forHttp@/ is 'True', the return value will include cookies marked-\"HttpOnly\" (that is, cookies that the server wishes to keep hidden-from client-side scripting operations such as the JavaScript-document.cookies property). Since 'GI.Soup.Objects.CookieJar.CookieJar' sets the Cookie-header itself when making the actual HTTP request, you should-almost certainly be setting /@forHttp@/ to 'False' if you are calling-this.--/Since: 2.40/--}-cookieJarGetCookieList ::-    (B.CallStack.HasCallStack, MonadIO m, IsCookieJar a) =>-    a-    {- ^ /@jar@/: a 'GI.Soup.Objects.CookieJar.CookieJar' -}-    -> Soup.URI.URI-    {- ^ /@uri@/: a 'GI.Soup.Structs.URI.URI' -}-    -> Bool-    {- ^ /@forHttp@/: whether or not the return value is being passed directly-to an HTTP operation -}-    -> m [Soup.Cookie.Cookie]-    {- ^ __Returns:__ a 'GI.GLib.Structs.SList.SList'-with the cookies in the /@jar@/ that would be sent with a request to /@uri@/. -}-cookieJarGetCookieList jar uri forHttp = liftIO $ do-    jar' <- unsafeManagedPtrCastPtr jar-    uri' <- unsafeManagedPtrGetPtr uri-    let forHttp' = (fromIntegral . fromEnum) forHttp-    result <- soup_cookie_jar_get_cookie_list jar' uri' forHttp'-    result' <- unpackGSList result-    result'' <- mapM (wrapBoxed Soup.Cookie.Cookie) result'-    g_slist_free result-    touchManagedPtr jar-    touchManagedPtr uri-    return result''--#if ENABLE_OVERLOADING-data CookieJarGetCookieListMethodInfo-instance (signature ~ (Soup.URI.URI -> Bool -> m [Soup.Cookie.Cookie]), MonadIO m, IsCookieJar a) => O.MethodInfo CookieJarGetCookieListMethodInfo a signature where-    overloadedMethod _ = cookieJarGetCookieList--#endif---- method CookieJar::get_cookies--- method type : OrdinaryMethod--- Args : [Arg {argCName = "jar", argType = TInterface (Name {namespace = "Soup", name = "CookieJar"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookieJar", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "for_http", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether or not the return value is being passed directly\nto an HTTP operation", sinceVersion = Nothing}, 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 ->                        -- jar : TInterface (Name {namespace = "Soup", name = "CookieJar"})-    Ptr Soup.URI.URI ->                     -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    CInt ->                                 -- for_http : TBasicType TBoolean-    IO CString--{- |-Retrieves (in Cookie-header form) the list of cookies that would-be sent with a request to /@uri@/.--If /@forHttp@/ is 'True', the return value will include cookies marked-\"HttpOnly\" (that is, cookies that the server wishes to keep hidden-from client-side scripting operations such as the JavaScript-document.cookies property). Since 'GI.Soup.Objects.CookieJar.CookieJar' sets the Cookie-header itself when making the actual HTTP request, you should-almost certainly be setting /@forHttp@/ to 'False' if you are calling-this.--/Since: 2.24/--}-cookieJarGetCookies ::-    (B.CallStack.HasCallStack, MonadIO m, IsCookieJar a) =>-    a-    {- ^ /@jar@/: a 'GI.Soup.Objects.CookieJar.CookieJar' -}-    -> Soup.URI.URI-    {- ^ /@uri@/: a 'GI.Soup.Structs.URI.URI' -}-    -> Bool-    {- ^ /@forHttp@/: whether or not the return value is being passed directly-to an HTTP operation -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ the cookies, in string form, or 'Nothing' if-there are no cookies for /@uri@/. -}-cookieJarGetCookies jar uri forHttp = liftIO $ do-    jar' <- unsafeManagedPtrCastPtr jar-    uri' <- unsafeManagedPtrGetPtr uri-    let forHttp' = (fromIntegral . fromEnum) forHttp-    result <- soup_cookie_jar_get_cookies jar' uri' forHttp'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        freeMem result'-        return result''-    touchManagedPtr jar-    touchManagedPtr uri-    return maybeResult--#if ENABLE_OVERLOADING-data CookieJarGetCookiesMethodInfo-instance (signature ~ (Soup.URI.URI -> Bool -> m (Maybe T.Text)), MonadIO m, IsCookieJar a) => O.MethodInfo CookieJarGetCookiesMethodInfo a signature where-    overloadedMethod _ = cookieJarGetCookies--#endif---- method CookieJar::is_persistent--- method type : OrdinaryMethod--- Args : [Arg {argCName = "jar", argType = TInterface (Name {namespace = "Soup", name = "CookieJar"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookieJar", sinceVersion = Nothing}, 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 ->                        -- jar : TInterface (Name {namespace = "Soup", name = "CookieJar"})-    IO CInt--{- |-Gets whether /@jar@/ stores cookies persistenly.--/Since: 2.40/--}-cookieJarIsPersistent ::-    (B.CallStack.HasCallStack, MonadIO m, IsCookieJar a) =>-    a-    {- ^ /@jar@/: a 'GI.Soup.Objects.CookieJar.CookieJar' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@jar@/ storage is persistent or 'False' otherwise. -}-cookieJarIsPersistent jar = liftIO $ do-    jar' <- unsafeManagedPtrCastPtr jar-    result <- soup_cookie_jar_is_persistent jar'-    let result' = (/= 0) result-    touchManagedPtr jar-    return result'--#if ENABLE_OVERLOADING-data CookieJarIsPersistentMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsCookieJar a) => O.MethodInfo CookieJarIsPersistentMethodInfo a signature where-    overloadedMethod _ = cookieJarIsPersistent--#endif---- method CookieJar::save--- method type : OrdinaryMethod--- Args : [Arg {argCName = "jar", argType = TInterface (Name {namespace = "Soup", name = "CookieJar"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookieJar", sinceVersion = Nothing}, 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 ->                        -- jar : TInterface (Name {namespace = "Soup", name = "CookieJar"})-    IO ()--{-# DEPRECATED cookieJarSave ["This is a no-op."] #-}-{- |-This function exists for backward compatibility, but does not do-anything any more; cookie jars are saved automatically when they-are changed.--/Since: 2.24/--}-cookieJarSave ::-    (B.CallStack.HasCallStack, MonadIO m, IsCookieJar a) =>-    a-    {- ^ /@jar@/: a 'GI.Soup.Objects.CookieJar.CookieJar' -}-    -> m ()-cookieJarSave jar = liftIO $ do-    jar' <- unsafeManagedPtrCastPtr jar-    soup_cookie_jar_save jar'-    touchManagedPtr jar-    return ()--#if ENABLE_OVERLOADING-data CookieJarSaveMethodInfo-instance (signature ~ (m ()), MonadIO m, IsCookieJar a) => O.MethodInfo CookieJarSaveMethodInfo a signature where-    overloadedMethod _ = cookieJarSave--#endif---- method CookieJar::set_accept_policy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "jar", argType = TInterface (Name {namespace = "Soup", name = "CookieJar"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookieJar", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "policy", argType = TInterface (Name {namespace = "Soup", name = "CookieJarAcceptPolicy"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookieJarAcceptPolicy", sinceVersion = Nothing}, 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 ->                        -- jar : TInterface (Name {namespace = "Soup", name = "CookieJar"})-    CUInt ->                                -- policy : TInterface (Name {namespace = "Soup", name = "CookieJarAcceptPolicy"})-    IO ()--{- |-Sets /@policy@/ as the cookie acceptance policy for /@jar@/.--/Since: 2.30/--}-cookieJarSetAcceptPolicy ::-    (B.CallStack.HasCallStack, MonadIO m, IsCookieJar a) =>-    a-    {- ^ /@jar@/: a 'GI.Soup.Objects.CookieJar.CookieJar' -}-    -> Soup.Enums.CookieJarAcceptPolicy-    {- ^ /@policy@/: a 'GI.Soup.Enums.CookieJarAcceptPolicy' -}-    -> m ()-cookieJarSetAcceptPolicy jar policy = liftIO $ do-    jar' <- unsafeManagedPtrCastPtr jar-    let policy' = (fromIntegral . fromEnum) policy-    soup_cookie_jar_set_accept_policy jar' policy'-    touchManagedPtr jar-    return ()--#if ENABLE_OVERLOADING-data CookieJarSetAcceptPolicyMethodInfo-instance (signature ~ (Soup.Enums.CookieJarAcceptPolicy -> m ()), MonadIO m, IsCookieJar a) => O.MethodInfo CookieJarSetAcceptPolicyMethodInfo a signature where-    overloadedMethod _ = cookieJarSetAcceptPolicy--#endif---- method CookieJar::set_cookie--- method type : OrdinaryMethod--- Args : [Arg {argCName = "jar", argType = TInterface (Name {namespace = "Soup", name = "CookieJar"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookieJar", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the URI setting the cookie", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the stringified cookie to set", sinceVersion = Nothing}, 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 ->                        -- jar : TInterface (Name {namespace = "Soup", name = "CookieJar"})-    Ptr Soup.URI.URI ->                     -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    CString ->                              -- cookie : TBasicType TUTF8-    IO ()--{- |-Adds /@cookie@/ to /@jar@/, exactly as though it had appeared in a-Set-Cookie header returned from a request to /@uri@/.--Keep in mind that if the 'GI.Soup.Enums.CookieJarAcceptPolicy'-'GI.Soup.Enums.CookieJarAcceptPolicyNoThirdParty' is set you\'ll need to use-'GI.Soup.Objects.CookieJar.cookieJarSetCookieWithFirstParty', otherwise the jar-will have no way of knowing if the cookie is being set by a third-party or not.--/Since: 2.24/--}-cookieJarSetCookie ::-    (B.CallStack.HasCallStack, MonadIO m, IsCookieJar a) =>-    a-    {- ^ /@jar@/: a 'GI.Soup.Objects.CookieJar.CookieJar' -}-    -> Soup.URI.URI-    {- ^ /@uri@/: the URI setting the cookie -}-    -> T.Text-    {- ^ /@cookie@/: the stringified cookie to set -}-    -> m ()-cookieJarSetCookie jar uri cookie = liftIO $ do-    jar' <- unsafeManagedPtrCastPtr jar-    uri' <- unsafeManagedPtrGetPtr uri-    cookie' <- textToCString cookie-    soup_cookie_jar_set_cookie jar' uri' cookie'-    touchManagedPtr jar-    touchManagedPtr uri-    freeMem cookie'-    return ()--#if ENABLE_OVERLOADING-data CookieJarSetCookieMethodInfo-instance (signature ~ (Soup.URI.URI -> T.Text -> m ()), MonadIO m, IsCookieJar a) => O.MethodInfo CookieJarSetCookieMethodInfo a signature where-    overloadedMethod _ = cookieJarSetCookie--#endif---- method CookieJar::set_cookie_with_first_party--- method type : OrdinaryMethod--- Args : [Arg {argCName = "jar", argType = TInterface (Name {namespace = "Soup", name = "CookieJar"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookieJar", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the URI setting the cookie", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "first_party", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the URI for the main document", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the stringified cookie to set", sinceVersion = Nothing}, 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 ->                        -- jar : TInterface (Name {namespace = "Soup", name = "CookieJar"})-    Ptr Soup.URI.URI ->                     -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    Ptr Soup.URI.URI ->                     -- first_party : TInterface (Name {namespace = "Soup", name = "URI"})-    CString ->                              -- cookie : TBasicType TUTF8-    IO ()--{- |-Adds /@cookie@/ to /@jar@/, exactly as though it had appeared in a-Set-Cookie header returned from a request to /@uri@/. /@firstParty@/-will be used to reject cookies coming from third party resources in-case such a security policy is set in the /@jar@/.--/Since: 2.30/--}-cookieJarSetCookieWithFirstParty ::-    (B.CallStack.HasCallStack, MonadIO m, IsCookieJar a) =>-    a-    {- ^ /@jar@/: a 'GI.Soup.Objects.CookieJar.CookieJar' -}-    -> Soup.URI.URI-    {- ^ /@uri@/: the URI setting the cookie -}-    -> Soup.URI.URI-    {- ^ /@firstParty@/: the URI for the main document -}-    -> T.Text-    {- ^ /@cookie@/: the stringified cookie to set -}-    -> m ()-cookieJarSetCookieWithFirstParty jar uri firstParty cookie = liftIO $ do-    jar' <- unsafeManagedPtrCastPtr jar-    uri' <- unsafeManagedPtrGetPtr uri-    firstParty' <- unsafeManagedPtrGetPtr firstParty-    cookie' <- textToCString cookie-    soup_cookie_jar_set_cookie_with_first_party jar' uri' firstParty' cookie'-    touchManagedPtr jar-    touchManagedPtr uri-    touchManagedPtr firstParty-    freeMem cookie'-    return ()--#if ENABLE_OVERLOADING-data CookieJarSetCookieWithFirstPartyMethodInfo-instance (signature ~ (Soup.URI.URI -> Soup.URI.URI -> T.Text -> m ()), MonadIO m, IsCookieJar a) => O.MethodInfo CookieJarSetCookieWithFirstPartyMethodInfo a signature where-    overloadedMethod _ = cookieJarSetCookieWithFirstParty--#endif--
− GI/Soup/Objects/CookieJar.hs-boot 
@@ -1,74 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Objects.CookieJar where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype CookieJar = CookieJar (ManagedPtr CookieJar)-instance GObject CookieJar where-class (GObject o, O.IsDescendantOf CookieJar o) => IsCookieJar o-instance (GObject o, O.IsDescendantOf CookieJar o) => IsCookieJar o-instance O.HasParentTypes CookieJar-#if ENABLE_OVERLOADING-data CookieJarAcceptPolicyPropertyInfo-#endif-#if ENABLE_OVERLOADING-data CookieJarReadOnlyPropertyInfo-#endif-#if ENABLE_OVERLOADING-data CookieJarChangedSignalInfo-#endif-#if ENABLE_OVERLOADING-data CookieJarAddCookieMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieJarAddCookieWithFirstPartyMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieJarAllCookiesMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieJarDeleteCookieMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieJarGetAcceptPolicyMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieJarGetCookieListMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieJarGetCookiesMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieJarIsPersistentMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieJarSaveMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieJarSetAcceptPolicyMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieJarSetCookieMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieJarSetCookieWithFirstPartyMethodInfo-#endif
− GI/Soup/Objects/CookieJarDB.hs 
@@ -1,249 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Objects.CookieJarDB-    ( ---- * Exported types-    CookieJarDB(..)                         ,-    IsCookieJarDB                           ,-    toCookieJarDB                           ,-    noCookieJarDB                           ,--- -- * Methods--- ** new #method:new#--    cookieJarDBNew                          ,----- -- * Properties--- ** filename #attr:filename#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    CookieJarDBFilenamePropertyInfo         ,-#endif-    constructCookieJarDBFilename            ,-#if ENABLE_OVERLOADING-    cookieJarDBFilename                     ,-#endif-    getCookieJarDBFilename                  ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Soup.Interfaces.SessionFeature as Soup.SessionFeature-import {-# SOURCE #-} qualified GI.Soup.Objects.CookieJar as Soup.CookieJar---- | Memory-managed wrapper type.-newtype CookieJarDB = CookieJarDB (ManagedPtr CookieJarDB)-foreign import ccall "soup_cookie_jar_db_get_type"-    c_soup_cookie_jar_db_get_type :: IO GType--instance GObject CookieJarDB where-    gobjectType = c_soup_cookie_jar_db_get_type-    ---- | Type class for types which can be safely cast to `CookieJarDB`, for instance with `toCookieJarDB`.-class (GObject o, O.IsDescendantOf CookieJarDB o) => IsCookieJarDB o-instance (GObject o, O.IsDescendantOf CookieJarDB o) => IsCookieJarDB o--instance O.HasParentTypes CookieJarDB-type instance O.ParentTypes CookieJarDB = '[Soup.CookieJar.CookieJar, GObject.Object.Object, Soup.SessionFeature.SessionFeature]---- | Cast to `CookieJarDB`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toCookieJarDB :: (MonadIO m, IsCookieJarDB o) => o -> m CookieJarDB-toCookieJarDB = liftIO . unsafeCastTo CookieJarDB---- | A convenience alias for `Nothing` :: `Maybe` `CookieJarDB`.-noCookieJarDB :: Maybe CookieJarDB-noCookieJarDB = Nothing--#if ENABLE_OVERLOADING-type family ResolveCookieJarDBMethod (t :: Symbol) (o :: *) :: * where-    ResolveCookieJarDBMethod "addCookie" o = Soup.CookieJar.CookieJarAddCookieMethodInfo-    ResolveCookieJarDBMethod "addCookieWithFirstParty" o = Soup.CookieJar.CookieJarAddCookieWithFirstPartyMethodInfo-    ResolveCookieJarDBMethod "addFeature" o = Soup.SessionFeature.SessionFeatureAddFeatureMethodInfo-    ResolveCookieJarDBMethod "allCookies" o = Soup.CookieJar.CookieJarAllCookiesMethodInfo-    ResolveCookieJarDBMethod "attach" o = Soup.SessionFeature.SessionFeatureAttachMethodInfo-    ResolveCookieJarDBMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveCookieJarDBMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveCookieJarDBMethod "deleteCookie" o = Soup.CookieJar.CookieJarDeleteCookieMethodInfo-    ResolveCookieJarDBMethod "detach" o = Soup.SessionFeature.SessionFeatureDetachMethodInfo-    ResolveCookieJarDBMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveCookieJarDBMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveCookieJarDBMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveCookieJarDBMethod "hasFeature" o = Soup.SessionFeature.SessionFeatureHasFeatureMethodInfo-    ResolveCookieJarDBMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveCookieJarDBMethod "isPersistent" o = Soup.CookieJar.CookieJarIsPersistentMethodInfo-    ResolveCookieJarDBMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveCookieJarDBMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveCookieJarDBMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveCookieJarDBMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveCookieJarDBMethod "removeFeature" o = Soup.SessionFeature.SessionFeatureRemoveFeatureMethodInfo-    ResolveCookieJarDBMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveCookieJarDBMethod "save" o = Soup.CookieJar.CookieJarSaveMethodInfo-    ResolveCookieJarDBMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveCookieJarDBMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveCookieJarDBMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveCookieJarDBMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveCookieJarDBMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveCookieJarDBMethod "getAcceptPolicy" o = Soup.CookieJar.CookieJarGetAcceptPolicyMethodInfo-    ResolveCookieJarDBMethod "getCookieList" o = Soup.CookieJar.CookieJarGetCookieListMethodInfo-    ResolveCookieJarDBMethod "getCookies" o = Soup.CookieJar.CookieJarGetCookiesMethodInfo-    ResolveCookieJarDBMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveCookieJarDBMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveCookieJarDBMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveCookieJarDBMethod "setAcceptPolicy" o = Soup.CookieJar.CookieJarSetAcceptPolicyMethodInfo-    ResolveCookieJarDBMethod "setCookie" o = Soup.CookieJar.CookieJarSetCookieMethodInfo-    ResolveCookieJarDBMethod "setCookieWithFirstParty" o = Soup.CookieJar.CookieJarSetCookieWithFirstPartyMethodInfo-    ResolveCookieJarDBMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveCookieJarDBMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveCookieJarDBMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveCookieJarDBMethod t CookieJarDB, O.MethodInfo info CookieJarDB p) => OL.IsLabel t (CookieJarDB -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif---- VVV Prop "filename"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@filename@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' cookieJarDB #filename-@--}-getCookieJarDBFilename :: (MonadIO m, IsCookieJarDB o) => o -> m (Maybe T.Text)-getCookieJarDBFilename obj = liftIO $ B.Properties.getObjectPropertyString obj "filename"--{- |-Construct a `GValueConstruct` with valid value for the “@filename@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructCookieJarDBFilename :: (IsCookieJarDB o) => T.Text -> IO (GValueConstruct o)-constructCookieJarDBFilename val = B.Properties.constructObjectPropertyString "filename" (Just val)--#if ENABLE_OVERLOADING-data CookieJarDBFilenamePropertyInfo-instance AttrInfo CookieJarDBFilenamePropertyInfo where-    type AttrAllowedOps CookieJarDBFilenamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint CookieJarDBFilenamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint CookieJarDBFilenamePropertyInfo = IsCookieJarDB-    type AttrGetType CookieJarDBFilenamePropertyInfo = (Maybe T.Text)-    type AttrLabel CookieJarDBFilenamePropertyInfo = "filename"-    type AttrOrigin CookieJarDBFilenamePropertyInfo = CookieJarDB-    attrGet _ = getCookieJarDBFilename-    attrSet _ = undefined-    attrConstruct _ = constructCookieJarDBFilename-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList CookieJarDB-type instance O.AttributeList CookieJarDB = CookieJarDBAttributeList-type CookieJarDBAttributeList = ('[ '("acceptPolicy", Soup.CookieJar.CookieJarAcceptPolicyPropertyInfo), '("filename", CookieJarDBFilenamePropertyInfo), '("readOnly", Soup.CookieJar.CookieJarReadOnlyPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-cookieJarDBFilename :: AttrLabelProxy "filename"-cookieJarDBFilename = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList CookieJarDB = CookieJarDBSignalList-type CookieJarDBSignalList = ('[ '("changed", Soup.CookieJar.CookieJarChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method CookieJarDB::new--- method type : Constructor--- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the filename to read to/write from, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "read_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if @filename is read-only", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "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)--{- |-Creates a 'GI.Soup.Objects.CookieJarDB.CookieJarDB'.--/@filename@/ will be read in at startup to create an initial set of-cookies. If /@readOnly@/ is 'False', then the non-session cookies will-be written to /@filename@/ when the \'changed\' signal is emitted from-the jar. (If /@readOnly@/ is 'True', then the cookie jar will only be-used for this session, and changes made to it will be lost when the-jar is destroyed.)--/Since: 2.42/--}-cookieJarDBNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@filename@/: the filename to read to\/write from, or 'Nothing' -}-    -> Bool-    {- ^ /@readOnly@/: 'True' if /@filename@/ is read-only -}-    -> m CookieJarDB-    {- ^ __Returns:__ the new 'GI.Soup.Objects.CookieJar.CookieJar' -}-cookieJarDBNew filename readOnly = liftIO $ do-    filename' <- textToCString filename-    let readOnly' = (fromIntegral . fromEnum) readOnly-    result <- soup_cookie_jar_db_new filename' readOnly'-    checkUnexpectedReturnNULL "cookieJarDBNew" result-    result' <- (wrapObject CookieJarDB) result-    freeMem filename'-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/Soup/Objects/CookieJarDB.hs-boot 
@@ -1,32 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Objects.CookieJarDB where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype CookieJarDB = CookieJarDB (ManagedPtr CookieJarDB)-instance GObject CookieJarDB where-class (GObject o, O.IsDescendantOf CookieJarDB o) => IsCookieJarDB o-instance (GObject o, O.IsDescendantOf CookieJarDB o) => IsCookieJarDB o-instance O.HasParentTypes CookieJarDB-#if ENABLE_OVERLOADING-data CookieJarDBFilenamePropertyInfo-#endif
− GI/Soup/Objects/CookieJarText.hs 
@@ -1,249 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Objects.CookieJarText-    ( ---- * Exported types-    CookieJarText(..)                       ,-    IsCookieJarText                         ,-    toCookieJarText                         ,-    noCookieJarText                         ,--- -- * Methods--- ** new #method:new#--    cookieJarTextNew                        ,----- -- * Properties--- ** filename #attr:filename#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    CookieJarTextFilenamePropertyInfo       ,-#endif-    constructCookieJarTextFilename          ,-#if ENABLE_OVERLOADING-    cookieJarTextFilename                   ,-#endif-    getCookieJarTextFilename                ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Soup.Interfaces.SessionFeature as Soup.SessionFeature-import {-# SOURCE #-} qualified GI.Soup.Objects.CookieJar as Soup.CookieJar---- | Memory-managed wrapper type.-newtype CookieJarText = CookieJarText (ManagedPtr CookieJarText)-foreign import ccall "soup_cookie_jar_text_get_type"-    c_soup_cookie_jar_text_get_type :: IO GType--instance GObject CookieJarText where-    gobjectType = c_soup_cookie_jar_text_get_type-    ---- | Type class for types which can be safely cast to `CookieJarText`, for instance with `toCookieJarText`.-class (GObject o, O.IsDescendantOf CookieJarText o) => IsCookieJarText o-instance (GObject o, O.IsDescendantOf CookieJarText o) => IsCookieJarText o--instance O.HasParentTypes CookieJarText-type instance O.ParentTypes CookieJarText = '[Soup.CookieJar.CookieJar, GObject.Object.Object, Soup.SessionFeature.SessionFeature]---- | Cast to `CookieJarText`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toCookieJarText :: (MonadIO m, IsCookieJarText o) => o -> m CookieJarText-toCookieJarText = liftIO . unsafeCastTo CookieJarText---- | A convenience alias for `Nothing` :: `Maybe` `CookieJarText`.-noCookieJarText :: Maybe CookieJarText-noCookieJarText = Nothing--#if ENABLE_OVERLOADING-type family ResolveCookieJarTextMethod (t :: Symbol) (o :: *) :: * where-    ResolveCookieJarTextMethod "addCookie" o = Soup.CookieJar.CookieJarAddCookieMethodInfo-    ResolveCookieJarTextMethod "addCookieWithFirstParty" o = Soup.CookieJar.CookieJarAddCookieWithFirstPartyMethodInfo-    ResolveCookieJarTextMethod "addFeature" o = Soup.SessionFeature.SessionFeatureAddFeatureMethodInfo-    ResolveCookieJarTextMethod "allCookies" o = Soup.CookieJar.CookieJarAllCookiesMethodInfo-    ResolveCookieJarTextMethod "attach" o = Soup.SessionFeature.SessionFeatureAttachMethodInfo-    ResolveCookieJarTextMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveCookieJarTextMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveCookieJarTextMethod "deleteCookie" o = Soup.CookieJar.CookieJarDeleteCookieMethodInfo-    ResolveCookieJarTextMethod "detach" o = Soup.SessionFeature.SessionFeatureDetachMethodInfo-    ResolveCookieJarTextMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveCookieJarTextMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveCookieJarTextMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveCookieJarTextMethod "hasFeature" o = Soup.SessionFeature.SessionFeatureHasFeatureMethodInfo-    ResolveCookieJarTextMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveCookieJarTextMethod "isPersistent" o = Soup.CookieJar.CookieJarIsPersistentMethodInfo-    ResolveCookieJarTextMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveCookieJarTextMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveCookieJarTextMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveCookieJarTextMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveCookieJarTextMethod "removeFeature" o = Soup.SessionFeature.SessionFeatureRemoveFeatureMethodInfo-    ResolveCookieJarTextMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveCookieJarTextMethod "save" o = Soup.CookieJar.CookieJarSaveMethodInfo-    ResolveCookieJarTextMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveCookieJarTextMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveCookieJarTextMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveCookieJarTextMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveCookieJarTextMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveCookieJarTextMethod "getAcceptPolicy" o = Soup.CookieJar.CookieJarGetAcceptPolicyMethodInfo-    ResolveCookieJarTextMethod "getCookieList" o = Soup.CookieJar.CookieJarGetCookieListMethodInfo-    ResolveCookieJarTextMethod "getCookies" o = Soup.CookieJar.CookieJarGetCookiesMethodInfo-    ResolveCookieJarTextMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveCookieJarTextMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveCookieJarTextMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveCookieJarTextMethod "setAcceptPolicy" o = Soup.CookieJar.CookieJarSetAcceptPolicyMethodInfo-    ResolveCookieJarTextMethod "setCookie" o = Soup.CookieJar.CookieJarSetCookieMethodInfo-    ResolveCookieJarTextMethod "setCookieWithFirstParty" o = Soup.CookieJar.CookieJarSetCookieWithFirstPartyMethodInfo-    ResolveCookieJarTextMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveCookieJarTextMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveCookieJarTextMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveCookieJarTextMethod t CookieJarText, O.MethodInfo info CookieJarText p) => OL.IsLabel t (CookieJarText -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif---- VVV Prop "filename"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@filename@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' cookieJarText #filename-@--}-getCookieJarTextFilename :: (MonadIO m, IsCookieJarText o) => o -> m (Maybe T.Text)-getCookieJarTextFilename obj = liftIO $ B.Properties.getObjectPropertyString obj "filename"--{- |-Construct a `GValueConstruct` with valid value for the “@filename@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructCookieJarTextFilename :: (IsCookieJarText o) => T.Text -> IO (GValueConstruct o)-constructCookieJarTextFilename val = B.Properties.constructObjectPropertyString "filename" (Just val)--#if ENABLE_OVERLOADING-data CookieJarTextFilenamePropertyInfo-instance AttrInfo CookieJarTextFilenamePropertyInfo where-    type AttrAllowedOps CookieJarTextFilenamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint CookieJarTextFilenamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint CookieJarTextFilenamePropertyInfo = IsCookieJarText-    type AttrGetType CookieJarTextFilenamePropertyInfo = (Maybe T.Text)-    type AttrLabel CookieJarTextFilenamePropertyInfo = "filename"-    type AttrOrigin CookieJarTextFilenamePropertyInfo = CookieJarText-    attrGet _ = getCookieJarTextFilename-    attrSet _ = undefined-    attrConstruct _ = constructCookieJarTextFilename-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList CookieJarText-type instance O.AttributeList CookieJarText = CookieJarTextAttributeList-type CookieJarTextAttributeList = ('[ '("acceptPolicy", Soup.CookieJar.CookieJarAcceptPolicyPropertyInfo), '("filename", CookieJarTextFilenamePropertyInfo), '("readOnly", Soup.CookieJar.CookieJarReadOnlyPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-cookieJarTextFilename :: AttrLabelProxy "filename"-cookieJarTextFilename = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList CookieJarText = CookieJarTextSignalList-type CookieJarTextSignalList = ('[ '("changed", Soup.CookieJar.CookieJarChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method CookieJarText::new--- method type : Constructor--- Args : [Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the filename to read to/write from", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "read_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "%TRUE if @filename is read-only", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "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)--{- |-Creates a 'GI.Soup.Objects.CookieJarText.CookieJarText'.--/@filename@/ will be read in at startup to create an initial set of-cookies. If /@readOnly@/ is 'False', then the non-session cookies will-be written to /@filename@/ when the \'changed\' signal is emitted from-the jar. (If /@readOnly@/ is 'True', then the cookie jar will only be-used for this session, and changes made to it will be lost when the-jar is destroyed.)--/Since: 2.26/--}-cookieJarTextNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@filename@/: the filename to read to\/write from -}-    -> Bool-    {- ^ /@readOnly@/: 'True' if /@filename@/ is read-only -}-    -> m CookieJarText-    {- ^ __Returns:__ the new 'GI.Soup.Objects.CookieJar.CookieJar' -}-cookieJarTextNew filename readOnly = liftIO $ do-    filename' <- textToCString filename-    let readOnly' = (fromIntegral . fromEnum) readOnly-    result <- soup_cookie_jar_text_new filename' readOnly'-    checkUnexpectedReturnNULL "cookieJarTextNew" result-    result' <- (wrapObject CookieJarText) result-    freeMem filename'-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/Soup/Objects/CookieJarText.hs-boot 
@@ -1,32 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Objects.CookieJarText where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype CookieJarText = CookieJarText (ManagedPtr CookieJarText)-instance GObject CookieJarText where-class (GObject o, O.IsDescendantOf CookieJarText o) => IsCookieJarText o-instance (GObject o, O.IsDescendantOf CookieJarText o) => IsCookieJarText o-instance O.HasParentTypes CookieJarText-#if ENABLE_OVERLOADING-data CookieJarTextFilenamePropertyInfo-#endif
− GI/Soup/Objects/Logger.hs 
@@ -1,576 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Objects.Logger-    ( ---- * Exported types-    Logger(..)                              ,-    IsLogger                                ,-    toLogger                                ,-    noLogger                                ,--- -- * Methods--- ** attach #method:attach#--#if ENABLE_OVERLOADING-    LoggerAttachMethodInfo                  ,-#endif-    loggerAttach                            ,----- ** detach #method:detach#--#if ENABLE_OVERLOADING-    LoggerDetachMethodInfo                  ,-#endif-    loggerDetach                            ,----- ** new #method:new#--    loggerNew                               ,----- ** setPrinter #method:setPrinter#--#if ENABLE_OVERLOADING-    LoggerSetPrinterMethodInfo              ,-#endif-    loggerSetPrinter                        ,----- ** setRequestFilter #method:setRequestFilter#--#if ENABLE_OVERLOADING-    LoggerSetRequestFilterMethodInfo        ,-#endif-    loggerSetRequestFilter                  ,----- ** setResponseFilter #method:setResponseFilter#--#if ENABLE_OVERLOADING-    LoggerSetResponseFilterMethodInfo       ,-#endif-    loggerSetResponseFilter                 ,----- -- * Properties--- ** level #attr:level#-{- | The level of logging output--/Since: 2.56/--}-#if ENABLE_OVERLOADING-    LoggerLevelPropertyInfo                 ,-#endif-    constructLoggerLevel                    ,-    getLoggerLevel                          ,-#if ENABLE_OVERLOADING-    loggerLevel                             ,-#endif-    setLoggerLevel                          ,----- ** maxBodySize #attr:maxBodySize#-{- | If 'GI.Soup.Objects.Logger.Logger':@/level/@ is 'GI.Soup.Enums.LoggerLogLevelBody', this gives-the maximum number of bytes of the body that will be logged.-(-1 means \"no limit\".)--/Since: 2.56/--}-#if ENABLE_OVERLOADING-    LoggerMaxBodySizePropertyInfo           ,-#endif-    constructLoggerMaxBodySize              ,-    getLoggerMaxBodySize                    ,-#if ENABLE_OVERLOADING-    loggerMaxBodySize                       ,-#endif-    setLoggerMaxBodySize                    ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GLib.Callbacks as GLib.Callbacks-import qualified GI.GObject.Objects.Object as GObject.Object-import qualified GI.Soup.Callbacks as Soup.Callbacks-import {-# SOURCE #-} qualified GI.Soup.Enums as Soup.Enums-import {-# SOURCE #-} qualified GI.Soup.Interfaces.SessionFeature as Soup.SessionFeature-import {-# SOURCE #-} qualified GI.Soup.Objects.Session as Soup.Session---- | Memory-managed wrapper type.-newtype Logger = Logger (ManagedPtr Logger)-foreign import ccall "soup_logger_get_type"-    c_soup_logger_get_type :: IO GType--instance GObject Logger where-    gobjectType = c_soup_logger_get_type-    ---- | Type class for types which can be safely cast to `Logger`, for instance with `toLogger`.-class (GObject o, O.IsDescendantOf Logger o) => IsLogger o-instance (GObject o, O.IsDescendantOf Logger o) => IsLogger o--instance O.HasParentTypes Logger-type instance O.ParentTypes Logger = '[GObject.Object.Object, Soup.SessionFeature.SessionFeature]---- | Cast to `Logger`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toLogger :: (MonadIO m, IsLogger o) => o -> m Logger-toLogger = liftIO . unsafeCastTo Logger---- | A convenience alias for `Nothing` :: `Maybe` `Logger`.-noLogger :: Maybe Logger-noLogger = Nothing--#if ENABLE_OVERLOADING-type family ResolveLoggerMethod (t :: Symbol) (o :: *) :: * where-    ResolveLoggerMethod "addFeature" o = Soup.SessionFeature.SessionFeatureAddFeatureMethodInfo-    ResolveLoggerMethod "attach" o = LoggerAttachMethodInfo-    ResolveLoggerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveLoggerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveLoggerMethod "detach" o = LoggerDetachMethodInfo-    ResolveLoggerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveLoggerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveLoggerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveLoggerMethod "hasFeature" o = Soup.SessionFeature.SessionFeatureHasFeatureMethodInfo-    ResolveLoggerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveLoggerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveLoggerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveLoggerMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveLoggerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveLoggerMethod "removeFeature" o = Soup.SessionFeature.SessionFeatureRemoveFeatureMethodInfo-    ResolveLoggerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveLoggerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveLoggerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveLoggerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveLoggerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveLoggerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveLoggerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveLoggerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveLoggerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveLoggerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveLoggerMethod "setPrinter" o = LoggerSetPrinterMethodInfo-    ResolveLoggerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveLoggerMethod "setRequestFilter" o = LoggerSetRequestFilterMethodInfo-    ResolveLoggerMethod "setResponseFilter" o = LoggerSetResponseFilterMethodInfo-    ResolveLoggerMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveLoggerMethod t Logger, O.MethodInfo info Logger p) => OL.IsLabel t (Logger -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif---- VVV Prop "level"-   -- Type: TInterface (Name {namespace = "Soup", name = "LoggerLogLevel"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@level@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' logger #level-@--}-getLoggerLevel :: (MonadIO m, IsLogger o) => o -> m Soup.Enums.LoggerLogLevel-getLoggerLevel obj = liftIO $ B.Properties.getObjectPropertyEnum obj "level"--{- |-Set the value of the “@level@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' logger [ #level 'Data.GI.Base.Attributes.:=' value ]-@--}-setLoggerLevel :: (MonadIO m, IsLogger o) => o -> Soup.Enums.LoggerLogLevel -> m ()-setLoggerLevel obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "level" val--{- |-Construct a `GValueConstruct` with valid value for the “@level@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructLoggerLevel :: (IsLogger o) => Soup.Enums.LoggerLogLevel -> IO (GValueConstruct o)-constructLoggerLevel val = B.Properties.constructObjectPropertyEnum "level" val--#if ENABLE_OVERLOADING-data LoggerLevelPropertyInfo-instance AttrInfo LoggerLevelPropertyInfo where-    type AttrAllowedOps LoggerLevelPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint LoggerLevelPropertyInfo = (~) Soup.Enums.LoggerLogLevel-    type AttrBaseTypeConstraint LoggerLevelPropertyInfo = IsLogger-    type AttrGetType LoggerLevelPropertyInfo = Soup.Enums.LoggerLogLevel-    type AttrLabel LoggerLevelPropertyInfo = "level"-    type AttrOrigin LoggerLevelPropertyInfo = Logger-    attrGet _ = getLoggerLevel-    attrSet _ = setLoggerLevel-    attrConstruct _ = constructLoggerLevel-    attrClear _ = undefined-#endif---- VVV Prop "max-body-size"-   -- Type: TBasicType TInt-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@max-body-size@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' logger #maxBodySize-@--}-getLoggerMaxBodySize :: (MonadIO m, IsLogger o) => o -> m Int32-getLoggerMaxBodySize obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "max-body-size"--{- |-Set the value of the “@max-body-size@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' logger [ #maxBodySize 'Data.GI.Base.Attributes.:=' value ]-@--}-setLoggerMaxBodySize :: (MonadIO m, IsLogger o) => o -> Int32 -> m ()-setLoggerMaxBodySize obj val = liftIO $ B.Properties.setObjectPropertyInt32 obj "max-body-size" val--{- |-Construct a `GValueConstruct` with valid value for the “@max-body-size@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructLoggerMaxBodySize :: (IsLogger o) => Int32 -> IO (GValueConstruct o)-constructLoggerMaxBodySize val = B.Properties.constructObjectPropertyInt32 "max-body-size" val--#if ENABLE_OVERLOADING-data LoggerMaxBodySizePropertyInfo-instance AttrInfo LoggerMaxBodySizePropertyInfo where-    type AttrAllowedOps LoggerMaxBodySizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint LoggerMaxBodySizePropertyInfo = (~) Int32-    type AttrBaseTypeConstraint LoggerMaxBodySizePropertyInfo = IsLogger-    type AttrGetType LoggerMaxBodySizePropertyInfo = Int32-    type AttrLabel LoggerMaxBodySizePropertyInfo = "max-body-size"-    type AttrOrigin LoggerMaxBodySizePropertyInfo = Logger-    attrGet _ = getLoggerMaxBodySize-    attrSet _ = setLoggerMaxBodySize-    attrConstruct _ = constructLoggerMaxBodySize-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList Logger-type instance O.AttributeList Logger = LoggerAttributeList-type LoggerAttributeList = ('[ '("level", LoggerLevelPropertyInfo), '("maxBodySize", LoggerMaxBodySizePropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-loggerLevel :: AttrLabelProxy "level"-loggerLevel = AttrLabelProxy--loggerMaxBodySize :: AttrLabelProxy "maxBodySize"-loggerMaxBodySize = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList Logger = LoggerSignalList-type LoggerSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method Logger::new--- method type : Constructor--- Args : [Arg {argCName = "level", argType = TInterface (Name {namespace = "Soup", name = "LoggerLogLevel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the debug level", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_body_size", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the maximum body size to output, or -1", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Logger"}))--- throws : False--- Skip return : False--foreign import ccall "soup_logger_new" soup_logger_new :: -    CUInt ->                                -- level : TInterface (Name {namespace = "Soup", name = "LoggerLogLevel"})-    Int32 ->                                -- max_body_size : TBasicType TInt-    IO (Ptr Logger)--{- |-Creates a new 'GI.Soup.Objects.Logger.Logger' with the given debug level. If /@level@/ is-'GI.Soup.Enums.LoggerLogLevelBody', /@maxBodySize@/ gives the maximum number of-bytes of the body that will be logged. (-1 means \"no limit\".)--If you need finer control over what message parts are and aren\'t-logged, use 'GI.Soup.Objects.Logger.loggerSetRequestFilter' and-'GI.Soup.Objects.Logger.loggerSetResponseFilter'.--}-loggerNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Soup.Enums.LoggerLogLevel-    {- ^ /@level@/: the debug level -}-    -> Int32-    {- ^ /@maxBodySize@/: the maximum body size to output, or -1 -}-    -> m Logger-    {- ^ __Returns:__ a new 'GI.Soup.Objects.Logger.Logger' -}-loggerNew level maxBodySize = liftIO $ do-    let level' = (fromIntegral . fromEnum) level-    result <- soup_logger_new level' maxBodySize-    checkUnexpectedReturnNULL "loggerNew" result-    result' <- (wrapObject Logger) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method Logger::attach--- method type : OrdinaryMethod--- Args : [Arg {argCName = "logger", argType = TInterface (Name {namespace = "Soup", name = "Logger"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupLogger", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, 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 ->                           -- logger : TInterface (Name {namespace = "Soup", name = "Logger"})-    Ptr Soup.Session.Session ->             -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    IO ()--{-# DEPRECATED loggerAttach ["Use 'GI.Soup.Objects.Session.sessionAddFeature' instead."] #-}-{- |-Sets /@logger@/ to watch /@session@/ and print debug information for-its messages.--(The session will take a reference on /@logger@/, which will be-removed when you call 'GI.Soup.Objects.Logger.loggerDetach', or when the session is-destroyed.)--}-loggerAttach ::-    (B.CallStack.HasCallStack, MonadIO m, IsLogger a, Soup.Session.IsSession b) =>-    a-    {- ^ /@logger@/: a 'GI.Soup.Objects.Logger.Logger' -}-    -> b-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> m ()-loggerAttach logger session = liftIO $ do-    logger' <- unsafeManagedPtrCastPtr logger-    session' <- unsafeManagedPtrCastPtr session-    soup_logger_attach logger' session'-    touchManagedPtr logger-    touchManagedPtr session-    return ()--#if ENABLE_OVERLOADING-data LoggerAttachMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsLogger a, Soup.Session.IsSession b) => O.MethodInfo LoggerAttachMethodInfo a signature where-    overloadedMethod _ = loggerAttach--#endif---- method Logger::detach--- method type : OrdinaryMethod--- Args : [Arg {argCName = "logger", argType = TInterface (Name {namespace = "Soup", name = "Logger"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupLogger", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, 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 ->                           -- logger : TInterface (Name {namespace = "Soup", name = "Logger"})-    Ptr Soup.Session.Session ->             -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    IO ()--{-# DEPRECATED loggerDetach ["Use 'GI.Soup.Objects.Session.sessionRemoveFeature' instead."] #-}-{- |-Stops /@logger@/ from watching /@session@/.--}-loggerDetach ::-    (B.CallStack.HasCallStack, MonadIO m, IsLogger a, Soup.Session.IsSession b) =>-    a-    {- ^ /@logger@/: a 'GI.Soup.Objects.Logger.Logger' -}-    -> b-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> m ()-loggerDetach logger session = liftIO $ do-    logger' <- unsafeManagedPtrCastPtr logger-    session' <- unsafeManagedPtrCastPtr session-    soup_logger_detach logger' session'-    touchManagedPtr logger-    touchManagedPtr session-    return ()--#if ENABLE_OVERLOADING-data LoggerDetachMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsLogger a, Soup.Session.IsSession b) => O.MethodInfo LoggerDetachMethodInfo a signature where-    overloadedMethod _ = loggerDetach--#endif---- method Logger::set_printer--- method type : OrdinaryMethod--- Args : [Arg {argCName = "logger", argType = TInterface (Name {namespace = "Soup", name = "Logger"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupLogger", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "printer", argType = TInterface (Name {namespace = "Soup", name = "LoggerPrinter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the callback for printing logging output", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "printer_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data to pass to the callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDestroyNotify to free @printer_data", sinceVersion = Nothing}, 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 ->                           -- logger : TInterface (Name {namespace = "Soup", name = "Logger"})-    FunPtr Soup.Callbacks.C_LoggerPrinter -> -- printer : TInterface (Name {namespace = "Soup", name = "LoggerPrinter"})-    Ptr () ->                               -- printer_data : TBasicType TPtr-    FunPtr GLib.Callbacks.C_DestroyNotify -> -- destroy : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})-    IO ()--{- |-Sets up an alternate log printing routine, if you don\'t want-the log to go to \<literal>stdout\<\/literal>.--}-loggerSetPrinter ::-    (B.CallStack.HasCallStack, MonadIO m, IsLogger a) =>-    a-    {- ^ /@logger@/: a 'GI.Soup.Objects.Logger.Logger' -}-    -> Soup.Callbacks.LoggerPrinter-    {- ^ /@printer@/: the callback for printing logging output -}-    -> m ()-loggerSetPrinter logger printer = liftIO $ do-    logger' <- unsafeManagedPtrCastPtr logger-    printer' <- Soup.Callbacks.mk_LoggerPrinter (Soup.Callbacks.wrap_LoggerPrinter Nothing (Soup.Callbacks.drop_closures_LoggerPrinter printer))-    let printerData = castFunPtrToPtr printer'-    let destroy = safeFreeFunPtrPtr-    soup_logger_set_printer logger' printer' printerData destroy-    touchManagedPtr logger-    return ()--#if ENABLE_OVERLOADING-data LoggerSetPrinterMethodInfo-instance (signature ~ (Soup.Callbacks.LoggerPrinter -> m ()), MonadIO m, IsLogger a) => O.MethodInfo LoggerSetPrinterMethodInfo a signature where-    overloadedMethod _ = loggerSetPrinter--#endif---- method Logger::set_request_filter--- method type : OrdinaryMethod--- Args : [Arg {argCName = "logger", argType = TInterface (Name {namespace = "Soup", name = "Logger"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupLogger", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "request_filter", argType = TInterface (Name {namespace = "Soup", name = "LoggerFilter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the callback for request debugging", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data to pass to the callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDestroyNotify to free @filter_data", sinceVersion = Nothing}, 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 ->                           -- logger : TInterface (Name {namespace = "Soup", name = "Logger"})-    FunPtr Soup.Callbacks.C_LoggerFilter -> -- request_filter : TInterface (Name {namespace = "Soup", name = "LoggerFilter"})-    Ptr () ->                               -- filter_data : TBasicType TPtr-    FunPtr GLib.Callbacks.C_DestroyNotify -> -- destroy : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})-    IO ()--{- |-Sets up a filter to determine the log level for a given request.-For each HTTP request /@logger@/ will invoke /@requestFilter@/ to-determine how much (if any) of that request to log. (If you do not-set a request filter, /@logger@/ will just always log requests at the-level passed to 'GI.Soup.Objects.Logger.loggerNew'.)--}-loggerSetRequestFilter ::-    (B.CallStack.HasCallStack, MonadIO m, IsLogger a) =>-    a-    {- ^ /@logger@/: a 'GI.Soup.Objects.Logger.Logger' -}-    -> Soup.Callbacks.LoggerFilter-    {- ^ /@requestFilter@/: the callback for request debugging -}-    -> m ()-loggerSetRequestFilter logger requestFilter = liftIO $ do-    logger' <- unsafeManagedPtrCastPtr logger-    requestFilter' <- Soup.Callbacks.mk_LoggerFilter (Soup.Callbacks.wrap_LoggerFilter Nothing (Soup.Callbacks.drop_closures_LoggerFilter requestFilter))-    let filterData = castFunPtrToPtr requestFilter'-    let destroy = safeFreeFunPtrPtr-    soup_logger_set_request_filter logger' requestFilter' filterData destroy-    touchManagedPtr logger-    return ()--#if ENABLE_OVERLOADING-data LoggerSetRequestFilterMethodInfo-instance (signature ~ (Soup.Callbacks.LoggerFilter -> m ()), MonadIO m, IsLogger a) => O.MethodInfo LoggerSetRequestFilterMethodInfo a signature where-    overloadedMethod _ = loggerSetRequestFilter--#endif---- method Logger::set_response_filter--- method type : OrdinaryMethod--- Args : [Arg {argCName = "logger", argType = TInterface (Name {namespace = "Soup", name = "Logger"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupLogger", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "response_filter", argType = TInterface (Name {namespace = "Soup", name = "LoggerFilter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the callback for response debugging", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filter_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data to pass to the callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GDestroyNotify to free @filter_data", sinceVersion = Nothing}, 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 ->                           -- logger : TInterface (Name {namespace = "Soup", name = "Logger"})-    FunPtr Soup.Callbacks.C_LoggerFilter -> -- response_filter : TInterface (Name {namespace = "Soup", name = "LoggerFilter"})-    Ptr () ->                               -- filter_data : TBasicType TPtr-    FunPtr GLib.Callbacks.C_DestroyNotify -> -- destroy : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})-    IO ()--{- |-Sets up a filter to determine the log level for a given response.-For each HTTP response /@logger@/ will invoke /@responseFilter@/ to-determine how much (if any) of that response to log. (If you do not-set a response filter, /@logger@/ will just always log responses at-the level passed to 'GI.Soup.Objects.Logger.loggerNew'.)--}-loggerSetResponseFilter ::-    (B.CallStack.HasCallStack, MonadIO m, IsLogger a) =>-    a-    {- ^ /@logger@/: a 'GI.Soup.Objects.Logger.Logger' -}-    -> Soup.Callbacks.LoggerFilter-    {- ^ /@responseFilter@/: the callback for response debugging -}-    -> m ()-loggerSetResponseFilter logger responseFilter = liftIO $ do-    logger' <- unsafeManagedPtrCastPtr logger-    responseFilter' <- Soup.Callbacks.mk_LoggerFilter (Soup.Callbacks.wrap_LoggerFilter Nothing (Soup.Callbacks.drop_closures_LoggerFilter responseFilter))-    let filterData = castFunPtrToPtr responseFilter'-    let destroy = safeFreeFunPtrPtr-    soup_logger_set_response_filter logger' responseFilter' filterData destroy-    touchManagedPtr logger-    return ()--#if ENABLE_OVERLOADING-data LoggerSetResponseFilterMethodInfo-instance (signature ~ (Soup.Callbacks.LoggerFilter -> m ()), MonadIO m, IsLogger a) => O.MethodInfo LoggerSetResponseFilterMethodInfo a signature where-    overloadedMethod _ = loggerSetResponseFilter--#endif--
− GI/Soup/Objects/Logger.hs-boot 
@@ -1,50 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Objects.Logger where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype Logger = Logger (ManagedPtr Logger)-instance GObject Logger where-class (GObject o, O.IsDescendantOf Logger o) => IsLogger o-instance (GObject o, O.IsDescendantOf Logger o) => IsLogger o-instance O.HasParentTypes Logger-#if ENABLE_OVERLOADING-data LoggerLevelPropertyInfo-#endif-#if ENABLE_OVERLOADING-data LoggerMaxBodySizePropertyInfo-#endif-#if ENABLE_OVERLOADING-data LoggerAttachMethodInfo-#endif-#if ENABLE_OVERLOADING-data LoggerDetachMethodInfo-#endif-#if ENABLE_OVERLOADING-data LoggerSetPrinterMethodInfo-#endif-#if ENABLE_OVERLOADING-data LoggerSetRequestFilterMethodInfo-#endif-#if ENABLE_OVERLOADING-data LoggerSetResponseFilterMethodInfo-#endif
− GI/Soup/Objects/Message.hs 
@@ -1,4328 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Represents an HTTP message being sent or received.--/@statusCode@/ will normally be a 'GI.Soup.Enums.Status' value, eg,-'GI.Soup.Enums.StatusOk', though of course it might actually be an unknown-status code. /@reasonPhrase@/ is the actual text returned from the-server, which may or may not correspond to the \"standard\"-description of /@statusCode@/. At any rate, it is almost certainly-not localized, and not very descriptive even if it is in the user\'s-language; you should not use /@reasonPhrase@/ in user-visible-messages. Rather, you should look at /@statusCode@/, and determine an-end-user-appropriate message based on that and on what you were-trying to do.--As described in the 'GI.Soup.Structs.MessageBody.MessageBody' documentation, the-/@requestBody@/ and /@responseBody@/ \<literal>data\<\/literal> fields-will not necessarily be filled in at all times. When the body-fields are filled in, they will be terminated with a \'\\0\' byte-(which is not included in the \<literal>length\<\/literal>), so you-can use them as ordinary C strings (assuming that you know that the-body doesn\'t have any other \'\\0\' bytes).--For a client-side 'GI.Soup.Objects.Message.Message', /@requestBody@/\'s-\<literal>data\<\/literal> is usually filled in right before libsoup-writes the request to the network, but you should not count on-this; use 'GI.Soup.Structs.MessageBody.messageBodyFlatten' if you want to ensure that-\<literal>data\<\/literal> is filled in. If you are not using-'GI.Soup.Objects.Request.Request' to read the response, then /@responseBody@/\'s-\<literal>data\<\/literal> will be filled in before-'GI.Soup.Objects.Message.Message'::@/finished/@ is emitted. (If you are using 'GI.Soup.Objects.Request.Request',-then the message body is not accumulated by default, so-/@responseBody@/\'s \<literal>data\<\/literal> will always be 'Nothing'.)--For a server-side 'GI.Soup.Objects.Message.Message', /@requestBody@/\'s @/data/@ will be-filled in before 'GI.Soup.Objects.Message.Message'::@/got_body/@ is emitted.--To prevent the @/data/@ field from being filled in at all (eg, if you-are handling the data from a 'GI.Soup.Objects.Message.Message'::@/got_chunk/@, and so don\'t-need to see it all at the end), call-'GI.Soup.Structs.MessageBody.messageBodySetAccumulate' on /@responseBody@/ or-/@requestBody@/ as appropriate, passing 'False'.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Objects.Message-    ( ---- * Exported types-    Message(..)                             ,-    IsMessage                               ,-    toMessage                               ,-    noMessage                               ,--- -- * Methods--- ** contentSniffed #method:contentSniffed#--#if ENABLE_OVERLOADING-    MessageContentSniffedMethodInfo         ,-#endif-    messageContentSniffed                   ,----- ** disableFeature #method:disableFeature#--#if ENABLE_OVERLOADING-    MessageDisableFeatureMethodInfo         ,-#endif-    messageDisableFeature                   ,----- ** finished #method:finished#--#if ENABLE_OVERLOADING-    MessageFinishedMethodInfo               ,-#endif-    messageFinished                         ,----- ** getAddress #method:getAddress#--#if ENABLE_OVERLOADING-    MessageGetAddressMethodInfo             ,-#endif-    messageGetAddress                       ,----- ** getFirstParty #method:getFirstParty#--#if ENABLE_OVERLOADING-    MessageGetFirstPartyMethodInfo          ,-#endif-    messageGetFirstParty                    ,----- ** getFlags #method:getFlags#--#if ENABLE_OVERLOADING-    MessageGetFlagsMethodInfo               ,-#endif-    messageGetFlags                         ,----- ** getHttpVersion #method:getHttpVersion#--#if ENABLE_OVERLOADING-    MessageGetHttpVersionMethodInfo         ,-#endif-    messageGetHttpVersion                   ,----- ** getHttpsStatus #method:getHttpsStatus#--#if ENABLE_OVERLOADING-    MessageGetHttpsStatusMethodInfo         ,-#endif-    messageGetHttpsStatus                   ,----- ** getPriority #method:getPriority#--#if ENABLE_OVERLOADING-    MessageGetPriorityMethodInfo            ,-#endif-    messageGetPriority                      ,----- ** getSoupRequest #method:getSoupRequest#--#if ENABLE_OVERLOADING-    MessageGetSoupRequestMethodInfo         ,-#endif-    messageGetSoupRequest                   ,----- ** getUri #method:getUri#--#if ENABLE_OVERLOADING-    MessageGetUriMethodInfo                 ,-#endif-    messageGetUri                           ,----- ** gotBody #method:gotBody#--#if ENABLE_OVERLOADING-    MessageGotBodyMethodInfo                ,-#endif-    messageGotBody                          ,----- ** gotChunk #method:gotChunk#--#if ENABLE_OVERLOADING-    MessageGotChunkMethodInfo               ,-#endif-    messageGotChunk                         ,----- ** gotHeaders #method:gotHeaders#--#if ENABLE_OVERLOADING-    MessageGotHeadersMethodInfo             ,-#endif-    messageGotHeaders                       ,----- ** gotInformational #method:gotInformational#--#if ENABLE_OVERLOADING-    MessageGotInformationalMethodInfo       ,-#endif-    messageGotInformational                 ,----- ** isKeepalive #method:isKeepalive#--#if ENABLE_OVERLOADING-    MessageIsKeepaliveMethodInfo            ,-#endif-    messageIsKeepalive                      ,----- ** new #method:new#--    messageNew                              ,----- ** newFromUri #method:newFromUri#--    messageNewFromUri                       ,----- ** restarted #method:restarted#--#if ENABLE_OVERLOADING-    MessageRestartedMethodInfo              ,-#endif-    messageRestarted                        ,----- ** setChunkAllocator #method:setChunkAllocator#--#if ENABLE_OVERLOADING-    MessageSetChunkAllocatorMethodInfo      ,-#endif-    messageSetChunkAllocator                ,----- ** setFirstParty #method:setFirstParty#--#if ENABLE_OVERLOADING-    MessageSetFirstPartyMethodInfo          ,-#endif-    messageSetFirstParty                    ,----- ** setFlags #method:setFlags#--#if ENABLE_OVERLOADING-    MessageSetFlagsMethodInfo               ,-#endif-    messageSetFlags                         ,----- ** setHttpVersion #method:setHttpVersion#--#if ENABLE_OVERLOADING-    MessageSetHttpVersionMethodInfo         ,-#endif-    messageSetHttpVersion                   ,----- ** setPriority #method:setPriority#--#if ENABLE_OVERLOADING-    MessageSetPriorityMethodInfo            ,-#endif-    messageSetPriority                      ,----- ** setRedirect #method:setRedirect#--#if ENABLE_OVERLOADING-    MessageSetRedirectMethodInfo            ,-#endif-    messageSetRedirect                      ,----- ** setRequest #method:setRequest#--#if ENABLE_OVERLOADING-    MessageSetRequestMethodInfo             ,-#endif-    messageSetRequest                       ,----- ** setResponse #method:setResponse#--#if ENABLE_OVERLOADING-    MessageSetResponseMethodInfo            ,-#endif-    messageSetResponse                      ,----- ** setStatus #method:setStatus#--#if ENABLE_OVERLOADING-    MessageSetStatusMethodInfo              ,-#endif-    messageSetStatus                        ,----- ** setStatusFull #method:setStatusFull#--#if ENABLE_OVERLOADING-    MessageSetStatusFullMethodInfo          ,-#endif-    messageSetStatusFull                    ,----- ** setUri #method:setUri#--#if ENABLE_OVERLOADING-    MessageSetUriMethodInfo                 ,-#endif-    messageSetUri                           ,----- ** starting #method:starting#--#if ENABLE_OVERLOADING-    MessageStartingMethodInfo               ,-#endif-    messageStarting                         ,----- ** wroteBody #method:wroteBody#--#if ENABLE_OVERLOADING-    MessageWroteBodyMethodInfo              ,-#endif-    messageWroteBody                        ,----- ** wroteBodyData #method:wroteBodyData#--#if ENABLE_OVERLOADING-    MessageWroteBodyDataMethodInfo          ,-#endif-    messageWroteBodyData                    ,----- ** wroteChunk #method:wroteChunk#--#if ENABLE_OVERLOADING-    MessageWroteChunkMethodInfo             ,-#endif-    messageWroteChunk                       ,----- ** wroteHeaders #method:wroteHeaders#--#if ENABLE_OVERLOADING-    MessageWroteHeadersMethodInfo           ,-#endif-    messageWroteHeaders                     ,----- ** wroteInformational #method:wroteInformational#--#if ENABLE_OVERLOADING-    MessageWroteInformationalMethodInfo     ,-#endif-    messageWroteInformational               ,----- -- * Properties--- ** firstParty #attr:firstParty#-{- | The 'GI.Soup.Structs.URI.URI' loaded in the application when the message was-queued.--/Since: 2.30/--}-#if ENABLE_OVERLOADING-    MessageFirstPartyPropertyInfo           ,-#endif-    constructMessageFirstParty              ,-    getMessageFirstParty                    ,-#if ENABLE_OVERLOADING-    messageFirstParty                       ,-#endif-    setMessageFirstParty                    ,----- ** flags #attr:flags#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    MessageFlagsPropertyInfo                ,-#endif-    constructMessageFlags                   ,-    getMessageFlags                         ,-#if ENABLE_OVERLOADING-    messageFlags                            ,-#endif-    setMessageFlags                         ,----- ** httpVersion #attr:httpVersion#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    MessageHttpVersionPropertyInfo          ,-#endif-    constructMessageHttpVersion             ,-    getMessageHttpVersion                   ,-#if ENABLE_OVERLOADING-    messageHttpVersion                      ,-#endif-    setMessageHttpVersion                   ,----- ** method #attr:method#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    MessageMethodPropertyInfo               ,-#endif-    clearMessageMethod                      ,-    constructMessageMethod                  ,-    getMessageMethod                        ,-#if ENABLE_OVERLOADING-    messageMethod                           ,-#endif-    setMessageMethod                        ,----- ** priority #attr:priority#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    MessagePriorityPropertyInfo             ,-#endif-    constructMessagePriority                ,-    getMessagePriority                      ,-#if ENABLE_OVERLOADING-    messagePriority                         ,-#endif-    setMessagePriority                      ,----- ** reasonPhrase #attr:reasonPhrase#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    MessageReasonPhrasePropertyInfo         ,-#endif-    clearMessageReasonPhrase                ,-    constructMessageReasonPhrase            ,-    getMessageReasonPhrase                  ,-#if ENABLE_OVERLOADING-    messageReasonPhrase                     ,-#endif-    setMessageReasonPhrase                  ,----- ** requestBody #attr:requestBody#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    MessageRequestBodyPropertyInfo          ,-#endif-    getMessageRequestBody                   ,-#if ENABLE_OVERLOADING-    messageRequestBody                      ,-#endif----- ** requestBodyData #attr:requestBodyData#-{- | The message\'s HTTP request body, as a 'GI.GLib.Structs.Bytes.Bytes'.--/Since: 2.46/--}-#if ENABLE_OVERLOADING-    MessageRequestBodyDataPropertyInfo      ,-#endif-    getMessageRequestBodyData               ,-#if ENABLE_OVERLOADING-    messageRequestBodyData                  ,-#endif----- ** requestHeaders #attr:requestHeaders#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    MessageRequestHeadersPropertyInfo       ,-#endif-    getMessageRequestHeaders                ,-#if ENABLE_OVERLOADING-    messageRequestHeaders                   ,-#endif----- ** responseBody #attr:responseBody#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    MessageResponseBodyPropertyInfo         ,-#endif-    getMessageResponseBody                  ,-#if ENABLE_OVERLOADING-    messageResponseBody                     ,-#endif----- ** responseBodyData #attr:responseBodyData#-{- | The message\'s HTTP response body, as a 'GI.GLib.Structs.Bytes.Bytes'.--/Since: 2.46/--}-#if ENABLE_OVERLOADING-    MessageResponseBodyDataPropertyInfo     ,-#endif-    getMessageResponseBodyData              ,-#if ENABLE_OVERLOADING-    messageResponseBodyData                 ,-#endif----- ** responseHeaders #attr:responseHeaders#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    MessageResponseHeadersPropertyInfo      ,-#endif-    getMessageResponseHeaders               ,-#if ENABLE_OVERLOADING-    messageResponseHeaders                  ,-#endif----- ** serverSide #attr:serverSide#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    MessageServerSidePropertyInfo           ,-#endif-    constructMessageServerSide              ,-    getMessageServerSide                    ,-#if ENABLE_OVERLOADING-    messageServerSide                       ,-#endif----- ** statusCode #attr:statusCode#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    MessageStatusCodePropertyInfo           ,-#endif-    constructMessageStatusCode              ,-    getMessageStatusCode                    ,-#if ENABLE_OVERLOADING-    messageStatusCode                       ,-#endif-    setMessageStatusCode                    ,----- ** tlsCertificate #attr:tlsCertificate#-{- | The 'GI.Gio.Objects.TlsCertificate.TlsCertificate' associated with the message--/Since: 2.34/--}-#if ENABLE_OVERLOADING-    MessageTlsCertificatePropertyInfo       ,-#endif-    clearMessageTlsCertificate              ,-    constructMessageTlsCertificate          ,-    getMessageTlsCertificate                ,-#if ENABLE_OVERLOADING-    messageTlsCertificate                   ,-#endif-    setMessageTlsCertificate                ,----- ** tlsErrors #attr:tlsErrors#-{- | The verification errors on 'GI.Soup.Objects.Message.Message':@/tls-certificate/@--/Since: 2.34/--}-#if ENABLE_OVERLOADING-    MessageTlsErrorsPropertyInfo            ,-#endif-    constructMessageTlsErrors               ,-    getMessageTlsErrors                     ,-#if ENABLE_OVERLOADING-    messageTlsErrors                        ,-#endif-    setMessageTlsErrors                     ,----- ** uri #attr:uri#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    MessageUriPropertyInfo                  ,-#endif-    constructMessageUri                     ,-    getMessageUri                           ,-#if ENABLE_OVERLOADING-    messageUri                              ,-#endif-    setMessageUri                           ,----- -- * Signals--- ** contentSniffed #signal:contentSniffed#--    C_MessageContentSniffedCallback         ,-    MessageContentSniffedCallback           ,-#if ENABLE_OVERLOADING-    MessageContentSniffedSignalInfo         ,-#endif-    afterMessageContentSniffed              ,-    genClosure_MessageContentSniffed        ,-    mk_MessageContentSniffedCallback        ,-    noMessageContentSniffedCallback         ,-    onMessageContentSniffed                 ,-    wrap_MessageContentSniffedCallback      ,----- ** finished #signal:finished#--    C_MessageFinishedCallback               ,-    MessageFinishedCallback                 ,-#if ENABLE_OVERLOADING-    MessageFinishedSignalInfo               ,-#endif-    afterMessageFinished                    ,-    genClosure_MessageFinished              ,-    mk_MessageFinishedCallback              ,-    noMessageFinishedCallback               ,-    onMessageFinished                       ,-    wrap_MessageFinishedCallback            ,----- ** gotBody #signal:gotBody#--    C_MessageGotBodyCallback                ,-    MessageGotBodyCallback                  ,-#if ENABLE_OVERLOADING-    MessageGotBodySignalInfo                ,-#endif-    afterMessageGotBody                     ,-    genClosure_MessageGotBody               ,-    mk_MessageGotBodyCallback               ,-    noMessageGotBodyCallback                ,-    onMessageGotBody                        ,-    wrap_MessageGotBodyCallback             ,----- ** gotChunk #signal:gotChunk#--    C_MessageGotChunkCallback               ,-    MessageGotChunkCallback                 ,-#if ENABLE_OVERLOADING-    MessageGotChunkSignalInfo               ,-#endif-    afterMessageGotChunk                    ,-    genClosure_MessageGotChunk              ,-    mk_MessageGotChunkCallback              ,-    noMessageGotChunkCallback               ,-    onMessageGotChunk                       ,-    wrap_MessageGotChunkCallback            ,----- ** gotHeaders #signal:gotHeaders#--    C_MessageGotHeadersCallback             ,-    MessageGotHeadersCallback               ,-#if ENABLE_OVERLOADING-    MessageGotHeadersSignalInfo             ,-#endif-    afterMessageGotHeaders                  ,-    genClosure_MessageGotHeaders            ,-    mk_MessageGotHeadersCallback            ,-    noMessageGotHeadersCallback             ,-    onMessageGotHeaders                     ,-    wrap_MessageGotHeadersCallback          ,----- ** gotInformational #signal:gotInformational#--    C_MessageGotInformationalCallback       ,-    MessageGotInformationalCallback         ,-#if ENABLE_OVERLOADING-    MessageGotInformationalSignalInfo       ,-#endif-    afterMessageGotInformational            ,-    genClosure_MessageGotInformational      ,-    mk_MessageGotInformationalCallback      ,-    noMessageGotInformationalCallback       ,-    onMessageGotInformational               ,-    wrap_MessageGotInformationalCallback    ,----- ** networkEvent #signal:networkEvent#--    C_MessageNetworkEventCallback           ,-    MessageNetworkEventCallback             ,-#if ENABLE_OVERLOADING-    MessageNetworkEventSignalInfo           ,-#endif-    afterMessageNetworkEvent                ,-    genClosure_MessageNetworkEvent          ,-    mk_MessageNetworkEventCallback          ,-    noMessageNetworkEventCallback           ,-    onMessageNetworkEvent                   ,-    wrap_MessageNetworkEventCallback        ,----- ** restarted #signal:restarted#--    C_MessageRestartedCallback              ,-    MessageRestartedCallback                ,-#if ENABLE_OVERLOADING-    MessageRestartedSignalInfo              ,-#endif-    afterMessageRestarted                   ,-    genClosure_MessageRestarted             ,-    mk_MessageRestartedCallback             ,-    noMessageRestartedCallback              ,-    onMessageRestarted                      ,-    wrap_MessageRestartedCallback           ,----- ** starting #signal:starting#--    C_MessageStartingCallback               ,-    MessageStartingCallback                 ,-#if ENABLE_OVERLOADING-    MessageStartingSignalInfo               ,-#endif-    afterMessageStarting                    ,-    genClosure_MessageStarting              ,-    mk_MessageStartingCallback              ,-    noMessageStartingCallback               ,-    onMessageStarting                       ,-    wrap_MessageStartingCallback            ,----- ** wroteBody #signal:wroteBody#--    C_MessageWroteBodyCallback              ,-    MessageWroteBodyCallback                ,-#if ENABLE_OVERLOADING-    MessageWroteBodySignalInfo              ,-#endif-    afterMessageWroteBody                   ,-    genClosure_MessageWroteBody             ,-    mk_MessageWroteBodyCallback             ,-    noMessageWroteBodyCallback              ,-    onMessageWroteBody                      ,-    wrap_MessageWroteBodyCallback           ,----- ** wroteBodyData #signal:wroteBodyData#--    C_MessageWroteBodyDataCallback          ,-    MessageWroteBodyDataCallback            ,-#if ENABLE_OVERLOADING-    MessageWroteBodyDataSignalInfo          ,-#endif-    afterMessageWroteBodyData               ,-    genClosure_MessageWroteBodyData         ,-    mk_MessageWroteBodyDataCallback         ,-    noMessageWroteBodyDataCallback          ,-    onMessageWroteBodyData                  ,-    wrap_MessageWroteBodyDataCallback       ,----- ** wroteChunk #signal:wroteChunk#--    C_MessageWroteChunkCallback             ,-    MessageWroteChunkCallback               ,-#if ENABLE_OVERLOADING-    MessageWroteChunkSignalInfo             ,-#endif-    afterMessageWroteChunk                  ,-    genClosure_MessageWroteChunk            ,-    mk_MessageWroteChunkCallback            ,-    noMessageWroteChunkCallback             ,-    onMessageWroteChunk                     ,-    wrap_MessageWroteChunkCallback          ,----- ** wroteHeaders #signal:wroteHeaders#--    C_MessageWroteHeadersCallback           ,-    MessageWroteHeadersCallback             ,-#if ENABLE_OVERLOADING-    MessageWroteHeadersSignalInfo           ,-#endif-    afterMessageWroteHeaders                ,-    genClosure_MessageWroteHeaders          ,-    mk_MessageWroteHeadersCallback          ,-    noMessageWroteHeadersCallback           ,-    onMessageWroteHeaders                   ,-    wrap_MessageWroteHeadersCallback        ,----- ** wroteInformational #signal:wroteInformational#--    C_MessageWroteInformationalCallback     ,-    MessageWroteInformationalCallback       ,-#if ENABLE_OVERLOADING-    MessageWroteInformationalSignalInfo     ,-#endif-    afterMessageWroteInformational          ,-    genClosure_MessageWroteInformational    ,-    mk_MessageWroteInformationalCallback    ,-    noMessageWroteInformationalCallback     ,-    onMessageWroteInformational             ,-    wrap_MessageWroteInformationalCallback  ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GLib.Callbacks as GLib.Callbacks-import qualified GI.GLib.Structs.Bytes as GLib.Bytes-import qualified GI.GObject.Objects.Object as GObject.Object-import qualified GI.Gio.Enums as Gio.Enums-import qualified GI.Gio.Flags as Gio.Flags-import qualified GI.Gio.Objects.IOStream as Gio.IOStream-import qualified GI.Gio.Objects.TlsCertificate as Gio.TlsCertificate-import qualified GI.Soup.Callbacks as Soup.Callbacks-import {-# SOURCE #-} qualified GI.Soup.Enums as Soup.Enums-import {-# SOURCE #-} qualified GI.Soup.Flags as Soup.Flags-import {-# SOURCE #-} qualified GI.Soup.Objects.Address as Soup.Address-import {-# SOURCE #-} qualified GI.Soup.Objects.Request as Soup.Request-import {-# SOURCE #-} qualified GI.Soup.Structs.Buffer as Soup.Buffer-import {-# SOURCE #-} qualified GI.Soup.Structs.MessageBody as Soup.MessageBody-import {-# SOURCE #-} qualified GI.Soup.Structs.MessageHeaders as Soup.MessageHeaders-import {-# SOURCE #-} qualified GI.Soup.Structs.URI as Soup.URI---- | Memory-managed wrapper type.-newtype Message = Message (ManagedPtr Message)-foreign import ccall "soup_message_get_type"-    c_soup_message_get_type :: IO GType--instance GObject Message where-    gobjectType = c_soup_message_get_type-    ---- | Type class for types which can be safely cast to `Message`, for instance with `toMessage`.-class (GObject o, O.IsDescendantOf Message o) => IsMessage o-instance (GObject o, O.IsDescendantOf Message o) => IsMessage o--instance O.HasParentTypes Message-type instance O.ParentTypes Message = '[GObject.Object.Object]---- | Cast to `Message`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toMessage :: (MonadIO m, IsMessage o) => o -> m Message-toMessage = liftIO . unsafeCastTo Message---- | A convenience alias for `Nothing` :: `Maybe` `Message`.-noMessage :: Maybe Message-noMessage = Nothing--#if ENABLE_OVERLOADING-type family ResolveMessageMethod (t :: Symbol) (o :: *) :: * where-    ResolveMessageMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveMessageMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveMessageMethod "contentSniffed" o = MessageContentSniffedMethodInfo-    ResolveMessageMethod "disableFeature" o = MessageDisableFeatureMethodInfo-    ResolveMessageMethod "finished" o = MessageFinishedMethodInfo-    ResolveMessageMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveMessageMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveMessageMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveMessageMethod "gotBody" o = MessageGotBodyMethodInfo-    ResolveMessageMethod "gotChunk" o = MessageGotChunkMethodInfo-    ResolveMessageMethod "gotHeaders" o = MessageGotHeadersMethodInfo-    ResolveMessageMethod "gotInformational" o = MessageGotInformationalMethodInfo-    ResolveMessageMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveMessageMethod "isKeepalive" o = MessageIsKeepaliveMethodInfo-    ResolveMessageMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveMessageMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveMessageMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveMessageMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveMessageMethod "restarted" o = MessageRestartedMethodInfo-    ResolveMessageMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveMessageMethod "starting" o = MessageStartingMethodInfo-    ResolveMessageMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveMessageMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveMessageMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveMessageMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveMessageMethod "watchClosure" o = GObject.Object.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.Object.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.Object.ObjectGetPropertyMethodInfo-    ResolveMessageMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveMessageMethod "getSoupRequest" o = MessageGetSoupRequestMethodInfo-    ResolveMessageMethod "getUri" o = MessageGetUriMethodInfo-    ResolveMessageMethod "setChunkAllocator" o = MessageSetChunkAllocatorMethodInfo-    ResolveMessageMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveMessageMethod "setFirstParty" o = MessageSetFirstPartyMethodInfo-    ResolveMessageMethod "setFlags" o = MessageSetFlagsMethodInfo-    ResolveMessageMethod "setHttpVersion" o = MessageSetHttpVersionMethodInfo-    ResolveMessageMethod "setPriority" o = MessageSetPriorityMethodInfo-    ResolveMessageMethod "setProperty" o = GObject.Object.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 = O.MethodResolutionFailed l o--instance (info ~ ResolveMessageMethod t Message, O.MethodInfo info Message p) => OL.IsLabel t (Message -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif---- signal Message::content-sniffed-{- |-This signal is emitted after 'GI.Soup.Objects.Message.Message'::@/got-headers/@, and-before the first 'GI.Soup.Objects.Message.Message'::@/got-chunk/@. If content-sniffing is disabled, or no content sniffing will be-performed, due to the sniffer deciding to trust the-Content-Type sent by the server, this signal is emitted-immediately after 'GI.Soup.Objects.Message.Message'::@/got-headers/@, and /@type@/ is-'Nothing'.--If the 'GI.Soup.Objects.ContentSniffer.ContentSniffer' feature is enabled, and the-sniffer decided to perform sniffing, the first-'GI.Soup.Objects.Message.Message'::@/got-chunk/@ emission may be delayed, so that the-sniffer has enough data to correctly sniff the content. It-notified the library user that the content has been-sniffed, and allows it to change the header contents in the-message, if desired.--After this signal is emitted, the data that was spooled so-that sniffing could be done is delivered on the first-emission of 'GI.Soup.Objects.Message.Message'::@/got-chunk/@.--/Since: 2.28/--}-type MessageContentSniffedCallback =-    T.Text-    {- ^ /@type@/: the content type that we got from sniffing -}-    -> Map.Map T.Text T.Text-    {- ^ /@params@/: a 'GI.GLib.Structs.HashTable.HashTable' with the parameters -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `MessageContentSniffedCallback`@.-noMessageContentSniffedCallback :: Maybe MessageContentSniffedCallback-noMessageContentSniffedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_MessageContentSniffedCallback =-    Ptr () ->                               -- object-    CString ->-    Ptr (GHashTable CString CString) ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_MessageContentSniffedCallback`.-foreign import ccall "wrapper"-    mk_MessageContentSniffedCallback :: C_MessageContentSniffedCallback -> IO (FunPtr C_MessageContentSniffedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_MessageContentSniffed :: MonadIO m => MessageContentSniffedCallback -> m (GClosure C_MessageContentSniffedCallback)-genClosure_MessageContentSniffed cb = liftIO $ do-    let cb' = wrap_MessageContentSniffedCallback cb-    mk_MessageContentSniffedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `MessageContentSniffedCallback` into a `C_MessageContentSniffedCallback`.-wrap_MessageContentSniffedCallback ::-    MessageContentSniffedCallback ->-    C_MessageContentSniffedCallback-wrap_MessageContentSniffedCallback _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''''''---{- |-Connect a signal handler for the “@content-sniffed@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' message #contentSniffed callback-@--}-onMessageContentSniffed :: (IsMessage a, MonadIO m) => a -> MessageContentSniffedCallback -> m SignalHandlerId-onMessageContentSniffed obj cb = liftIO $ do-    let cb' = wrap_MessageContentSniffedCallback cb-    cb'' <- mk_MessageContentSniffedCallback cb'-    connectSignalFunPtr obj "content-sniffed" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@content-sniffed@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' message #contentSniffed callback-@--}-afterMessageContentSniffed :: (IsMessage a, MonadIO m) => a -> MessageContentSniffedCallback -> m SignalHandlerId-afterMessageContentSniffed obj cb = liftIO $ do-    let cb' = wrap_MessageContentSniffedCallback cb-    cb'' <- mk_MessageContentSniffedCallback cb'-    connectSignalFunPtr obj "content-sniffed" cb'' SignalConnectAfter----- signal Message::finished-{- |-Emitted when all HTTP processing is finished for a message.-(After 'GI.Soup.Objects.Message.Message'::@/got_body/@ for client-side messages, or-after 'GI.Soup.Objects.Message.Message'::@/wrote_body/@ for server-side messages.)--}-type MessageFinishedCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `MessageFinishedCallback`@.-noMessageFinishedCallback :: Maybe MessageFinishedCallback-noMessageFinishedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_MessageFinishedCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_MessageFinishedCallback`.-foreign import ccall "wrapper"-    mk_MessageFinishedCallback :: C_MessageFinishedCallback -> IO (FunPtr C_MessageFinishedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_MessageFinished :: MonadIO m => MessageFinishedCallback -> m (GClosure C_MessageFinishedCallback)-genClosure_MessageFinished cb = liftIO $ do-    let cb' = wrap_MessageFinishedCallback cb-    mk_MessageFinishedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `MessageFinishedCallback` into a `C_MessageFinishedCallback`.-wrap_MessageFinishedCallback ::-    MessageFinishedCallback ->-    C_MessageFinishedCallback-wrap_MessageFinishedCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@finished@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' message #finished callback-@--}-onMessageFinished :: (IsMessage a, MonadIO m) => a -> MessageFinishedCallback -> m SignalHandlerId-onMessageFinished obj cb = liftIO $ do-    let cb' = wrap_MessageFinishedCallback cb-    cb'' <- mk_MessageFinishedCallback cb'-    connectSignalFunPtr obj "finished" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@finished@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' message #finished callback-@--}-afterMessageFinished :: (IsMessage a, MonadIO m) => a -> MessageFinishedCallback -> m SignalHandlerId-afterMessageFinished obj cb = liftIO $ do-    let cb' = wrap_MessageFinishedCallback cb-    cb'' <- mk_MessageFinishedCallback cb'-    connectSignalFunPtr obj "finished" cb'' SignalConnectAfter----- signal Message::got-body-{- |-Emitted after receiving the complete message body. (For a-server-side message, this means it has received the request-body. For a client-side message, this means it has received-the response body and is nearly done with the message.)--See also @/soup_message_add_header_handler()/@ and-@/soup_message_add_status_code_handler()/@, which can be used-to connect to a subset of emissions of this signal.--}-type MessageGotBodyCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `MessageGotBodyCallback`@.-noMessageGotBodyCallback :: Maybe MessageGotBodyCallback-noMessageGotBodyCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_MessageGotBodyCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_MessageGotBodyCallback`.-foreign import ccall "wrapper"-    mk_MessageGotBodyCallback :: C_MessageGotBodyCallback -> IO (FunPtr C_MessageGotBodyCallback)---- | Wrap the callback into a `GClosure`.-genClosure_MessageGotBody :: MonadIO m => MessageGotBodyCallback -> m (GClosure C_MessageGotBodyCallback)-genClosure_MessageGotBody cb = liftIO $ do-    let cb' = wrap_MessageGotBodyCallback cb-    mk_MessageGotBodyCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `MessageGotBodyCallback` into a `C_MessageGotBodyCallback`.-wrap_MessageGotBodyCallback ::-    MessageGotBodyCallback ->-    C_MessageGotBodyCallback-wrap_MessageGotBodyCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@got-body@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' message #gotBody callback-@--}-onMessageGotBody :: (IsMessage a, MonadIO m) => a -> MessageGotBodyCallback -> m SignalHandlerId-onMessageGotBody obj cb = liftIO $ do-    let cb' = wrap_MessageGotBodyCallback cb-    cb'' <- mk_MessageGotBodyCallback cb'-    connectSignalFunPtr obj "got-body" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@got-body@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' message #gotBody callback-@--}-afterMessageGotBody :: (IsMessage a, MonadIO m) => a -> MessageGotBodyCallback -> m SignalHandlerId-afterMessageGotBody obj cb = liftIO $ do-    let cb' = wrap_MessageGotBodyCallback cb-    cb'' <- mk_MessageGotBodyCallback cb'-    connectSignalFunPtr obj "got-body" cb'' SignalConnectAfter----- signal Message::got-chunk-{- |-Emitted after receiving a chunk of a message body. Note-that \"chunk\" in this context means any subpiece of the-body, not necessarily the specific HTTP 1.1 chunks sent by-the other side.--If you cancel or requeue /@msg@/ while processing this signal,-then the current HTTP I\/O will be stopped after this signal-emission finished, and /@msg@/\'s connection will be closed.--}-type MessageGotChunkCallback =-    Soup.Buffer.Buffer-    {- ^ /@chunk@/: the just-read chunk -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `MessageGotChunkCallback`@.-noMessageGotChunkCallback :: Maybe MessageGotChunkCallback-noMessageGotChunkCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_MessageGotChunkCallback =-    Ptr () ->                               -- object-    Ptr Soup.Buffer.Buffer ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_MessageGotChunkCallback`.-foreign import ccall "wrapper"-    mk_MessageGotChunkCallback :: C_MessageGotChunkCallback -> IO (FunPtr C_MessageGotChunkCallback)---- | Wrap the callback into a `GClosure`.-genClosure_MessageGotChunk :: MonadIO m => MessageGotChunkCallback -> m (GClosure C_MessageGotChunkCallback)-genClosure_MessageGotChunk cb = liftIO $ do-    let cb' = wrap_MessageGotChunkCallback cb-    mk_MessageGotChunkCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `MessageGotChunkCallback` into a `C_MessageGotChunkCallback`.-wrap_MessageGotChunkCallback ::-    MessageGotChunkCallback ->-    C_MessageGotChunkCallback-wrap_MessageGotChunkCallback _cb _ chunk _ = do-    B.ManagedPtr.withTransient Soup.Buffer.Buffer chunk $ \chunk' -> do-        _cb  chunk'---{- |-Connect a signal handler for the “@got-chunk@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' message #gotChunk callback-@--}-onMessageGotChunk :: (IsMessage a, MonadIO m) => a -> MessageGotChunkCallback -> m SignalHandlerId-onMessageGotChunk obj cb = liftIO $ do-    let cb' = wrap_MessageGotChunkCallback cb-    cb'' <- mk_MessageGotChunkCallback cb'-    connectSignalFunPtr obj "got-chunk" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@got-chunk@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' message #gotChunk callback-@--}-afterMessageGotChunk :: (IsMessage a, MonadIO m) => a -> MessageGotChunkCallback -> m SignalHandlerId-afterMessageGotChunk obj cb = liftIO $ do-    let cb' = wrap_MessageGotChunkCallback cb-    cb'' <- mk_MessageGotChunkCallback cb'-    connectSignalFunPtr obj "got-chunk" cb'' SignalConnectAfter----- signal Message::got-headers-{- |-Emitted after receiving all message headers for a message.-(For a client-side message, this is after receiving the-Status-Line and response headers; for a server-side-message, it is after receiving the Request-Line and request-headers.)--See also @/soup_message_add_header_handler()/@ and-@/soup_message_add_status_code_handler()/@, which can be used-to connect to a subset of emissions of this signal.--If you cancel or requeue /@msg@/ while processing this signal,-then the current HTTP I\/O will be stopped after this signal-emission finished, and /@msg@/\'s connection will be closed.-(If you need to requeue a message--eg, after handling-authentication or redirection--it is usually better to-requeue it from a 'GI.Soup.Objects.Message.Message'::@/got_body/@ handler rather-than a 'GI.Soup.Objects.Message.Message'::@/got_headers/@ handler, so that the-existing HTTP connection can be reused.)--}-type MessageGotHeadersCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `MessageGotHeadersCallback`@.-noMessageGotHeadersCallback :: Maybe MessageGotHeadersCallback-noMessageGotHeadersCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_MessageGotHeadersCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_MessageGotHeadersCallback`.-foreign import ccall "wrapper"-    mk_MessageGotHeadersCallback :: C_MessageGotHeadersCallback -> IO (FunPtr C_MessageGotHeadersCallback)---- | Wrap the callback into a `GClosure`.-genClosure_MessageGotHeaders :: MonadIO m => MessageGotHeadersCallback -> m (GClosure C_MessageGotHeadersCallback)-genClosure_MessageGotHeaders cb = liftIO $ do-    let cb' = wrap_MessageGotHeadersCallback cb-    mk_MessageGotHeadersCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `MessageGotHeadersCallback` into a `C_MessageGotHeadersCallback`.-wrap_MessageGotHeadersCallback ::-    MessageGotHeadersCallback ->-    C_MessageGotHeadersCallback-wrap_MessageGotHeadersCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@got-headers@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' message #gotHeaders callback-@--}-onMessageGotHeaders :: (IsMessage a, MonadIO m) => a -> MessageGotHeadersCallback -> m SignalHandlerId-onMessageGotHeaders obj cb = liftIO $ do-    let cb' = wrap_MessageGotHeadersCallback cb-    cb'' <- mk_MessageGotHeadersCallback cb'-    connectSignalFunPtr obj "got-headers" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@got-headers@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' message #gotHeaders callback-@--}-afterMessageGotHeaders :: (IsMessage a, MonadIO m) => a -> MessageGotHeadersCallback -> m SignalHandlerId-afterMessageGotHeaders obj cb = liftIO $ do-    let cb' = wrap_MessageGotHeadersCallback cb-    cb'' <- mk_MessageGotHeadersCallback cb'-    connectSignalFunPtr obj "got-headers" cb'' SignalConnectAfter----- signal Message::got-informational-{- |-Emitted after receiving a 1xx (Informational) response for-a (client-side) message. The response_headers will be-filled in with the headers associated with the-informational response; however, those header values will-be erased after this signal is done.--If you cancel or requeue /@msg@/ while processing this signal,-then the current HTTP I\/O will be stopped after this signal-emission finished, and /@msg@/\'s connection will be closed.--}-type MessageGotInformationalCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `MessageGotInformationalCallback`@.-noMessageGotInformationalCallback :: Maybe MessageGotInformationalCallback-noMessageGotInformationalCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_MessageGotInformationalCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_MessageGotInformationalCallback`.-foreign import ccall "wrapper"-    mk_MessageGotInformationalCallback :: C_MessageGotInformationalCallback -> IO (FunPtr C_MessageGotInformationalCallback)---- | Wrap the callback into a `GClosure`.-genClosure_MessageGotInformational :: MonadIO m => MessageGotInformationalCallback -> m (GClosure C_MessageGotInformationalCallback)-genClosure_MessageGotInformational cb = liftIO $ do-    let cb' = wrap_MessageGotInformationalCallback cb-    mk_MessageGotInformationalCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `MessageGotInformationalCallback` into a `C_MessageGotInformationalCallback`.-wrap_MessageGotInformationalCallback ::-    MessageGotInformationalCallback ->-    C_MessageGotInformationalCallback-wrap_MessageGotInformationalCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@got-informational@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' message #gotInformational callback-@--}-onMessageGotInformational :: (IsMessage a, MonadIO m) => a -> MessageGotInformationalCallback -> m SignalHandlerId-onMessageGotInformational obj cb = liftIO $ do-    let cb' = wrap_MessageGotInformationalCallback cb-    cb'' <- mk_MessageGotInformationalCallback cb'-    connectSignalFunPtr obj "got-informational" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@got-informational@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' message #gotInformational callback-@--}-afterMessageGotInformational :: (IsMessage a, MonadIO m) => a -> MessageGotInformationalCallback -> m SignalHandlerId-afterMessageGotInformational obj cb = liftIO $ do-    let cb' = wrap_MessageGotInformationalCallback cb-    cb'' <- mk_MessageGotInformationalCallback cb'-    connectSignalFunPtr obj "got-informational" cb'' SignalConnectAfter----- signal Message::network-event-{- |-Emitted to indicate that some network-related event-related to /@msg@/ has occurred. This essentially proxies the-'GI.Gio.Objects.SocketClient.SocketClient'::@/event/@ signal, but only for events that-occur while /@msg@/ \"owns\" the connection; if /@msg@/ is sent on-an existing persistent connection, then this signal will-not be emitted. (If you want to force the message to be-sent on a new connection, set the-'GI.Soup.Flags.MessageFlagsNewConnection' flag on it.)--See 'GI.Gio.Objects.SocketClient.SocketClient'::@/event/@ for more information on what-the different values of /@event@/ correspond to, and what-/@connection@/ will be in each case.--/Since: 2.38/--}-type MessageNetworkEventCallback =-    Gio.Enums.SocketClientEvent-    {- ^ /@event@/: the network event -}-    -> Gio.IOStream.IOStream-    {- ^ /@connection@/: the current state of the network connection -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `MessageNetworkEventCallback`@.-noMessageNetworkEventCallback :: Maybe MessageNetworkEventCallback-noMessageNetworkEventCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_MessageNetworkEventCallback =-    Ptr () ->                               -- object-    CUInt ->-    Ptr Gio.IOStream.IOStream ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_MessageNetworkEventCallback`.-foreign import ccall "wrapper"-    mk_MessageNetworkEventCallback :: C_MessageNetworkEventCallback -> IO (FunPtr C_MessageNetworkEventCallback)---- | Wrap the callback into a `GClosure`.-genClosure_MessageNetworkEvent :: MonadIO m => MessageNetworkEventCallback -> m (GClosure C_MessageNetworkEventCallback)-genClosure_MessageNetworkEvent cb = liftIO $ do-    let cb' = wrap_MessageNetworkEventCallback cb-    mk_MessageNetworkEventCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `MessageNetworkEventCallback` into a `C_MessageNetworkEventCallback`.-wrap_MessageNetworkEventCallback ::-    MessageNetworkEventCallback ->-    C_MessageNetworkEventCallback-wrap_MessageNetworkEventCallback _cb _ event connection _ = do-    let event' = (toEnum . fromIntegral) event-    connection' <- (newObject Gio.IOStream.IOStream) connection-    _cb  event' connection'---{- |-Connect a signal handler for the “@network-event@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' message #networkEvent callback-@--}-onMessageNetworkEvent :: (IsMessage a, MonadIO m) => a -> MessageNetworkEventCallback -> m SignalHandlerId-onMessageNetworkEvent obj cb = liftIO $ do-    let cb' = wrap_MessageNetworkEventCallback cb-    cb'' <- mk_MessageNetworkEventCallback cb'-    connectSignalFunPtr obj "network-event" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@network-event@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' message #networkEvent callback-@--}-afterMessageNetworkEvent :: (IsMessage a, MonadIO m) => a -> MessageNetworkEventCallback -> m SignalHandlerId-afterMessageNetworkEvent obj cb = liftIO $ do-    let cb' = wrap_MessageNetworkEventCallback cb-    cb'' <- mk_MessageNetworkEventCallback cb'-    connectSignalFunPtr obj "network-event" cb'' SignalConnectAfter----- signal Message::restarted-{- |-Emitted when a request that was already sent once is now-being sent again (eg, because the first attempt received a-redirection response, or because we needed to use-authentication).--}-type MessageRestartedCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `MessageRestartedCallback`@.-noMessageRestartedCallback :: Maybe MessageRestartedCallback-noMessageRestartedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_MessageRestartedCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_MessageRestartedCallback`.-foreign import ccall "wrapper"-    mk_MessageRestartedCallback :: C_MessageRestartedCallback -> IO (FunPtr C_MessageRestartedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_MessageRestarted :: MonadIO m => MessageRestartedCallback -> m (GClosure C_MessageRestartedCallback)-genClosure_MessageRestarted cb = liftIO $ do-    let cb' = wrap_MessageRestartedCallback cb-    mk_MessageRestartedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `MessageRestartedCallback` into a `C_MessageRestartedCallback`.-wrap_MessageRestartedCallback ::-    MessageRestartedCallback ->-    C_MessageRestartedCallback-wrap_MessageRestartedCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@restarted@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' message #restarted callback-@--}-onMessageRestarted :: (IsMessage a, MonadIO m) => a -> MessageRestartedCallback -> m SignalHandlerId-onMessageRestarted obj cb = liftIO $ do-    let cb' = wrap_MessageRestartedCallback cb-    cb'' <- mk_MessageRestartedCallback cb'-    connectSignalFunPtr obj "restarted" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@restarted@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' message #restarted callback-@--}-afterMessageRestarted :: (IsMessage a, MonadIO m) => a -> MessageRestartedCallback -> m SignalHandlerId-afterMessageRestarted obj cb = liftIO $ do-    let cb' = wrap_MessageRestartedCallback cb-    cb'' <- mk_MessageRestartedCallback cb'-    connectSignalFunPtr obj "restarted" cb'' SignalConnectAfter----- signal Message::starting-{- |-Emitted just before a message is sent.--/Since: 2.50/--}-type MessageStartingCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `MessageStartingCallback`@.-noMessageStartingCallback :: Maybe MessageStartingCallback-noMessageStartingCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_MessageStartingCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_MessageStartingCallback`.-foreign import ccall "wrapper"-    mk_MessageStartingCallback :: C_MessageStartingCallback -> IO (FunPtr C_MessageStartingCallback)---- | Wrap the callback into a `GClosure`.-genClosure_MessageStarting :: MonadIO m => MessageStartingCallback -> m (GClosure C_MessageStartingCallback)-genClosure_MessageStarting cb = liftIO $ do-    let cb' = wrap_MessageStartingCallback cb-    mk_MessageStartingCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `MessageStartingCallback` into a `C_MessageStartingCallback`.-wrap_MessageStartingCallback ::-    MessageStartingCallback ->-    C_MessageStartingCallback-wrap_MessageStartingCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@starting@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' message #starting callback-@--}-onMessageStarting :: (IsMessage a, MonadIO m) => a -> MessageStartingCallback -> m SignalHandlerId-onMessageStarting obj cb = liftIO $ do-    let cb' = wrap_MessageStartingCallback cb-    cb'' <- mk_MessageStartingCallback cb'-    connectSignalFunPtr obj "starting" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@starting@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' message #starting callback-@--}-afterMessageStarting :: (IsMessage a, MonadIO m) => a -> MessageStartingCallback -> m SignalHandlerId-afterMessageStarting obj cb = liftIO $ do-    let cb' = wrap_MessageStartingCallback cb-    cb'' <- mk_MessageStartingCallback cb'-    connectSignalFunPtr obj "starting" cb'' SignalConnectAfter----- signal Message::wrote-body-{- |-Emitted immediately after writing the complete body for a-message. (For a client-side message, this means that-libsoup is done writing and is now waiting for the response-from the server. For a server-side message, this means that-libsoup has finished writing the response and is nearly-done with the message.)--}-type MessageWroteBodyCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `MessageWroteBodyCallback`@.-noMessageWroteBodyCallback :: Maybe MessageWroteBodyCallback-noMessageWroteBodyCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_MessageWroteBodyCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_MessageWroteBodyCallback`.-foreign import ccall "wrapper"-    mk_MessageWroteBodyCallback :: C_MessageWroteBodyCallback -> IO (FunPtr C_MessageWroteBodyCallback)---- | Wrap the callback into a `GClosure`.-genClosure_MessageWroteBody :: MonadIO m => MessageWroteBodyCallback -> m (GClosure C_MessageWroteBodyCallback)-genClosure_MessageWroteBody cb = liftIO $ do-    let cb' = wrap_MessageWroteBodyCallback cb-    mk_MessageWroteBodyCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `MessageWroteBodyCallback` into a `C_MessageWroteBodyCallback`.-wrap_MessageWroteBodyCallback ::-    MessageWroteBodyCallback ->-    C_MessageWroteBodyCallback-wrap_MessageWroteBodyCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@wrote-body@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' message #wroteBody callback-@--}-onMessageWroteBody :: (IsMessage a, MonadIO m) => a -> MessageWroteBodyCallback -> m SignalHandlerId-onMessageWroteBody obj cb = liftIO $ do-    let cb' = wrap_MessageWroteBodyCallback cb-    cb'' <- mk_MessageWroteBodyCallback cb'-    connectSignalFunPtr obj "wrote-body" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@wrote-body@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' message #wroteBody callback-@--}-afterMessageWroteBody :: (IsMessage a, MonadIO m) => a -> MessageWroteBodyCallback -> m SignalHandlerId-afterMessageWroteBody obj cb = liftIO $ do-    let cb' = wrap_MessageWroteBodyCallback cb-    cb'' <- mk_MessageWroteBodyCallback cb'-    connectSignalFunPtr obj "wrote-body" cb'' SignalConnectAfter----- signal Message::wrote-body-data-{- |-Emitted immediately after writing a portion of the message-body to the network.--Unlike 'GI.Soup.Objects.Message.Message'::@/wrote_chunk/@, this is emitted after-every successful @/write()/@ call, not only after finishing a-complete \"chunk\".--/Since: 2.24/--}-type MessageWroteBodyDataCallback =-    Soup.Buffer.Buffer-    {- ^ /@chunk@/: the data written -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `MessageWroteBodyDataCallback`@.-noMessageWroteBodyDataCallback :: Maybe MessageWroteBodyDataCallback-noMessageWroteBodyDataCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_MessageWroteBodyDataCallback =-    Ptr () ->                               -- object-    Ptr Soup.Buffer.Buffer ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_MessageWroteBodyDataCallback`.-foreign import ccall "wrapper"-    mk_MessageWroteBodyDataCallback :: C_MessageWroteBodyDataCallback -> IO (FunPtr C_MessageWroteBodyDataCallback)---- | Wrap the callback into a `GClosure`.-genClosure_MessageWroteBodyData :: MonadIO m => MessageWroteBodyDataCallback -> m (GClosure C_MessageWroteBodyDataCallback)-genClosure_MessageWroteBodyData cb = liftIO $ do-    let cb' = wrap_MessageWroteBodyDataCallback cb-    mk_MessageWroteBodyDataCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `MessageWroteBodyDataCallback` into a `C_MessageWroteBodyDataCallback`.-wrap_MessageWroteBodyDataCallback ::-    MessageWroteBodyDataCallback ->-    C_MessageWroteBodyDataCallback-wrap_MessageWroteBodyDataCallback _cb _ chunk _ = do-    B.ManagedPtr.withTransient Soup.Buffer.Buffer chunk $ \chunk' -> do-        _cb  chunk'---{- |-Connect a signal handler for the “@wrote-body-data@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' message #wroteBodyData callback-@--}-onMessageWroteBodyData :: (IsMessage a, MonadIO m) => a -> MessageWroteBodyDataCallback -> m SignalHandlerId-onMessageWroteBodyData obj cb = liftIO $ do-    let cb' = wrap_MessageWroteBodyDataCallback cb-    cb'' <- mk_MessageWroteBodyDataCallback cb'-    connectSignalFunPtr obj "wrote-body-data" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@wrote-body-data@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' message #wroteBodyData callback-@--}-afterMessageWroteBodyData :: (IsMessage a, MonadIO m) => a -> MessageWroteBodyDataCallback -> m SignalHandlerId-afterMessageWroteBodyData obj cb = liftIO $ do-    let cb' = wrap_MessageWroteBodyDataCallback cb-    cb'' <- mk_MessageWroteBodyDataCallback cb'-    connectSignalFunPtr obj "wrote-body-data" cb'' SignalConnectAfter----- signal Message::wrote-chunk-{- |-Emitted immediately after writing a body chunk for a message.--Note that this signal is not parallel to-'GI.Soup.Objects.Message.Message'::@/got_chunk/@; it is emitted only when a complete-chunk (added with @/soup_message_body_append()/@ or-'GI.Soup.Structs.MessageBody.messageBodyAppendBuffer') has been written. To get-more useful continuous progress information, use-'GI.Soup.Objects.Message.Message'::@/wrote_body_data/@.--}-type MessageWroteChunkCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `MessageWroteChunkCallback`@.-noMessageWroteChunkCallback :: Maybe MessageWroteChunkCallback-noMessageWroteChunkCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_MessageWroteChunkCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_MessageWroteChunkCallback`.-foreign import ccall "wrapper"-    mk_MessageWroteChunkCallback :: C_MessageWroteChunkCallback -> IO (FunPtr C_MessageWroteChunkCallback)---- | Wrap the callback into a `GClosure`.-genClosure_MessageWroteChunk :: MonadIO m => MessageWroteChunkCallback -> m (GClosure C_MessageWroteChunkCallback)-genClosure_MessageWroteChunk cb = liftIO $ do-    let cb' = wrap_MessageWroteChunkCallback cb-    mk_MessageWroteChunkCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `MessageWroteChunkCallback` into a `C_MessageWroteChunkCallback`.-wrap_MessageWroteChunkCallback ::-    MessageWroteChunkCallback ->-    C_MessageWroteChunkCallback-wrap_MessageWroteChunkCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@wrote-chunk@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' message #wroteChunk callback-@--}-onMessageWroteChunk :: (IsMessage a, MonadIO m) => a -> MessageWroteChunkCallback -> m SignalHandlerId-onMessageWroteChunk obj cb = liftIO $ do-    let cb' = wrap_MessageWroteChunkCallback cb-    cb'' <- mk_MessageWroteChunkCallback cb'-    connectSignalFunPtr obj "wrote-chunk" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@wrote-chunk@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' message #wroteChunk callback-@--}-afterMessageWroteChunk :: (IsMessage a, MonadIO m) => a -> MessageWroteChunkCallback -> m SignalHandlerId-afterMessageWroteChunk obj cb = liftIO $ do-    let cb' = wrap_MessageWroteChunkCallback cb-    cb'' <- mk_MessageWroteChunkCallback cb'-    connectSignalFunPtr obj "wrote-chunk" cb'' SignalConnectAfter----- signal Message::wrote-headers-{- |-Emitted immediately after writing the headers for a-message. (For a client-side message, this is after writing-the request headers; for a server-side message, it is after-writing the response headers.)--}-type MessageWroteHeadersCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `MessageWroteHeadersCallback`@.-noMessageWroteHeadersCallback :: Maybe MessageWroteHeadersCallback-noMessageWroteHeadersCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_MessageWroteHeadersCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_MessageWroteHeadersCallback`.-foreign import ccall "wrapper"-    mk_MessageWroteHeadersCallback :: C_MessageWroteHeadersCallback -> IO (FunPtr C_MessageWroteHeadersCallback)---- | Wrap the callback into a `GClosure`.-genClosure_MessageWroteHeaders :: MonadIO m => MessageWroteHeadersCallback -> m (GClosure C_MessageWroteHeadersCallback)-genClosure_MessageWroteHeaders cb = liftIO $ do-    let cb' = wrap_MessageWroteHeadersCallback cb-    mk_MessageWroteHeadersCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `MessageWroteHeadersCallback` into a `C_MessageWroteHeadersCallback`.-wrap_MessageWroteHeadersCallback ::-    MessageWroteHeadersCallback ->-    C_MessageWroteHeadersCallback-wrap_MessageWroteHeadersCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@wrote-headers@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' message #wroteHeaders callback-@--}-onMessageWroteHeaders :: (IsMessage a, MonadIO m) => a -> MessageWroteHeadersCallback -> m SignalHandlerId-onMessageWroteHeaders obj cb = liftIO $ do-    let cb' = wrap_MessageWroteHeadersCallback cb-    cb'' <- mk_MessageWroteHeadersCallback cb'-    connectSignalFunPtr obj "wrote-headers" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@wrote-headers@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' message #wroteHeaders callback-@--}-afterMessageWroteHeaders :: (IsMessage a, MonadIO m) => a -> MessageWroteHeadersCallback -> m SignalHandlerId-afterMessageWroteHeaders obj cb = liftIO $ do-    let cb' = wrap_MessageWroteHeadersCallback cb-    cb'' <- mk_MessageWroteHeadersCallback cb'-    connectSignalFunPtr obj "wrote-headers" cb'' SignalConnectAfter----- signal Message::wrote-informational-{- |-Emitted immediately after writing a 1xx (Informational)-response for a (server-side) message.--}-type MessageWroteInformationalCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `MessageWroteInformationalCallback`@.-noMessageWroteInformationalCallback :: Maybe MessageWroteInformationalCallback-noMessageWroteInformationalCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_MessageWroteInformationalCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_MessageWroteInformationalCallback`.-foreign import ccall "wrapper"-    mk_MessageWroteInformationalCallback :: C_MessageWroteInformationalCallback -> IO (FunPtr C_MessageWroteInformationalCallback)---- | Wrap the callback into a `GClosure`.-genClosure_MessageWroteInformational :: MonadIO m => MessageWroteInformationalCallback -> m (GClosure C_MessageWroteInformationalCallback)-genClosure_MessageWroteInformational cb = liftIO $ do-    let cb' = wrap_MessageWroteInformationalCallback cb-    mk_MessageWroteInformationalCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `MessageWroteInformationalCallback` into a `C_MessageWroteInformationalCallback`.-wrap_MessageWroteInformationalCallback ::-    MessageWroteInformationalCallback ->-    C_MessageWroteInformationalCallback-wrap_MessageWroteInformationalCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@wrote-informational@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' message #wroteInformational callback-@--}-onMessageWroteInformational :: (IsMessage a, MonadIO m) => a -> MessageWroteInformationalCallback -> m SignalHandlerId-onMessageWroteInformational obj cb = liftIO $ do-    let cb' = wrap_MessageWroteInformationalCallback cb-    cb'' <- mk_MessageWroteInformationalCallback cb'-    connectSignalFunPtr obj "wrote-informational" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@wrote-informational@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' message #wroteInformational callback-@--}-afterMessageWroteInformational :: (IsMessage a, MonadIO m) => a -> MessageWroteInformationalCallback -> m SignalHandlerId-afterMessageWroteInformational obj cb = liftIO $ do-    let cb' = wrap_MessageWroteInformationalCallback cb-    cb'' <- mk_MessageWroteInformationalCallback cb'-    connectSignalFunPtr obj "wrote-informational" cb'' SignalConnectAfter----- VVV Prop "first-party"-   -- Type: TInterface (Name {namespace = "Soup", name = "URI"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@first-party@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' message #firstParty-@--}-getMessageFirstParty :: (MonadIO m, IsMessage o) => o -> m Soup.URI.URI-getMessageFirstParty obj = liftIO $ checkUnexpectedNothing "getMessageFirstParty" $ B.Properties.getObjectPropertyBoxed obj "first-party" Soup.URI.URI--{- |-Set the value of the “@first-party@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' message [ #firstParty 'Data.GI.Base.Attributes.:=' value ]-@--}-setMessageFirstParty :: (MonadIO m, IsMessage o) => o -> Soup.URI.URI -> m ()-setMessageFirstParty obj val = liftIO $ B.Properties.setObjectPropertyBoxed obj "first-party" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@first-party@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructMessageFirstParty :: (IsMessage o) => Soup.URI.URI -> IO (GValueConstruct o)-constructMessageFirstParty val = B.Properties.constructObjectPropertyBoxed "first-party" (Just val)--#if ENABLE_OVERLOADING-data MessageFirstPartyPropertyInfo-instance AttrInfo MessageFirstPartyPropertyInfo where-    type AttrAllowedOps MessageFirstPartyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MessageFirstPartyPropertyInfo = (~) Soup.URI.URI-    type AttrBaseTypeConstraint MessageFirstPartyPropertyInfo = IsMessage-    type AttrGetType MessageFirstPartyPropertyInfo = Soup.URI.URI-    type AttrLabel MessageFirstPartyPropertyInfo = "first-party"-    type AttrOrigin MessageFirstPartyPropertyInfo = Message-    attrGet _ = getMessageFirstParty-    attrSet _ = setMessageFirstParty-    attrConstruct _ = constructMessageFirstParty-    attrClear _ = undefined-#endif---- VVV Prop "flags"-   -- Type: TInterface (Name {namespace = "Soup", name = "MessageFlags"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@flags@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' message #flags-@--}-getMessageFlags :: (MonadIO m, IsMessage o) => o -> m [Soup.Flags.MessageFlags]-getMessageFlags obj = liftIO $ B.Properties.getObjectPropertyFlags obj "flags"--{- |-Set the value of the “@flags@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' message [ #flags 'Data.GI.Base.Attributes.:=' value ]-@--}-setMessageFlags :: (MonadIO m, IsMessage o) => o -> [Soup.Flags.MessageFlags] -> m ()-setMessageFlags obj val = liftIO $ B.Properties.setObjectPropertyFlags obj "flags" val--{- |-Construct a `GValueConstruct` with valid value for the “@flags@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructMessageFlags :: (IsMessage o) => [Soup.Flags.MessageFlags] -> IO (GValueConstruct o)-constructMessageFlags val = B.Properties.constructObjectPropertyFlags "flags" val--#if ENABLE_OVERLOADING-data MessageFlagsPropertyInfo-instance AttrInfo MessageFlagsPropertyInfo where-    type AttrAllowedOps MessageFlagsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MessageFlagsPropertyInfo = (~) [Soup.Flags.MessageFlags]-    type AttrBaseTypeConstraint MessageFlagsPropertyInfo = IsMessage-    type AttrGetType MessageFlagsPropertyInfo = [Soup.Flags.MessageFlags]-    type AttrLabel MessageFlagsPropertyInfo = "flags"-    type AttrOrigin MessageFlagsPropertyInfo = Message-    attrGet _ = getMessageFlags-    attrSet _ = setMessageFlags-    attrConstruct _ = constructMessageFlags-    attrClear _ = undefined-#endif---- VVV Prop "http-version"-   -- Type: TInterface (Name {namespace = "Soup", name = "HTTPVersion"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@http-version@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' message #httpVersion-@--}-getMessageHttpVersion :: (MonadIO m, IsMessage o) => o -> m Soup.Enums.HTTPVersion-getMessageHttpVersion obj = liftIO $ B.Properties.getObjectPropertyEnum obj "http-version"--{- |-Set the value of the “@http-version@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' message [ #httpVersion 'Data.GI.Base.Attributes.:=' value ]-@--}-setMessageHttpVersion :: (MonadIO m, IsMessage o) => o -> Soup.Enums.HTTPVersion -> m ()-setMessageHttpVersion obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "http-version" val--{- |-Construct a `GValueConstruct` with valid value for the “@http-version@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructMessageHttpVersion :: (IsMessage o) => Soup.Enums.HTTPVersion -> IO (GValueConstruct o)-constructMessageHttpVersion val = B.Properties.constructObjectPropertyEnum "http-version" val--#if ENABLE_OVERLOADING-data MessageHttpVersionPropertyInfo-instance AttrInfo MessageHttpVersionPropertyInfo where-    type AttrAllowedOps MessageHttpVersionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MessageHttpVersionPropertyInfo = (~) Soup.Enums.HTTPVersion-    type AttrBaseTypeConstraint MessageHttpVersionPropertyInfo = IsMessage-    type AttrGetType MessageHttpVersionPropertyInfo = Soup.Enums.HTTPVersion-    type AttrLabel MessageHttpVersionPropertyInfo = "http-version"-    type AttrOrigin MessageHttpVersionPropertyInfo = Message-    attrGet _ = getMessageHttpVersion-    attrSet _ = setMessageHttpVersion-    attrConstruct _ = constructMessageHttpVersion-    attrClear _ = undefined-#endif---- VVV Prop "method"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@method@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' message #method-@--}-getMessageMethod :: (MonadIO m, IsMessage o) => o -> m (Maybe T.Text)-getMessageMethod obj = liftIO $ B.Properties.getObjectPropertyString obj "method"--{- |-Set the value of the “@method@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' message [ #method 'Data.GI.Base.Attributes.:=' value ]-@--}-setMessageMethod :: (MonadIO m, IsMessage o) => o -> T.Text -> m ()-setMessageMethod obj val = liftIO $ B.Properties.setObjectPropertyString obj "method" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@method@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructMessageMethod :: (IsMessage o) => T.Text -> IO (GValueConstruct o)-constructMessageMethod val = B.Properties.constructObjectPropertyString "method" (Just val)--{- |-Set the value of the “@method@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #method-@--}-clearMessageMethod :: (MonadIO m, IsMessage o) => o -> m ()-clearMessageMethod obj = liftIO $ B.Properties.setObjectPropertyString obj "method" (Nothing :: Maybe T.Text)--#if ENABLE_OVERLOADING-data MessageMethodPropertyInfo-instance AttrInfo MessageMethodPropertyInfo where-    type AttrAllowedOps MessageMethodPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint MessageMethodPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint MessageMethodPropertyInfo = IsMessage-    type AttrGetType MessageMethodPropertyInfo = (Maybe T.Text)-    type AttrLabel MessageMethodPropertyInfo = "method"-    type AttrOrigin MessageMethodPropertyInfo = Message-    attrGet _ = getMessageMethod-    attrSet _ = setMessageMethod-    attrConstruct _ = constructMessageMethod-    attrClear _ = clearMessageMethod-#endif---- VVV Prop "priority"-   -- Type: TInterface (Name {namespace = "Soup", name = "MessagePriority"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@priority@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' message #priority-@--}-getMessagePriority :: (MonadIO m, IsMessage o) => o -> m Soup.Enums.MessagePriority-getMessagePriority obj = liftIO $ B.Properties.getObjectPropertyEnum obj "priority"--{- |-Set the value of the “@priority@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' message [ #priority 'Data.GI.Base.Attributes.:=' value ]-@--}-setMessagePriority :: (MonadIO m, IsMessage o) => o -> Soup.Enums.MessagePriority -> m ()-setMessagePriority obj val = liftIO $ B.Properties.setObjectPropertyEnum obj "priority" val--{- |-Construct a `GValueConstruct` with valid value for the “@priority@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructMessagePriority :: (IsMessage o) => Soup.Enums.MessagePriority -> IO (GValueConstruct o)-constructMessagePriority val = B.Properties.constructObjectPropertyEnum "priority" val--#if ENABLE_OVERLOADING-data MessagePriorityPropertyInfo-instance AttrInfo MessagePriorityPropertyInfo where-    type AttrAllowedOps MessagePriorityPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MessagePriorityPropertyInfo = (~) Soup.Enums.MessagePriority-    type AttrBaseTypeConstraint MessagePriorityPropertyInfo = IsMessage-    type AttrGetType MessagePriorityPropertyInfo = Soup.Enums.MessagePriority-    type AttrLabel MessagePriorityPropertyInfo = "priority"-    type AttrOrigin MessagePriorityPropertyInfo = Message-    attrGet _ = getMessagePriority-    attrSet _ = setMessagePriority-    attrConstruct _ = constructMessagePriority-    attrClear _ = undefined-#endif---- VVV Prop "reason-phrase"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@reason-phrase@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' message #reasonPhrase-@--}-getMessageReasonPhrase :: (MonadIO m, IsMessage o) => o -> m (Maybe T.Text)-getMessageReasonPhrase obj = liftIO $ B.Properties.getObjectPropertyString obj "reason-phrase"--{- |-Set the value of the “@reason-phrase@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' message [ #reasonPhrase 'Data.GI.Base.Attributes.:=' value ]-@--}-setMessageReasonPhrase :: (MonadIO m, IsMessage o) => o -> T.Text -> m ()-setMessageReasonPhrase obj val = liftIO $ B.Properties.setObjectPropertyString obj "reason-phrase" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@reason-phrase@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructMessageReasonPhrase :: (IsMessage o) => T.Text -> IO (GValueConstruct o)-constructMessageReasonPhrase val = B.Properties.constructObjectPropertyString "reason-phrase" (Just val)--{- |-Set the value of the “@reason-phrase@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #reasonPhrase-@--}-clearMessageReasonPhrase :: (MonadIO m, IsMessage o) => o -> m ()-clearMessageReasonPhrase obj = liftIO $ B.Properties.setObjectPropertyString obj "reason-phrase" (Nothing :: Maybe T.Text)--#if ENABLE_OVERLOADING-data MessageReasonPhrasePropertyInfo-instance AttrInfo MessageReasonPhrasePropertyInfo where-    type AttrAllowedOps MessageReasonPhrasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint MessageReasonPhrasePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint MessageReasonPhrasePropertyInfo = IsMessage-    type AttrGetType MessageReasonPhrasePropertyInfo = (Maybe T.Text)-    type AttrLabel MessageReasonPhrasePropertyInfo = "reason-phrase"-    type AttrOrigin MessageReasonPhrasePropertyInfo = Message-    attrGet _ = getMessageReasonPhrase-    attrSet _ = setMessageReasonPhrase-    attrConstruct _ = constructMessageReasonPhrase-    attrClear _ = clearMessageReasonPhrase-#endif---- VVV Prop "request-body"-   -- Type: TInterface (Name {namespace = "Soup", name = "MessageBody"})-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@request-body@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' message #requestBody-@--}-getMessageRequestBody :: (MonadIO m, IsMessage o) => o -> m (Maybe Soup.MessageBody.MessageBody)-getMessageRequestBody obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "request-body" Soup.MessageBody.MessageBody--#if ENABLE_OVERLOADING-data MessageRequestBodyPropertyInfo-instance AttrInfo MessageRequestBodyPropertyInfo where-    type AttrAllowedOps MessageRequestBodyPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint MessageRequestBodyPropertyInfo = (~) ()-    type AttrBaseTypeConstraint MessageRequestBodyPropertyInfo = IsMessage-    type AttrGetType MessageRequestBodyPropertyInfo = (Maybe Soup.MessageBody.MessageBody)-    type AttrLabel MessageRequestBodyPropertyInfo = "request-body"-    type AttrOrigin MessageRequestBodyPropertyInfo = Message-    attrGet _ = getMessageRequestBody-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "request-body-data"-   -- Type: TInterface (Name {namespace = "GLib", name = "Bytes"})-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@request-body-data@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' message #requestBodyData-@--}-getMessageRequestBodyData :: (MonadIO m, IsMessage o) => o -> m (Maybe GLib.Bytes.Bytes)-getMessageRequestBodyData obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "request-body-data" GLib.Bytes.Bytes--#if ENABLE_OVERLOADING-data MessageRequestBodyDataPropertyInfo-instance AttrInfo MessageRequestBodyDataPropertyInfo where-    type AttrAllowedOps MessageRequestBodyDataPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint MessageRequestBodyDataPropertyInfo = (~) ()-    type AttrBaseTypeConstraint MessageRequestBodyDataPropertyInfo = IsMessage-    type AttrGetType MessageRequestBodyDataPropertyInfo = (Maybe GLib.Bytes.Bytes)-    type AttrLabel MessageRequestBodyDataPropertyInfo = "request-body-data"-    type AttrOrigin MessageRequestBodyDataPropertyInfo = Message-    attrGet _ = getMessageRequestBodyData-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "request-headers"-   -- Type: TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@request-headers@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' message #requestHeaders-@--}-getMessageRequestHeaders :: (MonadIO m, IsMessage o) => o -> m (Maybe Soup.MessageHeaders.MessageHeaders)-getMessageRequestHeaders obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "request-headers" Soup.MessageHeaders.MessageHeaders--#if ENABLE_OVERLOADING-data MessageRequestHeadersPropertyInfo-instance AttrInfo MessageRequestHeadersPropertyInfo where-    type AttrAllowedOps MessageRequestHeadersPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint MessageRequestHeadersPropertyInfo = (~) ()-    type AttrBaseTypeConstraint MessageRequestHeadersPropertyInfo = IsMessage-    type AttrGetType MessageRequestHeadersPropertyInfo = (Maybe Soup.MessageHeaders.MessageHeaders)-    type AttrLabel MessageRequestHeadersPropertyInfo = "request-headers"-    type AttrOrigin MessageRequestHeadersPropertyInfo = Message-    attrGet _ = getMessageRequestHeaders-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "response-body"-   -- Type: TInterface (Name {namespace = "Soup", name = "MessageBody"})-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@response-body@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' message #responseBody-@--}-getMessageResponseBody :: (MonadIO m, IsMessage o) => o -> m (Maybe Soup.MessageBody.MessageBody)-getMessageResponseBody obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "response-body" Soup.MessageBody.MessageBody--#if ENABLE_OVERLOADING-data MessageResponseBodyPropertyInfo-instance AttrInfo MessageResponseBodyPropertyInfo where-    type AttrAllowedOps MessageResponseBodyPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint MessageResponseBodyPropertyInfo = (~) ()-    type AttrBaseTypeConstraint MessageResponseBodyPropertyInfo = IsMessage-    type AttrGetType MessageResponseBodyPropertyInfo = (Maybe Soup.MessageBody.MessageBody)-    type AttrLabel MessageResponseBodyPropertyInfo = "response-body"-    type AttrOrigin MessageResponseBodyPropertyInfo = Message-    attrGet _ = getMessageResponseBody-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "response-body-data"-   -- Type: TInterface (Name {namespace = "GLib", name = "Bytes"})-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@response-body-data@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' message #responseBodyData-@--}-getMessageResponseBodyData :: (MonadIO m, IsMessage o) => o -> m (Maybe GLib.Bytes.Bytes)-getMessageResponseBodyData obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "response-body-data" GLib.Bytes.Bytes--#if ENABLE_OVERLOADING-data MessageResponseBodyDataPropertyInfo-instance AttrInfo MessageResponseBodyDataPropertyInfo where-    type AttrAllowedOps MessageResponseBodyDataPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint MessageResponseBodyDataPropertyInfo = (~) ()-    type AttrBaseTypeConstraint MessageResponseBodyDataPropertyInfo = IsMessage-    type AttrGetType MessageResponseBodyDataPropertyInfo = (Maybe GLib.Bytes.Bytes)-    type AttrLabel MessageResponseBodyDataPropertyInfo = "response-body-data"-    type AttrOrigin MessageResponseBodyDataPropertyInfo = Message-    attrGet _ = getMessageResponseBodyData-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "response-headers"-   -- Type: TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@response-headers@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' message #responseHeaders-@--}-getMessageResponseHeaders :: (MonadIO m, IsMessage o) => o -> m (Maybe Soup.MessageHeaders.MessageHeaders)-getMessageResponseHeaders obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "response-headers" Soup.MessageHeaders.MessageHeaders--#if ENABLE_OVERLOADING-data MessageResponseHeadersPropertyInfo-instance AttrInfo MessageResponseHeadersPropertyInfo where-    type AttrAllowedOps MessageResponseHeadersPropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint MessageResponseHeadersPropertyInfo = (~) ()-    type AttrBaseTypeConstraint MessageResponseHeadersPropertyInfo = IsMessage-    type AttrGetType MessageResponseHeadersPropertyInfo = (Maybe Soup.MessageHeaders.MessageHeaders)-    type AttrLabel MessageResponseHeadersPropertyInfo = "response-headers"-    type AttrOrigin MessageResponseHeadersPropertyInfo = Message-    attrGet _ = getMessageResponseHeaders-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "server-side"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@server-side@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' message #serverSide-@--}-getMessageServerSide :: (MonadIO m, IsMessage o) => o -> m Bool-getMessageServerSide obj = liftIO $ B.Properties.getObjectPropertyBool obj "server-side"--{- |-Construct a `GValueConstruct` with valid value for the “@server-side@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructMessageServerSide :: (IsMessage o) => Bool -> IO (GValueConstruct o)-constructMessageServerSide val = B.Properties.constructObjectPropertyBool "server-side" val--#if ENABLE_OVERLOADING-data MessageServerSidePropertyInfo-instance AttrInfo MessageServerSidePropertyInfo where-    type AttrAllowedOps MessageServerSidePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MessageServerSidePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint MessageServerSidePropertyInfo = IsMessage-    type AttrGetType MessageServerSidePropertyInfo = Bool-    type AttrLabel MessageServerSidePropertyInfo = "server-side"-    type AttrOrigin MessageServerSidePropertyInfo = Message-    attrGet _ = getMessageServerSide-    attrSet _ = undefined-    attrConstruct _ = constructMessageServerSide-    attrClear _ = undefined-#endif---- VVV Prop "status-code"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@status-code@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' message #statusCode-@--}-getMessageStatusCode :: (MonadIO m, IsMessage o) => o -> m Word32-getMessageStatusCode obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "status-code"--{- |-Set the value of the “@status-code@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' message [ #statusCode 'Data.GI.Base.Attributes.:=' value ]-@--}-setMessageStatusCode :: (MonadIO m, IsMessage o) => o -> Word32 -> m ()-setMessageStatusCode obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "status-code" val--{- |-Construct a `GValueConstruct` with valid value for the “@status-code@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructMessageStatusCode :: (IsMessage o) => Word32 -> IO (GValueConstruct o)-constructMessageStatusCode val = B.Properties.constructObjectPropertyUInt32 "status-code" val--#if ENABLE_OVERLOADING-data MessageStatusCodePropertyInfo-instance AttrInfo MessageStatusCodePropertyInfo where-    type AttrAllowedOps MessageStatusCodePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MessageStatusCodePropertyInfo = (~) Word32-    type AttrBaseTypeConstraint MessageStatusCodePropertyInfo = IsMessage-    type AttrGetType MessageStatusCodePropertyInfo = Word32-    type AttrLabel MessageStatusCodePropertyInfo = "status-code"-    type AttrOrigin MessageStatusCodePropertyInfo = Message-    attrGet _ = getMessageStatusCode-    attrSet _ = setMessageStatusCode-    attrConstruct _ = constructMessageStatusCode-    attrClear _ = undefined-#endif---- VVV Prop "tls-certificate"-   -- Type: TInterface (Name {namespace = "Gio", name = "TlsCertificate"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@tls-certificate@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' message #tlsCertificate-@--}-getMessageTlsCertificate :: (MonadIO m, IsMessage o) => o -> m (Maybe Gio.TlsCertificate.TlsCertificate)-getMessageTlsCertificate obj = liftIO $ B.Properties.getObjectPropertyObject obj "tls-certificate" Gio.TlsCertificate.TlsCertificate--{- |-Set the value of the “@tls-certificate@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' message [ #tlsCertificate 'Data.GI.Base.Attributes.:=' value ]-@--}-setMessageTlsCertificate :: (MonadIO m, IsMessage o, Gio.TlsCertificate.IsTlsCertificate a) => o -> a -> m ()-setMessageTlsCertificate obj val = liftIO $ B.Properties.setObjectPropertyObject obj "tls-certificate" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@tls-certificate@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructMessageTlsCertificate :: (IsMessage o, Gio.TlsCertificate.IsTlsCertificate a) => a -> IO (GValueConstruct o)-constructMessageTlsCertificate val = B.Properties.constructObjectPropertyObject "tls-certificate" (Just val)--{- |-Set the value of the “@tls-certificate@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #tlsCertificate-@--}-clearMessageTlsCertificate :: (MonadIO m, IsMessage o) => o -> m ()-clearMessageTlsCertificate obj = liftIO $ B.Properties.setObjectPropertyObject obj "tls-certificate" (Nothing :: Maybe Gio.TlsCertificate.TlsCertificate)--#if ENABLE_OVERLOADING-data MessageTlsCertificatePropertyInfo-instance AttrInfo MessageTlsCertificatePropertyInfo where-    type AttrAllowedOps MessageTlsCertificatePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint MessageTlsCertificatePropertyInfo = Gio.TlsCertificate.IsTlsCertificate-    type AttrBaseTypeConstraint MessageTlsCertificatePropertyInfo = IsMessage-    type AttrGetType MessageTlsCertificatePropertyInfo = (Maybe Gio.TlsCertificate.TlsCertificate)-    type AttrLabel MessageTlsCertificatePropertyInfo = "tls-certificate"-    type AttrOrigin MessageTlsCertificatePropertyInfo = Message-    attrGet _ = getMessageTlsCertificate-    attrSet _ = setMessageTlsCertificate-    attrConstruct _ = constructMessageTlsCertificate-    attrClear _ = clearMessageTlsCertificate-#endif---- VVV Prop "tls-errors"-   -- Type: TInterface (Name {namespace = "Gio", name = "TlsCertificateFlags"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@tls-errors@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' message #tlsErrors-@--}-getMessageTlsErrors :: (MonadIO m, IsMessage o) => o -> m [Gio.Flags.TlsCertificateFlags]-getMessageTlsErrors obj = liftIO $ B.Properties.getObjectPropertyFlags obj "tls-errors"--{- |-Set the value of the “@tls-errors@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' message [ #tlsErrors 'Data.GI.Base.Attributes.:=' value ]-@--}-setMessageTlsErrors :: (MonadIO m, IsMessage o) => o -> [Gio.Flags.TlsCertificateFlags] -> m ()-setMessageTlsErrors obj val = liftIO $ B.Properties.setObjectPropertyFlags obj "tls-errors" val--{- |-Construct a `GValueConstruct` with valid value for the “@tls-errors@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructMessageTlsErrors :: (IsMessage o) => [Gio.Flags.TlsCertificateFlags] -> IO (GValueConstruct o)-constructMessageTlsErrors val = B.Properties.constructObjectPropertyFlags "tls-errors" val--#if ENABLE_OVERLOADING-data MessageTlsErrorsPropertyInfo-instance AttrInfo MessageTlsErrorsPropertyInfo where-    type AttrAllowedOps MessageTlsErrorsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MessageTlsErrorsPropertyInfo = (~) [Gio.Flags.TlsCertificateFlags]-    type AttrBaseTypeConstraint MessageTlsErrorsPropertyInfo = IsMessage-    type AttrGetType MessageTlsErrorsPropertyInfo = [Gio.Flags.TlsCertificateFlags]-    type AttrLabel MessageTlsErrorsPropertyInfo = "tls-errors"-    type AttrOrigin MessageTlsErrorsPropertyInfo = Message-    attrGet _ = getMessageTlsErrors-    attrSet _ = setMessageTlsErrors-    attrConstruct _ = constructMessageTlsErrors-    attrClear _ = undefined-#endif---- VVV Prop "uri"-   -- Type: TInterface (Name {namespace = "Soup", name = "URI"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@uri@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' message #uri-@--}-getMessageUri :: (MonadIO m, IsMessage o) => o -> m Soup.URI.URI-getMessageUri obj = liftIO $ checkUnexpectedNothing "getMessageUri" $ B.Properties.getObjectPropertyBoxed obj "uri" Soup.URI.URI--{- |-Set the value of the “@uri@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' message [ #uri 'Data.GI.Base.Attributes.:=' value ]-@--}-setMessageUri :: (MonadIO m, IsMessage o) => o -> Soup.URI.URI -> m ()-setMessageUri obj val = liftIO $ B.Properties.setObjectPropertyBoxed obj "uri" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@uri@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructMessageUri :: (IsMessage o) => Soup.URI.URI -> IO (GValueConstruct o)-constructMessageUri val = B.Properties.constructObjectPropertyBoxed "uri" (Just val)--#if ENABLE_OVERLOADING-data MessageUriPropertyInfo-instance AttrInfo MessageUriPropertyInfo where-    type AttrAllowedOps MessageUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint MessageUriPropertyInfo = (~) Soup.URI.URI-    type AttrBaseTypeConstraint MessageUriPropertyInfo = IsMessage-    type AttrGetType MessageUriPropertyInfo = Soup.URI.URI-    type AttrLabel MessageUriPropertyInfo = "uri"-    type AttrOrigin MessageUriPropertyInfo = Message-    attrGet _ = getMessageUri-    attrSet _ = setMessageUri-    attrConstruct _ = constructMessageUri-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList Message-type instance O.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, *)])-#endif--#if ENABLE_OVERLOADING-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--#endif--#if ENABLE_OVERLOADING-data MessageContentSniffedSignalInfo-instance SignalInfo MessageContentSniffedSignalInfo where-    type HaskellCallbackType MessageContentSniffedSignalInfo = MessageContentSniffedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_MessageContentSniffedCallback cb-        cb'' <- mk_MessageContentSniffedCallback cb'-        connectSignalFunPtr obj "content-sniffed" cb'' connectMode--data MessageFinishedSignalInfo-instance SignalInfo MessageFinishedSignalInfo where-    type HaskellCallbackType MessageFinishedSignalInfo = MessageFinishedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_MessageFinishedCallback cb-        cb'' <- mk_MessageFinishedCallback cb'-        connectSignalFunPtr obj "finished" cb'' connectMode--data MessageGotBodySignalInfo-instance SignalInfo MessageGotBodySignalInfo where-    type HaskellCallbackType MessageGotBodySignalInfo = MessageGotBodyCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_MessageGotBodyCallback cb-        cb'' <- mk_MessageGotBodyCallback cb'-        connectSignalFunPtr obj "got-body" cb'' connectMode--data MessageGotChunkSignalInfo-instance SignalInfo MessageGotChunkSignalInfo where-    type HaskellCallbackType MessageGotChunkSignalInfo = MessageGotChunkCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_MessageGotChunkCallback cb-        cb'' <- mk_MessageGotChunkCallback cb'-        connectSignalFunPtr obj "got-chunk" cb'' connectMode--data MessageGotHeadersSignalInfo-instance SignalInfo MessageGotHeadersSignalInfo where-    type HaskellCallbackType MessageGotHeadersSignalInfo = MessageGotHeadersCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_MessageGotHeadersCallback cb-        cb'' <- mk_MessageGotHeadersCallback cb'-        connectSignalFunPtr obj "got-headers" cb'' connectMode--data MessageGotInformationalSignalInfo-instance SignalInfo MessageGotInformationalSignalInfo where-    type HaskellCallbackType MessageGotInformationalSignalInfo = MessageGotInformationalCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_MessageGotInformationalCallback cb-        cb'' <- mk_MessageGotInformationalCallback cb'-        connectSignalFunPtr obj "got-informational" cb'' connectMode--data MessageNetworkEventSignalInfo-instance SignalInfo MessageNetworkEventSignalInfo where-    type HaskellCallbackType MessageNetworkEventSignalInfo = MessageNetworkEventCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_MessageNetworkEventCallback cb-        cb'' <- mk_MessageNetworkEventCallback cb'-        connectSignalFunPtr obj "network-event" cb'' connectMode--data MessageRestartedSignalInfo-instance SignalInfo MessageRestartedSignalInfo where-    type HaskellCallbackType MessageRestartedSignalInfo = MessageRestartedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_MessageRestartedCallback cb-        cb'' <- mk_MessageRestartedCallback cb'-        connectSignalFunPtr obj "restarted" cb'' connectMode--data MessageStartingSignalInfo-instance SignalInfo MessageStartingSignalInfo where-    type HaskellCallbackType MessageStartingSignalInfo = MessageStartingCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_MessageStartingCallback cb-        cb'' <- mk_MessageStartingCallback cb'-        connectSignalFunPtr obj "starting" cb'' connectMode--data MessageWroteBodySignalInfo-instance SignalInfo MessageWroteBodySignalInfo where-    type HaskellCallbackType MessageWroteBodySignalInfo = MessageWroteBodyCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_MessageWroteBodyCallback cb-        cb'' <- mk_MessageWroteBodyCallback cb'-        connectSignalFunPtr obj "wrote-body" cb'' connectMode--data MessageWroteBodyDataSignalInfo-instance SignalInfo MessageWroteBodyDataSignalInfo where-    type HaskellCallbackType MessageWroteBodyDataSignalInfo = MessageWroteBodyDataCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_MessageWroteBodyDataCallback cb-        cb'' <- mk_MessageWroteBodyDataCallback cb'-        connectSignalFunPtr obj "wrote-body-data" cb'' connectMode--data MessageWroteChunkSignalInfo-instance SignalInfo MessageWroteChunkSignalInfo where-    type HaskellCallbackType MessageWroteChunkSignalInfo = MessageWroteChunkCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_MessageWroteChunkCallback cb-        cb'' <- mk_MessageWroteChunkCallback cb'-        connectSignalFunPtr obj "wrote-chunk" cb'' connectMode--data MessageWroteHeadersSignalInfo-instance SignalInfo MessageWroteHeadersSignalInfo where-    type HaskellCallbackType MessageWroteHeadersSignalInfo = MessageWroteHeadersCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_MessageWroteHeadersCallback cb-        cb'' <- mk_MessageWroteHeadersCallback cb'-        connectSignalFunPtr obj "wrote-headers" cb'' connectMode--data MessageWroteInformationalSignalInfo-instance SignalInfo MessageWroteInformationalSignalInfo where-    type HaskellCallbackType MessageWroteInformationalSignalInfo = MessageWroteInformationalCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_MessageWroteInformationalCallback cb-        cb'' <- mk_MessageWroteInformationalCallback cb'-        connectSignalFunPtr obj "wrote-informational" cb'' connectMode--type instance O.SignalList Message = MessageSignalList-type MessageSignalList = ('[ '("contentSniffed", MessageContentSniffedSignalInfo), '("finished", MessageFinishedSignalInfo), '("gotBody", MessageGotBodySignalInfo), '("gotChunk", MessageGotChunkSignalInfo), '("gotHeaders", MessageGotHeadersSignalInfo), '("gotInformational", MessageGotInformationalSignalInfo), '("networkEvent", MessageNetworkEventSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("restarted", MessageRestartedSignalInfo), '("starting", MessageStartingSignalInfo), '("wroteBody", MessageWroteBodySignalInfo), '("wroteBodyData", MessageWroteBodyDataSignalInfo), '("wroteChunk", MessageWroteChunkSignalInfo), '("wroteHeaders", MessageWroteHeadersSignalInfo), '("wroteInformational", MessageWroteInformationalSignalInfo)] :: [(Symbol, *)])--#endif---- method Message::new--- method type : Constructor--- Args : [Arg {argCName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the HTTP method for the created request", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the destination endpoint (as a string)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "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)--{- |-Creates a new empty 'GI.Soup.Objects.Message.Message', which will connect to /@uri@/--}-messageNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@method@/: the HTTP method for the created request -}-    -> T.Text-    {- ^ /@uriString@/: the destination endpoint (as a string) -}-    -> m (Maybe Message)-    {- ^ __Returns:__ the new 'GI.Soup.Objects.Message.Message' (or 'Nothing' if /@uri@/-could not be parsed). -}-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--#if ENABLE_OVERLOADING-#endif---- method Message::new_from_uri--- method type : Constructor--- Args : [Arg {argCName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the HTTP method for the created request", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the destination endpoint (as a #SoupURI)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Message"}))--- throws : False--- Skip return : False--foreign import ccall "soup_message_new_from_uri" soup_message_new_from_uri :: -    CString ->                              -- method : TBasicType TUTF8-    Ptr Soup.URI.URI ->                     -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    IO (Ptr Message)--{- |-Creates a new empty 'GI.Soup.Objects.Message.Message', which will connect to /@uri@/--}-messageNewFromUri ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@method@/: the HTTP method for the created request -}-    -> Soup.URI.URI-    {- ^ /@uri@/: the destination endpoint (as a 'GI.Soup.Structs.URI.URI') -}-    -> m Message-    {- ^ __Returns:__ the new 'GI.Soup.Objects.Message.Message' -}-messageNewFromUri method uri = liftIO $ do-    method' <- textToCString method-    uri' <- unsafeManagedPtrGetPtr uri-    result <- soup_message_new_from_uri method' uri'-    checkUnexpectedReturnNULL "messageNewFromUri" result-    result' <- (wrapObject Message) result-    touchManagedPtr uri-    freeMem method'-    return result'--#if ENABLE_OVERLOADING-#endif---- method Message::content_sniffed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TGHash (TBasicType TPtr) (TBasicType TPtr), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, 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 ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    CString ->                              -- content_type : TBasicType TUTF8-    Ptr (GHashTable (Ptr ()) (Ptr ())) ->   -- params : TGHash (TBasicType TPtr) (TBasicType TPtr)-    IO ()--{- |-/No description available in the introspection data./--}-messageContentSniffed ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    -> T.Text-    -> Map.Map (Ptr ()) (Ptr ())-    -> m ()-messageContentSniffed msg contentType params = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    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 msg' contentType' params''''-    touchManagedPtr msg-    freeMem contentType'-    unrefGHashTable params''''-    return ()--#if ENABLE_OVERLOADING-data MessageContentSniffedMethodInfo-instance (signature ~ (T.Text -> Map.Map (Ptr ()) (Ptr ()) -> m ()), MonadIO m, IsMessage a) => O.MethodInfo MessageContentSniffedMethodInfo a signature where-    overloadedMethod _ = messageContentSniffed--#endif---- method Message::disable_feature--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GType of a #SoupSessionFeature", sinceVersion = Nothing}, 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 ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    CGType ->                               -- feature_type : TBasicType TGType-    IO ()--{- |-This disables the actions of 'GI.Soup.Interfaces.SessionFeature.SessionFeature'\<!-- -->s with the-given /@featureType@/ (or a subclass of that type) on /@msg@/, so that-/@msg@/ is processed as though the feature(s) hadn\'t been added to the-session. Eg, passing @/SOUP_TYPE_CONTENT_SNIFFER/@ for /@featureType@/-will disable Content-Type sniffing on the message.--You must call this before queueing /@msg@/ on a session; calling it on-a message that has already been queued is undefined. In particular,-you cannot call this on a message that is being requeued after a-redirect or authentication.--/Since: 2.28/--}-messageDisableFeature ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> GType-    {- ^ /@featureType@/: the 'GType' of a 'GI.Soup.Interfaces.SessionFeature.SessionFeature' -}-    -> m ()-messageDisableFeature msg featureType = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    let featureType' = gtypeToCGType featureType-    soup_message_disable_feature msg' featureType'-    touchManagedPtr msg-    return ()--#if ENABLE_OVERLOADING-data MessageDisableFeatureMethodInfo-instance (signature ~ (GType -> m ()), MonadIO m, IsMessage a) => O.MethodInfo MessageDisableFeatureMethodInfo a signature where-    overloadedMethod _ = messageDisableFeature--#endif---- method Message::finished--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, 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 ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO ()--{- |-/No description available in the introspection data./--}-messageFinished ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    -> m ()-messageFinished msg = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    soup_message_finished msg'-    touchManagedPtr msg-    return ()--#if ENABLE_OVERLOADING-data MessageFinishedMethodInfo-instance (signature ~ (m ()), MonadIO m, IsMessage a) => O.MethodInfo MessageFinishedMethodInfo a signature where-    overloadedMethod _ = messageFinished--#endif---- method Message::get_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Address"}))--- throws : False--- Skip return : False--foreign import ccall "soup_message_get_address" soup_message_get_address :: -    Ptr Message ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO (Ptr Soup.Address.Address)--{- |-Gets the address /@msg@/\'s URI points to. After first setting the-URI on a message, this will be unresolved, although the message\'s-session will resolve it before sending the message.--/Since: 2.26/--}-messageGetAddress ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> m Soup.Address.Address-    {- ^ __Returns:__ the address /@msg@/\'s URI points to -}-messageGetAddress msg = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    result <- soup_message_get_address msg'-    checkUnexpectedReturnNULL "messageGetAddress" result-    result' <- (newObject Soup.Address.Address) result-    touchManagedPtr msg-    return result'--#if ENABLE_OVERLOADING-data MessageGetAddressMethodInfo-instance (signature ~ (m Soup.Address.Address), MonadIO m, IsMessage a) => O.MethodInfo MessageGetAddressMethodInfo a signature where-    overloadedMethod _ = messageGetAddress--#endif---- method Message::get_first_party--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "URI"}))--- throws : False--- Skip return : False--foreign import ccall "soup_message_get_first_party" soup_message_get_first_party :: -    Ptr Message ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO (Ptr Soup.URI.URI)--{- |-Gets /@msg@/\'s first-party 'GI.Soup.Structs.URI.URI'--/Since: 2.30/--}-messageGetFirstParty ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> m Soup.URI.URI-    {- ^ __Returns:__ the /@msg@/\'s first party 'GI.Soup.Structs.URI.URI' -}-messageGetFirstParty msg = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    result <- soup_message_get_first_party msg'-    checkUnexpectedReturnNULL "messageGetFirstParty" result-    result' <- (newBoxed Soup.URI.URI) result-    touchManagedPtr msg-    return result'--#if ENABLE_OVERLOADING-data MessageGetFirstPartyMethodInfo-instance (signature ~ (m Soup.URI.URI), MonadIO m, IsMessage a) => O.MethodInfo MessageGetFirstPartyMethodInfo a signature where-    overloadedMethod _ = messageGetFirstParty--#endif---- method Message::get_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "MessageFlags"}))--- throws : False--- Skip return : False--foreign import ccall "soup_message_get_flags" soup_message_get_flags :: -    Ptr Message ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO CUInt--{- |-Gets the flags on /@msg@/--}-messageGetFlags ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> m [Soup.Flags.MessageFlags]-    {- ^ __Returns:__ the flags -}-messageGetFlags msg = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    result <- soup_message_get_flags msg'-    let result' = wordToGFlags result-    touchManagedPtr msg-    return result'--#if ENABLE_OVERLOADING-data MessageGetFlagsMethodInfo-instance (signature ~ (m [Soup.Flags.MessageFlags]), MonadIO m, IsMessage a) => O.MethodInfo MessageGetFlagsMethodInfo a signature where-    overloadedMethod _ = messageGetFlags--#endif---- method Message::get_http_version--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "HTTPVersion"}))--- throws : False--- Skip return : False--foreign import ccall "soup_message_get_http_version" soup_message_get_http_version :: -    Ptr Message ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO CUInt--{- |-Gets the HTTP version of /@msg@/. This is the minimum of the-version from the request and the version from the response.--}-messageGetHttpVersion ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> m Soup.Enums.HTTPVersion-    {- ^ __Returns:__ the HTTP version -}-messageGetHttpVersion msg = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    result <- soup_message_get_http_version msg'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr msg-    return result'--#if ENABLE_OVERLOADING-data MessageGetHttpVersionMethodInfo-instance (signature ~ (m Soup.Enums.HTTPVersion), MonadIO m, IsMessage a) => O.MethodInfo MessageGetHttpVersionMethodInfo a signature where-    overloadedMethod _ = messageGetHttpVersion--#endif---- method Message::get_https_status--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "certificate", argType = TInterface (Name {namespace = "Gio", name = "TlsCertificate"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "@msg's TLS certificate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "errors", argType = TInterface (Name {namespace = "Gio", name = "TlsCertificateFlags"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the verification status of @certificate", sinceVersion = Nothing}, 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 ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    Ptr (Ptr Gio.TlsCertificate.TlsCertificate) -> -- certificate : TInterface (Name {namespace = "Gio", name = "TlsCertificate"})-    Ptr CUInt ->                            -- errors : TInterface (Name {namespace = "Gio", name = "TlsCertificateFlags"})-    IO CInt--{- |-If /@msg@/ is using https (or attempted to use https but got-'GI.Soup.Enums.StatusSslFailed'), this retrieves the 'GI.Gio.Objects.TlsCertificate.TlsCertificate'-associated with its connection, and the 'GI.Gio.Flags.TlsCertificateFlags'-showing what problems, if any, have been found with that-certificate.--\<note>\<para>This is only meaningful with messages processed by a 'GI.Soup.Objects.Session.Session' and is-not useful for messages received by a 'GI.Soup.Objects.Server.Server'\<\/para>\<\/note>--/Since: 2.34/--}-messageGetHttpsStatus ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> m ((Bool, Gio.TlsCertificate.TlsCertificate, [Gio.Flags.TlsCertificateFlags]))-    {- ^ __Returns:__ 'True' if /@msg@/ used\/attempted https, 'False' if not -}-messageGetHttpsStatus msg = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    certificate <- allocMem :: IO (Ptr (Ptr Gio.TlsCertificate.TlsCertificate))-    errors <- allocMem :: IO (Ptr CUInt)-    result <- soup_message_get_https_status msg' certificate errors-    let result' = (/= 0) result-    certificate' <- peek certificate-    certificate'' <- (newObject Gio.TlsCertificate.TlsCertificate) certificate'-    errors' <- peek errors-    let errors'' = wordToGFlags errors'-    touchManagedPtr msg-    freeMem certificate-    freeMem errors-    return (result', certificate'', errors'')--#if ENABLE_OVERLOADING-data MessageGetHttpsStatusMethodInfo-instance (signature ~ (m ((Bool, Gio.TlsCertificate.TlsCertificate, [Gio.Flags.TlsCertificateFlags]))), MonadIO m, IsMessage a) => O.MethodInfo MessageGetHttpsStatusMethodInfo a signature where-    overloadedMethod _ = messageGetHttpsStatus--#endif---- method Message::get_priority--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "MessagePriority"}))--- throws : False--- Skip return : False--foreign import ccall "soup_message_get_priority" soup_message_get_priority :: -    Ptr Message ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO CUInt--{- |-Retrieves the 'GI.Soup.Enums.MessagePriority'. If not set this value defaults-to @/SOUP_MESSAGE_PRIORITY_NORMAL/@.--/Since: 2.44/--}-messageGetPriority ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> m Soup.Enums.MessagePriority-    {- ^ __Returns:__ the priority of the message. -}-messageGetPriority msg = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    result <- soup_message_get_priority msg'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr msg-    return result'--#if ENABLE_OVERLOADING-data MessageGetPriorityMethodInfo-instance (signature ~ (m Soup.Enums.MessagePriority), MonadIO m, IsMessage a) => O.MethodInfo MessageGetPriorityMethodInfo a signature where-    overloadedMethod _ = messageGetPriority--#endif---- method Message::get_soup_request--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Request"}))--- throws : False--- Skip return : False--foreign import ccall "soup_message_get_soup_request" soup_message_get_soup_request :: -    Ptr Message ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO (Ptr Soup.Request.Request)--{- |-If /@msg@/ is associated with a 'GI.Soup.Objects.Request.Request', this returns that-request. Otherwise it returns 'Nothing'.--/Since: 2.42/--}-messageGetSoupRequest ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> m Soup.Request.Request-    {- ^ __Returns:__ /@msg@/\'s associated 'GI.Soup.Objects.Request.Request' -}-messageGetSoupRequest msg = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    result <- soup_message_get_soup_request msg'-    checkUnexpectedReturnNULL "messageGetSoupRequest" result-    result' <- (newObject Soup.Request.Request) result-    touchManagedPtr msg-    return result'--#if ENABLE_OVERLOADING-data MessageGetSoupRequestMethodInfo-instance (signature ~ (m Soup.Request.Request), MonadIO m, IsMessage a) => O.MethodInfo MessageGetSoupRequestMethodInfo a signature where-    overloadedMethod _ = messageGetSoupRequest--#endif---- method Message::get_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "URI"}))--- throws : False--- Skip return : False--foreign import ccall "soup_message_get_uri" soup_message_get_uri :: -    Ptr Message ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO (Ptr Soup.URI.URI)--{- |-Gets /@msg@/\'s URI--}-messageGetUri ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> m Soup.URI.URI-    {- ^ __Returns:__ the URI /@msg@/ is targeted for. -}-messageGetUri msg = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    result <- soup_message_get_uri msg'-    checkUnexpectedReturnNULL "messageGetUri" result-    result' <- (newBoxed Soup.URI.URI) result-    touchManagedPtr msg-    return result'--#if ENABLE_OVERLOADING-data MessageGetUriMethodInfo-instance (signature ~ (m Soup.URI.URI), MonadIO m, IsMessage a) => O.MethodInfo MessageGetUriMethodInfo a signature where-    overloadedMethod _ = messageGetUri--#endif---- method Message::got_body--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, 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 ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO ()--{- |-/No description available in the introspection data./--}-messageGotBody ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    -> m ()-messageGotBody msg = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    soup_message_got_body msg'-    touchManagedPtr msg-    return ()--#if ENABLE_OVERLOADING-data MessageGotBodyMethodInfo-instance (signature ~ (m ()), MonadIO m, IsMessage a) => O.MethodInfo MessageGotBodyMethodInfo a signature where-    overloadedMethod _ = messageGotBody--#endif---- method Message::got_chunk--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chunk", argType = TInterface (Name {namespace = "Soup", name = "Buffer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, 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 ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    Ptr Soup.Buffer.Buffer ->               -- chunk : TInterface (Name {namespace = "Soup", name = "Buffer"})-    IO ()--{- |-/No description available in the introspection data./--}-messageGotChunk ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    -> Soup.Buffer.Buffer-    -> m ()-messageGotChunk msg chunk = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    chunk' <- unsafeManagedPtrGetPtr chunk-    soup_message_got_chunk msg' chunk'-    touchManagedPtr msg-    touchManagedPtr chunk-    return ()--#if ENABLE_OVERLOADING-data MessageGotChunkMethodInfo-instance (signature ~ (Soup.Buffer.Buffer -> m ()), MonadIO m, IsMessage a) => O.MethodInfo MessageGotChunkMethodInfo a signature where-    overloadedMethod _ = messageGotChunk--#endif---- method Message::got_headers--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, 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 ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO ()--{- |-/No description available in the introspection data./--}-messageGotHeaders ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    -> m ()-messageGotHeaders msg = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    soup_message_got_headers msg'-    touchManagedPtr msg-    return ()--#if ENABLE_OVERLOADING-data MessageGotHeadersMethodInfo-instance (signature ~ (m ()), MonadIO m, IsMessage a) => O.MethodInfo MessageGotHeadersMethodInfo a signature where-    overloadedMethod _ = messageGotHeaders--#endif---- method Message::got_informational--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, 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 ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO ()--{- |-/No description available in the introspection data./--}-messageGotInformational ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    -> m ()-messageGotInformational msg = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    soup_message_got_informational msg'-    touchManagedPtr msg-    return ()--#if ENABLE_OVERLOADING-data MessageGotInformationalMethodInfo-instance (signature ~ (m ()), MonadIO m, IsMessage a) => O.MethodInfo MessageGotInformationalMethodInfo a signature where-    overloadedMethod _ = messageGotInformational--#endif---- method Message::is_keepalive--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, 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 ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO CInt--{- |-Determines whether or not /@msg@/\'s connection can be kept alive for-further requests after processing /@msg@/, based on the HTTP version,-Connection header, etc.--}-messageIsKeepalive ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> m Bool-    {- ^ __Returns:__ 'True' or 'False'. -}-messageIsKeepalive msg = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    result <- soup_message_is_keepalive msg'-    let result' = (/= 0) result-    touchManagedPtr msg-    return result'--#if ENABLE_OVERLOADING-data MessageIsKeepaliveMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsMessage a) => O.MethodInfo MessageIsKeepaliveMethodInfo a signature where-    overloadedMethod _ = messageIsKeepalive--#endif---- method Message::restarted--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, 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 ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO ()--{- |-/No description available in the introspection data./--}-messageRestarted ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    -> m ()-messageRestarted msg = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    soup_message_restarted msg'-    touchManagedPtr msg-    return ()--#if ENABLE_OVERLOADING-data MessageRestartedMethodInfo-instance (signature ~ (m ()), MonadIO m, IsMessage a) => O.MethodInfo MessageRestartedMethodInfo a signature where-    overloadedMethod _ = messageRestarted--#endif---- method Message::set_chunk_allocator--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "allocator", argType = TInterface (Name {namespace = "Soup", name = "ChunkAllocator"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the chunk allocator callback", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data to pass to @allocator", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy_notify", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "destroy notifier to free @user_data when @msg is\ndestroyed", sinceVersion = Nothing}, 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 ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    FunPtr Soup.Callbacks.C_ChunkAllocator -> -- allocator : TInterface (Name {namespace = "Soup", name = "ChunkAllocator"})-    Ptr () ->                               -- user_data : TBasicType TPtr-    FunPtr GLib.Callbacks.C_DestroyNotify -> -- destroy_notify : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})-    IO ()--{-# DEPRECATED messageSetChunkAllocator ["'GI.Soup.Objects.Request.Request' 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."] #-}-{- |-Sets an alternate chunk-allocation function to use when reading-/@msg@/\'s body when using the traditional (ie,-non-'GI.Soup.Objects.Request.Request'\<!-- -->-based) API. Every time data is available-to read, libsoup will call /@allocator@/, which should return a-'GI.Soup.Structs.Buffer.Buffer'. (See 'GI.Soup.Callbacks.ChunkAllocator' for additional details.)-Libsoup will then read data from the network into that buffer, and-update the buffer\'s \<literal>length\<\/literal> to indicate how much-data it read.--Generally, a custom chunk allocator would be used in conjunction-with 'GI.Soup.Structs.MessageBody.messageBodySetAccumulate' 'False' and-'GI.Soup.Objects.Message.Message'::@/got_chunk/@, as part of a strategy to avoid unnecessary-copying of data. However, you cannot assume that every call to the-allocator will be followed by a call to your-'GI.Soup.Objects.Message.Message'::@/got_chunk/@ handler; if an I\/O error occurs, then the-buffer will be unreffed without ever having been used. If your-buffer-allocation strategy requires special cleanup, use-'GI.Soup.Structs.Buffer.bufferNewWithOwner' rather than doing the cleanup from the-'GI.Soup.Objects.Message.Message'::@/got_chunk/@ handler.--The other thing to remember when using non-accumulating message-bodies is that the buffer passed to the 'GI.Soup.Objects.Message.Message'::@/got_chunk/@-handler will be unreffed after the handler returns, just as it-would be in the non-custom-allocated case. If you want to hand the-chunk data off to some other part of your program to use later,-you\'ll need to ref the 'GI.Soup.Structs.Buffer.Buffer' (or its owner, in the-'GI.Soup.Structs.Buffer.bufferNewWithOwner' case) to ensure that the data remains-valid.--}-messageSetChunkAllocator ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> Soup.Callbacks.ChunkAllocator-    {- ^ /@allocator@/: the chunk allocator callback -}-    -> m ()-messageSetChunkAllocator msg allocator = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    allocator' <- Soup.Callbacks.mk_ChunkAllocator (Soup.Callbacks.wrap_ChunkAllocator Nothing (Soup.Callbacks.drop_closures_ChunkAllocator allocator))-    let userData = castFunPtrToPtr allocator'-    let destroyNotify = safeFreeFunPtrPtr-    soup_message_set_chunk_allocator msg' allocator' userData destroyNotify-    touchManagedPtr msg-    return ()--#if ENABLE_OVERLOADING-data MessageSetChunkAllocatorMethodInfo-instance (signature ~ (Soup.Callbacks.ChunkAllocator -> m ()), MonadIO m, IsMessage a) => O.MethodInfo MessageSetChunkAllocatorMethodInfo a signature where-    overloadedMethod _ = messageSetChunkAllocator--#endif---- method Message::set_first_party--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "first_party", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupURI for the @msg's first party", sinceVersion = Nothing}, 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 ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    Ptr Soup.URI.URI ->                     -- first_party : TInterface (Name {namespace = "Soup", name = "URI"})-    IO ()--{- |-Sets /@firstParty@/ as the main document 'GI.Soup.Structs.URI.URI' for /@msg@/. For-details of when and how this is used refer to the documentation for-'GI.Soup.Enums.CookieJarAcceptPolicy'.--/Since: 2.30/--}-messageSetFirstParty ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> Soup.URI.URI-    {- ^ /@firstParty@/: the 'GI.Soup.Structs.URI.URI' for the /@msg@/\'s first party -}-    -> m ()-messageSetFirstParty msg firstParty = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    firstParty' <- unsafeManagedPtrGetPtr firstParty-    soup_message_set_first_party msg' firstParty'-    touchManagedPtr msg-    touchManagedPtr firstParty-    return ()--#if ENABLE_OVERLOADING-data MessageSetFirstPartyMethodInfo-instance (signature ~ (Soup.URI.URI -> m ()), MonadIO m, IsMessage a) => O.MethodInfo MessageSetFirstPartyMethodInfo a signature where-    overloadedMethod _ = messageSetFirstParty--#endif---- method Message::set_flags--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface (Name {namespace = "Soup", name = "MessageFlags"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a set of #SoupMessageFlags values", sinceVersion = Nothing}, 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 ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    CUInt ->                                -- flags : TInterface (Name {namespace = "Soup", name = "MessageFlags"})-    IO ()--{- |-Sets the specified flags on /@msg@/.--}-messageSetFlags ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> [Soup.Flags.MessageFlags]-    {- ^ /@flags@/: a set of 'GI.Soup.Flags.MessageFlags' values -}-    -> m ()-messageSetFlags msg flags = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    let flags' = gflagsToWord flags-    soup_message_set_flags msg' flags'-    touchManagedPtr msg-    return ()--#if ENABLE_OVERLOADING-data MessageSetFlagsMethodInfo-instance (signature ~ ([Soup.Flags.MessageFlags] -> m ()), MonadIO m, IsMessage a) => O.MethodInfo MessageSetFlagsMethodInfo a signature where-    overloadedMethod _ = messageSetFlags--#endif---- method Message::set_http_version--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "version", argType = TInterface (Name {namespace = "Soup", name = "HTTPVersion"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the HTTP version", sinceVersion = Nothing}, 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 ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    CUInt ->                                -- version : TInterface (Name {namespace = "Soup", name = "HTTPVersion"})-    IO ()--{- |-Sets the HTTP version on /@msg@/. The default version is-'GI.Soup.Enums.HTTPVersionHttp11'. Setting it to 'GI.Soup.Enums.HTTPVersionHttp10' will prevent certain-functionality from being used.--}-messageSetHttpVersion ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> Soup.Enums.HTTPVersion-    {- ^ /@version@/: the HTTP version -}-    -> m ()-messageSetHttpVersion msg version = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    let version' = (fromIntegral . fromEnum) version-    soup_message_set_http_version msg' version'-    touchManagedPtr msg-    return ()--#if ENABLE_OVERLOADING-data MessageSetHttpVersionMethodInfo-instance (signature ~ (Soup.Enums.HTTPVersion -> m ()), MonadIO m, IsMessage a) => O.MethodInfo MessageSetHttpVersionMethodInfo a signature where-    overloadedMethod _ = messageSetHttpVersion--#endif---- method Message::set_priority--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "priority", argType = TInterface (Name {namespace = "Soup", name = "MessagePriority"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupMessagePriority", sinceVersion = Nothing}, 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 ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    CUInt ->                                -- priority : TInterface (Name {namespace = "Soup", name = "MessagePriority"})-    IO ()--{- |-Sets the priority of a message. Note that this won\'t have any-effect unless used before the message is added to the session\'s-message processing queue.--The message will be placed just before any other previously added-message with lower priority (messages with the same priority are-processed on a FIFO basis).--Setting priorities does not currently work with 'GI.Soup.Objects.SessionSync.SessionSync'-(or with synchronous messages on a plain 'GI.Soup.Objects.Session.Session') because in-the synchronous\/blocking case, priority ends up being determined-semi-randomly by thread scheduling.--/Since: 2.44/--}-messageSetPriority ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> Soup.Enums.MessagePriority-    {- ^ /@priority@/: the 'GI.Soup.Enums.MessagePriority' -}-    -> m ()-messageSetPriority msg priority = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    let priority' = (fromIntegral . fromEnum) priority-    soup_message_set_priority msg' priority'-    touchManagedPtr msg-    return ()--#if ENABLE_OVERLOADING-data MessageSetPriorityMethodInfo-instance (signature ~ (Soup.Enums.MessagePriority -> m ()), MonadIO m, IsMessage a) => O.MethodInfo MessageSetPriorityMethodInfo a signature where-    overloadedMethod _ = messageSetPriority--#endif---- method Message::set_redirect--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "status_code", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a 3xx status code", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "redirect_uri", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the URI to redirect @msg to", sinceVersion = Nothing}, 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 ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    Word32 ->                               -- status_code : TBasicType TUInt-    CString ->                              -- redirect_uri : TBasicType TUTF8-    IO ()--{- |-Sets /@msg@/\'s status_code to /@statusCode@/ and adds a Location header-pointing to /@redirectUri@/. Use this from a 'GI.Soup.Objects.Server.Server' when you-want to redirect the client to another URI.--/@redirectUri@/ can be a relative URI, in which case it is-interpreted relative to /@msg@/\'s current URI. In particular, if-/@redirectUri@/ is just a path, it will replace the path-\<emphasis>and query\<\/emphasis> of /@msg@/\'s URI.--/Since: 2.38/--}-messageSetRedirect ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> Word32-    {- ^ /@statusCode@/: a 3xx status code -}-    -> T.Text-    {- ^ /@redirectUri@/: the URI to redirect /@msg@/ to -}-    -> m ()-messageSetRedirect msg statusCode redirectUri = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    redirectUri' <- textToCString redirectUri-    soup_message_set_redirect msg' statusCode redirectUri'-    touchManagedPtr msg-    freeMem redirectUri'-    return ()--#if ENABLE_OVERLOADING-data MessageSetRedirectMethodInfo-instance (signature ~ (Word32 -> T.Text -> m ()), MonadIO m, IsMessage a) => O.MethodInfo MessageSetRedirectMethodInfo a signature where-    overloadedMethod _ = messageSetRedirect--#endif---- method Message::set_request--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the message", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "MIME Content-Type of the body", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "req_use", argType = TInterface (Name {namespace = "Soup", name = "MemoryUse"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMemoryUse describing how to handle @req_body", sinceVersion = Nothing}, 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, argDoc = Documentation {rawDocText = Just "\n  a data buffer containing the body of the message request.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "req_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the byte length of @req_body.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "req_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the byte length of @req_body.", sinceVersion = Nothing}, 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 ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    CString ->                              -- content_type : TBasicType TUTF8-    CUInt ->                                -- req_use : TInterface (Name {namespace = "Soup", name = "MemoryUse"})-    Ptr Word8 ->                            -- req_body : TCArray False (-1) 4 (TBasicType TUInt8)-    Word64 ->                               -- req_length : TBasicType TUInt64-    IO ()--{- |-Convenience function to set the request body of a 'GI.Soup.Objects.Message.Message'. If-/@contentType@/ is 'Nothing', the request body must be empty as well.--}-messageSetRequest ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    {- ^ /@msg@/: the message -}-    -> Maybe (T.Text)-    {- ^ /@contentType@/: MIME Content-Type of the body -}-    -> Soup.Enums.MemoryUse-    {- ^ /@reqUse@/: a 'GI.Soup.Enums.MemoryUse' describing how to handle /@reqBody@/ -}-    -> Maybe (ByteString)-    {- ^ /@reqBody@/: -  a data buffer containing the body of the message request. -}-    -> m ()-messageSetRequest msg contentType reqUse reqBody = liftIO $ do-    let reqLength = case reqBody of-            Nothing -> 0-            Just jReqBody -> fromIntegral $ B.length jReqBody-    msg' <- unsafeManagedPtrCastPtr msg-    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 msg' maybeContentType reqUse' maybeReqBody reqLength-    touchManagedPtr msg-    freeMem maybeContentType-    freeMem maybeReqBody-    return ()--#if ENABLE_OVERLOADING-data MessageSetRequestMethodInfo-instance (signature ~ (Maybe (T.Text) -> Soup.Enums.MemoryUse -> Maybe (ByteString) -> m ()), MonadIO m, IsMessage a) => O.MethodInfo MessageSetRequestMethodInfo a signature where-    overloadedMethod _ = messageSetRequest--#endif---- method Message::set_response--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the message", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "MIME Content-Type of the body", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resp_use", argType = TInterface (Name {namespace = "Soup", name = "MemoryUse"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMemoryUse describing how to handle @resp_body", sinceVersion = Nothing}, 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, argDoc = Documentation {rawDocText = Just "\n  a data buffer containing the body of the message response.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resp_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the byte length of @resp_body.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "resp_length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the byte length of @resp_body.", sinceVersion = Nothing}, 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 ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    CString ->                              -- content_type : TBasicType TUTF8-    CUInt ->                                -- resp_use : TInterface (Name {namespace = "Soup", name = "MemoryUse"})-    Ptr Word8 ->                            -- resp_body : TCArray False (-1) 4 (TBasicType TUInt8)-    Word64 ->                               -- resp_length : TBasicType TUInt64-    IO ()--{- |-Convenience function to set the response body of a 'GI.Soup.Objects.Message.Message'. If-/@contentType@/ is 'Nothing', the response body must be empty as well.--}-messageSetResponse ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    {- ^ /@msg@/: the message -}-    -> Maybe (T.Text)-    {- ^ /@contentType@/: MIME Content-Type of the body -}-    -> Soup.Enums.MemoryUse-    {- ^ /@respUse@/: a 'GI.Soup.Enums.MemoryUse' describing how to handle /@respBody@/ -}-    -> Maybe (ByteString)-    {- ^ /@respBody@/: -  a data buffer containing the body of the message response. -}-    -> m ()-messageSetResponse msg contentType respUse respBody = liftIO $ do-    let respLength = case respBody of-            Nothing -> 0-            Just jRespBody -> fromIntegral $ B.length jRespBody-    msg' <- unsafeManagedPtrCastPtr msg-    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 msg' maybeContentType respUse' maybeRespBody respLength-    touchManagedPtr msg-    freeMem maybeContentType-    freeMem maybeRespBody-    return ()--#if ENABLE_OVERLOADING-data MessageSetResponseMethodInfo-instance (signature ~ (Maybe (T.Text) -> Soup.Enums.MemoryUse -> Maybe (ByteString) -> m ()), MonadIO m, IsMessage a) => O.MethodInfo MessageSetResponseMethodInfo a signature where-    overloadedMethod _ = messageSetResponse--#endif---- method Message::set_status--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "status_code", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an HTTP status code", sinceVersion = Nothing}, 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 ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    Word32 ->                               -- status_code : TBasicType TUInt-    IO ()--{- |-Sets /@msg@/\'s status code to /@statusCode@/. If /@statusCode@/ is a-known value, it will also set /@msg@/\'s reason_phrase.--}-messageSetStatus ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> Word32-    {- ^ /@statusCode@/: an HTTP status code -}-    -> m ()-messageSetStatus msg statusCode = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    soup_message_set_status msg' statusCode-    touchManagedPtr msg-    return ()--#if ENABLE_OVERLOADING-data MessageSetStatusMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, IsMessage a) => O.MethodInfo MessageSetStatusMethodInfo a signature where-    overloadedMethod _ = messageSetStatus--#endif---- method Message::set_status_full--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "status_code", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an HTTP status code", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reason_phrase", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a description of the status", sinceVersion = Nothing}, 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 ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    Word32 ->                               -- status_code : TBasicType TUInt-    CString ->                              -- reason_phrase : TBasicType TUTF8-    IO ()--{- |-Sets /@msg@/\'s status code and reason phrase.--}-messageSetStatusFull ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> Word32-    {- ^ /@statusCode@/: an HTTP status code -}-    -> T.Text-    {- ^ /@reasonPhrase@/: a description of the status -}-    -> m ()-messageSetStatusFull msg statusCode reasonPhrase = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    reasonPhrase' <- textToCString reasonPhrase-    soup_message_set_status_full msg' statusCode reasonPhrase'-    touchManagedPtr msg-    freeMem reasonPhrase'-    return ()--#if ENABLE_OVERLOADING-data MessageSetStatusFullMethodInfo-instance (signature ~ (Word32 -> T.Text -> m ()), MonadIO m, IsMessage a) => O.MethodInfo MessageSetStatusFullMethodInfo a signature where-    overloadedMethod _ = messageSetStatusFull--#endif---- method Message::set_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new #SoupURI", sinceVersion = Nothing}, 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 ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    Ptr Soup.URI.URI ->                     -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    IO ()--{- |-Sets /@msg@/\'s URI to /@uri@/. If /@msg@/ has already been sent and you want-to re-send it with the new URI, you need to call-'GI.Soup.Objects.Session.sessionRequeueMessage'.--}-messageSetUri ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> Soup.URI.URI-    {- ^ /@uri@/: the new 'GI.Soup.Structs.URI.URI' -}-    -> m ()-messageSetUri msg uri = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    uri' <- unsafeManagedPtrGetPtr uri-    soup_message_set_uri msg' uri'-    touchManagedPtr msg-    touchManagedPtr uri-    return ()--#if ENABLE_OVERLOADING-data MessageSetUriMethodInfo-instance (signature ~ (Soup.URI.URI -> m ()), MonadIO m, IsMessage a) => O.MethodInfo MessageSetUriMethodInfo a signature where-    overloadedMethod _ = messageSetUri--#endif---- method Message::starting--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, 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 ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO ()--{- |-/No description available in the introspection data./--}-messageStarting ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    -> m ()-messageStarting msg = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    soup_message_starting msg'-    touchManagedPtr msg-    return ()--#if ENABLE_OVERLOADING-data MessageStartingMethodInfo-instance (signature ~ (m ()), MonadIO m, IsMessage a) => O.MethodInfo MessageStartingMethodInfo a signature where-    overloadedMethod _ = messageStarting--#endif---- method Message::wrote_body--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, 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 ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO ()--{- |-/No description available in the introspection data./--}-messageWroteBody ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    -> m ()-messageWroteBody msg = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    soup_message_wrote_body msg'-    touchManagedPtr msg-    return ()--#if ENABLE_OVERLOADING-data MessageWroteBodyMethodInfo-instance (signature ~ (m ()), MonadIO m, IsMessage a) => O.MethodInfo MessageWroteBodyMethodInfo a signature where-    overloadedMethod _ = messageWroteBody--#endif---- method Message::wrote_body_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chunk", argType = TInterface (Name {namespace = "Soup", name = "Buffer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, 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 ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    Ptr Soup.Buffer.Buffer ->               -- chunk : TInterface (Name {namespace = "Soup", name = "Buffer"})-    IO ()--{- |-/No description available in the introspection data./--}-messageWroteBodyData ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    -> Soup.Buffer.Buffer-    -> m ()-messageWroteBodyData msg chunk = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    chunk' <- unsafeManagedPtrGetPtr chunk-    soup_message_wrote_body_data msg' chunk'-    touchManagedPtr msg-    touchManagedPtr chunk-    return ()--#if ENABLE_OVERLOADING-data MessageWroteBodyDataMethodInfo-instance (signature ~ (Soup.Buffer.Buffer -> m ()), MonadIO m, IsMessage a) => O.MethodInfo MessageWroteBodyDataMethodInfo a signature where-    overloadedMethod _ = messageWroteBodyData--#endif---- method Message::wrote_chunk--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, 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 ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO ()--{- |-/No description available in the introspection data./--}-messageWroteChunk ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    -> m ()-messageWroteChunk msg = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    soup_message_wrote_chunk msg'-    touchManagedPtr msg-    return ()--#if ENABLE_OVERLOADING-data MessageWroteChunkMethodInfo-instance (signature ~ (m ()), MonadIO m, IsMessage a) => O.MethodInfo MessageWroteChunkMethodInfo a signature where-    overloadedMethod _ = messageWroteChunk--#endif---- method Message::wrote_headers--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, 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 ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO ()--{- |-/No description available in the introspection data./--}-messageWroteHeaders ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    -> m ()-messageWroteHeaders msg = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    soup_message_wrote_headers msg'-    touchManagedPtr msg-    return ()--#if ENABLE_OVERLOADING-data MessageWroteHeadersMethodInfo-instance (signature ~ (m ()), MonadIO m, IsMessage a) => O.MethodInfo MessageWroteHeadersMethodInfo a signature where-    overloadedMethod _ = messageWroteHeaders--#endif---- method Message::wrote_informational--- method type : OrdinaryMethod--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, 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 ->                          -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO ()--{- |-/No description available in the introspection data./--}-messageWroteInformational ::-    (B.CallStack.HasCallStack, MonadIO m, IsMessage a) =>-    a-    -> m ()-messageWroteInformational msg = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    soup_message_wrote_informational msg'-    touchManagedPtr msg-    return ()--#if ENABLE_OVERLOADING-data MessageWroteInformationalMethodInfo-instance (signature ~ (m ()), MonadIO m, IsMessage a) => O.MethodInfo MessageWroteInformationalMethodInfo a signature where-    overloadedMethod _ = messageWroteInformational--#endif--
− GI/Soup/Objects/Message.hs-boot 
@@ -1,224 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Objects.Message where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype Message = Message (ManagedPtr Message)-instance GObject Message where-class (GObject o, O.IsDescendantOf Message o) => IsMessage o-instance (GObject o, O.IsDescendantOf Message o) => IsMessage o-instance O.HasParentTypes Message-#if ENABLE_OVERLOADING-data MessageFirstPartyPropertyInfo-#endif-#if ENABLE_OVERLOADING-data MessageFlagsPropertyInfo-#endif-#if ENABLE_OVERLOADING-data MessageHttpVersionPropertyInfo-#endif-#if ENABLE_OVERLOADING-data MessageMethodPropertyInfo-#endif-#if ENABLE_OVERLOADING-data MessagePriorityPropertyInfo-#endif-#if ENABLE_OVERLOADING-data MessageReasonPhrasePropertyInfo-#endif-#if ENABLE_OVERLOADING-data MessageRequestBodyPropertyInfo-#endif-#if ENABLE_OVERLOADING-data MessageRequestBodyDataPropertyInfo-#endif-#if ENABLE_OVERLOADING-data MessageRequestHeadersPropertyInfo-#endif-#if ENABLE_OVERLOADING-data MessageResponseBodyPropertyInfo-#endif-#if ENABLE_OVERLOADING-data MessageResponseBodyDataPropertyInfo-#endif-#if ENABLE_OVERLOADING-data MessageResponseHeadersPropertyInfo-#endif-#if ENABLE_OVERLOADING-data MessageServerSidePropertyInfo-#endif-#if ENABLE_OVERLOADING-data MessageStatusCodePropertyInfo-#endif-#if ENABLE_OVERLOADING-data MessageTlsCertificatePropertyInfo-#endif-#if ENABLE_OVERLOADING-data MessageTlsErrorsPropertyInfo-#endif-#if ENABLE_OVERLOADING-data MessageUriPropertyInfo-#endif-#if ENABLE_OVERLOADING-data MessageContentSniffedSignalInfo-#endif-#if ENABLE_OVERLOADING-data MessageFinishedSignalInfo-#endif-#if ENABLE_OVERLOADING-data MessageGotBodySignalInfo-#endif-#if ENABLE_OVERLOADING-data MessageGotChunkSignalInfo-#endif-#if ENABLE_OVERLOADING-data MessageGotHeadersSignalInfo-#endif-#if ENABLE_OVERLOADING-data MessageGotInformationalSignalInfo-#endif-#if ENABLE_OVERLOADING-data MessageNetworkEventSignalInfo-#endif-#if ENABLE_OVERLOADING-data MessageRestartedSignalInfo-#endif-#if ENABLE_OVERLOADING-data MessageStartingSignalInfo-#endif-#if ENABLE_OVERLOADING-data MessageWroteBodySignalInfo-#endif-#if ENABLE_OVERLOADING-data MessageWroteBodyDataSignalInfo-#endif-#if ENABLE_OVERLOADING-data MessageWroteChunkSignalInfo-#endif-#if ENABLE_OVERLOADING-data MessageWroteHeadersSignalInfo-#endif-#if ENABLE_OVERLOADING-data MessageWroteInformationalSignalInfo-#endif-#if ENABLE_OVERLOADING-data MessageContentSniffedMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageDisableFeatureMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageFinishedMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageGetAddressMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageGetFirstPartyMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageGetFlagsMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageGetHttpVersionMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageGetHttpsStatusMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageGetPriorityMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageGetSoupRequestMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageGetUriMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageGotBodyMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageGotChunkMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageGotHeadersMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageGotInformationalMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageIsKeepaliveMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageRestartedMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageSetChunkAllocatorMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageSetFirstPartyMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageSetFlagsMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageSetHttpVersionMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageSetPriorityMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageSetRedirectMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageSetRequestMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageSetResponseMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageSetStatusMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageSetStatusFullMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageSetUriMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageStartingMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageWroteBodyMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageWroteBodyDataMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageWroteChunkMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageWroteHeadersMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageWroteInformationalMethodInfo-#endif
− GI/Soup/Objects/MultipartInputStream.hs 
@@ -1,523 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Objects.MultipartInputStream-    ( ---- * Exported types-    MultipartInputStream(..)                ,-    IsMultipartInputStream                  ,-    toMultipartInputStream                  ,-    noMultipartInputStream                  ,--- -- * Methods--- ** getHeaders #method:getHeaders#--#if ENABLE_OVERLOADING-    MultipartInputStreamGetHeadersMethodInfo,-#endif-    multipartInputStreamGetHeaders          ,----- ** new #method:new#--    multipartInputStreamNew                 ,----- ** nextPart #method:nextPart#--#if ENABLE_OVERLOADING-    MultipartInputStreamNextPartMethodInfo  ,-#endif-    multipartInputStreamNextPart            ,----- ** nextPartAsync #method:nextPartAsync#--#if ENABLE_OVERLOADING-    MultipartInputStreamNextPartAsyncMethodInfo,-#endif-    multipartInputStreamNextPartAsync       ,----- ** nextPartFinish #method:nextPartFinish#--#if ENABLE_OVERLOADING-    MultipartInputStreamNextPartFinishMethodInfo,-#endif-    multipartInputStreamNextPartFinish      ,----- -- * Properties--- ** message #attr:message#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    MultipartInputStreamMessagePropertyInfo ,-#endif-    constructMultipartInputStreamMessage    ,-    getMultipartInputStreamMessage          ,-#if ENABLE_OVERLOADING-    multipartInputStreamMessage             ,-#endif-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GObject.Objects.Object as GObject.Object-import qualified GI.Gio.Callbacks as Gio.Callbacks-import qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import qualified GI.Gio.Interfaces.PollableInputStream as Gio.PollableInputStream-import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import qualified GI.Gio.Objects.FilterInputStream as Gio.FilterInputStream-import qualified GI.Gio.Objects.InputStream as Gio.InputStream-import {-# SOURCE #-} qualified GI.Soup.Objects.Message as Soup.Message-import {-# SOURCE #-} qualified GI.Soup.Structs.MessageHeaders as Soup.MessageHeaders---- | Memory-managed wrapper type.-newtype MultipartInputStream = MultipartInputStream (ManagedPtr MultipartInputStream)-foreign import ccall "soup_multipart_input_stream_get_type"-    c_soup_multipart_input_stream_get_type :: IO GType--instance GObject MultipartInputStream where-    gobjectType = c_soup_multipart_input_stream_get_type-    ---- | Type class for types which can be safely cast to `MultipartInputStream`, for instance with `toMultipartInputStream`.-class (GObject o, O.IsDescendantOf MultipartInputStream o) => IsMultipartInputStream o-instance (GObject o, O.IsDescendantOf MultipartInputStream o) => IsMultipartInputStream o--instance O.HasParentTypes MultipartInputStream-type instance O.ParentTypes MultipartInputStream = '[Gio.FilterInputStream.FilterInputStream, Gio.InputStream.InputStream, GObject.Object.Object, Gio.PollableInputStream.PollableInputStream]---- | Cast to `MultipartInputStream`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toMultipartInputStream :: (MonadIO m, IsMultipartInputStream o) => o -> m MultipartInputStream-toMultipartInputStream = liftIO . unsafeCastTo MultipartInputStream---- | A convenience alias for `Nothing` :: `Maybe` `MultipartInputStream`.-noMultipartInputStream :: Maybe MultipartInputStream-noMultipartInputStream = Nothing--#if ENABLE_OVERLOADING-type family ResolveMultipartInputStreamMethod (t :: Symbol) (o :: *) :: * where-    ResolveMultipartInputStreamMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveMultipartInputStreamMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveMultipartInputStreamMethod "canPoll" o = Gio.PollableInputStream.PollableInputStreamCanPollMethodInfo-    ResolveMultipartInputStreamMethod "clearPending" o = Gio.InputStream.InputStreamClearPendingMethodInfo-    ResolveMultipartInputStreamMethod "close" o = Gio.InputStream.InputStreamCloseMethodInfo-    ResolveMultipartInputStreamMethod "closeAsync" o = Gio.InputStream.InputStreamCloseAsyncMethodInfo-    ResolveMultipartInputStreamMethod "closeFinish" o = Gio.InputStream.InputStreamCloseFinishMethodInfo-    ResolveMultipartInputStreamMethod "createSource" o = Gio.PollableInputStream.PollableInputStreamCreateSourceMethodInfo-    ResolveMultipartInputStreamMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveMultipartInputStreamMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveMultipartInputStreamMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveMultipartInputStreamMethod "hasPending" o = Gio.InputStream.InputStreamHasPendingMethodInfo-    ResolveMultipartInputStreamMethod "isClosed" o = Gio.InputStream.InputStreamIsClosedMethodInfo-    ResolveMultipartInputStreamMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveMultipartInputStreamMethod "isReadable" o = Gio.PollableInputStream.PollableInputStreamIsReadableMethodInfo-    ResolveMultipartInputStreamMethod "nextPart" o = MultipartInputStreamNextPartMethodInfo-    ResolveMultipartInputStreamMethod "nextPartAsync" o = MultipartInputStreamNextPartAsyncMethodInfo-    ResolveMultipartInputStreamMethod "nextPartFinish" o = MultipartInputStreamNextPartFinishMethodInfo-    ResolveMultipartInputStreamMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveMultipartInputStreamMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveMultipartInputStreamMethod "read" o = Gio.InputStream.InputStreamReadMethodInfo-    ResolveMultipartInputStreamMethod "readAll" o = Gio.InputStream.InputStreamReadAllMethodInfo-    ResolveMultipartInputStreamMethod "readAllAsync" o = Gio.InputStream.InputStreamReadAllAsyncMethodInfo-    ResolveMultipartInputStreamMethod "readAllFinish" o = Gio.InputStream.InputStreamReadAllFinishMethodInfo-    ResolveMultipartInputStreamMethod "readAsync" o = Gio.InputStream.InputStreamReadAsyncMethodInfo-    ResolveMultipartInputStreamMethod "readBytes" o = Gio.InputStream.InputStreamReadBytesMethodInfo-    ResolveMultipartInputStreamMethod "readBytesAsync" o = Gio.InputStream.InputStreamReadBytesAsyncMethodInfo-    ResolveMultipartInputStreamMethod "readBytesFinish" o = Gio.InputStream.InputStreamReadBytesFinishMethodInfo-    ResolveMultipartInputStreamMethod "readFinish" o = Gio.InputStream.InputStreamReadFinishMethodInfo-    ResolveMultipartInputStreamMethod "readNonblocking" o = Gio.PollableInputStream.PollableInputStreamReadNonblockingMethodInfo-    ResolveMultipartInputStreamMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveMultipartInputStreamMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveMultipartInputStreamMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveMultipartInputStreamMethod "skip" o = Gio.InputStream.InputStreamSkipMethodInfo-    ResolveMultipartInputStreamMethod "skipAsync" o = Gio.InputStream.InputStreamSkipAsyncMethodInfo-    ResolveMultipartInputStreamMethod "skipFinish" o = Gio.InputStream.InputStreamSkipFinishMethodInfo-    ResolveMultipartInputStreamMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveMultipartInputStreamMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveMultipartInputStreamMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveMultipartInputStreamMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveMultipartInputStreamMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveMultipartInputStreamMethod "getBaseStream" o = Gio.FilterInputStream.FilterInputStreamGetBaseStreamMethodInfo-    ResolveMultipartInputStreamMethod "getCloseBaseStream" o = Gio.FilterInputStream.FilterInputStreamGetCloseBaseStreamMethodInfo-    ResolveMultipartInputStreamMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveMultipartInputStreamMethod "getHeaders" o = MultipartInputStreamGetHeadersMethodInfo-    ResolveMultipartInputStreamMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveMultipartInputStreamMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveMultipartInputStreamMethod "setCloseBaseStream" o = Gio.FilterInputStream.FilterInputStreamSetCloseBaseStreamMethodInfo-    ResolveMultipartInputStreamMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveMultipartInputStreamMethod "setPending" o = Gio.InputStream.InputStreamSetPendingMethodInfo-    ResolveMultipartInputStreamMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveMultipartInputStreamMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveMultipartInputStreamMethod t MultipartInputStream, O.MethodInfo info MultipartInputStream p) => OL.IsLabel t (MultipartInputStream -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif---- VVV Prop "message"-   -- Type: TInterface (Name {namespace = "Soup", name = "Message"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@message@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' multipartInputStream #message-@--}-getMultipartInputStreamMessage :: (MonadIO m, IsMultipartInputStream o) => o -> m (Maybe Soup.Message.Message)-getMultipartInputStreamMessage obj = liftIO $ B.Properties.getObjectPropertyObject obj "message" Soup.Message.Message--{- |-Construct a `GValueConstruct` with valid value for the “@message@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructMultipartInputStreamMessage :: (IsMultipartInputStream o, Soup.Message.IsMessage a) => a -> IO (GValueConstruct o)-constructMultipartInputStreamMessage val = B.Properties.constructObjectPropertyObject "message" (Just val)--#if ENABLE_OVERLOADING-data MultipartInputStreamMessagePropertyInfo-instance AttrInfo MultipartInputStreamMessagePropertyInfo where-    type AttrAllowedOps MultipartInputStreamMessagePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint MultipartInputStreamMessagePropertyInfo = Soup.Message.IsMessage-    type AttrBaseTypeConstraint MultipartInputStreamMessagePropertyInfo = IsMultipartInputStream-    type AttrGetType MultipartInputStreamMessagePropertyInfo = (Maybe Soup.Message.Message)-    type AttrLabel MultipartInputStreamMessagePropertyInfo = "message"-    type AttrOrigin MultipartInputStreamMessagePropertyInfo = MultipartInputStream-    attrGet _ = getMultipartInputStreamMessage-    attrSet _ = undefined-    attrConstruct _ = constructMultipartInputStreamMessage-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList MultipartInputStream-type instance O.AttributeList MultipartInputStream = MultipartInputStreamAttributeList-type MultipartInputStreamAttributeList = ('[ '("baseStream", Gio.FilterInputStream.FilterInputStreamBaseStreamPropertyInfo), '("closeBaseStream", Gio.FilterInputStream.FilterInputStreamCloseBaseStreamPropertyInfo), '("message", MultipartInputStreamMessagePropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-multipartInputStreamMessage :: AttrLabelProxy "message"-multipartInputStreamMessage = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList MultipartInputStream = MultipartInputStreamSignalList-type MultipartInputStreamSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method MultipartInputStream::new--- method type : Constructor--- Args : [Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupMessage the response is related to.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "base_stream", argType = TInterface (Name {namespace = "Gio", name = "InputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GInputStream returned by sending the request.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "MultipartInputStream"}))--- throws : False--- Skip return : False--foreign import ccall "soup_multipart_input_stream_new" soup_multipart_input_stream_new :: -    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    Ptr Gio.InputStream.InputStream ->      -- base_stream : TInterface (Name {namespace = "Gio", name = "InputStream"})-    IO (Ptr MultipartInputStream)--{- |-Creates a new 'GI.Soup.Objects.MultipartInputStream.MultipartInputStream' that wraps the-'GI.Gio.Objects.InputStream.InputStream' obtained by sending the 'GI.Soup.Objects.Request.Request'. Reads should-not be done directly through this object, use the input streams-returned by 'GI.Soup.Objects.MultipartInputStream.multipartInputStreamNextPart' or its async-counterpart instead.--/Since: 2.40/--}-multipartInputStreamNew ::-    (B.CallStack.HasCallStack, MonadIO m, Soup.Message.IsMessage a, Gio.InputStream.IsInputStream b) =>-    a-    {- ^ /@msg@/: the 'GI.Soup.Objects.Message.Message' the response is related to. -}-    -> b-    {- ^ /@baseStream@/: the 'GI.Gio.Objects.InputStream.InputStream' returned by sending the request. -}-    -> m MultipartInputStream-    {- ^ __Returns:__ a new 'GI.Soup.Objects.MultipartInputStream.MultipartInputStream' -}-multipartInputStreamNew msg baseStream = liftIO $ do-    msg' <- unsafeManagedPtrCastPtr msg-    baseStream' <- unsafeManagedPtrCastPtr baseStream-    result <- soup_multipart_input_stream_new msg' baseStream'-    checkUnexpectedReturnNULL "multipartInputStreamNew" result-    result' <- (wrapObject MultipartInputStream) result-    touchManagedPtr msg-    touchManagedPtr baseStream-    return result'--#if ENABLE_OVERLOADING-#endif---- method MultipartInputStream::get_headers--- method type : OrdinaryMethod--- Args : [Arg {argCName = "multipart", argType = TInterface (Name {namespace = "Soup", name = "MultipartInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMultipartInputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "MessageHeaders"}))--- throws : False--- Skip return : False--foreign import ccall "soup_multipart_input_stream_get_headers" soup_multipart_input_stream_get_headers :: -    Ptr MultipartInputStream ->             -- multipart : TInterface (Name {namespace = "Soup", name = "MultipartInputStream"})-    IO (Ptr Soup.MessageHeaders.MessageHeaders)--{- |-Obtains the headers for the part currently being processed. Note-that the 'GI.Soup.Structs.MessageHeaders.MessageHeaders' that are returned are owned by the-'GI.Soup.Objects.MultipartInputStream.MultipartInputStream' and will be replaced when a call is made-to 'GI.Soup.Objects.MultipartInputStream.multipartInputStreamNextPart' or its async-counterpart, so if keeping the headers is required, a copy must be-made.--Note that if a part had no headers at all an empty 'GI.Soup.Structs.MessageHeaders.MessageHeaders'-will be returned.--/Since: 2.40/--}-multipartInputStreamGetHeaders ::-    (B.CallStack.HasCallStack, MonadIO m, IsMultipartInputStream a) =>-    a-    {- ^ /@multipart@/: a 'GI.Soup.Objects.MultipartInputStream.MultipartInputStream'. -}-    -> m (Maybe Soup.MessageHeaders.MessageHeaders)-    {- ^ __Returns:__ a 'GI.Soup.Structs.MessageHeaders.MessageHeaders'-containing the headers for the part currently being processed or-'Nothing' if the headers failed to parse. -}-multipartInputStreamGetHeaders multipart = liftIO $ do-    multipart' <- unsafeManagedPtrCastPtr multipart-    result <- soup_multipart_input_stream_get_headers multipart'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newBoxed Soup.MessageHeaders.MessageHeaders) result'-        return result''-    touchManagedPtr multipart-    return maybeResult--#if ENABLE_OVERLOADING-data MultipartInputStreamGetHeadersMethodInfo-instance (signature ~ (m (Maybe Soup.MessageHeaders.MessageHeaders)), MonadIO m, IsMultipartInputStream a) => O.MethodInfo MultipartInputStreamGetHeadersMethodInfo a signature where-    overloadedMethod _ = multipartInputStreamGetHeaders--#endif---- method MultipartInputStream::next_part--- method type : OrdinaryMethod--- Args : [Arg {argCName = "multipart", argType = TInterface (Name {namespace = "Soup", name = "MultipartInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupMultipartInputStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "InputStream"}))--- throws : True--- Skip return : False--foreign import ccall "soup_multipart_input_stream_next_part" soup_multipart_input_stream_next_part :: -    Ptr MultipartInputStream ->             -- multipart : TInterface (Name {namespace = "Soup", name = "MultipartInputStream"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.InputStream.InputStream)--{- |-Obtains an input stream for the next part. When dealing with a-multipart response the input stream needs to be wrapped in a-'GI.Soup.Objects.MultipartInputStream.MultipartInputStream' and this function or its async-counterpart need to be called to obtain the first part for-reading.--After calling this function,-'GI.Soup.Objects.MultipartInputStream.multipartInputStreamGetHeaders' can be used to obtain the-headers for the first part. A read of 0 bytes indicates the end of-the part; a new call to this function should be done at that point,-to obtain the next part.--/Since: 2.40/--}-multipartInputStreamNextPart ::-    (B.CallStack.HasCallStack, MonadIO m, IsMultipartInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@multipart@/: the 'GI.Soup.Objects.MultipartInputStream.MultipartInputStream' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' -}-    -> m (Maybe Gio.InputStream.InputStream)-    {- ^ __Returns:__ a new 'GI.Gio.Objects.InputStream.InputStream', or-'Nothing' if there are no more parts /(Can throw 'Data.GI.Base.GError.GError')/ -}-multipartInputStreamNextPart multipart cancellable = liftIO $ do-    multipart' <- unsafeManagedPtrCastPtr multipart-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ soup_multipart_input_stream_next_part multipart' maybeCancellable-        maybeResult <- convertIfNonNull result $ \result' -> do-            result'' <- (wrapObject Gio.InputStream.InputStream) result'-            return result''-        touchManagedPtr multipart-        whenJust cancellable touchManagedPtr-        return maybeResult-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data MultipartInputStreamNextPartMethodInfo-instance (signature ~ (Maybe (b) -> m (Maybe Gio.InputStream.InputStream)), MonadIO m, IsMultipartInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo MultipartInputStreamNextPartMethodInfo a signature where-    overloadedMethod _ = multipartInputStreamNextPart--#endif---- method MultipartInputStream::next_part_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "multipart", argType = TInterface (Name {namespace = "Soup", name = "MultipartInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #SoupMultipartInputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "io_priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the I/O priority for the request.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "callback to call when request is satisfied.", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data for @callback", sinceVersion = Nothing}, 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 ->             -- multipart : TInterface (Name {namespace = "Soup", name = "MultipartInputStream"})-    Int32 ->                                -- io_priority : TBasicType TInt-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})-    Ptr () ->                               -- data : TBasicType TPtr-    IO ()--{- |-Obtains a 'GI.Gio.Objects.InputStream.InputStream' for the next request. See-'GI.Soup.Objects.MultipartInputStream.multipartInputStreamNextPart' for details on the-workflow.--/Since: 2.40/--}-multipartInputStreamNextPartAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsMultipartInputStream a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@multipart@/: the 'GI.Soup.Objects.MultipartInputStream.MultipartInputStream'. -}-    -> Int32-    {- ^ /@ioPriority@/: the I\/O priority for the request. -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable'. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: callback to call when request is satisfied. -}-    -> m ()-multipartInputStreamNextPartAsync multipart ioPriority cancellable callback = liftIO $ do-    multipart' <- unsafeManagedPtrCastPtr multipart-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))-            jCallback' <- Gio.Callbacks.mk_AsyncReadyCallback (Gio.Callbacks.wrap_AsyncReadyCallback (Just ptrcallback) (Gio.Callbacks.drop_closures_AsyncReadyCallback jCallback))-            poke ptrcallback jCallback'-            return jCallback'-    let data_ = nullPtr-    soup_multipart_input_stream_next_part_async multipart' ioPriority maybeCancellable maybeCallback data_-    touchManagedPtr multipart-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data MultipartInputStreamNextPartAsyncMethodInfo-instance (signature ~ (Int32 -> Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsMultipartInputStream a, Gio.Cancellable.IsCancellable b) => O.MethodInfo MultipartInputStreamNextPartAsyncMethodInfo a signature where-    overloadedMethod _ = multipartInputStreamNextPartAsync--#endif---- method MultipartInputStream::next_part_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "multipart", argType = TInterface (Name {namespace = "Soup", name = "MultipartInputStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMultipartInputStream.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GAsyncResult.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "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 ->             -- multipart : TInterface (Name {namespace = "Soup", name = "MultipartInputStream"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.InputStream.InputStream)--{- |-Finishes an asynchronous request for the next part.--/Since: 2.40/--}-multipartInputStreamNextPartFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsMultipartInputStream a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@multipart@/: a 'GI.Soup.Objects.MultipartInputStream.MultipartInputStream'. -}-    -> b-    {- ^ /@result@/: a 'GI.Gio.Interfaces.AsyncResult.AsyncResult'. -}-    -> m (Maybe Gio.InputStream.InputStream)-    {- ^ __Returns:__ a newly created-'GI.Gio.Objects.InputStream.InputStream' for reading the next part or 'Nothing' if there are no-more parts. /(Can throw 'Data.GI.Base.GError.GError')/ -}-multipartInputStreamNextPartFinish multipart result_ = liftIO $ do-    multipart' <- unsafeManagedPtrCastPtr multipart-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ soup_multipart_input_stream_next_part_finish multipart' result_'-        maybeResult <- convertIfNonNull result $ \result' -> do-            result'' <- (wrapObject Gio.InputStream.InputStream) result'-            return result''-        touchManagedPtr multipart-        touchManagedPtr result_-        return maybeResult-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data MultipartInputStreamNextPartFinishMethodInfo-instance (signature ~ (b -> m (Maybe Gio.InputStream.InputStream)), MonadIO m, IsMultipartInputStream a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo MultipartInputStreamNextPartFinishMethodInfo a signature where-    overloadedMethod _ = multipartInputStreamNextPartFinish--#endif--
− GI/Soup/Objects/MultipartInputStream.hs-boot 
@@ -1,44 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Objects.MultipartInputStream where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype MultipartInputStream = MultipartInputStream (ManagedPtr MultipartInputStream)-instance GObject MultipartInputStream where-class (GObject o, O.IsDescendantOf MultipartInputStream o) => IsMultipartInputStream o-instance (GObject o, O.IsDescendantOf MultipartInputStream o) => IsMultipartInputStream o-instance O.HasParentTypes MultipartInputStream-#if ENABLE_OVERLOADING-data MultipartInputStreamMessagePropertyInfo-#endif-#if ENABLE_OVERLOADING-data MultipartInputStreamGetHeadersMethodInfo-#endif-#if ENABLE_OVERLOADING-data MultipartInputStreamNextPartMethodInfo-#endif-#if ENABLE_OVERLOADING-data MultipartInputStreamNextPartAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data MultipartInputStreamNextPartFinishMethodInfo-#endif
− GI/Soup/Objects/ProxyResolverDefault.hs 
@@ -1,199 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Objects.ProxyResolverDefault-    ( ---- * Exported types-    ProxyResolverDefault(..)                ,-    IsProxyResolverDefault                  ,-    toProxyResolverDefault                  ,-    noProxyResolverDefault                  ,--- -- * Properties--- ** gproxyResolver #attr:gproxyResolver#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    ProxyResolverDefaultGproxyResolverPropertyInfo,-#endif-    clearProxyResolverDefaultGproxyResolver ,-    constructProxyResolverDefaultGproxyResolver,-#if ENABLE_OVERLOADING-    proxyResolverDefaultGproxyResolver      ,-#endif-    setProxyResolverDefaultGproxyResolver   ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GObject.Objects.Object as GObject.Object-import qualified GI.Gio.Interfaces.ProxyResolver as Gio.ProxyResolver-import {-# SOURCE #-} qualified GI.Soup.Interfaces.ProxyURIResolver as Soup.ProxyURIResolver-import {-# SOURCE #-} qualified GI.Soup.Interfaces.SessionFeature as Soup.SessionFeature---- | Memory-managed wrapper type.-newtype ProxyResolverDefault = ProxyResolverDefault (ManagedPtr ProxyResolverDefault)-foreign import ccall "soup_proxy_resolver_default_get_type"-    c_soup_proxy_resolver_default_get_type :: IO GType--instance GObject ProxyResolverDefault where-    gobjectType = c_soup_proxy_resolver_default_get_type-    ---- | Type class for types which can be safely cast to `ProxyResolverDefault`, for instance with `toProxyResolverDefault`.-class (GObject o, O.IsDescendantOf ProxyResolverDefault o) => IsProxyResolverDefault o-instance (GObject o, O.IsDescendantOf ProxyResolverDefault o) => IsProxyResolverDefault o--instance O.HasParentTypes ProxyResolverDefault-type instance O.ParentTypes ProxyResolverDefault = '[GObject.Object.Object, Soup.ProxyURIResolver.ProxyURIResolver, Soup.SessionFeature.SessionFeature]---- | Cast to `ProxyResolverDefault`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toProxyResolverDefault :: (MonadIO m, IsProxyResolverDefault o) => o -> m ProxyResolverDefault-toProxyResolverDefault = liftIO . unsafeCastTo ProxyResolverDefault---- | A convenience alias for `Nothing` :: `Maybe` `ProxyResolverDefault`.-noProxyResolverDefault :: Maybe ProxyResolverDefault-noProxyResolverDefault = Nothing--#if ENABLE_OVERLOADING-type family ResolveProxyResolverDefaultMethod (t :: Symbol) (o :: *) :: * where-    ResolveProxyResolverDefaultMethod "addFeature" o = Soup.SessionFeature.SessionFeatureAddFeatureMethodInfo-    ResolveProxyResolverDefaultMethod "attach" o = Soup.SessionFeature.SessionFeatureAttachMethodInfo-    ResolveProxyResolverDefaultMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveProxyResolverDefaultMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveProxyResolverDefaultMethod "detach" o = Soup.SessionFeature.SessionFeatureDetachMethodInfo-    ResolveProxyResolverDefaultMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveProxyResolverDefaultMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveProxyResolverDefaultMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveProxyResolverDefaultMethod "hasFeature" o = Soup.SessionFeature.SessionFeatureHasFeatureMethodInfo-    ResolveProxyResolverDefaultMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveProxyResolverDefaultMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveProxyResolverDefaultMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveProxyResolverDefaultMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveProxyResolverDefaultMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveProxyResolverDefaultMethod "removeFeature" o = Soup.SessionFeature.SessionFeatureRemoveFeatureMethodInfo-    ResolveProxyResolverDefaultMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveProxyResolverDefaultMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveProxyResolverDefaultMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveProxyResolverDefaultMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveProxyResolverDefaultMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveProxyResolverDefaultMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveProxyResolverDefaultMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveProxyResolverDefaultMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveProxyResolverDefaultMethod "getProxyUriAsync" o = Soup.ProxyURIResolver.ProxyURIResolverGetProxyUriAsyncMethodInfo-    ResolveProxyResolverDefaultMethod "getProxyUriSync" o = Soup.ProxyURIResolver.ProxyURIResolverGetProxyUriSyncMethodInfo-    ResolveProxyResolverDefaultMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveProxyResolverDefaultMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveProxyResolverDefaultMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveProxyResolverDefaultMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveProxyResolverDefaultMethod t ProxyResolverDefault, O.MethodInfo info ProxyResolverDefault p) => OL.IsLabel t (ProxyResolverDefault -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif---- VVV Prop "gproxy-resolver"-   -- Type: TInterface (Name {namespace = "Gio", name = "ProxyResolver"})-   -- Flags: [PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Set the value of the “@gproxy-resolver@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' proxyResolverDefault [ #gproxyResolver 'Data.GI.Base.Attributes.:=' value ]-@--}-setProxyResolverDefaultGproxyResolver :: (MonadIO m, IsProxyResolverDefault o, Gio.ProxyResolver.IsProxyResolver a) => o -> a -> m ()-setProxyResolverDefaultGproxyResolver obj val = liftIO $ B.Properties.setObjectPropertyObject obj "gproxy-resolver" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@gproxy-resolver@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructProxyResolverDefaultGproxyResolver :: (IsProxyResolverDefault o, Gio.ProxyResolver.IsProxyResolver a) => a -> IO (GValueConstruct o)-constructProxyResolverDefaultGproxyResolver val = B.Properties.constructObjectPropertyObject "gproxy-resolver" (Just val)--{- |-Set the value of the “@gproxy-resolver@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #gproxyResolver-@--}-clearProxyResolverDefaultGproxyResolver :: (MonadIO m, IsProxyResolverDefault o) => o -> m ()-clearProxyResolverDefaultGproxyResolver obj = liftIO $ B.Properties.setObjectPropertyObject obj "gproxy-resolver" (Nothing :: Maybe Gio.ProxyResolver.ProxyResolver)--#if ENABLE_OVERLOADING-data ProxyResolverDefaultGproxyResolverPropertyInfo-instance AttrInfo ProxyResolverDefaultGproxyResolverPropertyInfo where-    type AttrAllowedOps ProxyResolverDefaultGproxyResolverPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint ProxyResolverDefaultGproxyResolverPropertyInfo = Gio.ProxyResolver.IsProxyResolver-    type AttrBaseTypeConstraint ProxyResolverDefaultGproxyResolverPropertyInfo = IsProxyResolverDefault-    type AttrGetType ProxyResolverDefaultGproxyResolverPropertyInfo = ()-    type AttrLabel ProxyResolverDefaultGproxyResolverPropertyInfo = "gproxy-resolver"-    type AttrOrigin ProxyResolverDefaultGproxyResolverPropertyInfo = ProxyResolverDefault-    attrGet _ = undefined-    attrSet _ = setProxyResolverDefaultGproxyResolver-    attrConstruct _ = constructProxyResolverDefaultGproxyResolver-    attrClear _ = clearProxyResolverDefaultGproxyResolver-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList ProxyResolverDefault-type instance O.AttributeList ProxyResolverDefault = ProxyResolverDefaultAttributeList-type ProxyResolverDefaultAttributeList = ('[ '("gproxyResolver", ProxyResolverDefaultGproxyResolverPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-proxyResolverDefaultGproxyResolver :: AttrLabelProxy "gproxyResolver"-proxyResolverDefaultGproxyResolver = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList ProxyResolverDefault = ProxyResolverDefaultSignalList-type ProxyResolverDefaultSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--
− GI/Soup/Objects/ProxyResolverDefault.hs-boot 
@@ -1,32 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Objects.ProxyResolverDefault where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype ProxyResolverDefault = ProxyResolverDefault (ManagedPtr ProxyResolverDefault)-instance GObject ProxyResolverDefault where-class (GObject o, O.IsDescendantOf ProxyResolverDefault o) => IsProxyResolverDefault o-instance (GObject o, O.IsDescendantOf ProxyResolverDefault o) => IsProxyResolverDefault o-instance O.HasParentTypes ProxyResolverDefault-#if ENABLE_OVERLOADING-data ProxyResolverDefaultGproxyResolverPropertyInfo-#endif
− GI/Soup/Objects/Request.hs 
@@ -1,636 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--A request to retrieve a particular URI.--/Since: 2.42/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Objects.Request-    ( ---- * Exported types-    Request(..)                             ,-    IsRequest                               ,-    toRequest                               ,-    noRequest                               ,--- -- * Methods--- ** getContentLength #method:getContentLength#--#if ENABLE_OVERLOADING-    RequestGetContentLengthMethodInfo       ,-#endif-    requestGetContentLength                 ,----- ** getContentType #method:getContentType#--#if ENABLE_OVERLOADING-    RequestGetContentTypeMethodInfo         ,-#endif-    requestGetContentType                   ,----- ** getSession #method:getSession#--#if ENABLE_OVERLOADING-    RequestGetSessionMethodInfo             ,-#endif-    requestGetSession                       ,----- ** getUri #method:getUri#--#if ENABLE_OVERLOADING-    RequestGetUriMethodInfo                 ,-#endif-    requestGetUri                           ,----- ** send #method:send#--#if ENABLE_OVERLOADING-    RequestSendMethodInfo                   ,-#endif-    requestSend                             ,----- ** sendAsync #method:sendAsync#--#if ENABLE_OVERLOADING-    RequestSendAsyncMethodInfo              ,-#endif-    requestSendAsync                        ,----- ** sendFinish #method:sendFinish#--#if ENABLE_OVERLOADING-    RequestSendFinishMethodInfo             ,-#endif-    requestSendFinish                       ,----- -- * Properties--- ** session #attr:session#-{- | The request\'s 'GI.Soup.Objects.Session.Session'.--/Since: 2.42/--}-#if ENABLE_OVERLOADING-    RequestSessionPropertyInfo              ,-#endif-    constructRequestSession                 ,-    getRequestSession                       ,-#if ENABLE_OVERLOADING-    requestSession                          ,-#endif----- ** uri #attr:uri#-{- | The request URI.--/Since: 2.42/--}-#if ENABLE_OVERLOADING-    RequestUriPropertyInfo                  ,-#endif-    constructRequestUri                     ,-    getRequestUri                           ,-#if ENABLE_OVERLOADING-    requestUri                              ,-#endif-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GObject.Objects.Object as GObject.Object-import qualified GI.Gio.Callbacks as Gio.Callbacks-import qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import qualified GI.Gio.Interfaces.Initable as Gio.Initable-import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import qualified GI.Gio.Objects.InputStream as Gio.InputStream-import {-# SOURCE #-} qualified GI.Soup.Objects.Session as Soup.Session-import {-# SOURCE #-} qualified GI.Soup.Structs.URI as Soup.URI---- | Memory-managed wrapper type.-newtype Request = Request (ManagedPtr Request)-foreign import ccall "soup_request_get_type"-    c_soup_request_get_type :: IO GType--instance GObject Request where-    gobjectType = c_soup_request_get_type-    ---- | Type class for types which can be safely cast to `Request`, for instance with `toRequest`.-class (GObject o, O.IsDescendantOf Request o) => IsRequest o-instance (GObject o, O.IsDescendantOf Request o) => IsRequest o--instance O.HasParentTypes Request-type instance O.ParentTypes Request = '[GObject.Object.Object, Gio.Initable.Initable]---- | Cast to `Request`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toRequest :: (MonadIO m, IsRequest o) => o -> m Request-toRequest = liftIO . unsafeCastTo Request---- | A convenience alias for `Nothing` :: `Maybe` `Request`.-noRequest :: Maybe Request-noRequest = Nothing--#if ENABLE_OVERLOADING-type family ResolveRequestMethod (t :: Symbol) (o :: *) :: * where-    ResolveRequestMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveRequestMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveRequestMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveRequestMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveRequestMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveRequestMethod "init" o = Gio.Initable.InitableInitMethodInfo-    ResolveRequestMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveRequestMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveRequestMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveRequestMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveRequestMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveRequestMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveRequestMethod "send" o = RequestSendMethodInfo-    ResolveRequestMethod "sendAsync" o = RequestSendAsyncMethodInfo-    ResolveRequestMethod "sendFinish" o = RequestSendFinishMethodInfo-    ResolveRequestMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveRequestMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveRequestMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveRequestMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveRequestMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveRequestMethod "getContentLength" o = RequestGetContentLengthMethodInfo-    ResolveRequestMethod "getContentType" o = RequestGetContentTypeMethodInfo-    ResolveRequestMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveRequestMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveRequestMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveRequestMethod "getSession" o = RequestGetSessionMethodInfo-    ResolveRequestMethod "getUri" o = RequestGetUriMethodInfo-    ResolveRequestMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveRequestMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveRequestMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveRequestMethod t Request, O.MethodInfo info Request p) => OL.IsLabel t (Request -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif---- VVV Prop "session"-   -- Type: TInterface (Name {namespace = "Soup", name = "Session"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@session@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' request #session-@--}-getRequestSession :: (MonadIO m, IsRequest o) => o -> m Soup.Session.Session-getRequestSession obj = liftIO $ checkUnexpectedNothing "getRequestSession" $ B.Properties.getObjectPropertyObject obj "session" Soup.Session.Session--{- |-Construct a `GValueConstruct` with valid value for the “@session@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructRequestSession :: (IsRequest o, Soup.Session.IsSession a) => a -> IO (GValueConstruct o)-constructRequestSession val = B.Properties.constructObjectPropertyObject "session" (Just val)--#if ENABLE_OVERLOADING-data RequestSessionPropertyInfo-instance AttrInfo RequestSessionPropertyInfo where-    type AttrAllowedOps RequestSessionPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint RequestSessionPropertyInfo = Soup.Session.IsSession-    type AttrBaseTypeConstraint RequestSessionPropertyInfo = IsRequest-    type AttrGetType RequestSessionPropertyInfo = Soup.Session.Session-    type AttrLabel RequestSessionPropertyInfo = "session"-    type AttrOrigin RequestSessionPropertyInfo = Request-    attrGet _ = getRequestSession-    attrSet _ = undefined-    attrConstruct _ = constructRequestSession-    attrClear _ = undefined-#endif---- VVV Prop "uri"-   -- Type: TInterface (Name {namespace = "Soup", name = "URI"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@uri@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' request #uri-@--}-getRequestUri :: (MonadIO m, IsRequest o) => o -> m Soup.URI.URI-getRequestUri obj = liftIO $ checkUnexpectedNothing "getRequestUri" $ B.Properties.getObjectPropertyBoxed obj "uri" Soup.URI.URI--{- |-Construct a `GValueConstruct` with valid value for the “@uri@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructRequestUri :: (IsRequest o) => Soup.URI.URI -> IO (GValueConstruct o)-constructRequestUri val = B.Properties.constructObjectPropertyBoxed "uri" (Just val)--#if ENABLE_OVERLOADING-data RequestUriPropertyInfo-instance AttrInfo RequestUriPropertyInfo where-    type AttrAllowedOps RequestUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint RequestUriPropertyInfo = (~) Soup.URI.URI-    type AttrBaseTypeConstraint RequestUriPropertyInfo = IsRequest-    type AttrGetType RequestUriPropertyInfo = Soup.URI.URI-    type AttrLabel RequestUriPropertyInfo = "uri"-    type AttrOrigin RequestUriPropertyInfo = Request-    attrGet _ = getRequestUri-    attrSet _ = undefined-    attrConstruct _ = constructRequestUri-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList Request-type instance O.AttributeList Request = RequestAttributeList-type RequestAttributeList = ('[ '("session", RequestSessionPropertyInfo), '("uri", RequestUriPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-requestSession :: AttrLabelProxy "session"-requestSession = AttrLabelProxy--requestUri :: AttrLabelProxy "uri"-requestUri = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-type instance O.SignalList Request = RequestSignalList-type RequestSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method Request::get_content_length--- method type : OrdinaryMethod--- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "Soup", name = "Request"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupRequest", sinceVersion = Nothing}, 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 ->                          -- request : TInterface (Name {namespace = "Soup", name = "Request"})-    IO Int64--{- |-Gets the length of the data represented by /@request@/. For most-request types, this will not be known until after you call-'GI.Soup.Objects.Request.requestSend' or 'GI.Soup.Objects.Request.requestSendFinish'.--/Since: 2.42/--}-requestGetContentLength ::-    (B.CallStack.HasCallStack, MonadIO m, IsRequest a) =>-    a-    {- ^ /@request@/: a 'GI.Soup.Objects.Request.Request' -}-    -> m Int64-    {- ^ __Returns:__ the length of the data represented by /@request@/,-  or -1 if not known. -}-requestGetContentLength request = liftIO $ do-    request' <- unsafeManagedPtrCastPtr request-    result <- soup_request_get_content_length request'-    touchManagedPtr request-    return result--#if ENABLE_OVERLOADING-data RequestGetContentLengthMethodInfo-instance (signature ~ (m Int64), MonadIO m, IsRequest a) => O.MethodInfo RequestGetContentLengthMethodInfo a signature where-    overloadedMethod _ = requestGetContentLength--#endif---- method Request::get_content_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "Soup", name = "Request"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupRequest", sinceVersion = Nothing}, 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 ->                          -- request : TInterface (Name {namespace = "Soup", name = "Request"})-    IO CString--{- |-Gets the type of the data represented by /@request@/. For most request-types, this will not be known until after you call-'GI.Soup.Objects.Request.requestSend' or 'GI.Soup.Objects.Request.requestSendFinish'.--As in the HTTP Content-Type header, this may include parameters-after the MIME type.--/Since: 2.42/--}-requestGetContentType ::-    (B.CallStack.HasCallStack, MonadIO m, IsRequest a) =>-    a-    {- ^ /@request@/: a 'GI.Soup.Objects.Request.Request' -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ the type of the data represented by-  /@request@/, or 'Nothing' if not known. -}-requestGetContentType request = liftIO $ do-    request' <- unsafeManagedPtrCastPtr request-    result <- soup_request_get_content_type request'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr request-    return maybeResult--#if ENABLE_OVERLOADING-data RequestGetContentTypeMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsRequest a) => O.MethodInfo RequestGetContentTypeMethodInfo a signature where-    overloadedMethod _ = requestGetContentType--#endif---- method Request::get_session--- method type : OrdinaryMethod--- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "Soup", name = "Request"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Session"}))--- throws : False--- Skip return : False--foreign import ccall "soup_request_get_session" soup_request_get_session :: -    Ptr Request ->                          -- request : TInterface (Name {namespace = "Soup", name = "Request"})-    IO (Ptr Soup.Session.Session)--{- |-Gets /@request@/\'s 'GI.Soup.Objects.Session.Session'--/Since: 2.42/--}-requestGetSession ::-    (B.CallStack.HasCallStack, MonadIO m, IsRequest a) =>-    a-    {- ^ /@request@/: a 'GI.Soup.Objects.Request.Request' -}-    -> m Soup.Session.Session-    {- ^ __Returns:__ /@request@/\'s 'GI.Soup.Objects.Session.Session' -}-requestGetSession request = liftIO $ do-    request' <- unsafeManagedPtrCastPtr request-    result <- soup_request_get_session request'-    checkUnexpectedReturnNULL "requestGetSession" result-    result' <- (newObject Soup.Session.Session) result-    touchManagedPtr request-    return result'--#if ENABLE_OVERLOADING-data RequestGetSessionMethodInfo-instance (signature ~ (m Soup.Session.Session), MonadIO m, IsRequest a) => O.MethodInfo RequestGetSessionMethodInfo a signature where-    overloadedMethod _ = requestGetSession--#endif---- method Request::get_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "Soup", name = "Request"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "URI"}))--- throws : False--- Skip return : False--foreign import ccall "soup_request_get_uri" soup_request_get_uri :: -    Ptr Request ->                          -- request : TInterface (Name {namespace = "Soup", name = "Request"})-    IO (Ptr Soup.URI.URI)--{- |-Gets /@request@/\'s URI--/Since: 2.42/--}-requestGetUri ::-    (B.CallStack.HasCallStack, MonadIO m, IsRequest a) =>-    a-    {- ^ /@request@/: a 'GI.Soup.Objects.Request.Request' -}-    -> m Soup.URI.URI-    {- ^ __Returns:__ /@request@/\'s URI -}-requestGetUri request = liftIO $ do-    request' <- unsafeManagedPtrCastPtr request-    result <- soup_request_get_uri request'-    checkUnexpectedReturnNULL "requestGetUri" result-    result' <- (newBoxed Soup.URI.URI) result-    touchManagedPtr request-    return result'--#if ENABLE_OVERLOADING-data RequestGetUriMethodInfo-instance (signature ~ (m Soup.URI.URI), MonadIO m, IsRequest a) => O.MethodInfo RequestGetUriMethodInfo a signature where-    overloadedMethod _ = requestGetUri--#endif---- method Request::send--- method type : OrdinaryMethod--- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "Soup", name = "Request"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "InputStream"}))--- throws : True--- Skip return : False--foreign import ccall "soup_request_send" soup_request_send :: -    Ptr Request ->                          -- request : TInterface (Name {namespace = "Soup", name = "Request"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.InputStream.InputStream)--{- |-Synchronously requests the URI pointed to by /@request@/, and returns-a 'GI.Gio.Objects.InputStream.InputStream' that can be used to read its contents.--Note that you cannot use this method with @/SoupRequests/@ attached to-a 'GI.Soup.Objects.SessionAsync.SessionAsync'.--/Since: 2.42/--}-requestSend ::-    (B.CallStack.HasCallStack, MonadIO m, IsRequest a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@request@/: a 'GI.Soup.Objects.Request.Request' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' -}-    -> m Gio.InputStream.InputStream-    {- ^ __Returns:__ a 'GI.Gio.Objects.InputStream.InputStream' that can be used to-  read from the URI pointed to by /@request@/. /(Can throw 'Data.GI.Base.GError.GError')/ -}-requestSend request cancellable = liftIO $ do-    request' <- unsafeManagedPtrCastPtr request-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ soup_request_send request' maybeCancellable-        checkUnexpectedReturnNULL "requestSend" result-        result' <- (wrapObject Gio.InputStream.InputStream) result-        touchManagedPtr request-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data RequestSendMethodInfo-instance (signature ~ (Maybe (b) -> m Gio.InputStream.InputStream), MonadIO m, IsRequest a, Gio.Cancellable.IsCancellable b) => O.MethodInfo RequestSendMethodInfo a signature where-    overloadedMethod _ = requestSend--#endif---- method Request::send_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "Soup", name = "Request"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GAsyncReadyCallback", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data passed to @callback", sinceVersion = Nothing}, 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 ->                          -- request : TInterface (Name {namespace = "Soup", name = "Request"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()--{- |-Begins an asynchronously request for the URI pointed to by-/@request@/.--Note that you cannot use this method with @/SoupRequests/@ attached to-a 'GI.Soup.Objects.SessionSync.SessionSync'.--/Since: 2.42/--}-requestSendAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsRequest a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@request@/: a 'GI.Soup.Objects.Request.Request' -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' or 'Nothing' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: a 'GI.Gio.Callbacks.AsyncReadyCallback' -}-    -> m ()-requestSendAsync request cancellable callback = liftIO $ do-    request' <- unsafeManagedPtrCastPtr request-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))-            jCallback' <- Gio.Callbacks.mk_AsyncReadyCallback (Gio.Callbacks.wrap_AsyncReadyCallback (Just ptrcallback) (Gio.Callbacks.drop_closures_AsyncReadyCallback jCallback))-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    soup_request_send_async request' maybeCancellable maybeCallback userData-    touchManagedPtr request-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data RequestSendAsyncMethodInfo-instance (signature ~ (Maybe (b) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsRequest a, Gio.Cancellable.IsCancellable b) => O.MethodInfo RequestSendAsyncMethodInfo a signature where-    overloadedMethod _ = requestSendAsync--#endif---- method Request::send_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "request", argType = TInterface (Name {namespace = "Soup", name = "Request"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupRequest", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GAsyncResult", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "InputStream"}))--- throws : True--- Skip return : False--foreign import ccall "soup_request_send_finish" soup_request_send_finish :: -    Ptr Request ->                          -- request : TInterface (Name {namespace = "Soup", name = "Request"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.InputStream.InputStream)--{- |-Gets the result of a 'GI.Soup.Objects.Request.requestSendAsync'.--/Since: 2.42/--}-requestSendFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsRequest a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@request@/: a 'GI.Soup.Objects.Request.Request' -}-    -> b-    {- ^ /@result@/: the 'GI.Gio.Interfaces.AsyncResult.AsyncResult' -}-    -> m Gio.InputStream.InputStream-    {- ^ __Returns:__ a 'GI.Gio.Objects.InputStream.InputStream' that can be used to-  read from the URI pointed to by /@request@/. /(Can throw 'Data.GI.Base.GError.GError')/ -}-requestSendFinish request result_ = liftIO $ do-    request' <- unsafeManagedPtrCastPtr request-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ soup_request_send_finish request' result_'-        checkUnexpectedReturnNULL "requestSendFinish" result-        result' <- (wrapObject Gio.InputStream.InputStream) result-        touchManagedPtr request-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data RequestSendFinishMethodInfo-instance (signature ~ (b -> m Gio.InputStream.InputStream), MonadIO m, IsRequest a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo RequestSendFinishMethodInfo a signature where-    overloadedMethod _ = requestSendFinish--#endif--
− GI/Soup/Objects/Request.hs-boot 
@@ -1,56 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Objects.Request where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype Request = Request (ManagedPtr Request)-instance GObject Request where-class (GObject o, O.IsDescendantOf Request o) => IsRequest o-instance (GObject o, O.IsDescendantOf Request o) => IsRequest o-instance O.HasParentTypes Request-#if ENABLE_OVERLOADING-data RequestSessionPropertyInfo-#endif-#if ENABLE_OVERLOADING-data RequestUriPropertyInfo-#endif-#if ENABLE_OVERLOADING-data RequestGetContentLengthMethodInfo-#endif-#if ENABLE_OVERLOADING-data RequestGetContentTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data RequestGetSessionMethodInfo-#endif-#if ENABLE_OVERLOADING-data RequestGetUriMethodInfo-#endif-#if ENABLE_OVERLOADING-data RequestSendMethodInfo-#endif-#if ENABLE_OVERLOADING-data RequestSendAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data RequestSendFinishMethodInfo-#endif
− GI/Soup/Objects/RequestData.hs 
@@ -1,131 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Objects.RequestData-    ( ---- * Exported types-    RequestData(..)                         ,-    IsRequestData                           ,-    toRequestData                           ,-    noRequestData                           ,---    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GObject.Objects.Object as GObject.Object-import qualified GI.Gio.Interfaces.Initable as Gio.Initable-import {-# SOURCE #-} qualified GI.Soup.Objects.Request as Soup.Request---- | Memory-managed wrapper type.-newtype RequestData = RequestData (ManagedPtr RequestData)-foreign import ccall "soup_request_data_get_type"-    c_soup_request_data_get_type :: IO GType--instance GObject RequestData where-    gobjectType = c_soup_request_data_get_type-    ---- | Type class for types which can be safely cast to `RequestData`, for instance with `toRequestData`.-class (GObject o, O.IsDescendantOf RequestData o) => IsRequestData o-instance (GObject o, O.IsDescendantOf RequestData o) => IsRequestData o--instance O.HasParentTypes RequestData-type instance O.ParentTypes RequestData = '[Soup.Request.Request, GObject.Object.Object, Gio.Initable.Initable]---- | Cast to `RequestData`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toRequestData :: (MonadIO m, IsRequestData o) => o -> m RequestData-toRequestData = liftIO . unsafeCastTo RequestData---- | A convenience alias for `Nothing` :: `Maybe` `RequestData`.-noRequestData :: Maybe RequestData-noRequestData = Nothing--#if ENABLE_OVERLOADING-type family ResolveRequestDataMethod (t :: Symbol) (o :: *) :: * where-    ResolveRequestDataMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveRequestDataMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveRequestDataMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveRequestDataMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveRequestDataMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveRequestDataMethod "init" o = Gio.Initable.InitableInitMethodInfo-    ResolveRequestDataMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveRequestDataMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveRequestDataMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveRequestDataMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveRequestDataMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveRequestDataMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveRequestDataMethod "send" o = Soup.Request.RequestSendMethodInfo-    ResolveRequestDataMethod "sendAsync" o = Soup.Request.RequestSendAsyncMethodInfo-    ResolveRequestDataMethod "sendFinish" o = Soup.Request.RequestSendFinishMethodInfo-    ResolveRequestDataMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveRequestDataMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveRequestDataMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveRequestDataMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveRequestDataMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveRequestDataMethod "getContentLength" o = Soup.Request.RequestGetContentLengthMethodInfo-    ResolveRequestDataMethod "getContentType" o = Soup.Request.RequestGetContentTypeMethodInfo-    ResolveRequestDataMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveRequestDataMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveRequestDataMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveRequestDataMethod "getSession" o = Soup.Request.RequestGetSessionMethodInfo-    ResolveRequestDataMethod "getUri" o = Soup.Request.RequestGetUriMethodInfo-    ResolveRequestDataMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveRequestDataMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveRequestDataMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveRequestDataMethod t RequestData, O.MethodInfo info RequestData p) => OL.IsLabel t (RequestData -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList RequestData-type instance O.AttributeList RequestData = RequestDataAttributeList-type RequestDataAttributeList = ('[ '("session", Soup.Request.RequestSessionPropertyInfo), '("uri", Soup.Request.RequestUriPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList RequestData = RequestDataSignalList-type RequestDataSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif--
− GI/Soup/Objects/RequestData.hs-boot 
@@ -1,29 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Objects.RequestData where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype RequestData = RequestData (ManagedPtr RequestData)-instance GObject RequestData where-class (GObject o, O.IsDescendantOf RequestData o) => IsRequestData o-instance (GObject o, O.IsDescendantOf RequestData o) => IsRequestData o-instance O.HasParentTypes RequestData
− GI/Soup/Objects/RequestFile.hs 
@@ -1,182 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Objects.RequestFile-    ( ---- * Exported types-    RequestFile(..)                         ,-    IsRequestFile                           ,-    toRequestFile                           ,-    noRequestFile                           ,--- -- * Methods--- ** getFile #method:getFile#--#if ENABLE_OVERLOADING-    RequestFileGetFileMethodInfo            ,-#endif-    requestFileGetFile                      ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GObject.Objects.Object as GObject.Object-import qualified GI.Gio.Interfaces.File as Gio.File-import qualified GI.Gio.Interfaces.Initable as Gio.Initable-import {-# SOURCE #-} qualified GI.Soup.Objects.Request as Soup.Request---- | Memory-managed wrapper type.-newtype RequestFile = RequestFile (ManagedPtr RequestFile)-foreign import ccall "soup_request_file_get_type"-    c_soup_request_file_get_type :: IO GType--instance GObject RequestFile where-    gobjectType = c_soup_request_file_get_type-    ---- | Type class for types which can be safely cast to `RequestFile`, for instance with `toRequestFile`.-class (GObject o, O.IsDescendantOf RequestFile o) => IsRequestFile o-instance (GObject o, O.IsDescendantOf RequestFile o) => IsRequestFile o--instance O.HasParentTypes RequestFile-type instance O.ParentTypes RequestFile = '[Soup.Request.Request, GObject.Object.Object, Gio.Initable.Initable]---- | Cast to `RequestFile`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toRequestFile :: (MonadIO m, IsRequestFile o) => o -> m RequestFile-toRequestFile = liftIO . unsafeCastTo RequestFile---- | A convenience alias for `Nothing` :: `Maybe` `RequestFile`.-noRequestFile :: Maybe RequestFile-noRequestFile = Nothing--#if ENABLE_OVERLOADING-type family ResolveRequestFileMethod (t :: Symbol) (o :: *) :: * where-    ResolveRequestFileMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveRequestFileMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveRequestFileMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveRequestFileMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveRequestFileMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveRequestFileMethod "init" o = Gio.Initable.InitableInitMethodInfo-    ResolveRequestFileMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveRequestFileMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveRequestFileMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveRequestFileMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveRequestFileMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveRequestFileMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveRequestFileMethod "send" o = Soup.Request.RequestSendMethodInfo-    ResolveRequestFileMethod "sendAsync" o = Soup.Request.RequestSendAsyncMethodInfo-    ResolveRequestFileMethod "sendFinish" o = Soup.Request.RequestSendFinishMethodInfo-    ResolveRequestFileMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveRequestFileMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveRequestFileMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveRequestFileMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveRequestFileMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveRequestFileMethod "getContentLength" o = Soup.Request.RequestGetContentLengthMethodInfo-    ResolveRequestFileMethod "getContentType" o = Soup.Request.RequestGetContentTypeMethodInfo-    ResolveRequestFileMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveRequestFileMethod "getFile" o = RequestFileGetFileMethodInfo-    ResolveRequestFileMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveRequestFileMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveRequestFileMethod "getSession" o = Soup.Request.RequestGetSessionMethodInfo-    ResolveRequestFileMethod "getUri" o = Soup.Request.RequestGetUriMethodInfo-    ResolveRequestFileMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveRequestFileMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveRequestFileMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveRequestFileMethod t RequestFile, O.MethodInfo info RequestFile p) => OL.IsLabel t (RequestFile -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList RequestFile-type instance O.AttributeList RequestFile = RequestFileAttributeList-type RequestFileAttributeList = ('[ '("session", Soup.Request.RequestSessionPropertyInfo), '("uri", Soup.Request.RequestUriPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList RequestFile = RequestFileSignalList-type RequestFileSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method RequestFile::get_file--- method type : OrdinaryMethod--- Args : [Arg {argCName = "file", argType = TInterface (Name {namespace = "Soup", name = "RequestFile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupRequestFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "File"}))--- throws : False--- Skip return : False--foreign import ccall "soup_request_file_get_file" soup_request_file_get_file :: -    Ptr RequestFile ->                      -- file : TInterface (Name {namespace = "Soup", name = "RequestFile"})-    IO (Ptr Gio.File.File)--{- |-Gets a 'GI.Gio.Interfaces.File.File' corresponding to /@file@/\'s URI--/Since: 2.40/--}-requestFileGetFile ::-    (B.CallStack.HasCallStack, MonadIO m, IsRequestFile a) =>-    a-    {- ^ /@file@/: a 'GI.Soup.Objects.RequestFile.RequestFile' -}-    -> m Gio.File.File-    {- ^ __Returns:__ a 'GI.Gio.Interfaces.File.File' corresponding to /@file@/ -}-requestFileGetFile file = liftIO $ do-    file' <- unsafeManagedPtrCastPtr file-    result <- soup_request_file_get_file file'-    checkUnexpectedReturnNULL "requestFileGetFile" result-    result' <- (wrapObject Gio.File.File) result-    touchManagedPtr file-    return result'--#if ENABLE_OVERLOADING-data RequestFileGetFileMethodInfo-instance (signature ~ (m Gio.File.File), MonadIO m, IsRequestFile a) => O.MethodInfo RequestFileGetFileMethodInfo a signature where-    overloadedMethod _ = requestFileGetFile--#endif--
− GI/Soup/Objects/RequestFile.hs-boot 
@@ -1,32 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Objects.RequestFile where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype RequestFile = RequestFile (ManagedPtr RequestFile)-instance GObject RequestFile where-class (GObject o, O.IsDescendantOf RequestFile o) => IsRequestFile o-instance (GObject o, O.IsDescendantOf RequestFile o) => IsRequestFile o-instance O.HasParentTypes RequestFile-#if ENABLE_OVERLOADING-data RequestFileGetFileMethodInfo-#endif
− GI/Soup/Objects/RequestHTTP.hs 
@@ -1,182 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Objects.RequestHTTP-    ( ---- * Exported types-    RequestHTTP(..)                         ,-    IsRequestHTTP                           ,-    toRequestHTTP                           ,-    noRequestHTTP                           ,--- -- * Methods--- ** getMessage #method:getMessage#--#if ENABLE_OVERLOADING-    RequestHTTPGetMessageMethodInfo         ,-#endif-    requestHTTPGetMessage                   ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GObject.Objects.Object as GObject.Object-import qualified GI.Gio.Interfaces.Initable as Gio.Initable-import {-# SOURCE #-} qualified GI.Soup.Objects.Message as Soup.Message-import {-# SOURCE #-} qualified GI.Soup.Objects.Request as Soup.Request---- | Memory-managed wrapper type.-newtype RequestHTTP = RequestHTTP (ManagedPtr RequestHTTP)-foreign import ccall "soup_request_http_get_type"-    c_soup_request_http_get_type :: IO GType--instance GObject RequestHTTP where-    gobjectType = c_soup_request_http_get_type-    ---- | Type class for types which can be safely cast to `RequestHTTP`, for instance with `toRequestHTTP`.-class (GObject o, O.IsDescendantOf RequestHTTP o) => IsRequestHTTP o-instance (GObject o, O.IsDescendantOf RequestHTTP o) => IsRequestHTTP o--instance O.HasParentTypes RequestHTTP-type instance O.ParentTypes RequestHTTP = '[Soup.Request.Request, GObject.Object.Object, Gio.Initable.Initable]---- | Cast to `RequestHTTP`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toRequestHTTP :: (MonadIO m, IsRequestHTTP o) => o -> m RequestHTTP-toRequestHTTP = liftIO . unsafeCastTo RequestHTTP---- | A convenience alias for `Nothing` :: `Maybe` `RequestHTTP`.-noRequestHTTP :: Maybe RequestHTTP-noRequestHTTP = Nothing--#if ENABLE_OVERLOADING-type family ResolveRequestHTTPMethod (t :: Symbol) (o :: *) :: * where-    ResolveRequestHTTPMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveRequestHTTPMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveRequestHTTPMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveRequestHTTPMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveRequestHTTPMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveRequestHTTPMethod "init" o = Gio.Initable.InitableInitMethodInfo-    ResolveRequestHTTPMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveRequestHTTPMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveRequestHTTPMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveRequestHTTPMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveRequestHTTPMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveRequestHTTPMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveRequestHTTPMethod "send" o = Soup.Request.RequestSendMethodInfo-    ResolveRequestHTTPMethod "sendAsync" o = Soup.Request.RequestSendAsyncMethodInfo-    ResolveRequestHTTPMethod "sendFinish" o = Soup.Request.RequestSendFinishMethodInfo-    ResolveRequestHTTPMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveRequestHTTPMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveRequestHTTPMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveRequestHTTPMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveRequestHTTPMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveRequestHTTPMethod "getContentLength" o = Soup.Request.RequestGetContentLengthMethodInfo-    ResolveRequestHTTPMethod "getContentType" o = Soup.Request.RequestGetContentTypeMethodInfo-    ResolveRequestHTTPMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveRequestHTTPMethod "getMessage" o = RequestHTTPGetMessageMethodInfo-    ResolveRequestHTTPMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveRequestHTTPMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveRequestHTTPMethod "getSession" o = Soup.Request.RequestGetSessionMethodInfo-    ResolveRequestHTTPMethod "getUri" o = Soup.Request.RequestGetUriMethodInfo-    ResolveRequestHTTPMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveRequestHTTPMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveRequestHTTPMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveRequestHTTPMethod t RequestHTTP, O.MethodInfo info RequestHTTP p) => OL.IsLabel t (RequestHTTP -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList RequestHTTP-type instance O.AttributeList RequestHTTP = RequestHTTPAttributeList-type RequestHTTPAttributeList = ('[ '("session", Soup.Request.RequestSessionPropertyInfo), '("uri", Soup.Request.RequestUriPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList RequestHTTP = RequestHTTPSignalList-type RequestHTTPSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method RequestHTTP::get_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "http", argType = TInterface (Name {namespace = "Soup", name = "RequestHTTP"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupRequestHTTP object", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Message"}))--- throws : False--- Skip return : False--foreign import ccall "soup_request_http_get_message" soup_request_http_get_message :: -    Ptr RequestHTTP ->                      -- http : TInterface (Name {namespace = "Soup", name = "RequestHTTP"})-    IO (Ptr Soup.Message.Message)--{- |-Gets a new reference to the 'GI.Soup.Objects.Message.Message' associated to this SoupRequest--/Since: 2.40/--}-requestHTTPGetMessage ::-    (B.CallStack.HasCallStack, MonadIO m, IsRequestHTTP a) =>-    a-    {- ^ /@http@/: a 'GI.Soup.Objects.RequestHTTP.RequestHTTP' object -}-    -> m Soup.Message.Message-    {- ^ __Returns:__ a new reference to the 'GI.Soup.Objects.Message.Message' -}-requestHTTPGetMessage http = liftIO $ do-    http' <- unsafeManagedPtrCastPtr http-    result <- soup_request_http_get_message http'-    checkUnexpectedReturnNULL "requestHTTPGetMessage" result-    result' <- (wrapObject Soup.Message.Message) result-    touchManagedPtr http-    return result'--#if ENABLE_OVERLOADING-data RequestHTTPGetMessageMethodInfo-instance (signature ~ (m Soup.Message.Message), MonadIO m, IsRequestHTTP a) => O.MethodInfo RequestHTTPGetMessageMethodInfo a signature where-    overloadedMethod _ = requestHTTPGetMessage--#endif--
− GI/Soup/Objects/RequestHTTP.hs-boot 
@@ -1,32 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Objects.RequestHTTP where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype RequestHTTP = RequestHTTP (ManagedPtr RequestHTTP)-instance GObject RequestHTTP where-class (GObject o, O.IsDescendantOf RequestHTTP o) => IsRequestHTTP o-instance (GObject o, O.IsDescendantOf RequestHTTP o) => IsRequestHTTP o-instance O.HasParentTypes RequestHTTP-#if ENABLE_OVERLOADING-data RequestHTTPGetMessageMethodInfo-#endif
− GI/Soup/Objects/Requester.hs 
@@ -1,269 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Objects.Requester-    ( ---- * Exported types-    Requester(..)                           ,-    IsRequester                             ,-    toRequester                             ,-    noRequester                             ,--- -- * Methods--- ** new #method:new#--    requesterNew                            ,----- ** request #method:request#--#if ENABLE_OVERLOADING-    RequesterRequestMethodInfo              ,-#endif-    requesterRequest                        ,----- ** requestUri #method:requestUri#--#if ENABLE_OVERLOADING-    RequesterRequestUriMethodInfo           ,-#endif-    requesterRequestUri                     ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Soup.Interfaces.SessionFeature as Soup.SessionFeature-import {-# SOURCE #-} qualified GI.Soup.Objects.Request as Soup.Request-import {-# SOURCE #-} qualified GI.Soup.Structs.URI as Soup.URI---- | Memory-managed wrapper type.-newtype Requester = Requester (ManagedPtr Requester)-foreign import ccall "soup_requester_get_type"-    c_soup_requester_get_type :: IO GType--instance GObject Requester where-    gobjectType = c_soup_requester_get_type-    ---- | Type class for types which can be safely cast to `Requester`, for instance with `toRequester`.-class (GObject o, O.IsDescendantOf Requester o) => IsRequester o-instance (GObject o, O.IsDescendantOf Requester o) => IsRequester o--instance O.HasParentTypes Requester-type instance O.ParentTypes Requester = '[GObject.Object.Object, Soup.SessionFeature.SessionFeature]---- | Cast to `Requester`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toRequester :: (MonadIO m, IsRequester o) => o -> m Requester-toRequester = liftIO . unsafeCastTo Requester---- | A convenience alias for `Nothing` :: `Maybe` `Requester`.-noRequester :: Maybe Requester-noRequester = Nothing--#if ENABLE_OVERLOADING-type family ResolveRequesterMethod (t :: Symbol) (o :: *) :: * where-    ResolveRequesterMethod "addFeature" o = Soup.SessionFeature.SessionFeatureAddFeatureMethodInfo-    ResolveRequesterMethod "attach" o = Soup.SessionFeature.SessionFeatureAttachMethodInfo-    ResolveRequesterMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveRequesterMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveRequesterMethod "detach" o = Soup.SessionFeature.SessionFeatureDetachMethodInfo-    ResolveRequesterMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveRequesterMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveRequesterMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveRequesterMethod "hasFeature" o = Soup.SessionFeature.SessionFeatureHasFeatureMethodInfo-    ResolveRequesterMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveRequesterMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveRequesterMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveRequesterMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveRequesterMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveRequesterMethod "removeFeature" o = Soup.SessionFeature.SessionFeatureRemoveFeatureMethodInfo-    ResolveRequesterMethod "request" o = RequesterRequestMethodInfo-    ResolveRequesterMethod "requestUri" o = RequesterRequestUriMethodInfo-    ResolveRequesterMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveRequesterMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveRequesterMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveRequesterMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveRequesterMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveRequesterMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveRequesterMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveRequesterMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveRequesterMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveRequesterMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveRequesterMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveRequesterMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveRequesterMethod t Requester, O.MethodInfo info Requester p) => OL.IsLabel t (Requester -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList Requester-type instance O.AttributeList Requester = RequesterAttributeList-type RequesterAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList Requester = RequesterSignalList-type RequesterSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])--#endif---- method Requester::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Requester"}))--- throws : False--- Skip return : False--foreign import ccall "soup_requester_new" soup_requester_new :: -    IO (Ptr Requester)--{- |-/No description available in the introspection data./--}-requesterNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m Requester-requesterNew  = liftIO $ do-    result <- soup_requester_new-    checkUnexpectedReturnNULL "requesterNew" result-    result' <- (wrapObject Requester) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method Requester::request--- method type : OrdinaryMethod--- Args : [Arg {argCName = "requester", argType = TInterface (Name {namespace = "Soup", name = "Requester"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Request"}))--- throws : True--- Skip return : False--foreign import ccall "soup_requester_request" soup_requester_request :: -    Ptr Requester ->                        -- requester : TInterface (Name {namespace = "Soup", name = "Requester"})-    CString ->                              -- uri_string : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Soup.Request.Request)--{- |-/No description available in the introspection data./--}-requesterRequest ::-    (B.CallStack.HasCallStack, MonadIO m, IsRequester a) =>-    a-    -> T.Text-    -> m Soup.Request.Request-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-requesterRequest requester uriString = liftIO $ do-    requester' <- unsafeManagedPtrCastPtr requester-    uriString' <- textToCString uriString-    onException (do-        result <- propagateGError $ soup_requester_request requester' uriString'-        checkUnexpectedReturnNULL "requesterRequest" result-        result' <- (wrapObject Soup.Request.Request) result-        touchManagedPtr requester-        freeMem uriString'-        return result'-     ) (do-        freeMem uriString'-     )--#if ENABLE_OVERLOADING-data RequesterRequestMethodInfo-instance (signature ~ (T.Text -> m Soup.Request.Request), MonadIO m, IsRequester a) => O.MethodInfo RequesterRequestMethodInfo a signature where-    overloadedMethod _ = requesterRequest--#endif---- method Requester::request_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "requester", argType = TInterface (Name {namespace = "Soup", name = "Requester"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Nothing, sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Request"}))--- throws : True--- Skip return : False--foreign import ccall "soup_requester_request_uri" soup_requester_request_uri :: -    Ptr Requester ->                        -- requester : TInterface (Name {namespace = "Soup", name = "Requester"})-    Ptr Soup.URI.URI ->                     -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Soup.Request.Request)--{- |-/No description available in the introspection data./--}-requesterRequestUri ::-    (B.CallStack.HasCallStack, MonadIO m, IsRequester a) =>-    a-    -> Soup.URI.URI-    -> m Soup.Request.Request-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-requesterRequestUri requester uri = liftIO $ do-    requester' <- unsafeManagedPtrCastPtr requester-    uri' <- unsafeManagedPtrGetPtr uri-    onException (do-        result <- propagateGError $ soup_requester_request_uri requester' uri'-        checkUnexpectedReturnNULL "requesterRequestUri" result-        result' <- (wrapObject Soup.Request.Request) result-        touchManagedPtr requester-        touchManagedPtr uri-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data RequesterRequestUriMethodInfo-instance (signature ~ (Soup.URI.URI -> m Soup.Request.Request), MonadIO m, IsRequester a) => O.MethodInfo RequesterRequestUriMethodInfo a signature where-    overloadedMethod _ = requesterRequestUri--#endif--
− GI/Soup/Objects/Requester.hs-boot 
@@ -1,35 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Objects.Requester where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype Requester = Requester (ManagedPtr Requester)-instance GObject Requester where-class (GObject o, O.IsDescendantOf Requester o) => IsRequester o-instance (GObject o, O.IsDescendantOf Requester o) => IsRequester o-instance O.HasParentTypes Requester-#if ENABLE_OVERLOADING-data RequesterRequestMethodInfo-#endif-#if ENABLE_OVERLOADING-data RequesterRequestUriMethodInfo-#endif
− GI/Soup/Objects/Server.hs 
@@ -1,2750 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Objects.Server-    ( ---- * Exported types-    Server(..)                              ,-    IsServer                                ,-    toServer                                ,-    noServer                                ,--- -- * Methods--- ** acceptIostream #method:acceptIostream#--#if ENABLE_OVERLOADING-    ServerAcceptIostreamMethodInfo          ,-#endif-    serverAcceptIostream                    ,----- ** addAuthDomain #method:addAuthDomain#--#if ENABLE_OVERLOADING-    ServerAddAuthDomainMethodInfo           ,-#endif-    serverAddAuthDomain                     ,----- ** addEarlyHandler #method:addEarlyHandler#--#if ENABLE_OVERLOADING-    ServerAddEarlyHandlerMethodInfo         ,-#endif-    serverAddEarlyHandler                   ,----- ** addHandler #method:addHandler#--#if ENABLE_OVERLOADING-    ServerAddHandlerMethodInfo              ,-#endif-    serverAddHandler                        ,----- ** addWebsocketHandler #method:addWebsocketHandler#--#if ENABLE_OVERLOADING-    ServerAddWebsocketHandlerMethodInfo     ,-#endif-    serverAddWebsocketHandler               ,----- ** disconnect #method:disconnect#--#if ENABLE_OVERLOADING-    ServerDisconnectMethodInfo              ,-#endif-    serverDisconnect                        ,----- ** getAsyncContext #method:getAsyncContext#--#if ENABLE_OVERLOADING-    ServerGetAsyncContextMethodInfo         ,-#endif-    serverGetAsyncContext                   ,----- ** getListener #method:getListener#--#if ENABLE_OVERLOADING-    ServerGetListenerMethodInfo             ,-#endif-    serverGetListener                       ,----- ** getListeners #method:getListeners#--#if ENABLE_OVERLOADING-    ServerGetListenersMethodInfo            ,-#endif-    serverGetListeners                      ,----- ** getPort #method:getPort#--#if ENABLE_OVERLOADING-    ServerGetPortMethodInfo                 ,-#endif-    serverGetPort                           ,----- ** getUris #method:getUris#--#if ENABLE_OVERLOADING-    ServerGetUrisMethodInfo                 ,-#endif-    serverGetUris                           ,----- ** isHttps #method:isHttps#--#if ENABLE_OVERLOADING-    ServerIsHttpsMethodInfo                 ,-#endif-    serverIsHttps                           ,----- ** listen #method:listen#--#if ENABLE_OVERLOADING-    ServerListenMethodInfo                  ,-#endif-    serverListen                            ,----- ** listenAll #method:listenAll#--#if ENABLE_OVERLOADING-    ServerListenAllMethodInfo               ,-#endif-    serverListenAll                         ,----- ** listenFd #method:listenFd#--#if ENABLE_OVERLOADING-    ServerListenFdMethodInfo                ,-#endif-    serverListenFd                          ,----- ** listenLocal #method:listenLocal#--#if ENABLE_OVERLOADING-    ServerListenLocalMethodInfo             ,-#endif-    serverListenLocal                       ,----- ** listenSocket #method:listenSocket#--#if ENABLE_OVERLOADING-    ServerListenSocketMethodInfo            ,-#endif-    serverListenSocket                      ,----- ** pauseMessage #method:pauseMessage#--#if ENABLE_OVERLOADING-    ServerPauseMessageMethodInfo            ,-#endif-    serverPauseMessage                      ,----- ** quit #method:quit#--#if ENABLE_OVERLOADING-    ServerQuitMethodInfo                    ,-#endif-    serverQuit                              ,----- ** removeAuthDomain #method:removeAuthDomain#--#if ENABLE_OVERLOADING-    ServerRemoveAuthDomainMethodInfo        ,-#endif-    serverRemoveAuthDomain                  ,----- ** removeHandler #method:removeHandler#--#if ENABLE_OVERLOADING-    ServerRemoveHandlerMethodInfo           ,-#endif-    serverRemoveHandler                     ,----- ** run #method:run#--#if ENABLE_OVERLOADING-    ServerRunMethodInfo                     ,-#endif-    serverRun                               ,----- ** runAsync #method:runAsync#--#if ENABLE_OVERLOADING-    ServerRunAsyncMethodInfo                ,-#endif-    serverRunAsync                          ,----- ** setSslCertFile #method:setSslCertFile#--#if ENABLE_OVERLOADING-    ServerSetSslCertFileMethodInfo          ,-#endif-    serverSetSslCertFile                    ,----- ** unpauseMessage #method:unpauseMessage#--#if ENABLE_OVERLOADING-    ServerUnpauseMessageMethodInfo          ,-#endif-    serverUnpauseMessage                    ,----- -- * Properties--- ** asyncContext #attr:asyncContext#-{- | The server\'s 'GI.GLib.Structs.MainContext.MainContext', if you are using the old API.-Servers created using 'GI.Soup.Objects.Server.serverListen' will listen on-the 'GI.GLib.Structs.MainContext.MainContext' that was the thread-default context at-the time 'GI.Soup.Objects.Server.serverListen' was called.--}-#if ENABLE_OVERLOADING-    ServerAsyncContextPropertyInfo          ,-#endif-    constructServerAsyncContext             ,-    getServerAsyncContext                   ,-#if ENABLE_OVERLOADING-    serverAsyncContext                      ,-#endif----- ** httpAliases #attr:httpAliases#-{- | A 'Nothing'-terminated array of URI schemes that should be-considered to be aliases for \"http\". Eg, if this included-\<literal>\"dav\"\<\/literal>, than a URI of-\<literal>dav:\/\/example.com\/path\<\/literal> would be treated-identically to \<literal>http:\/\/example.com\/path\<\/literal>.-In particular, this is needed in cases where a client-sends requests with absolute URIs, where those URIs do-not use \"http:\".--The default value is an array containing the single element-\<literal>\"*\"\<\/literal>, a special value which means that-any scheme except \"https\" is considered to be an alias for-\"http\".--See also 'GI.Soup.Objects.Server.Server':@/https-aliases/@.--/Since: 2.44/--}-#if ENABLE_OVERLOADING-    ServerHttpAliasesPropertyInfo           ,-#endif-    clearServerHttpAliases                  ,-    constructServerHttpAliases              ,-    getServerHttpAliases                    ,-#if ENABLE_OVERLOADING-    serverHttpAliases                       ,-#endif-    setServerHttpAliases                    ,----- ** httpsAliases #attr:httpsAliases#-{- | A comma-delimited list of URI schemes that should be-considered to be aliases for \"https\". See-'GI.Soup.Objects.Server.Server':@/http-aliases/@ for more information.--The default value is 'Nothing', meaning that no URI schemes-are considered aliases for \"https\".--/Since: 2.44/--}-#if ENABLE_OVERLOADING-    ServerHttpsAliasesPropertyInfo          ,-#endif-    clearServerHttpsAliases                 ,-    constructServerHttpsAliases             ,-    getServerHttpsAliases                   ,-#if ENABLE_OVERLOADING-    serverHttpsAliases                      ,-#endif-    setServerHttpsAliases                   ,----- ** interface #attr:interface#-{- | The address of the network interface the server is-listening on, if you are using the old 'GI.Soup.Objects.Server.Server' API.-(This will not be set if you use 'GI.Soup.Objects.Server.serverListen',-etc.)--}-#if ENABLE_OVERLOADING-    ServerInterfacePropertyInfo             ,-#endif-    constructServerInterface                ,-    getServerInterface                      ,-#if ENABLE_OVERLOADING-    serverInterface                         ,-#endif----- ** port #attr:port#-{- | The port the server is listening on, if you are using the-old 'GI.Soup.Objects.Server.Server' API. (This will not be set if you use-'GI.Soup.Objects.Server.serverListen', etc.)--}-#if ENABLE_OVERLOADING-    ServerPortPropertyInfo                  ,-#endif-    constructServerPort                     ,-    getServerPort                           ,-#if ENABLE_OVERLOADING-    serverPort                              ,-#endif----- ** rawPaths #attr:rawPaths#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    ServerRawPathsPropertyInfo              ,-#endif-    constructServerRawPaths                 ,-    getServerRawPaths                       ,-#if ENABLE_OVERLOADING-    serverRawPaths                          ,-#endif----- ** serverHeader #attr:serverHeader#-{- | If non-'Nothing', the value to use for the \"Server\" header on-'GI.Soup.Objects.Message.Message'\<!-- -->s processed by this server.--The Server header is the server equivalent of the-User-Agent header, and provides information about the-server and its components. It contains a list of one or-more product tokens, separated by whitespace, with the most-significant product token coming first. The tokens must be-brief, ASCII, and mostly alphanumeric (although \"-\", \"_\",-and \".\" are also allowed), and may optionally include a \"\/\"-followed by a version string. You may also put comments,-enclosed in parentheses, between or after the tokens.--Some HTTP server implementations intentionally do not use-version numbers in their Server header, so that-installations running older versions of the server don\'t-end up advertising their vulnerability to specific security-holes.--As with 'GI.Soup.Objects.Session.Session':@/user_agent/@, if you set a-'GI.Soup.Objects.Server.Server':@/server_header/@ property that has trailing whitespace,-'GI.Soup.Objects.Server.Server' will append its own product token (eg,-\"\<literal>libsoup\/2.3.2\<\/literal>\") to the end of the-header for you.--}-#if ENABLE_OVERLOADING-    ServerServerHeaderPropertyInfo          ,-#endif-    clearServerServerHeader                 ,-    constructServerServerHeader             ,-    getServerServerHeader                   ,-#if ENABLE_OVERLOADING-    serverServerHeader                      ,-#endif-    setServerServerHeader                   ,----- ** sslCertFile #attr:sslCertFile#-{- | Path to a file containing a PEM-encoded certificate.--If you set this property and 'GI.Soup.Objects.Server.Server':@/ssl-key-file/@ at-construct time, then @/soup_server_new()/@ will try to read the-files; if it cannot, it will return 'Nothing', with no explicit-indication of what went wrong (and logging a warning with-newer versions of glib, since returning 'Nothing' from a-constructor is illegal).--}-#if ENABLE_OVERLOADING-    ServerSslCertFilePropertyInfo           ,-#endif-    constructServerSslCertFile              ,-    getServerSslCertFile                    ,-#if ENABLE_OVERLOADING-    serverSslCertFile                       ,-#endif----- ** sslKeyFile #attr:sslKeyFile#-{- | Path to a file containing a PEM-encoded private key. See-'GI.Soup.Objects.Server.Server':@/ssl-cert-file/@ for more information about how this-is used.--}-#if ENABLE_OVERLOADING-    ServerSslKeyFilePropertyInfo            ,-#endif-    constructServerSslKeyFile               ,-    getServerSslKeyFile                     ,-#if ENABLE_OVERLOADING-    serverSslKeyFile                        ,-#endif----- ** tlsCertificate #attr:tlsCertificate#-{- | A 'GI.Gio.Objects.TlsCertificate.TlsCertificate' that has a 'GI.Gio.Objects.TlsCertificate.TlsCertificate':@/private-key/@-set. If this is set, then the server will be able to speak-https in addition to (or instead of) plain http.--Alternatively, you can call 'GI.Soup.Objects.Server.serverSetSslCertFile'-to have 'GI.Soup.Objects.Server.Server' read in a a certificate from a file.--/Since: 2.38/--}-#if ENABLE_OVERLOADING-    ServerTlsCertificatePropertyInfo        ,-#endif-    constructServerTlsCertificate           ,-    getServerTlsCertificate                 ,-#if ENABLE_OVERLOADING-    serverTlsCertificate                    ,-#endif----- -- * Signals--- ** requestAborted #signal:requestAborted#--    C_ServerRequestAbortedCallback          ,-    ServerRequestAbortedCallback            ,-#if ENABLE_OVERLOADING-    ServerRequestAbortedSignalInfo          ,-#endif-    afterServerRequestAborted               ,-    genClosure_ServerRequestAborted         ,-    mk_ServerRequestAbortedCallback         ,-    noServerRequestAbortedCallback          ,-    onServerRequestAborted                  ,-    wrap_ServerRequestAbortedCallback       ,----- ** requestFinished #signal:requestFinished#--    C_ServerRequestFinishedCallback         ,-    ServerRequestFinishedCallback           ,-#if ENABLE_OVERLOADING-    ServerRequestFinishedSignalInfo         ,-#endif-    afterServerRequestFinished              ,-    genClosure_ServerRequestFinished        ,-    mk_ServerRequestFinishedCallback        ,-    noServerRequestFinishedCallback         ,-    onServerRequestFinished                 ,-    wrap_ServerRequestFinishedCallback      ,----- ** requestRead #signal:requestRead#--    C_ServerRequestReadCallback             ,-    ServerRequestReadCallback               ,-#if ENABLE_OVERLOADING-    ServerRequestReadSignalInfo             ,-#endif-    afterServerRequestRead                  ,-    genClosure_ServerRequestRead            ,-    mk_ServerRequestReadCallback            ,-    noServerRequestReadCallback             ,-    onServerRequestRead                     ,-    wrap_ServerRequestReadCallback          ,----- ** requestStarted #signal:requestStarted#--    C_ServerRequestStartedCallback          ,-    ServerRequestStartedCallback            ,-#if ENABLE_OVERLOADING-    ServerRequestStartedSignalInfo          ,-#endif-    afterServerRequestStarted               ,-    genClosure_ServerRequestStarted         ,-    mk_ServerRequestStartedCallback         ,-    noServerRequestStartedCallback          ,-    onServerRequestStarted                  ,-    wrap_ServerRequestStartedCallback       ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GLib.Callbacks as GLib.Callbacks-import qualified GI.GLib.Structs.MainContext as GLib.MainContext-import qualified GI.GObject.Objects.Object as GObject.Object-import qualified GI.Gio.Objects.IOStream as Gio.IOStream-import qualified GI.Gio.Objects.Socket as Gio.Socket-import qualified GI.Gio.Objects.SocketAddress as Gio.SocketAddress-import qualified GI.Gio.Objects.TlsCertificate as Gio.TlsCertificate-import qualified GI.Soup.Callbacks as Soup.Callbacks-import {-# SOURCE #-} qualified GI.Soup.Flags as Soup.Flags-import {-# SOURCE #-} qualified GI.Soup.Objects.Address as Soup.Address-import {-# SOURCE #-} qualified GI.Soup.Objects.AuthDomain as Soup.AuthDomain-import {-# SOURCE #-} qualified GI.Soup.Objects.Message as Soup.Message-import {-# SOURCE #-} qualified GI.Soup.Objects.Socket as Soup.Socket-import {-# SOURCE #-} qualified GI.Soup.Structs.ClientContext as Soup.ClientContext-import {-# SOURCE #-} qualified GI.Soup.Structs.URI as Soup.URI---- | Memory-managed wrapper type.-newtype Server = Server (ManagedPtr Server)-foreign import ccall "soup_server_get_type"-    c_soup_server_get_type :: IO GType--instance GObject Server where-    gobjectType = c_soup_server_get_type-    ---- | Type class for types which can be safely cast to `Server`, for instance with `toServer`.-class (GObject o, O.IsDescendantOf Server o) => IsServer o-instance (GObject o, O.IsDescendantOf Server o) => IsServer o--instance O.HasParentTypes Server-type instance O.ParentTypes Server = '[GObject.Object.Object]---- | Cast to `Server`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toServer :: (MonadIO m, IsServer o) => o -> m Server-toServer = liftIO . unsafeCastTo Server---- | A convenience alias for `Nothing` :: `Maybe` `Server`.-noServer :: Maybe Server-noServer = Nothing--#if ENABLE_OVERLOADING-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.Object.ObjectBindPropertyMethodInfo-    ResolveServerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveServerMethod "disconnect" o = ServerDisconnectMethodInfo-    ResolveServerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveServerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveServerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveServerMethod "isFloating" o = GObject.Object.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.Object.ObjectNotifyMethodInfo-    ResolveServerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveServerMethod "pauseMessage" o = ServerPauseMessageMethodInfo-    ResolveServerMethod "quit" o = ServerQuitMethodInfo-    ResolveServerMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveServerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveServerMethod "removeAuthDomain" o = ServerRemoveAuthDomainMethodInfo-    ResolveServerMethod "removeHandler" o = ServerRemoveHandlerMethodInfo-    ResolveServerMethod "run" o = ServerRunMethodInfo-    ResolveServerMethod "runAsync" o = ServerRunAsyncMethodInfo-    ResolveServerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveServerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveServerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveServerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveServerMethod "unpauseMessage" o = ServerUnpauseMessageMethodInfo-    ResolveServerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveServerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveServerMethod "getAsyncContext" o = ServerGetAsyncContextMethodInfo-    ResolveServerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveServerMethod "getListener" o = ServerGetListenerMethodInfo-    ResolveServerMethod "getListeners" o = ServerGetListenersMethodInfo-    ResolveServerMethod "getPort" o = ServerGetPortMethodInfo-    ResolveServerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveServerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveServerMethod "getUris" o = ServerGetUrisMethodInfo-    ResolveServerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveServerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveServerMethod "setSslCertFile" o = ServerSetSslCertFileMethodInfo-    ResolveServerMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveServerMethod t Server, O.MethodInfo info Server p) => OL.IsLabel t (Server -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif---- signal Server::request-aborted-{- |-Emitted when processing has failed for a message; this-could mean either that it could not be read (if-'GI.Soup.Objects.Server.Server'::@/request_read/@ has not been emitted for it yet),-or that the response could not be written back (if-'GI.Soup.Objects.Server.Server'::@/request_read/@ has been emitted but-'GI.Soup.Objects.Server.Server'::@/request_finished/@ has not been).--/@message@/ is in an undefined state when this signal is-emitted; the signal exists primarily to allow the server to-free any state that it may have allocated in-'GI.Soup.Objects.Server.Server'::@/request_started/@.--}-type ServerRequestAbortedCallback =-    Soup.Message.Message-    {- ^ /@message@/: the message -}-    -> Soup.ClientContext.ClientContext-    {- ^ /@client@/: the client context -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `ServerRequestAbortedCallback`@.-noServerRequestAbortedCallback :: Maybe ServerRequestAbortedCallback-noServerRequestAbortedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_ServerRequestAbortedCallback =-    Ptr () ->                               -- object-    Ptr Soup.Message.Message ->-    Ptr Soup.ClientContext.ClientContext ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_ServerRequestAbortedCallback`.-foreign import ccall "wrapper"-    mk_ServerRequestAbortedCallback :: C_ServerRequestAbortedCallback -> IO (FunPtr C_ServerRequestAbortedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_ServerRequestAborted :: MonadIO m => ServerRequestAbortedCallback -> m (GClosure C_ServerRequestAbortedCallback)-genClosure_ServerRequestAborted cb = liftIO $ do-    let cb' = wrap_ServerRequestAbortedCallback cb-    mk_ServerRequestAbortedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `ServerRequestAbortedCallback` into a `C_ServerRequestAbortedCallback`.-wrap_ServerRequestAbortedCallback ::-    ServerRequestAbortedCallback ->-    C_ServerRequestAbortedCallback-wrap_ServerRequestAbortedCallback _cb _ message client _ = do-    message' <- (newObject Soup.Message.Message) message-    B.ManagedPtr.withTransient Soup.ClientContext.ClientContext client $ \client' -> do-        _cb  message' client'---{- |-Connect a signal handler for the “@request-aborted@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' server #requestAborted callback-@--}-onServerRequestAborted :: (IsServer a, MonadIO m) => a -> ServerRequestAbortedCallback -> m SignalHandlerId-onServerRequestAborted obj cb = liftIO $ do-    let cb' = wrap_ServerRequestAbortedCallback cb-    cb'' <- mk_ServerRequestAbortedCallback cb'-    connectSignalFunPtr obj "request-aborted" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@request-aborted@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' server #requestAborted callback-@--}-afterServerRequestAborted :: (IsServer a, MonadIO m) => a -> ServerRequestAbortedCallback -> m SignalHandlerId-afterServerRequestAborted obj cb = liftIO $ do-    let cb' = wrap_ServerRequestAbortedCallback cb-    cb'' <- mk_ServerRequestAbortedCallback cb'-    connectSignalFunPtr obj "request-aborted" cb'' SignalConnectAfter----- signal Server::request-finished-{- |-Emitted when the server has finished writing a response to-a request.--}-type ServerRequestFinishedCallback =-    Soup.Message.Message-    {- ^ /@message@/: the message -}-    -> Soup.ClientContext.ClientContext-    {- ^ /@client@/: the client context -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `ServerRequestFinishedCallback`@.-noServerRequestFinishedCallback :: Maybe ServerRequestFinishedCallback-noServerRequestFinishedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_ServerRequestFinishedCallback =-    Ptr () ->                               -- object-    Ptr Soup.Message.Message ->-    Ptr Soup.ClientContext.ClientContext ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_ServerRequestFinishedCallback`.-foreign import ccall "wrapper"-    mk_ServerRequestFinishedCallback :: C_ServerRequestFinishedCallback -> IO (FunPtr C_ServerRequestFinishedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_ServerRequestFinished :: MonadIO m => ServerRequestFinishedCallback -> m (GClosure C_ServerRequestFinishedCallback)-genClosure_ServerRequestFinished cb = liftIO $ do-    let cb' = wrap_ServerRequestFinishedCallback cb-    mk_ServerRequestFinishedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `ServerRequestFinishedCallback` into a `C_ServerRequestFinishedCallback`.-wrap_ServerRequestFinishedCallback ::-    ServerRequestFinishedCallback ->-    C_ServerRequestFinishedCallback-wrap_ServerRequestFinishedCallback _cb _ message client _ = do-    message' <- (newObject Soup.Message.Message) message-    B.ManagedPtr.withTransient Soup.ClientContext.ClientContext client $ \client' -> do-        _cb  message' client'---{- |-Connect a signal handler for the “@request-finished@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' server #requestFinished callback-@--}-onServerRequestFinished :: (IsServer a, MonadIO m) => a -> ServerRequestFinishedCallback -> m SignalHandlerId-onServerRequestFinished obj cb = liftIO $ do-    let cb' = wrap_ServerRequestFinishedCallback cb-    cb'' <- mk_ServerRequestFinishedCallback cb'-    connectSignalFunPtr obj "request-finished" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@request-finished@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' server #requestFinished callback-@--}-afterServerRequestFinished :: (IsServer a, MonadIO m) => a -> ServerRequestFinishedCallback -> m SignalHandlerId-afterServerRequestFinished obj cb = liftIO $ do-    let cb' = wrap_ServerRequestFinishedCallback cb-    cb'' <- mk_ServerRequestFinishedCallback cb'-    connectSignalFunPtr obj "request-finished" cb'' SignalConnectAfter----- signal Server::request-read-{- |-Emitted when the server has successfully read a request.-/@message@/ will have all of its request-side information-filled in, and if the message was authenticated, /@client@/-will have information about that. This signal is emitted-before any (non-early) handlers are called for the message,-and if it sets the message\'s @/status_code/@, then normal-handler processing will be skipped.--}-type ServerRequestReadCallback =-    Soup.Message.Message-    {- ^ /@message@/: the message -}-    -> Soup.ClientContext.ClientContext-    {- ^ /@client@/: the client context -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `ServerRequestReadCallback`@.-noServerRequestReadCallback :: Maybe ServerRequestReadCallback-noServerRequestReadCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_ServerRequestReadCallback =-    Ptr () ->                               -- object-    Ptr Soup.Message.Message ->-    Ptr Soup.ClientContext.ClientContext ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_ServerRequestReadCallback`.-foreign import ccall "wrapper"-    mk_ServerRequestReadCallback :: C_ServerRequestReadCallback -> IO (FunPtr C_ServerRequestReadCallback)---- | Wrap the callback into a `GClosure`.-genClosure_ServerRequestRead :: MonadIO m => ServerRequestReadCallback -> m (GClosure C_ServerRequestReadCallback)-genClosure_ServerRequestRead cb = liftIO $ do-    let cb' = wrap_ServerRequestReadCallback cb-    mk_ServerRequestReadCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `ServerRequestReadCallback` into a `C_ServerRequestReadCallback`.-wrap_ServerRequestReadCallback ::-    ServerRequestReadCallback ->-    C_ServerRequestReadCallback-wrap_ServerRequestReadCallback _cb _ message client _ = do-    message' <- (newObject Soup.Message.Message) message-    B.ManagedPtr.withTransient Soup.ClientContext.ClientContext client $ \client' -> do-        _cb  message' client'---{- |-Connect a signal handler for the “@request-read@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' server #requestRead callback-@--}-onServerRequestRead :: (IsServer a, MonadIO m) => a -> ServerRequestReadCallback -> m SignalHandlerId-onServerRequestRead obj cb = liftIO $ do-    let cb' = wrap_ServerRequestReadCallback cb-    cb'' <- mk_ServerRequestReadCallback cb'-    connectSignalFunPtr obj "request-read" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@request-read@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' server #requestRead callback-@--}-afterServerRequestRead :: (IsServer a, MonadIO m) => a -> ServerRequestReadCallback -> m SignalHandlerId-afterServerRequestRead obj cb = liftIO $ do-    let cb' = wrap_ServerRequestReadCallback cb-    cb'' <- mk_ServerRequestReadCallback cb'-    connectSignalFunPtr obj "request-read" cb'' SignalConnectAfter----- signal Server::request-started-{- |-Emitted when the server has started reading a new request.-/@message@/ will be completely blank; not even the-Request-Line will have been read yet. About the only thing-you can usefully do with it is connect to its signals.--If the request is read successfully, this will eventually-be followed by a 'GI.Soup.Objects.Server.Server'::@/request_read/@ signal. If a-response is then sent, the request processing will end with-a 'GI.Soup.Objects.Server.Server'::@/request_finished/@ signal. If a network error-occurs, the processing will instead end with-'GI.Soup.Objects.Server.Server'::@/request_aborted/@.--}-type ServerRequestStartedCallback =-    Soup.Message.Message-    {- ^ /@message@/: the new message -}-    -> Soup.ClientContext.ClientContext-    {- ^ /@client@/: the client context -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `ServerRequestStartedCallback`@.-noServerRequestStartedCallback :: Maybe ServerRequestStartedCallback-noServerRequestStartedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_ServerRequestStartedCallback =-    Ptr () ->                               -- object-    Ptr Soup.Message.Message ->-    Ptr Soup.ClientContext.ClientContext ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_ServerRequestStartedCallback`.-foreign import ccall "wrapper"-    mk_ServerRequestStartedCallback :: C_ServerRequestStartedCallback -> IO (FunPtr C_ServerRequestStartedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_ServerRequestStarted :: MonadIO m => ServerRequestStartedCallback -> m (GClosure C_ServerRequestStartedCallback)-genClosure_ServerRequestStarted cb = liftIO $ do-    let cb' = wrap_ServerRequestStartedCallback cb-    mk_ServerRequestStartedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `ServerRequestStartedCallback` into a `C_ServerRequestStartedCallback`.-wrap_ServerRequestStartedCallback ::-    ServerRequestStartedCallback ->-    C_ServerRequestStartedCallback-wrap_ServerRequestStartedCallback _cb _ message client _ = do-    message' <- (newObject Soup.Message.Message) message-    B.ManagedPtr.withTransient Soup.ClientContext.ClientContext client $ \client' -> do-        _cb  message' client'---{- |-Connect a signal handler for the “@request-started@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' server #requestStarted callback-@--}-onServerRequestStarted :: (IsServer a, MonadIO m) => a -> ServerRequestStartedCallback -> m SignalHandlerId-onServerRequestStarted obj cb = liftIO $ do-    let cb' = wrap_ServerRequestStartedCallback cb-    cb'' <- mk_ServerRequestStartedCallback cb'-    connectSignalFunPtr obj "request-started" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@request-started@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' server #requestStarted callback-@--}-afterServerRequestStarted :: (IsServer a, MonadIO m) => a -> ServerRequestStartedCallback -> m SignalHandlerId-afterServerRequestStarted obj cb = liftIO $ do-    let cb' = wrap_ServerRequestStartedCallback cb-    cb'' <- mk_ServerRequestStartedCallback cb'-    connectSignalFunPtr obj "request-started" cb'' SignalConnectAfter----- VVV Prop "async-context"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@async-context@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' server #asyncContext-@--}-getServerAsyncContext :: (MonadIO m, IsServer o) => o -> m (Ptr ())-getServerAsyncContext obj = liftIO $ B.Properties.getObjectPropertyPtr obj "async-context"--{- |-Construct a `GValueConstruct` with valid value for the “@async-context@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructServerAsyncContext :: (IsServer o) => Ptr () -> IO (GValueConstruct o)-constructServerAsyncContext val = B.Properties.constructObjectPropertyPtr "async-context" val--#if ENABLE_OVERLOADING-data ServerAsyncContextPropertyInfo-instance AttrInfo ServerAsyncContextPropertyInfo where-    type AttrAllowedOps ServerAsyncContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ServerAsyncContextPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint ServerAsyncContextPropertyInfo = IsServer-    type AttrGetType ServerAsyncContextPropertyInfo = (Ptr ())-    type AttrLabel ServerAsyncContextPropertyInfo = "async-context"-    type AttrOrigin ServerAsyncContextPropertyInfo = Server-    attrGet _ = getServerAsyncContext-    attrSet _ = undefined-    attrConstruct _ = constructServerAsyncContext-    attrClear _ = undefined-#endif---- VVV Prop "http-aliases"-   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@http-aliases@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' server #httpAliases-@--}-getServerHttpAliases :: (MonadIO m, IsServer o) => o -> m (Maybe [T.Text])-getServerHttpAliases obj = liftIO $ B.Properties.getObjectPropertyStringArray obj "http-aliases"--{- |-Set the value of the “@http-aliases@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' server [ #httpAliases 'Data.GI.Base.Attributes.:=' value ]-@--}-setServerHttpAliases :: (MonadIO m, IsServer o) => o -> [T.Text] -> m ()-setServerHttpAliases obj val = liftIO $ B.Properties.setObjectPropertyStringArray obj "http-aliases" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@http-aliases@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructServerHttpAliases :: (IsServer o) => [T.Text] -> IO (GValueConstruct o)-constructServerHttpAliases val = B.Properties.constructObjectPropertyStringArray "http-aliases" (Just val)--{- |-Set the value of the “@http-aliases@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #httpAliases-@--}-clearServerHttpAliases :: (MonadIO m, IsServer o) => o -> m ()-clearServerHttpAliases obj = liftIO $ B.Properties.setObjectPropertyStringArray obj "http-aliases" (Nothing :: Maybe [T.Text])--#if ENABLE_OVERLOADING-data ServerHttpAliasesPropertyInfo-instance AttrInfo ServerHttpAliasesPropertyInfo where-    type AttrAllowedOps ServerHttpAliasesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ServerHttpAliasesPropertyInfo = (~) [T.Text]-    type AttrBaseTypeConstraint ServerHttpAliasesPropertyInfo = IsServer-    type AttrGetType ServerHttpAliasesPropertyInfo = (Maybe [T.Text])-    type AttrLabel ServerHttpAliasesPropertyInfo = "http-aliases"-    type AttrOrigin ServerHttpAliasesPropertyInfo = Server-    attrGet _ = getServerHttpAliases-    attrSet _ = setServerHttpAliases-    attrConstruct _ = constructServerHttpAliases-    attrClear _ = clearServerHttpAliases-#endif---- VVV Prop "https-aliases"-   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@https-aliases@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' server #httpsAliases-@--}-getServerHttpsAliases :: (MonadIO m, IsServer o) => o -> m (Maybe [T.Text])-getServerHttpsAliases obj = liftIO $ B.Properties.getObjectPropertyStringArray obj "https-aliases"--{- |-Set the value of the “@https-aliases@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' server [ #httpsAliases 'Data.GI.Base.Attributes.:=' value ]-@--}-setServerHttpsAliases :: (MonadIO m, IsServer o) => o -> [T.Text] -> m ()-setServerHttpsAliases obj val = liftIO $ B.Properties.setObjectPropertyStringArray obj "https-aliases" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@https-aliases@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructServerHttpsAliases :: (IsServer o) => [T.Text] -> IO (GValueConstruct o)-constructServerHttpsAliases val = B.Properties.constructObjectPropertyStringArray "https-aliases" (Just val)--{- |-Set the value of the “@https-aliases@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #httpsAliases-@--}-clearServerHttpsAliases :: (MonadIO m, IsServer o) => o -> m ()-clearServerHttpsAliases obj = liftIO $ B.Properties.setObjectPropertyStringArray obj "https-aliases" (Nothing :: Maybe [T.Text])--#if ENABLE_OVERLOADING-data ServerHttpsAliasesPropertyInfo-instance AttrInfo ServerHttpsAliasesPropertyInfo where-    type AttrAllowedOps ServerHttpsAliasesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ServerHttpsAliasesPropertyInfo = (~) [T.Text]-    type AttrBaseTypeConstraint ServerHttpsAliasesPropertyInfo = IsServer-    type AttrGetType ServerHttpsAliasesPropertyInfo = (Maybe [T.Text])-    type AttrLabel ServerHttpsAliasesPropertyInfo = "https-aliases"-    type AttrOrigin ServerHttpsAliasesPropertyInfo = Server-    attrGet _ = getServerHttpsAliases-    attrSet _ = setServerHttpsAliases-    attrConstruct _ = constructServerHttpsAliases-    attrClear _ = clearServerHttpsAliases-#endif---- VVV Prop "interface"-   -- Type: TInterface (Name {namespace = "Soup", name = "Address"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@interface@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' server #interface-@--}-getServerInterface :: (MonadIO m, IsServer o) => o -> m (Maybe Soup.Address.Address)-getServerInterface obj = liftIO $ B.Properties.getObjectPropertyObject obj "interface" Soup.Address.Address--{- |-Construct a `GValueConstruct` with valid value for the “@interface@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructServerInterface :: (IsServer o, Soup.Address.IsAddress a) => a -> IO (GValueConstruct o)-constructServerInterface val = B.Properties.constructObjectPropertyObject "interface" (Just val)--#if ENABLE_OVERLOADING-data ServerInterfacePropertyInfo-instance AttrInfo ServerInterfacePropertyInfo where-    type AttrAllowedOps ServerInterfacePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ServerInterfacePropertyInfo = Soup.Address.IsAddress-    type AttrBaseTypeConstraint ServerInterfacePropertyInfo = IsServer-    type AttrGetType ServerInterfacePropertyInfo = (Maybe Soup.Address.Address)-    type AttrLabel ServerInterfacePropertyInfo = "interface"-    type AttrOrigin ServerInterfacePropertyInfo = Server-    attrGet _ = getServerInterface-    attrSet _ = undefined-    attrConstruct _ = constructServerInterface-    attrClear _ = undefined-#endif---- VVV Prop "port"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@port@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' server #port-@--}-getServerPort :: (MonadIO m, IsServer o) => o -> m Word32-getServerPort obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "port"--{- |-Construct a `GValueConstruct` with valid value for the “@port@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructServerPort :: (IsServer o) => Word32 -> IO (GValueConstruct o)-constructServerPort val = B.Properties.constructObjectPropertyUInt32 "port" val--#if ENABLE_OVERLOADING-data ServerPortPropertyInfo-instance AttrInfo ServerPortPropertyInfo where-    type AttrAllowedOps ServerPortPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ServerPortPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint ServerPortPropertyInfo = IsServer-    type AttrGetType ServerPortPropertyInfo = Word32-    type AttrLabel ServerPortPropertyInfo = "port"-    type AttrOrigin ServerPortPropertyInfo = Server-    attrGet _ = getServerPort-    attrSet _ = undefined-    attrConstruct _ = constructServerPort-    attrClear _ = undefined-#endif---- VVV Prop "raw-paths"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@raw-paths@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' server #rawPaths-@--}-getServerRawPaths :: (MonadIO m, IsServer o) => o -> m Bool-getServerRawPaths obj = liftIO $ B.Properties.getObjectPropertyBool obj "raw-paths"--{- |-Construct a `GValueConstruct` with valid value for the “@raw-paths@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructServerRawPaths :: (IsServer o) => Bool -> IO (GValueConstruct o)-constructServerRawPaths val = B.Properties.constructObjectPropertyBool "raw-paths" val--#if ENABLE_OVERLOADING-data ServerRawPathsPropertyInfo-instance AttrInfo ServerRawPathsPropertyInfo where-    type AttrAllowedOps ServerRawPathsPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ServerRawPathsPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint ServerRawPathsPropertyInfo = IsServer-    type AttrGetType ServerRawPathsPropertyInfo = Bool-    type AttrLabel ServerRawPathsPropertyInfo = "raw-paths"-    type AttrOrigin ServerRawPathsPropertyInfo = Server-    attrGet _ = getServerRawPaths-    attrSet _ = undefined-    attrConstruct _ = constructServerRawPaths-    attrClear _ = undefined-#endif---- VVV Prop "server-header"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@server-header@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' server #serverHeader-@--}-getServerServerHeader :: (MonadIO m, IsServer o) => o -> m (Maybe T.Text)-getServerServerHeader obj = liftIO $ B.Properties.getObjectPropertyString obj "server-header"--{- |-Set the value of the “@server-header@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' server [ #serverHeader 'Data.GI.Base.Attributes.:=' value ]-@--}-setServerServerHeader :: (MonadIO m, IsServer o) => o -> T.Text -> m ()-setServerServerHeader obj val = liftIO $ B.Properties.setObjectPropertyString obj "server-header" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@server-header@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructServerServerHeader :: (IsServer o) => T.Text -> IO (GValueConstruct o)-constructServerServerHeader val = B.Properties.constructObjectPropertyString "server-header" (Just val)--{- |-Set the value of the “@server-header@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #serverHeader-@--}-clearServerServerHeader :: (MonadIO m, IsServer o) => o -> m ()-clearServerServerHeader obj = liftIO $ B.Properties.setObjectPropertyString obj "server-header" (Nothing :: Maybe T.Text)--#if ENABLE_OVERLOADING-data ServerServerHeaderPropertyInfo-instance AttrInfo ServerServerHeaderPropertyInfo where-    type AttrAllowedOps ServerServerHeaderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ServerServerHeaderPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ServerServerHeaderPropertyInfo = IsServer-    type AttrGetType ServerServerHeaderPropertyInfo = (Maybe T.Text)-    type AttrLabel ServerServerHeaderPropertyInfo = "server-header"-    type AttrOrigin ServerServerHeaderPropertyInfo = Server-    attrGet _ = getServerServerHeader-    attrSet _ = setServerServerHeader-    attrConstruct _ = constructServerServerHeader-    attrClear _ = clearServerServerHeader-#endif---- VVV Prop "ssl-cert-file"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@ssl-cert-file@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' server #sslCertFile-@--}-getServerSslCertFile :: (MonadIO m, IsServer o) => o -> m (Maybe T.Text)-getServerSslCertFile obj = liftIO $ B.Properties.getObjectPropertyString obj "ssl-cert-file"--{- |-Construct a `GValueConstruct` with valid value for the “@ssl-cert-file@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructServerSslCertFile :: (IsServer o) => T.Text -> IO (GValueConstruct o)-constructServerSslCertFile val = B.Properties.constructObjectPropertyString "ssl-cert-file" (Just val)--#if ENABLE_OVERLOADING-data ServerSslCertFilePropertyInfo-instance AttrInfo ServerSslCertFilePropertyInfo where-    type AttrAllowedOps ServerSslCertFilePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ServerSslCertFilePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ServerSslCertFilePropertyInfo = IsServer-    type AttrGetType ServerSslCertFilePropertyInfo = (Maybe T.Text)-    type AttrLabel ServerSslCertFilePropertyInfo = "ssl-cert-file"-    type AttrOrigin ServerSslCertFilePropertyInfo = Server-    attrGet _ = getServerSslCertFile-    attrSet _ = undefined-    attrConstruct _ = constructServerSslCertFile-    attrClear _ = undefined-#endif---- VVV Prop "ssl-key-file"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@ssl-key-file@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' server #sslKeyFile-@--}-getServerSslKeyFile :: (MonadIO m, IsServer o) => o -> m (Maybe T.Text)-getServerSslKeyFile obj = liftIO $ B.Properties.getObjectPropertyString obj "ssl-key-file"--{- |-Construct a `GValueConstruct` with valid value for the “@ssl-key-file@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructServerSslKeyFile :: (IsServer o) => T.Text -> IO (GValueConstruct o)-constructServerSslKeyFile val = B.Properties.constructObjectPropertyString "ssl-key-file" (Just val)--#if ENABLE_OVERLOADING-data ServerSslKeyFilePropertyInfo-instance AttrInfo ServerSslKeyFilePropertyInfo where-    type AttrAllowedOps ServerSslKeyFilePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ServerSslKeyFilePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint ServerSslKeyFilePropertyInfo = IsServer-    type AttrGetType ServerSslKeyFilePropertyInfo = (Maybe T.Text)-    type AttrLabel ServerSslKeyFilePropertyInfo = "ssl-key-file"-    type AttrOrigin ServerSslKeyFilePropertyInfo = Server-    attrGet _ = getServerSslKeyFile-    attrSet _ = undefined-    attrConstruct _ = constructServerSslKeyFile-    attrClear _ = undefined-#endif---- VVV Prop "tls-certificate"-   -- Type: TInterface (Name {namespace = "Gio", name = "TlsCertificate"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@tls-certificate@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' server #tlsCertificate-@--}-getServerTlsCertificate :: (MonadIO m, IsServer o) => o -> m (Maybe Gio.TlsCertificate.TlsCertificate)-getServerTlsCertificate obj = liftIO $ B.Properties.getObjectPropertyObject obj "tls-certificate" Gio.TlsCertificate.TlsCertificate--{- |-Construct a `GValueConstruct` with valid value for the “@tls-certificate@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructServerTlsCertificate :: (IsServer o, Gio.TlsCertificate.IsTlsCertificate a) => a -> IO (GValueConstruct o)-constructServerTlsCertificate val = B.Properties.constructObjectPropertyObject "tls-certificate" (Just val)--#if ENABLE_OVERLOADING-data ServerTlsCertificatePropertyInfo-instance AttrInfo ServerTlsCertificatePropertyInfo where-    type AttrAllowedOps ServerTlsCertificatePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint ServerTlsCertificatePropertyInfo = Gio.TlsCertificate.IsTlsCertificate-    type AttrBaseTypeConstraint ServerTlsCertificatePropertyInfo = IsServer-    type AttrGetType ServerTlsCertificatePropertyInfo = (Maybe Gio.TlsCertificate.TlsCertificate)-    type AttrLabel ServerTlsCertificatePropertyInfo = "tls-certificate"-    type AttrOrigin ServerTlsCertificatePropertyInfo = Server-    attrGet _ = getServerTlsCertificate-    attrSet _ = undefined-    attrConstruct _ = constructServerTlsCertificate-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList Server-type instance O.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, *)])-#endif--#if ENABLE_OVERLOADING-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--#endif--#if ENABLE_OVERLOADING-data ServerRequestAbortedSignalInfo-instance SignalInfo ServerRequestAbortedSignalInfo where-    type HaskellCallbackType ServerRequestAbortedSignalInfo = ServerRequestAbortedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_ServerRequestAbortedCallback cb-        cb'' <- mk_ServerRequestAbortedCallback cb'-        connectSignalFunPtr obj "request-aborted" cb'' connectMode--data ServerRequestFinishedSignalInfo-instance SignalInfo ServerRequestFinishedSignalInfo where-    type HaskellCallbackType ServerRequestFinishedSignalInfo = ServerRequestFinishedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_ServerRequestFinishedCallback cb-        cb'' <- mk_ServerRequestFinishedCallback cb'-        connectSignalFunPtr obj "request-finished" cb'' connectMode--data ServerRequestReadSignalInfo-instance SignalInfo ServerRequestReadSignalInfo where-    type HaskellCallbackType ServerRequestReadSignalInfo = ServerRequestReadCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_ServerRequestReadCallback cb-        cb'' <- mk_ServerRequestReadCallback cb'-        connectSignalFunPtr obj "request-read" cb'' connectMode--data ServerRequestStartedSignalInfo-instance SignalInfo ServerRequestStartedSignalInfo where-    type HaskellCallbackType ServerRequestStartedSignalInfo = ServerRequestStartedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_ServerRequestStartedCallback cb-        cb'' <- mk_ServerRequestStartedCallback cb'-        connectSignalFunPtr obj "request-started" cb'' connectMode--type instance O.SignalList Server = ServerSignalList-type ServerSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo), '("requestAborted", ServerRequestAbortedSignalInfo), '("requestFinished", ServerRequestFinishedSignalInfo), '("requestRead", ServerRequestReadSignalInfo), '("requestStarted", ServerRequestStartedSignalInfo)] :: [(Symbol, *)])--#endif---- method Server::accept_iostream--- method type : OrdinaryMethod--- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Soup", name = "Server"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupServer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "IOStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOStream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "local_addr", argType = TInterface (Name {namespace = "Gio", name = "SocketAddress"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the local #GSocketAddress associated with the @stream", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "remote_addr", argType = TInterface (Name {namespace = "Gio", name = "SocketAddress"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the remote #GSocketAddress associated with the @stream", sinceVersion = Nothing}, 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 ->                           -- server : TInterface (Name {namespace = "Soup", name = "Server"})-    Ptr Gio.IOStream.IOStream ->            -- stream : TInterface (Name {namespace = "Gio", name = "IOStream"})-    Ptr Gio.SocketAddress.SocketAddress ->  -- local_addr : TInterface (Name {namespace = "Gio", name = "SocketAddress"})-    Ptr Gio.SocketAddress.SocketAddress ->  -- remote_addr : TInterface (Name {namespace = "Gio", name = "SocketAddress"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Add a new client stream to the /@server@/.--/Since: 2.50/--}-serverAcceptIostream ::-    (B.CallStack.HasCallStack, MonadIO m, IsServer a, Gio.IOStream.IsIOStream b, Gio.SocketAddress.IsSocketAddress c, Gio.SocketAddress.IsSocketAddress d) =>-    a-    {- ^ /@server@/: a 'GI.Soup.Objects.Server.Server' -}-    -> b-    {- ^ /@stream@/: a 'GI.Gio.Objects.IOStream.IOStream' -}-    -> Maybe (c)-    {- ^ /@localAddr@/: the local 'GI.Gio.Objects.SocketAddress.SocketAddress' associated with the /@stream@/ -}-    -> Maybe (d)-    {- ^ /@remoteAddr@/: the remote 'GI.Gio.Objects.SocketAddress.SocketAddress' associated with the /@stream@/ -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-serverAcceptIostream server stream localAddr remoteAddr = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    stream' <- unsafeManagedPtrCastPtr stream-    maybeLocalAddr <- case localAddr of-        Nothing -> return nullPtr-        Just jLocalAddr -> do-            jLocalAddr' <- unsafeManagedPtrCastPtr jLocalAddr-            return jLocalAddr'-    maybeRemoteAddr <- case remoteAddr of-        Nothing -> return nullPtr-        Just jRemoteAddr -> do-            jRemoteAddr' <- unsafeManagedPtrCastPtr jRemoteAddr-            return jRemoteAddr'-    onException (do-        _ <- propagateGError $ soup_server_accept_iostream server' stream' maybeLocalAddr maybeRemoteAddr-        touchManagedPtr server-        touchManagedPtr stream-        whenJust localAddr touchManagedPtr-        whenJust remoteAddr touchManagedPtr-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data ServerAcceptIostreamMethodInfo-instance (signature ~ (b -> Maybe (c) -> Maybe (d) -> m ()), MonadIO m, IsServer a, Gio.IOStream.IsIOStream b, Gio.SocketAddress.IsSocketAddress c, Gio.SocketAddress.IsSocketAddress d) => O.MethodInfo ServerAcceptIostreamMethodInfo a signature where-    overloadedMethod _ = serverAcceptIostream--#endif---- method Server::add_auth_domain--- method type : OrdinaryMethod--- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Soup", name = "Server"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupServer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth_domain", argType = TInterface (Name {namespace = "Soup", name = "AuthDomain"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAuthDomain", sinceVersion = Nothing}, 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 ->                           -- server : TInterface (Name {namespace = "Soup", name = "Server"})-    Ptr Soup.AuthDomain.AuthDomain ->       -- auth_domain : TInterface (Name {namespace = "Soup", name = "AuthDomain"})-    IO ()--{- |-Adds an authentication domain to /@server@/. Each auth domain will-have the chance to require authentication for each request that-comes in; normally auth domains will require authentication for-requests on certain paths that they have been set up to watch, or-that meet other criteria set by the caller. If an auth domain-determines that a request requires authentication (and the request-doesn\'t contain authentication), /@server@/ will automatically reject-the request with an appropriate status (401 Unauthorized or 407-Proxy Authentication Required). If the request used the-\"100-continue\" Expectation, /@server@/ will reject it before the-request body is sent.--}-serverAddAuthDomain ::-    (B.CallStack.HasCallStack, MonadIO m, IsServer a, Soup.AuthDomain.IsAuthDomain b) =>-    a-    {- ^ /@server@/: a 'GI.Soup.Objects.Server.Server' -}-    -> b-    {- ^ /@authDomain@/: a 'GI.Soup.Objects.AuthDomain.AuthDomain' -}-    -> m ()-serverAddAuthDomain server authDomain = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    authDomain' <- unsafeManagedPtrCastPtr authDomain-    soup_server_add_auth_domain server' authDomain'-    touchManagedPtr server-    touchManagedPtr authDomain-    return ()--#if ENABLE_OVERLOADING-data ServerAddAuthDomainMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsServer a, Soup.AuthDomain.IsAuthDomain b) => O.MethodInfo ServerAddAuthDomainMethodInfo a signature where-    overloadedMethod _ = serverAddAuthDomain--#endif---- method Server::add_early_handler--- method type : OrdinaryMethod--- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Soup", name = "Server"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupServer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the toplevel path for the handler", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Soup", name = "ServerCallback"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "callback to invoke for requests under @path", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data for @callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "destroy notifier to free @user_data", sinceVersion = Nothing}, 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 ->                           -- server : TInterface (Name {namespace = "Soup", name = "Server"})-    CString ->                              -- path : TBasicType TUTF8-    FunPtr Soup.Callbacks.C_ServerCallback -> -- callback : TInterface (Name {namespace = "Soup", name = "ServerCallback"})-    Ptr () ->                               -- user_data : TBasicType TPtr-    FunPtr GLib.Callbacks.C_DestroyNotify -> -- destroy : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})-    IO ()--{- |-Adds an \"early\" handler to /@server@/ for requests under /@path@/. Note-that \"normal\" and \"early\" handlers are matched up together, so if-you add a normal handler for \"\/foo\" and an early handler for-\"\/foo\/bar\", then a request to \"\/foo\/bar\" (or any path below it)-will run only the early handler. (But if you add both handlers at-the same path, then both will get run.)--For requests under /@path@/ (that have not already been assigned a-status code by a 'GI.Soup.Objects.AuthDomain.AuthDomain' or a signal handler), /@callback@/-will be invoked after receiving the request headers, but before-receiving the request body; the message\'s 'GI.Soup.Objects.Message.Message':@/method/@ and-'GI.Soup.Objects.Message.Message':@/request-headers/@ fields will be filled in.--Early handlers are generally used for processing requests with-request bodies in a streaming fashion. If you determine that the-request will contain a message body, normally you would call-'GI.Soup.Structs.MessageBody.messageBodySetAccumulate' on the message\'s-'GI.Soup.Objects.Message.Message':@/request-body/@ to turn off request-body accumulation,-and connect to the message\'s 'GI.Soup.Objects.Message.Message'::@/got-chunk/@ signal to-process each chunk as it comes in.--To complete the message processing after the full message body has-been read, you can either also connect to 'GI.Soup.Objects.Message.Message'::@/got-body/@,-or else you can register a non-early handler for /@path@/ as well. As-long as you have not set the 'GI.Soup.Objects.Message.Message':@/status-code/@ by the time-'GI.Soup.Objects.Message.Message'::@/got-body/@ is emitted, the non-early handler will be-run as well.--/Since: 2.50/--}-serverAddEarlyHandler ::-    (B.CallStack.HasCallStack, MonadIO m, IsServer a) =>-    a-    {- ^ /@server@/: a 'GI.Soup.Objects.Server.Server' -}-    -> Maybe (T.Text)-    {- ^ /@path@/: the toplevel path for the handler -}-    -> Soup.Callbacks.ServerCallback-    {- ^ /@callback@/: callback to invoke for requests under /@path@/ -}-    -> m ()-serverAddEarlyHandler server path callback = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    maybePath <- case path of-        Nothing -> return nullPtr-        Just jPath -> do-            jPath' <- textToCString jPath-            return jPath'-    callback' <- Soup.Callbacks.mk_ServerCallback (Soup.Callbacks.wrap_ServerCallback Nothing (Soup.Callbacks.drop_closures_ServerCallback callback))-    let userData = castFunPtrToPtr callback'-    let destroy = safeFreeFunPtrPtr-    soup_server_add_early_handler server' maybePath callback' userData destroy-    touchManagedPtr server-    freeMem maybePath-    return ()--#if ENABLE_OVERLOADING-data ServerAddEarlyHandlerMethodInfo-instance (signature ~ (Maybe (T.Text) -> Soup.Callbacks.ServerCallback -> m ()), MonadIO m, IsServer a) => O.MethodInfo ServerAddEarlyHandlerMethodInfo a signature where-    overloadedMethod _ = serverAddEarlyHandler--#endif---- method Server::add_handler--- method type : OrdinaryMethod--- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Soup", name = "Server"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupServer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the toplevel path for the handler", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Soup", name = "ServerCallback"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "callback to invoke for requests under @path", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data for @callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "destroy notifier to free @user_data", sinceVersion = Nothing}, 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 ->                           -- server : TInterface (Name {namespace = "Soup", name = "Server"})-    CString ->                              -- path : TBasicType TUTF8-    FunPtr Soup.Callbacks.C_ServerCallback -> -- callback : TInterface (Name {namespace = "Soup", name = "ServerCallback"})-    Ptr () ->                               -- user_data : TBasicType TPtr-    FunPtr GLib.Callbacks.C_DestroyNotify -> -- destroy : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})-    IO ()--{- |-Adds a handler to /@server@/ for requests under /@path@/. If /@path@/ is-'Nothing' or \"\/\", then this will be the default handler for all-requests that don\'t have a more specific handler. (Note though that-if you want to handle requests to the special \"*\" URI, you must-explicitly register a handler for \"*\"; the default handler will not-be used for that case.)--For requests under /@path@/ (that have not already been assigned a-status code by a 'GI.Soup.Objects.AuthDomain.AuthDomain', an early @/SoupServerHandler/@, or a-signal handler), /@callback@/ will be invoked after receiving the-request body; the message\'s 'GI.Soup.Objects.Message.Message':@/method/@,-'GI.Soup.Objects.Message.Message':@/request-headers/@, and 'GI.Soup.Objects.Message.Message':@/request-body/@ fields-will be filled in.--After determining what to do with the request, the callback must at-a minimum call 'GI.Soup.Objects.Message.messageSetStatus' (or-'GI.Soup.Objects.Message.messageSetStatusFull') on the message to set the response-status code. Additionally, it may set response headers and\/or fill-in the response body.--If the callback cannot fully fill in the response before returning-(eg, if it needs to wait for information from a database, or-another network server), it should call 'GI.Soup.Objects.Server.serverPauseMessage'-to tell /@server@/ to not send the response right away. When the-response is ready, call 'GI.Soup.Objects.Server.serverUnpauseMessage' to cause it-to be sent.--To send the response body a bit at a time using \"chunked\" encoding,-first call 'GI.Soup.Structs.MessageHeaders.messageHeadersSetEncoding' to set-'GI.Soup.Enums.EncodingChunked' on the 'GI.Soup.Objects.Message.Message':@/response-headers/@. Then call-@/soup_message_body_append()/@ (or 'GI.Soup.Structs.MessageBody.messageBodyAppendBuffer')-to append each chunk as it becomes ready, and-'GI.Soup.Objects.Server.serverUnpauseMessage' to make sure it\'s running. (The-server will automatically pause the message if it is using chunked-encoding but no more chunks are available.) When you are done, call-'GI.Soup.Structs.MessageBody.messageBodyComplete' to indicate that no more chunks are-coming.--}-serverAddHandler ::-    (B.CallStack.HasCallStack, MonadIO m, IsServer a) =>-    a-    {- ^ /@server@/: a 'GI.Soup.Objects.Server.Server' -}-    -> Maybe (T.Text)-    {- ^ /@path@/: the toplevel path for the handler -}-    -> Soup.Callbacks.ServerCallback-    {- ^ /@callback@/: callback to invoke for requests under /@path@/ -}-    -> m ()-serverAddHandler server path callback = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    maybePath <- case path of-        Nothing -> return nullPtr-        Just jPath -> do-            jPath' <- textToCString jPath-            return jPath'-    callback' <- Soup.Callbacks.mk_ServerCallback (Soup.Callbacks.wrap_ServerCallback Nothing (Soup.Callbacks.drop_closures_ServerCallback callback))-    let userData = castFunPtrToPtr callback'-    let destroy = safeFreeFunPtrPtr-    soup_server_add_handler server' maybePath callback' userData destroy-    touchManagedPtr server-    freeMem maybePath-    return ()--#if ENABLE_OVERLOADING-data ServerAddHandlerMethodInfo-instance (signature ~ (Maybe (T.Text) -> Soup.Callbacks.ServerCallback -> m ()), MonadIO m, IsServer a) => O.MethodInfo ServerAddHandlerMethodInfo a signature where-    overloadedMethod _ = serverAddHandler--#endif---- method Server::add_websocket_handler--- method type : OrdinaryMethod--- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Soup", name = "Server"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupServer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the toplevel path for the handler", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the origin of the connection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the protocols\n  supported by this handler", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Soup", name = "ServerWebsocketCallback"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "callback to invoke for successful WebSocket requests under @path", sinceVersion = Nothing}, argScope = ScopeTypeNotified, argClosure = 5, argDestroy = 6, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data for @callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "destroy notifier to free @user_data", sinceVersion = Nothing}, 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 ->                           -- server : TInterface (Name {namespace = "Soup", name = "Server"})-    CString ->                              -- path : TBasicType TUTF8-    CString ->                              -- origin : TBasicType TUTF8-    Ptr CString ->                          -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8)-    FunPtr Soup.Callbacks.C_ServerWebsocketCallback -> -- callback : TInterface (Name {namespace = "Soup", name = "ServerWebsocketCallback"})-    Ptr () ->                               -- user_data : TBasicType TPtr-    FunPtr GLib.Callbacks.C_DestroyNotify -> -- destroy : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})-    IO ()--{- |-Adds a WebSocket handler to /@server@/ for requests under /@path@/. (If-/@path@/ is 'Nothing' or \"\/\", then this will be the default handler for-all requests that don\'t have a more specific handler.)--When a path has a WebSocket handler registered, /@server@/ will check-incoming requests for WebSocket handshakes after all other handlers-have run (unless some earlier handler has already set a status code-on the message), and update the request\'s status, response headers,-and response body accordingly.--If /@origin@/ is non-'Nothing', then only requests containing a matching-\"Origin\" header will be accepted. If /@protocols@/ is non-'Nothing', then-only requests containing a compatible \"Sec-WebSocket-Protocols\"-header will be accepted. More complicated requirements can be-handled by adding a normal handler to /@path@/, and having it perform-whatever checks are needed (possibly calling-@/soup_server_check_websocket_handshake()/@ one or more times), and-setting a failure status code if the handshake should be rejected.--}-serverAddWebsocketHandler ::-    (B.CallStack.HasCallStack, MonadIO m, IsServer a) =>-    a-    {- ^ /@server@/: a 'GI.Soup.Objects.Server.Server' -}-    -> Maybe (T.Text)-    {- ^ /@path@/: the toplevel path for the handler -}-    -> Maybe (T.Text)-    {- ^ /@origin@/: the origin of the connection -}-    -> Maybe ([T.Text])-    {- ^ /@protocols@/: the protocols-  supported by this handler -}-    -> Soup.Callbacks.ServerWebsocketCallback-    {- ^ /@callback@/: callback to invoke for successful WebSocket requests under /@path@/ -}-    -> m ()-serverAddWebsocketHandler server path origin protocols callback = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    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' <- Soup.Callbacks.mk_ServerWebsocketCallback (Soup.Callbacks.wrap_ServerWebsocketCallback Nothing (Soup.Callbacks.drop_closures_ServerWebsocketCallback callback))-    let userData = castFunPtrToPtr callback'-    let destroy = safeFreeFunPtrPtr-    soup_server_add_websocket_handler server' maybePath maybeOrigin maybeProtocols callback' userData destroy-    touchManagedPtr server-    freeMem maybePath-    freeMem maybeOrigin-    mapZeroTerminatedCArray freeMem maybeProtocols-    freeMem maybeProtocols-    return ()--#if ENABLE_OVERLOADING-data ServerAddWebsocketHandlerMethodInfo-instance (signature ~ (Maybe (T.Text) -> Maybe (T.Text) -> Maybe ([T.Text]) -> Soup.Callbacks.ServerWebsocketCallback -> m ()), MonadIO m, IsServer a) => O.MethodInfo ServerAddWebsocketHandlerMethodInfo a signature where-    overloadedMethod _ = serverAddWebsocketHandler--#endif---- method Server::disconnect--- method type : OrdinaryMethod--- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Soup", name = "Server"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupServer", sinceVersion = Nothing}, 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 ->                           -- server : TInterface (Name {namespace = "Soup", name = "Server"})-    IO ()--{- |-Closes and frees /@server@/\'s listening sockets. If you are using the-old 'GI.Soup.Objects.Server.Server' APIs, this also includes the effect of-'GI.Soup.Objects.Server.serverQuit'.--Note that if there are currently requests in progress on /@server@/,-that they will continue to be processed if /@server@/\'s 'GI.GLib.Structs.MainContext.MainContext'-is still running.--You can call 'GI.Soup.Objects.Server.serverListen', etc, after calling this function-if you want to start listening again.--}-serverDisconnect ::-    (B.CallStack.HasCallStack, MonadIO m, IsServer a) =>-    a-    {- ^ /@server@/: a 'GI.Soup.Objects.Server.Server' -}-    -> m ()-serverDisconnect server = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    soup_server_disconnect server'-    touchManagedPtr server-    return ()--#if ENABLE_OVERLOADING-data ServerDisconnectMethodInfo-instance (signature ~ (m ()), MonadIO m, IsServer a) => O.MethodInfo ServerDisconnectMethodInfo a signature where-    overloadedMethod _ = serverDisconnect--#endif---- method Server::get_async_context--- method type : OrdinaryMethod--- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Soup", name = "Server"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupServer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GLib", name = "MainContext"}))--- throws : False--- Skip return : False--foreign import ccall "soup_server_get_async_context" soup_server_get_async_context :: -    Ptr Server ->                           -- server : TInterface (Name {namespace = "Soup", name = "Server"})-    IO (Ptr GLib.MainContext.MainContext)--{-# DEPRECATED serverGetAsyncContext ["If you are using 'GI.Soup.Objects.Server.serverListen', etc, then","the server listens on the thread-default 'GI.GLib.Structs.MainContext.MainContext', and this","property is ignored."] #-}-{- |-Gets /@server@/\'s async_context, if you are using the old API. (With-the new API, the server runs in the thread\'s thread-default-'GI.GLib.Structs.MainContext.MainContext', regardless of what this method returns.)--This does not add a ref to the context, so you will need to ref it-yourself if you want it to outlive its server.--}-serverGetAsyncContext ::-    (B.CallStack.HasCallStack, MonadIO m, IsServer a) =>-    a-    {- ^ /@server@/: a 'GI.Soup.Objects.Server.Server' -}-    -> m (Maybe GLib.MainContext.MainContext)-    {- ^ __Returns:__ /@server@/\'s 'GI.GLib.Structs.MainContext.MainContext',-which may be 'Nothing' -}-serverGetAsyncContext server = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    result <- soup_server_get_async_context server'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newBoxed GLib.MainContext.MainContext) result'-        return result''-    touchManagedPtr server-    return maybeResult--#if ENABLE_OVERLOADING-data ServerGetAsyncContextMethodInfo-instance (signature ~ (m (Maybe GLib.MainContext.MainContext)), MonadIO m, IsServer a) => O.MethodInfo ServerGetAsyncContextMethodInfo a signature where-    overloadedMethod _ = serverGetAsyncContext--#endif---- method Server::get_listener--- method type : OrdinaryMethod--- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Soup", name = "Server"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupServer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Socket"}))--- throws : False--- Skip return : False--foreign import ccall "soup_server_get_listener" soup_server_get_listener :: -    Ptr Server ->                           -- server : TInterface (Name {namespace = "Soup", name = "Server"})-    IO (Ptr Soup.Socket.Socket)--{-# DEPRECATED serverGetListener ["If you are using 'GI.Soup.Objects.Server.serverListen', etc, then use","'GI.Soup.Objects.Server.serverGetListeners' to get a list of all listening sockets,","but note that that function returns @/GSockets/@, not @/SoupSockets/@."] #-}-{- |-Gets /@server@/\'s listening socket, if you are using the old API.--You should treat this socket as read-only; writing to it or-modifiying it may cause /@server@/ to malfunction.--}-serverGetListener ::-    (B.CallStack.HasCallStack, MonadIO m, IsServer a) =>-    a-    {- ^ /@server@/: a 'GI.Soup.Objects.Server.Server' -}-    -> m Soup.Socket.Socket-    {- ^ __Returns:__ the listening socket. -}-serverGetListener server = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    result <- soup_server_get_listener server'-    checkUnexpectedReturnNULL "serverGetListener" result-    result' <- (newObject Soup.Socket.Socket) result-    touchManagedPtr server-    return result'--#if ENABLE_OVERLOADING-data ServerGetListenerMethodInfo-instance (signature ~ (m Soup.Socket.Socket), MonadIO m, IsServer a) => O.MethodInfo ServerGetListenerMethodInfo a signature where-    overloadedMethod _ = serverGetListener--#endif---- method Server::get_listeners--- method type : OrdinaryMethod--- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Soup", name = "Server"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupServer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGSList (TInterface (Name {namespace = "Gio", name = "Socket"})))--- throws : False--- Skip return : False--foreign import ccall "soup_server_get_listeners" soup_server_get_listeners :: -    Ptr Server ->                           -- server : TInterface (Name {namespace = "Soup", name = "Server"})-    IO (Ptr (GSList (Ptr Gio.Socket.Socket)))--{- |-Gets /@server@/\'s list of listening sockets.--You should treat these sockets as read-only; writing to or-modifiying any of these sockets may cause /@server@/ to malfunction.--(Beware that in contrast to the old 'GI.Soup.Objects.Server.serverGetListener', this-function returns @/GSockets/@, not @/SoupSockets/@.)--}-serverGetListeners ::-    (B.CallStack.HasCallStack, MonadIO m, IsServer a) =>-    a-    {- ^ /@server@/: a 'GI.Soup.Objects.Server.Server' -}-    -> m [Gio.Socket.Socket]-    {- ^ __Returns:__ a-list of listening sockets. -}-serverGetListeners server = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    result <- soup_server_get_listeners server'-    result' <- unpackGSList result-    result'' <- mapM (newObject Gio.Socket.Socket) result'-    g_slist_free result-    touchManagedPtr server-    return result''--#if ENABLE_OVERLOADING-data ServerGetListenersMethodInfo-instance (signature ~ (m [Gio.Socket.Socket]), MonadIO m, IsServer a) => O.MethodInfo ServerGetListenersMethodInfo a signature where-    overloadedMethod _ = serverGetListeners--#endif---- method Server::get_port--- method type : OrdinaryMethod--- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Soup", name = "Server"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupServer", sinceVersion = Nothing}, 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 ->                           -- server : TInterface (Name {namespace = "Soup", name = "Server"})-    IO Word32--{-# DEPRECATED serverGetPort ["If you are using 'GI.Soup.Objects.Server.serverListen', etc, then use","'GI.Soup.Objects.Server.serverGetUris' to get a list of all listening addresses."] #-}-{- |-Gets the TCP port that /@server@/ is listening on, if you are using-the old API.--}-serverGetPort ::-    (B.CallStack.HasCallStack, MonadIO m, IsServer a) =>-    a-    {- ^ /@server@/: a 'GI.Soup.Objects.Server.Server' -}-    -> m Word32-    {- ^ __Returns:__ the port /@server@/ is listening on. -}-serverGetPort server = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    result <- soup_server_get_port server'-    touchManagedPtr server-    return result--#if ENABLE_OVERLOADING-data ServerGetPortMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsServer a) => O.MethodInfo ServerGetPortMethodInfo a signature where-    overloadedMethod _ = serverGetPort--#endif---- method Server::get_uris--- method type : OrdinaryMethod--- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Soup", name = "Server"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupServer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGSList (TInterface (Name {namespace = "Soup", name = "URI"})))--- throws : False--- Skip return : False--foreign import ccall "soup_server_get_uris" soup_server_get_uris :: -    Ptr Server ->                           -- server : TInterface (Name {namespace = "Soup", name = "Server"})-    IO (Ptr (GSList (Ptr Soup.URI.URI)))--{- |-Gets a list of URIs corresponding to the interfaces /@server@/ is-listening on. These will contain IP addresses, not hostnames, and-will also indicate whether the given listener is http or https.--Note that if you used 'GI.Soup.Objects.Server.serverListenAll', the returned URIs-will use the addresses \<literal>0.0.0.0\<\/literal> and-\<literal>::\<\/literal>, rather than actually returning separate URIs-for each interface on the system.--/Since: 2.48/--}-serverGetUris ::-    (B.CallStack.HasCallStack, MonadIO m, IsServer a) =>-    a-    {- ^ /@server@/: a 'GI.Soup.Objects.Server.Server' -}-    -> m [Soup.URI.URI]-    {- ^ __Returns:__ a list of-@/SoupURIs/@, which you must free when you are done with it. -}-serverGetUris server = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    result <- soup_server_get_uris server'-    result' <- unpackGSList result-    result'' <- mapM (wrapBoxed Soup.URI.URI) result'-    g_slist_free result-    touchManagedPtr server-    return result''--#if ENABLE_OVERLOADING-data ServerGetUrisMethodInfo-instance (signature ~ (m [Soup.URI.URI]), MonadIO m, IsServer a) => O.MethodInfo ServerGetUrisMethodInfo a signature where-    overloadedMethod _ = serverGetUris--#endif---- method Server::is_https--- method type : OrdinaryMethod--- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Soup", name = "Server"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupServer", sinceVersion = Nothing}, 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 ->                           -- server : TInterface (Name {namespace = "Soup", name = "Server"})-    IO CInt--{- |-Checks whether /@server@/ is capable of https.--In order for a server to run https, you must call-'GI.Soup.Objects.Server.serverSetSslCertFile', or set the-'GI.Soup.Objects.Server.Server':@/tls-certificate/@ property, to provide it with a-certificate to use.--If you are using the deprecated single-listener APIs, then a return-value of 'True' indicates that the 'GI.Soup.Objects.Server.Server' serves https-exclusively. If you are using 'GI.Soup.Objects.Server.serverListen', etc, then a-'True' return value merely indicates that the server is-\<emphasis>able\<\/emphasis> to do https, regardless of whether it-actually currently is or not. Use 'GI.Soup.Objects.Server.serverGetUris' to see if-it currently has any https listeners.--}-serverIsHttps ::-    (B.CallStack.HasCallStack, MonadIO m, IsServer a) =>-    a-    {- ^ /@server@/: a 'GI.Soup.Objects.Server.Server' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@server@/ is configured to serve https. -}-serverIsHttps server = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    result <- soup_server_is_https server'-    let result' = (/= 0) result-    touchManagedPtr server-    return result'--#if ENABLE_OVERLOADING-data ServerIsHttpsMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsServer a) => O.MethodInfo ServerIsHttpsMethodInfo a signature where-    overloadedMethod _ = serverIsHttps--#endif---- method Server::listen--- method type : OrdinaryMethod--- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Soup", name = "Server"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupServer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "address", argType = TInterface (Name {namespace = "Gio", name = "SocketAddress"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the address of the interface to listen on", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TInterface (Name {namespace = "Soup", name = "ServerListenOptions"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "listening options for this server", sinceVersion = Nothing}, 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 ->                           -- server : TInterface (Name {namespace = "Soup", name = "Server"})-    Ptr Gio.SocketAddress.SocketAddress ->  -- address : TInterface (Name {namespace = "Gio", name = "SocketAddress"})-    CUInt ->                                -- options : TInterface (Name {namespace = "Soup", name = "ServerListenOptions"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-This attempts to set up /@server@/ to listen for connections on-/@address@/.--If /@options@/ includes 'GI.Soup.Flags.ServerListenOptionsHttps', and /@server@/ has-been configured for TLS, then /@server@/ will listen for https-connections on this port. Otherwise it will listen for plain http.--You may call this method (along with the other \"listen\" methods)-any number of times on a server, if you want to listen on multiple-ports, or set up both http and https service.--After calling this method, /@server@/ will begin accepting and-processing connections as soon as the appropriate 'GI.GLib.Structs.MainContext.MainContext' is-run.--Note that 'GI.Soup.Objects.Server.Server' never makes use of dual IPv4\/IPv6 sockets; if-/@address@/ is an IPv6 address, it will only accept IPv6 connections.-You must configure IPv4 listening separately.--/Since: 2.48/--}-serverListen ::-    (B.CallStack.HasCallStack, MonadIO m, IsServer a, Gio.SocketAddress.IsSocketAddress b) =>-    a-    {- ^ /@server@/: a 'GI.Soup.Objects.Server.Server' -}-    -> b-    {- ^ /@address@/: the address of the interface to listen on -}-    -> [Soup.Flags.ServerListenOptions]-    {- ^ /@options@/: listening options for this server -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-serverListen server address options = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    address' <- unsafeManagedPtrCastPtr address-    let options' = gflagsToWord options-    onException (do-        _ <- propagateGError $ soup_server_listen server' address' options'-        touchManagedPtr server-        touchManagedPtr address-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data ServerListenMethodInfo-instance (signature ~ (b -> [Soup.Flags.ServerListenOptions] -> m ()), MonadIO m, IsServer a, Gio.SocketAddress.IsSocketAddress b) => O.MethodInfo ServerListenMethodInfo a signature where-    overloadedMethod _ = serverListen--#endif---- method Server::listen_all--- method type : OrdinaryMethod--- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Soup", name = "Server"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupServer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the port to listen on, or 0", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TInterface (Name {namespace = "Soup", name = "ServerListenOptions"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "listening options for this server", sinceVersion = Nothing}, 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 ->                           -- server : TInterface (Name {namespace = "Soup", name = "Server"})-    Word32 ->                               -- port : TBasicType TUInt-    CUInt ->                                -- options : TInterface (Name {namespace = "Soup", name = "ServerListenOptions"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-This attempts to set up /@server@/ to listen for connections on all-interfaces on the system. (That is, it listens on the addresses-\<literal>0.0.0.0\<\/literal> and\/or \<literal>::\<\/literal>, depending-on whether /@options@/ includes 'GI.Soup.Flags.ServerListenOptionsIpv4Only',-'GI.Soup.Flags.ServerListenOptionsIpv6Only', or neither.) If /@port@/ is specified,-/@server@/ will listen on that port. If it is 0, /@server@/ will find an-unused port to listen on. (In that case, you can use-'GI.Soup.Objects.Server.serverGetUris' to find out what port it ended up choosing.)--See 'GI.Soup.Objects.Server.serverListen' for more details.--/Since: 2.48/--}-serverListenAll ::-    (B.CallStack.HasCallStack, MonadIO m, IsServer a) =>-    a-    {- ^ /@server@/: a 'GI.Soup.Objects.Server.Server' -}-    -> Word32-    {- ^ /@port@/: the port to listen on, or 0 -}-    -> [Soup.Flags.ServerListenOptions]-    {- ^ /@options@/: listening options for this server -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-serverListenAll server port options = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    let options' = gflagsToWord options-    onException (do-        _ <- propagateGError $ soup_server_listen_all server' port options'-        touchManagedPtr server-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data ServerListenAllMethodInfo-instance (signature ~ (Word32 -> [Soup.Flags.ServerListenOptions] -> m ()), MonadIO m, IsServer a) => O.MethodInfo ServerListenAllMethodInfo a signature where-    overloadedMethod _ = serverListenAll--#endif---- method Server::listen_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Soup", name = "Server"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupServer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fd", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the file descriptor of a listening socket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TInterface (Name {namespace = "Soup", name = "ServerListenOptions"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "listening options for this server", sinceVersion = Nothing}, 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 ->                           -- server : TInterface (Name {namespace = "Soup", name = "Server"})-    Int32 ->                                -- fd : TBasicType TInt-    CUInt ->                                -- options : TInterface (Name {namespace = "Soup", name = "ServerListenOptions"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-This attempts to set up /@server@/ to listen for connections on-/@fd@/.--See 'GI.Soup.Objects.Server.serverListen' for more details.--Note that /@server@/ will close /@fd@/ when you free it or call-'GI.Soup.Objects.Server.serverDisconnect'.--/Since: 2.48/--}-serverListenFd ::-    (B.CallStack.HasCallStack, MonadIO m, IsServer a) =>-    a-    {- ^ /@server@/: a 'GI.Soup.Objects.Server.Server' -}-    -> Int32-    {- ^ /@fd@/: the file descriptor of a listening socket -}-    -> [Soup.Flags.ServerListenOptions]-    {- ^ /@options@/: listening options for this server -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-serverListenFd server fd options = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    let options' = gflagsToWord options-    onException (do-        _ <- propagateGError $ soup_server_listen_fd server' fd options'-        touchManagedPtr server-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data ServerListenFdMethodInfo-instance (signature ~ (Int32 -> [Soup.Flags.ServerListenOptions] -> m ()), MonadIO m, IsServer a) => O.MethodInfo ServerListenFdMethodInfo a signature where-    overloadedMethod _ = serverListenFd--#endif---- method Server::listen_local--- method type : OrdinaryMethod--- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Soup", name = "Server"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupServer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the port to listen on, or 0", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TInterface (Name {namespace = "Soup", name = "ServerListenOptions"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "listening options for this server", sinceVersion = Nothing}, 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 ->                           -- server : TInterface (Name {namespace = "Soup", name = "Server"})-    Word32 ->                               -- port : TBasicType TUInt-    CUInt ->                                -- options : TInterface (Name {namespace = "Soup", name = "ServerListenOptions"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-This attempts to set up /@server@/ to listen for connections on-\"localhost\" (that is, \<literal>127.0.0.1\<\/literal> and\/or-\<literal>::1\<\/literal>, depending on whether /@options@/ includes-'GI.Soup.Flags.ServerListenOptionsIpv4Only', 'GI.Soup.Flags.ServerListenOptionsIpv6Only', or-neither). If /@port@/ is specified, /@server@/ will listen on that port.-If it is 0, /@server@/ will find an unused port to listen on. (In that-case, you can use 'GI.Soup.Objects.Server.serverGetUris' to find out what port it-ended up choosing.)--See 'GI.Soup.Objects.Server.serverListen' for more details.--/Since: 2.48/--}-serverListenLocal ::-    (B.CallStack.HasCallStack, MonadIO m, IsServer a) =>-    a-    {- ^ /@server@/: a 'GI.Soup.Objects.Server.Server' -}-    -> Word32-    {- ^ /@port@/: the port to listen on, or 0 -}-    -> [Soup.Flags.ServerListenOptions]-    {- ^ /@options@/: listening options for this server -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-serverListenLocal server port options = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    let options' = gflagsToWord options-    onException (do-        _ <- propagateGError $ soup_server_listen_local server' port options'-        touchManagedPtr server-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data ServerListenLocalMethodInfo-instance (signature ~ (Word32 -> [Soup.Flags.ServerListenOptions] -> m ()), MonadIO m, IsServer a) => O.MethodInfo ServerListenLocalMethodInfo a signature where-    overloadedMethod _ = serverListenLocal--#endif---- method Server::listen_socket--- method type : OrdinaryMethod--- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Soup", name = "Server"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupServer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "socket", argType = TInterface (Name {namespace = "Gio", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a listening #GSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TInterface (Name {namespace = "Soup", name = "ServerListenOptions"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "listening options for this server", sinceVersion = Nothing}, 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 ->                           -- server : TInterface (Name {namespace = "Soup", name = "Server"})-    Ptr Gio.Socket.Socket ->                -- socket : TInterface (Name {namespace = "Gio", name = "Socket"})-    CUInt ->                                -- options : TInterface (Name {namespace = "Soup", name = "ServerListenOptions"})-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-This attempts to set up /@server@/ to listen for connections on-/@socket@/.--See 'GI.Soup.Objects.Server.serverListen' for more details.--/Since: 2.48/--}-serverListenSocket ::-    (B.CallStack.HasCallStack, MonadIO m, IsServer a, Gio.Socket.IsSocket b) =>-    a-    {- ^ /@server@/: a 'GI.Soup.Objects.Server.Server' -}-    -> b-    {- ^ /@socket@/: a listening 'GI.Gio.Objects.Socket.Socket' -}-    -> [Soup.Flags.ServerListenOptions]-    {- ^ /@options@/: listening options for this server -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-serverListenSocket server socket options = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    socket' <- unsafeManagedPtrCastPtr socket-    let options' = gflagsToWord options-    onException (do-        _ <- propagateGError $ soup_server_listen_socket server' socket' options'-        touchManagedPtr server-        touchManagedPtr socket-        return ()-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data ServerListenSocketMethodInfo-instance (signature ~ (b -> [Soup.Flags.ServerListenOptions] -> m ()), MonadIO m, IsServer a, Gio.Socket.IsSocket b) => O.MethodInfo ServerListenSocketMethodInfo a signature where-    overloadedMethod _ = serverListenSocket--#endif---- method Server::pause_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Soup", name = "Server"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupServer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage associated with @server.", sinceVersion = Nothing}, 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 ->                           -- server : TInterface (Name {namespace = "Soup", name = "Server"})-    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO ()--{- |-Pauses I\/O on /@msg@/. This can be used when you need to return from-the server handler without having the full response ready yet. Use-'GI.Soup.Objects.Server.serverUnpauseMessage' to resume I\/O.--This must only be called on @/SoupMessages/@ which were created by the-'GI.Soup.Objects.Server.Server' and are currently doing I\/O, such as those passed into a-'GI.Soup.Callbacks.ServerCallback' or emitted in a 'GI.Soup.Objects.Server.Server'::@/request-read/@ signal.--}-serverPauseMessage ::-    (B.CallStack.HasCallStack, MonadIO m, IsServer a, Soup.Message.IsMessage b) =>-    a-    {- ^ /@server@/: a 'GI.Soup.Objects.Server.Server' -}-    -> b-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' associated with /@server@/. -}-    -> m ()-serverPauseMessage server msg = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    msg' <- unsafeManagedPtrCastPtr msg-    soup_server_pause_message server' msg'-    touchManagedPtr server-    touchManagedPtr msg-    return ()--#if ENABLE_OVERLOADING-data ServerPauseMessageMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsServer a, Soup.Message.IsMessage b) => O.MethodInfo ServerPauseMessageMethodInfo a signature where-    overloadedMethod _ = serverPauseMessage--#endif---- method Server::quit--- method type : OrdinaryMethod--- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Soup", name = "Server"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupServer", sinceVersion = Nothing}, 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 ->                           -- server : TInterface (Name {namespace = "Soup", name = "Server"})-    IO ()--{-# DEPRECATED serverQuit ["When using 'GI.Soup.Objects.Server.serverListen', etc, the server will","always listen for connections, and will process them whenever the","thread-default 'GI.GLib.Structs.MainContext.MainContext' is running."] #-}-{- |-Stops processing for /@server@/, if you are using the old API. Call-this to clean up after 'GI.Soup.Objects.Server.serverRunAsync', or to terminate a-call to 'GI.Soup.Objects.Server.serverRun'.--Note that messages currently in progress will continue to be-handled, if the main loop associated with the server is resumed or-kept running.--/@server@/ is still in a working state after this call; you can start-and stop a server as many times as you want.--}-serverQuit ::-    (B.CallStack.HasCallStack, MonadIO m, IsServer a) =>-    a-    {- ^ /@server@/: a 'GI.Soup.Objects.Server.Server' -}-    -> m ()-serverQuit server = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    soup_server_quit server'-    touchManagedPtr server-    return ()--#if ENABLE_OVERLOADING-data ServerQuitMethodInfo-instance (signature ~ (m ()), MonadIO m, IsServer a) => O.MethodInfo ServerQuitMethodInfo a signature where-    overloadedMethod _ = serverQuit--#endif---- method Server::remove_auth_domain--- method type : OrdinaryMethod--- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Soup", name = "Server"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupServer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "auth_domain", argType = TInterface (Name {namespace = "Soup", name = "AuthDomain"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupAuthDomain", sinceVersion = Nothing}, 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 ->                           -- server : TInterface (Name {namespace = "Soup", name = "Server"})-    Ptr Soup.AuthDomain.AuthDomain ->       -- auth_domain : TInterface (Name {namespace = "Soup", name = "AuthDomain"})-    IO ()--{- |-Removes /@authDomain@/ from /@server@/.--}-serverRemoveAuthDomain ::-    (B.CallStack.HasCallStack, MonadIO m, IsServer a, Soup.AuthDomain.IsAuthDomain b) =>-    a-    {- ^ /@server@/: a 'GI.Soup.Objects.Server.Server' -}-    -> b-    {- ^ /@authDomain@/: a 'GI.Soup.Objects.AuthDomain.AuthDomain' -}-    -> m ()-serverRemoveAuthDomain server authDomain = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    authDomain' <- unsafeManagedPtrCastPtr authDomain-    soup_server_remove_auth_domain server' authDomain'-    touchManagedPtr server-    touchManagedPtr authDomain-    return ()--#if ENABLE_OVERLOADING-data ServerRemoveAuthDomainMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsServer a, Soup.AuthDomain.IsAuthDomain b) => O.MethodInfo ServerRemoveAuthDomainMethodInfo a signature where-    overloadedMethod _ = serverRemoveAuthDomain--#endif---- method Server::remove_handler--- method type : OrdinaryMethod--- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Soup", name = "Server"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupServer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the toplevel path for the handler", sinceVersion = Nothing}, 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 ->                           -- server : TInterface (Name {namespace = "Soup", name = "Server"})-    CString ->                              -- path : TBasicType TUTF8-    IO ()--{- |-Removes all handlers (early and normal) registered at /@path@/.--}-serverRemoveHandler ::-    (B.CallStack.HasCallStack, MonadIO m, IsServer a) =>-    a-    {- ^ /@server@/: a 'GI.Soup.Objects.Server.Server' -}-    -> T.Text-    {- ^ /@path@/: the toplevel path for the handler -}-    -> m ()-serverRemoveHandler server path = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    path' <- textToCString path-    soup_server_remove_handler server' path'-    touchManagedPtr server-    freeMem path'-    return ()--#if ENABLE_OVERLOADING-data ServerRemoveHandlerMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsServer a) => O.MethodInfo ServerRemoveHandlerMethodInfo a signature where-    overloadedMethod _ = serverRemoveHandler--#endif---- method Server::run--- method type : OrdinaryMethod--- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Soup", name = "Server"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupServer", sinceVersion = Nothing}, 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 ->                           -- server : TInterface (Name {namespace = "Soup", name = "Server"})-    IO ()--{-# DEPRECATED serverRun ["When using 'GI.Soup.Objects.Server.serverListen', etc, the server will","always listen for connections, and will process them whenever the","thread-default 'GI.GLib.Structs.MainContext.MainContext' is running."] #-}-{- |-Starts /@server@/, if you are using the old API, causing it to listen-for and process incoming connections. Unlike-'GI.Soup.Objects.Server.serverRunAsync', this creates a 'GI.GLib.Structs.MainLoop.MainLoop' and runs it, and-it will not return until someone calls 'GI.Soup.Objects.Server.serverQuit' to stop-the server.--}-serverRun ::-    (B.CallStack.HasCallStack, MonadIO m, IsServer a) =>-    a-    {- ^ /@server@/: a 'GI.Soup.Objects.Server.Server' -}-    -> m ()-serverRun server = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    soup_server_run server'-    touchManagedPtr server-    return ()--#if ENABLE_OVERLOADING-data ServerRunMethodInfo-instance (signature ~ (m ()), MonadIO m, IsServer a) => O.MethodInfo ServerRunMethodInfo a signature where-    overloadedMethod _ = serverRun--#endif---- method Server::run_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Soup", name = "Server"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupServer", sinceVersion = Nothing}, 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 ->                           -- server : TInterface (Name {namespace = "Soup", name = "Server"})-    IO ()--{-# DEPRECATED serverRunAsync ["When using 'GI.Soup.Objects.Server.serverListen', etc, the server will","always listen for connections, and will process them whenever the","thread-default 'GI.GLib.Structs.MainContext.MainContext' is running."] #-}-{- |-Starts /@server@/, if you are using the old API, causing it to listen-for and process incoming connections.--The server runs in /@server@/\'s 'GI.GLib.Structs.MainContext.MainContext'. It will not actually-perform any processing unless the appropriate main loop is running.-In the simple case where you did not set the server\'s-'GI.Soup.Constants.SERVER_ASYNC_CONTEXT' property, this means the server will run-whenever the glib main loop is running.--}-serverRunAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsServer a) =>-    a-    {- ^ /@server@/: a 'GI.Soup.Objects.Server.Server' -}-    -> m ()-serverRunAsync server = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    soup_server_run_async server'-    touchManagedPtr server-    return ()--#if ENABLE_OVERLOADING-data ServerRunAsyncMethodInfo-instance (signature ~ (m ()), MonadIO m, IsServer a) => O.MethodInfo ServerRunAsyncMethodInfo a signature where-    overloadedMethod _ = serverRunAsync--#endif---- method Server::set_ssl_cert_file--- method type : OrdinaryMethod--- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Soup", name = "Server"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupServer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ssl_cert_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "path to a file containing a PEM-encoded SSL/TLS\n  certificate.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ssl_key_file", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "path to a file containing a PEM-encoded private key.", sinceVersion = Nothing}, 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 ->                           -- server : TInterface (Name {namespace = "Soup", name = "Server"})-    CString ->                              -- ssl_cert_file : TBasicType TUTF8-    CString ->                              -- ssl_key_file : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO CInt--{- |-Sets /@server@/ up to do https, using the SSL\/TLS certificate-specified by /@sslCertFile@/ and /@sslKeyFile@/ (which may point to-the same file).--Alternatively, you can set the 'GI.Soup.Objects.Server.Server':@/tls-certificate/@ property-at construction time, if you already have a 'GI.Gio.Objects.TlsCertificate.TlsCertificate'.--/Since: 2.48/--}-serverSetSslCertFile ::-    (B.CallStack.HasCallStack, MonadIO m, IsServer a) =>-    a-    {- ^ /@server@/: a 'GI.Soup.Objects.Server.Server' -}-    -> T.Text-    {- ^ /@sslCertFile@/: path to a file containing a PEM-encoded SSL\/TLS-  certificate. -}-    -> T.Text-    {- ^ /@sslKeyFile@/: path to a file containing a PEM-encoded private key. -}-    -> m ()-    {- ^ /(Can throw 'Data.GI.Base.GError.GError')/ -}-serverSetSslCertFile server sslCertFile sslKeyFile = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    sslCertFile' <- textToCString sslCertFile-    sslKeyFile' <- textToCString sslKeyFile-    onException (do-        _ <- propagateGError $ soup_server_set_ssl_cert_file server' sslCertFile' sslKeyFile'-        touchManagedPtr server-        freeMem sslCertFile'-        freeMem sslKeyFile'-        return ()-     ) (do-        freeMem sslCertFile'-        freeMem sslKeyFile'-     )--#if ENABLE_OVERLOADING-data ServerSetSslCertFileMethodInfo-instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, IsServer a) => O.MethodInfo ServerSetSslCertFileMethodInfo a signature where-    overloadedMethod _ = serverSetSslCertFile--#endif---- method Server::unpause_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "server", argType = TInterface (Name {namespace = "Soup", name = "Server"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupServer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage associated with @server.", sinceVersion = Nothing}, 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 ->                           -- server : TInterface (Name {namespace = "Soup", name = "Server"})-    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO ()--{- |-Resumes I\/O on /@msg@/. Use this to resume after calling-'GI.Soup.Objects.Server.serverPauseMessage', or after adding a new chunk to a-chunked response.--I\/O won\'t actually resume until you return to the main loop.--This must only be called on @/SoupMessages/@ which were created by the-'GI.Soup.Objects.Server.Server' and are currently doing I\/O, such as those passed into a-'GI.Soup.Callbacks.ServerCallback' or emitted in a 'GI.Soup.Objects.Server.Server'::@/request-read/@ signal.--}-serverUnpauseMessage ::-    (B.CallStack.HasCallStack, MonadIO m, IsServer a, Soup.Message.IsMessage b) =>-    a-    {- ^ /@server@/: a 'GI.Soup.Objects.Server.Server' -}-    -> b-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' associated with /@server@/. -}-    -> m ()-serverUnpauseMessage server msg = liftIO $ do-    server' <- unsafeManagedPtrCastPtr server-    msg' <- unsafeManagedPtrCastPtr msg-    soup_server_unpause_message server' msg'-    touchManagedPtr server-    touchManagedPtr msg-    return ()--#if ENABLE_OVERLOADING-data ServerUnpauseMessageMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsServer a, Soup.Message.IsMessage b) => O.MethodInfo ServerUnpauseMessageMethodInfo a signature where-    overloadedMethod _ = serverUnpauseMessage--#endif--
− GI/Soup/Objects/Server.hs-boot 
@@ -1,146 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Objects.Server where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype Server = Server (ManagedPtr Server)-instance GObject Server where-class (GObject o, O.IsDescendantOf Server o) => IsServer o-instance (GObject o, O.IsDescendantOf Server o) => IsServer o-instance O.HasParentTypes Server-#if ENABLE_OVERLOADING-data ServerAsyncContextPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ServerHttpAliasesPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ServerHttpsAliasesPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ServerInterfacePropertyInfo-#endif-#if ENABLE_OVERLOADING-data ServerPortPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ServerRawPathsPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ServerServerHeaderPropertyInfo-#endif-#if ENABLE_OVERLOADING-data ServerSslCertFilePropertyInfo-#endif-#if ENABLE_OVERLOADING-data ServerSslKeyFilePropertyInfo-#endif-#if ENABLE_OVERLOADING-data ServerTlsCertificatePropertyInfo-#endif-#if ENABLE_OVERLOADING-data ServerRequestAbortedSignalInfo-#endif-#if ENABLE_OVERLOADING-data ServerRequestFinishedSignalInfo-#endif-#if ENABLE_OVERLOADING-data ServerRequestReadSignalInfo-#endif-#if ENABLE_OVERLOADING-data ServerRequestStartedSignalInfo-#endif-#if ENABLE_OVERLOADING-data ServerAcceptIostreamMethodInfo-#endif-#if ENABLE_OVERLOADING-data ServerAddAuthDomainMethodInfo-#endif-#if ENABLE_OVERLOADING-data ServerAddEarlyHandlerMethodInfo-#endif-#if ENABLE_OVERLOADING-data ServerAddHandlerMethodInfo-#endif-#if ENABLE_OVERLOADING-data ServerAddWebsocketHandlerMethodInfo-#endif-#if ENABLE_OVERLOADING-data ServerDisconnectMethodInfo-#endif-#if ENABLE_OVERLOADING-data ServerGetAsyncContextMethodInfo-#endif-#if ENABLE_OVERLOADING-data ServerGetListenerMethodInfo-#endif-#if ENABLE_OVERLOADING-data ServerGetListenersMethodInfo-#endif-#if ENABLE_OVERLOADING-data ServerGetPortMethodInfo-#endif-#if ENABLE_OVERLOADING-data ServerGetUrisMethodInfo-#endif-#if ENABLE_OVERLOADING-data ServerIsHttpsMethodInfo-#endif-#if ENABLE_OVERLOADING-data ServerListenMethodInfo-#endif-#if ENABLE_OVERLOADING-data ServerListenAllMethodInfo-#endif-#if ENABLE_OVERLOADING-data ServerListenFdMethodInfo-#endif-#if ENABLE_OVERLOADING-data ServerListenLocalMethodInfo-#endif-#if ENABLE_OVERLOADING-data ServerListenSocketMethodInfo-#endif-#if ENABLE_OVERLOADING-data ServerPauseMessageMethodInfo-#endif-#if ENABLE_OVERLOADING-data ServerQuitMethodInfo-#endif-#if ENABLE_OVERLOADING-data ServerRemoveAuthDomainMethodInfo-#endif-#if ENABLE_OVERLOADING-data ServerRemoveHandlerMethodInfo-#endif-#if ENABLE_OVERLOADING-data ServerRunMethodInfo-#endif-#if ENABLE_OVERLOADING-data ServerRunAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data ServerSetSslCertFileMethodInfo-#endif-#if ENABLE_OVERLOADING-data ServerUnpauseMessageMethodInfo-#endif
− GI/Soup/Objects/Session.hs 
@@ -1,4417 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Objects.Session-    ( ---- * Exported types-    Session(..)                             ,-    IsSession                               ,-    toSession                               ,-    noSession                               ,--- -- * Methods--- ** abort #method:abort#--#if ENABLE_OVERLOADING-    SessionAbortMethodInfo                  ,-#endif-    sessionAbort                            ,----- ** addFeature #method:addFeature#--#if ENABLE_OVERLOADING-    SessionAddFeatureMethodInfo             ,-#endif-    sessionAddFeature                       ,----- ** addFeatureByType #method:addFeatureByType#--#if ENABLE_OVERLOADING-    SessionAddFeatureByTypeMethodInfo       ,-#endif-    sessionAddFeatureByType                 ,----- ** cancelMessage #method:cancelMessage#--#if ENABLE_OVERLOADING-    SessionCancelMessageMethodInfo          ,-#endif-    sessionCancelMessage                    ,----- ** connectAsync #method:connectAsync#--#if ENABLE_OVERLOADING-    SessionConnectAsyncMethodInfo           ,-#endif-    sessionConnectAsync                     ,----- ** connectFinish #method:connectFinish#--#if ENABLE_OVERLOADING-    SessionConnectFinishMethodInfo          ,-#endif-    sessionConnectFinish                    ,----- ** getAsyncContext #method:getAsyncContext#--#if ENABLE_OVERLOADING-    SessionGetAsyncContextMethodInfo        ,-#endif-    sessionGetAsyncContext                  ,----- ** getFeature #method:getFeature#--#if ENABLE_OVERLOADING-    SessionGetFeatureMethodInfo             ,-#endif-    sessionGetFeature                       ,----- ** getFeatureForMessage #method:getFeatureForMessage#--#if ENABLE_OVERLOADING-    SessionGetFeatureForMessageMethodInfo   ,-#endif-    sessionGetFeatureForMessage             ,----- ** getFeatures #method:getFeatures#--#if ENABLE_OVERLOADING-    SessionGetFeaturesMethodInfo            ,-#endif-    sessionGetFeatures                      ,----- ** hasFeature #method:hasFeature#--#if ENABLE_OVERLOADING-    SessionHasFeatureMethodInfo             ,-#endif-    sessionHasFeature                       ,----- ** new #method:new#--    sessionNew                              ,----- ** pauseMessage #method:pauseMessage#--#if ENABLE_OVERLOADING-    SessionPauseMessageMethodInfo           ,-#endif-    sessionPauseMessage                     ,----- ** prefetchDns #method:prefetchDns#--#if ENABLE_OVERLOADING-    SessionPrefetchDnsMethodInfo            ,-#endif-    sessionPrefetchDns                      ,----- ** prepareForUri #method:prepareForUri#--#if ENABLE_OVERLOADING-    SessionPrepareForUriMethodInfo          ,-#endif-    sessionPrepareForUri                    ,----- ** queueMessage #method:queueMessage#--#if ENABLE_OVERLOADING-    SessionQueueMessageMethodInfo           ,-#endif-    sessionQueueMessage                     ,----- ** redirectMessage #method:redirectMessage#--#if ENABLE_OVERLOADING-    SessionRedirectMessageMethodInfo        ,-#endif-    sessionRedirectMessage                  ,----- ** removeFeature #method:removeFeature#--#if ENABLE_OVERLOADING-    SessionRemoveFeatureMethodInfo          ,-#endif-    sessionRemoveFeature                    ,----- ** removeFeatureByType #method:removeFeatureByType#--#if ENABLE_OVERLOADING-    SessionRemoveFeatureByTypeMethodInfo    ,-#endif-    sessionRemoveFeatureByType              ,----- ** request #method:request#--#if ENABLE_OVERLOADING-    SessionRequestMethodInfo                ,-#endif-    sessionRequest                          ,----- ** requestHttp #method:requestHttp#--#if ENABLE_OVERLOADING-    SessionRequestHttpMethodInfo            ,-#endif-    sessionRequestHttp                      ,----- ** requestHttpUri #method:requestHttpUri#--#if ENABLE_OVERLOADING-    SessionRequestHttpUriMethodInfo         ,-#endif-    sessionRequestHttpUri                   ,----- ** requestUri #method:requestUri#--#if ENABLE_OVERLOADING-    SessionRequestUriMethodInfo             ,-#endif-    sessionRequestUri                       ,----- ** requeueMessage #method:requeueMessage#--#if ENABLE_OVERLOADING-    SessionRequeueMessageMethodInfo         ,-#endif-    sessionRequeueMessage                   ,----- ** send #method:send#--#if ENABLE_OVERLOADING-    SessionSendMethodInfo                   ,-#endif-    sessionSend                             ,----- ** sendAsync #method:sendAsync#--#if ENABLE_OVERLOADING-    SessionSendAsyncMethodInfo              ,-#endif-    sessionSendAsync                        ,----- ** sendFinish #method:sendFinish#--#if ENABLE_OVERLOADING-    SessionSendFinishMethodInfo             ,-#endif-    sessionSendFinish                       ,----- ** sendMessage #method:sendMessage#--#if ENABLE_OVERLOADING-    SessionSendMessageMethodInfo            ,-#endif-    sessionSendMessage                      ,----- ** stealConnection #method:stealConnection#--#if ENABLE_OVERLOADING-    SessionStealConnectionMethodInfo        ,-#endif-    sessionStealConnection                  ,----- ** unpauseMessage #method:unpauseMessage#--#if ENABLE_OVERLOADING-    SessionUnpauseMessageMethodInfo         ,-#endif-    sessionUnpauseMessage                   ,----- ** websocketConnectAsync #method:websocketConnectAsync#--#if ENABLE_OVERLOADING-    SessionWebsocketConnectAsyncMethodInfo  ,-#endif-    sessionWebsocketConnectAsync            ,----- ** websocketConnectFinish #method:websocketConnectFinish#--#if ENABLE_OVERLOADING-    SessionWebsocketConnectFinishMethodInfo ,-#endif-    sessionWebsocketConnectFinish           ,----- ** wouldRedirect #method:wouldRedirect#--#if ENABLE_OVERLOADING-    SessionWouldRedirectMethodInfo          ,-#endif-    sessionWouldRedirect                    ,----- -- * Properties--- ** acceptLanguage #attr:acceptLanguage#-{- | If non-'Nothing', the value to use for the \"Accept-Language\" header-on 'GI.Soup.Objects.Message.Message'\<!-- -->s sent from this session.--Setting this will disable-'GI.Soup.Objects.Session.Session':@/accept-language-auto/@.--/Since: 2.30/--}-#if ENABLE_OVERLOADING-    SessionAcceptLanguagePropertyInfo       ,-#endif-    clearSessionAcceptLanguage              ,-    constructSessionAcceptLanguage          ,-    getSessionAcceptLanguage                ,-#if ENABLE_OVERLOADING-    sessionAcceptLanguage                   ,-#endif-    setSessionAcceptLanguage                ,----- ** acceptLanguageAuto #attr:acceptLanguageAuto#-{- | If 'True', 'GI.Soup.Objects.Session.Session' will automatically set the string-for the \"Accept-Language\" header on every 'GI.Soup.Objects.Message.Message'-sent, based on the return value of 'GI.GLib.Functions.getLanguageNames'.--Setting this will override any previous value of-'GI.Soup.Objects.Session.Session':@/accept-language/@.--/Since: 2.30/--}-#if ENABLE_OVERLOADING-    SessionAcceptLanguageAutoPropertyInfo   ,-#endif-    constructSessionAcceptLanguageAuto      ,-    getSessionAcceptLanguageAuto            ,-#if ENABLE_OVERLOADING-    sessionAcceptLanguageAuto               ,-#endif-    setSessionAcceptLanguageAuto            ,----- ** asyncContext #attr:asyncContext#-{- | The 'GI.GLib.Structs.MainContext.MainContext' that miscellaneous session-related-asynchronous callbacks are invoked on. (Eg, setting-'GI.Soup.Objects.Session.Session':@/idle-timeout/@ will add a timeout source on this-context.)--For a plain 'GI.Soup.Objects.Session.Session', this property is always set to-the 'GI.GLib.Structs.MainContext.MainContext' that is the thread-default at the time-the session was created, and cannot be overridden. For the-deprecated 'GI.Soup.Objects.Session.Session' subclasses, the default value is-'Nothing', meaning to use the global default 'GI.GLib.Structs.MainContext.MainContext'.--If 'GI.Soup.Objects.Session.Session':@/use-thread-context/@ is 'False', this context-will also be used for asynchronous HTTP I\/O.--}-#if ENABLE_OVERLOADING-    SessionAsyncContextPropertyInfo         ,-#endif-    constructSessionAsyncContext            ,-    getSessionAsyncContext                  ,-#if ENABLE_OVERLOADING-    sessionAsyncContext                     ,-#endif----- ** httpAliases #attr:httpAliases#-{- | A 'Nothing'-terminated array of URI schemes that should be-considered to be aliases for \"http\". Eg, if this included-\<literal>\"dav\"\<\/literal>, than a URI of-\<literal>dav:\/\/example.com\/path\<\/literal> would be treated-identically to \<literal>http:\/\/example.com\/path\<\/literal>.--In a plain 'GI.Soup.Objects.Session.Session', the default value is 'Nothing',-meaning that only \"http\" is recognized as meaning \"http\".-In 'GI.Soup.Objects.SessionAsync.SessionAsync' and 'GI.Soup.Objects.SessionSync.SessionSync', for backward-compatibility, the default value is an array containing the-single element \<literal>\"*\"\<\/literal>, a special value-which means that any scheme except \"https\" is considered to-be an alias for \"http\".--See also 'GI.Soup.Objects.Session.Session':@/https-aliases/@.--/Since: 2.38/--}-#if ENABLE_OVERLOADING-    SessionHttpAliasesPropertyInfo          ,-#endif-    clearSessionHttpAliases                 ,-    constructSessionHttpAliases             ,-    getSessionHttpAliases                   ,-#if ENABLE_OVERLOADING-    sessionHttpAliases                      ,-#endif-    setSessionHttpAliases                   ,----- ** httpsAliases #attr:httpsAliases#-{- | A comma-delimited list of URI schemes that should be-considered to be aliases for \"https\". See-'GI.Soup.Objects.Session.Session':@/http-aliases/@ for more information.--The default value is 'Nothing', meaning that no URI schemes-are considered aliases for \"https\".--/Since: 2.38/--}-#if ENABLE_OVERLOADING-    SessionHttpsAliasesPropertyInfo         ,-#endif-    clearSessionHttpsAliases                ,-    constructSessionHttpsAliases            ,-    getSessionHttpsAliases                  ,-#if ENABLE_OVERLOADING-    sessionHttpsAliases                     ,-#endif-    setSessionHttpsAliases                  ,----- ** idleTimeout #attr:idleTimeout#-{- | Connection lifetime (in seconds) when idle. Any connection-left idle longer than this will be closed.--Although you can change this property at any time, it will-only affect newly-created connections, not currently-open-ones. You can call 'GI.Soup.Objects.Session.sessionAbort' after setting this-if you want to ensure that all future connections will have-this timeout value.--Note that the default value of 60 seconds only applies to-plain @/SoupSessions/@. If you are using 'GI.Soup.Objects.SessionAsync.SessionAsync' or-'GI.Soup.Objects.SessionSync.SessionSync', the default value is 0 (meaning idle-connections will never time out).--/Since: 2.24/--}-#if ENABLE_OVERLOADING-    SessionIdleTimeoutPropertyInfo          ,-#endif-    constructSessionIdleTimeout             ,-    getSessionIdleTimeout                   ,-#if ENABLE_OVERLOADING-    sessionIdleTimeout                      ,-#endif-    setSessionIdleTimeout                   ,----- ** localAddress #attr:localAddress#-{- | Sets the 'GI.Soup.Objects.Address.Address' to use for the client side of-the connection.--Use this property if you want for instance to bind the-local socket to a specific IP address.--/Since: 2.42/--}-#if ENABLE_OVERLOADING-    SessionLocalAddressPropertyInfo         ,-#endif-    constructSessionLocalAddress            ,-    getSessionLocalAddress                  ,-#if ENABLE_OVERLOADING-    sessionLocalAddress                     ,-#endif----- ** maxConns #attr:maxConns#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SessionMaxConnsPropertyInfo             ,-#endif-    constructSessionMaxConns                ,-    getSessionMaxConns                      ,-#if ENABLE_OVERLOADING-    sessionMaxConns                         ,-#endif-    setSessionMaxConns                      ,----- ** maxConnsPerHost #attr:maxConnsPerHost#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SessionMaxConnsPerHostPropertyInfo      ,-#endif-    constructSessionMaxConnsPerHost         ,-    getSessionMaxConnsPerHost               ,-#if ENABLE_OVERLOADING-    sessionMaxConnsPerHost                  ,-#endif-    setSessionMaxConnsPerHost               ,----- ** proxyResolver #attr:proxyResolver#-{- | A 'GI.Gio.Interfaces.ProxyResolver.ProxyResolver' to use with this session. Setting this-will clear the 'GI.Soup.Objects.Session.Session':@/proxy-uri/@ property, and remove-any \<type>SoupProxyURIResolver\<\/type> features that have-been added to the session.--By default, in a plain 'GI.Soup.Objects.Session.Session', this is set to the-default 'GI.Gio.Interfaces.ProxyResolver.ProxyResolver', but you can set it to 'Nothing' if you-don\'t want to use proxies, or set it to your own-'GI.Gio.Interfaces.ProxyResolver.ProxyResolver' if you want to control what proxies get-used.--/Since: 2.42/--}-#if ENABLE_OVERLOADING-    SessionProxyResolverPropertyInfo        ,-#endif-    clearSessionProxyResolver               ,-    constructSessionProxyResolver           ,-    getSessionProxyResolver                 ,-#if ENABLE_OVERLOADING-    sessionProxyResolver                    ,-#endif-    setSessionProxyResolver                 ,----- ** proxyUri #attr:proxyUri#-{- | A proxy to use for all http and https requests in this-session. Setting this will clear the-'GI.Soup.Objects.Session.Session':@/proxy-resolver/@ property, and remove any-\<type>SoupProxyURIResolver\<\/type> features that have been-added to the session. Setting this property will also-cancel all currently pending messages.--Note that 'GI.Soup.Objects.Session.Session' will normally handle looking up the-user\'s proxy settings for you; you should only use-'GI.Soup.Objects.Session.Session':@/proxy-uri/@ if you need to override the user\'s-normal proxy settings.--Also note that this proxy will be used for-\<emphasis>all\<\/emphasis> requests; even requests to-\<literal>localhost\<\/literal>. If you need more control over-proxies, you can create a 'GI.Gio.Objects.SimpleProxyResolver.SimpleProxyResolver' and set the-'GI.Soup.Objects.Session.Session':@/proxy-resolver/@ property.--}-#if ENABLE_OVERLOADING-    SessionProxyUriPropertyInfo             ,-#endif-    clearSessionProxyUri                    ,-    constructSessionProxyUri                ,-    getSessionProxyUri                      ,-#if ENABLE_OVERLOADING-    sessionProxyUri                         ,-#endif-    setSessionProxyUri                      ,----- ** sslCaFile #attr:sslCaFile#-{- | File containing SSL CA certificates.--If the specified file does not exist or cannot be read,-then libsoup will print a warning, and then behave as-though it had read in a empty CA file, meaning that all SSL-certificates will be considered invalid.--}-#if ENABLE_OVERLOADING-    SessionSslCaFilePropertyInfo            ,-#endif-    clearSessionSslCaFile                   ,-    constructSessionSslCaFile               ,-    getSessionSslCaFile                     ,-#if ENABLE_OVERLOADING-    sessionSslCaFile                        ,-#endif-    setSessionSslCaFile                     ,----- ** sslStrict #attr:sslStrict#-{- | Normally, if 'GI.Soup.Objects.Session.Session':@/tls-database/@ is set (including if-it was set via 'GI.Soup.Objects.Session.Session':@/ssl-use-system-ca-file/@ or-'GI.Soup.Objects.Session.Session':@/ssl-ca-file/@), then libsoup will reject any-certificate that is invalid (ie, expired) or that is not-signed by one of the given CA certificates, and the-'GI.Soup.Objects.Message.Message' will fail with the status-'GI.Soup.Enums.StatusSslFailed'.--If you set 'GI.Soup.Objects.Session.Session':@/ssl-strict/@ to 'False', then all-certificates will be accepted, and you will need to call-'GI.Soup.Objects.Message.messageGetHttpsStatus' to distinguish valid from-invalid certificates. (This can be used, eg, if you want to-accept invalid certificates after giving some sort of-warning.)--For a plain 'GI.Soup.Objects.Session.Session', if the session has no CA file or-TLS database, and this property is 'True', then all-certificates will be rejected. However, beware that the-deprecated 'GI.Soup.Objects.Session.Session' subclasses ('GI.Soup.Objects.SessionAsync.SessionAsync' and-'GI.Soup.Objects.SessionSync.SessionSync') have the opposite behavior: if there is-no CA file or TLS database, then all certificates are always-accepted, and this property has no effect.--/Since: 2.30/--}-#if ENABLE_OVERLOADING-    SessionSslStrictPropertyInfo            ,-#endif-    constructSessionSslStrict               ,-    getSessionSslStrict                     ,-#if ENABLE_OVERLOADING-    sessionSslStrict                        ,-#endif-    setSessionSslStrict                     ,----- ** sslUseSystemCaFile #attr:sslUseSystemCaFile#-{- | Setting this to 'True' is equivalent to setting-'GI.Soup.Objects.Session.Session':@/tls-database/@ to the default system CA database.-(and likewise, setting 'GI.Soup.Objects.Session.Session':@/tls-database/@ to the-default database by hand will cause this property to-become 'True').--Setting this to 'False' (when it was previously 'True') will-clear the 'GI.Soup.Objects.Session.Session':@/tls-database/@ field.--See 'GI.Soup.Objects.Session.Session':@/ssl-strict/@ for more information on how-https certificate validation is handled.--Note that the default value of 'True' only applies to plain-@/SoupSessions/@. If you are using 'GI.Soup.Objects.SessionAsync.SessionAsync' or-'GI.Soup.Objects.SessionSync.SessionSync', the default value is 'False', for backward-compatibility.--/Since: 2.38/--}-#if ENABLE_OVERLOADING-    SessionSslUseSystemCaFilePropertyInfo   ,-#endif-    constructSessionSslUseSystemCaFile      ,-    getSessionSslUseSystemCaFile            ,-#if ENABLE_OVERLOADING-    sessionSslUseSystemCaFile               ,-#endif-    setSessionSslUseSystemCaFile            ,----- ** timeout #attr:timeout#-{- | The timeout (in seconds) for socket I\/O operations-(including connecting to a server, and waiting for a reply-to an HTTP request).--Although you can change this property at any time, it will-only affect newly-created connections, not currently-open-ones. You can call 'GI.Soup.Objects.Session.sessionAbort' after setting this-if you want to ensure that all future connections will have-this timeout value.--Note that the default value of 60 seconds only applies to-plain @/SoupSessions/@. If you are using 'GI.Soup.Objects.SessionAsync.SessionAsync' or-'GI.Soup.Objects.SessionSync.SessionSync', the default value is 0 (meaning socket I\/O-will not time out).--Not to be confused with 'GI.Soup.Objects.Session.Session':@/idle-timeout/@ (which is-the length of time that idle persistent connections will be-kept open).--}-#if ENABLE_OVERLOADING-    SessionTimeoutPropertyInfo              ,-#endif-    constructSessionTimeout                 ,-    getSessionTimeout                       ,-#if ENABLE_OVERLOADING-    sessionTimeout                          ,-#endif-    setSessionTimeout                       ,----- ** tlsDatabase #attr:tlsDatabase#-{- | Sets the 'GI.Gio.Objects.TlsDatabase.TlsDatabase' to use for validating SSL\/TLS-certificates.--Note that setting the 'GI.Soup.Objects.Session.Session':@/ssl-ca-file/@ or-'GI.Soup.Objects.Session.Session':@/ssl-use-system-ca-file/@ property will cause-this property to be set to a 'GI.Gio.Objects.TlsDatabase.TlsDatabase' corresponding to-the indicated file or system default.--See 'GI.Soup.Objects.Session.Session':@/ssl-strict/@ for more information on how-https certificate validation is handled.--If you are using a plain 'GI.Soup.Objects.Session.Session' then-'GI.Soup.Objects.Session.Session':@/ssl-use-system-ca-file/@ will be 'True' by-default, and so this property will be a copy of the system-CA database. If you are using 'GI.Soup.Objects.SessionAsync.SessionAsync' or-'GI.Soup.Objects.SessionSync.SessionSync', this property will be 'Nothing' by default.--/Since: 2.38/--}-#if ENABLE_OVERLOADING-    SessionTlsDatabasePropertyInfo          ,-#endif-    clearSessionTlsDatabase                 ,-    constructSessionTlsDatabase             ,-    getSessionTlsDatabase                   ,-#if ENABLE_OVERLOADING-    sessionTlsDatabase                      ,-#endif-    setSessionTlsDatabase                   ,----- ** tlsInteraction #attr:tlsInteraction#-{- | A 'GI.Gio.Objects.TlsInteraction.TlsInteraction' object that will be passed on to any-@/GTlsConnections/@ created by the session. (This can be used to-provide client-side certificates, for example.)--/Since: 2.48/--}-#if ENABLE_OVERLOADING-    SessionTlsInteractionPropertyInfo       ,-#endif-    clearSessionTlsInteraction              ,-    constructSessionTlsInteraction          ,-    getSessionTlsInteraction                ,-#if ENABLE_OVERLOADING-    sessionTlsInteraction                   ,-#endif-    setSessionTlsInteraction                ,----- ** useNtlm #attr:useNtlm#-{- | Whether or not to use NTLM authentication.--}-#if ENABLE_OVERLOADING-    SessionUseNtlmPropertyInfo              ,-#endif-    constructSessionUseNtlm                 ,-    getSessionUseNtlm                       ,-#if ENABLE_OVERLOADING-    sessionUseNtlm                          ,-#endif-    setSessionUseNtlm                       ,----- ** useThreadContext #attr:useThreadContext#-{- | If 'True' (which it always is on a plain 'GI.Soup.Objects.Session.Session'),-asynchronous HTTP requests in this session will run in-whatever the thread-default 'GI.GLib.Structs.MainContext.MainContext' is at the time-they are started, rather than always occurring in-'GI.Soup.Objects.Session.Session':@/async-context/@.--/Since: 2.38/--}-#if ENABLE_OVERLOADING-    SessionUseThreadContextPropertyInfo     ,-#endif-    constructSessionUseThreadContext        ,-    getSessionUseThreadContext              ,-#if ENABLE_OVERLOADING-    sessionUseThreadContext                 ,-#endif-    setSessionUseThreadContext              ,----- ** userAgent #attr:userAgent#-{- | If non-'Nothing', the value to use for the \"User-Agent\" header-on 'GI.Soup.Objects.Message.Message'\<!-- -->s sent from this session.--RFC 2616 says: \"The User-Agent request-header field-contains information about the user agent originating the-request. This is for statistical purposes, the tracing of-protocol violations, and automated recognition of user-agents for the sake of tailoring responses to avoid-particular user agent limitations. User agents SHOULD-include this field with requests.\"--The User-Agent header contains a list of one or more-product tokens, separated by whitespace, with the most-significant product token coming first. The tokens must be-brief, ASCII, and mostly alphanumeric (although \"-\", \"_\",-and \".\" are also allowed), and may optionally include a \"\/\"-followed by a version string. You may also put comments,-enclosed in parentheses, between or after the tokens.--If you set a 'GI.Soup.Objects.Session.Session':@/user_agent/@ property that has trailing-whitespace, 'GI.Soup.Objects.Session.Session' will append its own product token-(eg, \"\<literal>libsoup\/2.3.2\<\/literal>\") to the end of the-header for you.--}-#if ENABLE_OVERLOADING-    SessionUserAgentPropertyInfo            ,-#endif-    clearSessionUserAgent                   ,-    constructSessionUserAgent               ,-    getSessionUserAgent                     ,-#if ENABLE_OVERLOADING-    sessionUserAgent                        ,-#endif-    setSessionUserAgent                     ,----- -- * Signals--- ** authenticate #signal:authenticate#--    C_SessionAuthenticateCallback           ,-    SessionAuthenticateCallback             ,-#if ENABLE_OVERLOADING-    SessionAuthenticateSignalInfo           ,-#endif-    afterSessionAuthenticate                ,-    genClosure_SessionAuthenticate          ,-    mk_SessionAuthenticateCallback          ,-    noSessionAuthenticateCallback           ,-    onSessionAuthenticate                   ,-    wrap_SessionAuthenticateCallback        ,----- ** connectionCreated #signal:connectionCreated#--    C_SessionConnectionCreatedCallback      ,-    SessionConnectionCreatedCallback        ,-#if ENABLE_OVERLOADING-    SessionConnectionCreatedSignalInfo      ,-#endif-    afterSessionConnectionCreated           ,-    genClosure_SessionConnectionCreated     ,-    mk_SessionConnectionCreatedCallback     ,-    noSessionConnectionCreatedCallback      ,-    onSessionConnectionCreated              ,-    wrap_SessionConnectionCreatedCallback   ,----- ** requestQueued #signal:requestQueued#--    C_SessionRequestQueuedCallback          ,-    SessionRequestQueuedCallback            ,-#if ENABLE_OVERLOADING-    SessionRequestQueuedSignalInfo          ,-#endif-    afterSessionRequestQueued               ,-    genClosure_SessionRequestQueued         ,-    mk_SessionRequestQueuedCallback         ,-    noSessionRequestQueuedCallback          ,-    onSessionRequestQueued                  ,-    wrap_SessionRequestQueuedCallback       ,----- ** requestStarted #signal:requestStarted#--    C_SessionRequestStartedCallback         ,-    SessionRequestStartedCallback           ,-#if ENABLE_OVERLOADING-    SessionRequestStartedSignalInfo         ,-#endif-    afterSessionRequestStarted              ,-    genClosure_SessionRequestStarted        ,-    mk_SessionRequestStartedCallback        ,-    noSessionRequestStartedCallback         ,-    onSessionRequestStarted                 ,-    wrap_SessionRequestStartedCallback      ,----- ** requestUnqueued #signal:requestUnqueued#--    C_SessionRequestUnqueuedCallback        ,-    SessionRequestUnqueuedCallback          ,-#if ENABLE_OVERLOADING-    SessionRequestUnqueuedSignalInfo        ,-#endif-    afterSessionRequestUnqueued             ,-    genClosure_SessionRequestUnqueued       ,-    mk_SessionRequestUnqueuedCallback       ,-    noSessionRequestUnqueuedCallback        ,-    onSessionRequestUnqueued                ,-    wrap_SessionRequestUnqueuedCallback     ,----- ** tunneling #signal:tunneling#--    C_SessionTunnelingCallback              ,-    SessionTunnelingCallback                ,-#if ENABLE_OVERLOADING-    SessionTunnelingSignalInfo              ,-#endif-    afterSessionTunneling                   ,-    genClosure_SessionTunneling             ,-    mk_SessionTunnelingCallback             ,-    noSessionTunnelingCallback              ,-    onSessionTunneling                      ,-    wrap_SessionTunnelingCallback           ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GLib.Structs.MainContext as GLib.MainContext-import qualified GI.GObject.Objects.Object as GObject.Object-import qualified GI.Gio.Callbacks as Gio.Callbacks-import qualified GI.Gio.Interfaces.AsyncResult as Gio.AsyncResult-import qualified GI.Gio.Interfaces.ProxyResolver as Gio.ProxyResolver-import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import qualified GI.Gio.Objects.IOStream as Gio.IOStream-import qualified GI.Gio.Objects.InputStream as Gio.InputStream-import qualified GI.Gio.Objects.TlsDatabase as Gio.TlsDatabase-import qualified GI.Gio.Objects.TlsInteraction as Gio.TlsInteraction-import qualified GI.Soup.Callbacks as Soup.Callbacks-import {-# SOURCE #-} qualified GI.Soup.Interfaces.SessionFeature as Soup.SessionFeature-import {-# SOURCE #-} qualified GI.Soup.Objects.Address as Soup.Address-import {-# SOURCE #-} qualified GI.Soup.Objects.Auth as Soup.Auth-import {-# SOURCE #-} qualified GI.Soup.Objects.Message as Soup.Message-import {-# SOURCE #-} qualified GI.Soup.Objects.Request as Soup.Request-import {-# SOURCE #-} qualified GI.Soup.Objects.RequestHTTP as Soup.RequestHTTP-import {-# SOURCE #-} qualified GI.Soup.Objects.Socket as Soup.Socket-import {-# SOURCE #-} qualified GI.Soup.Objects.WebsocketConnection as Soup.WebsocketConnection-import {-# SOURCE #-} qualified GI.Soup.Structs.URI as Soup.URI---- | Memory-managed wrapper type.-newtype Session = Session (ManagedPtr Session)-foreign import ccall "soup_session_get_type"-    c_soup_session_get_type :: IO GType--instance GObject Session where-    gobjectType = c_soup_session_get_type-    ---- | Type class for types which can be safely cast to `Session`, for instance with `toSession`.-class (GObject o, O.IsDescendantOf Session o) => IsSession o-instance (GObject o, O.IsDescendantOf Session o) => IsSession o--instance O.HasParentTypes Session-type instance O.ParentTypes Session = '[GObject.Object.Object]---- | Cast to `Session`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toSession :: (MonadIO m, IsSession o) => o -> m Session-toSession = liftIO . unsafeCastTo Session---- | A convenience alias for `Nothing` :: `Maybe` `Session`.-noSession :: Maybe Session-noSession = Nothing--#if ENABLE_OVERLOADING-type family ResolveSessionMethod (t :: Symbol) (o :: *) :: * where-    ResolveSessionMethod "abort" o = SessionAbortMethodInfo-    ResolveSessionMethod "addFeature" o = SessionAddFeatureMethodInfo-    ResolveSessionMethod "addFeatureByType" o = SessionAddFeatureByTypeMethodInfo-    ResolveSessionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveSessionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveSessionMethod "cancelMessage" o = SessionCancelMessageMethodInfo-    ResolveSessionMethod "connectAsync" o = SessionConnectAsyncMethodInfo-    ResolveSessionMethod "connectFinish" o = SessionConnectFinishMethodInfo-    ResolveSessionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveSessionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveSessionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveSessionMethod "hasFeature" o = SessionHasFeatureMethodInfo-    ResolveSessionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveSessionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveSessionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveSessionMethod "pauseMessage" o = SessionPauseMessageMethodInfo-    ResolveSessionMethod "prefetchDns" o = SessionPrefetchDnsMethodInfo-    ResolveSessionMethod "prepareForUri" o = SessionPrepareForUriMethodInfo-    ResolveSessionMethod "queueMessage" o = SessionQueueMessageMethodInfo-    ResolveSessionMethod "redirectMessage" o = SessionRedirectMessageMethodInfo-    ResolveSessionMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveSessionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveSessionMethod "removeFeature" o = SessionRemoveFeatureMethodInfo-    ResolveSessionMethod "removeFeatureByType" o = SessionRemoveFeatureByTypeMethodInfo-    ResolveSessionMethod "request" o = SessionRequestMethodInfo-    ResolveSessionMethod "requestHttp" o = SessionRequestHttpMethodInfo-    ResolveSessionMethod "requestHttpUri" o = SessionRequestHttpUriMethodInfo-    ResolveSessionMethod "requestUri" o = SessionRequestUriMethodInfo-    ResolveSessionMethod "requeueMessage" o = SessionRequeueMessageMethodInfo-    ResolveSessionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveSessionMethod "send" o = SessionSendMethodInfo-    ResolveSessionMethod "sendAsync" o = SessionSendAsyncMethodInfo-    ResolveSessionMethod "sendFinish" o = SessionSendFinishMethodInfo-    ResolveSessionMethod "sendMessage" o = SessionSendMessageMethodInfo-    ResolveSessionMethod "stealConnection" o = SessionStealConnectionMethodInfo-    ResolveSessionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveSessionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveSessionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveSessionMethod "unpauseMessage" o = SessionUnpauseMessageMethodInfo-    ResolveSessionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveSessionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveSessionMethod "websocketConnectAsync" o = SessionWebsocketConnectAsyncMethodInfo-    ResolveSessionMethod "websocketConnectFinish" o = SessionWebsocketConnectFinishMethodInfo-    ResolveSessionMethod "wouldRedirect" o = SessionWouldRedirectMethodInfo-    ResolveSessionMethod "getAsyncContext" o = SessionGetAsyncContextMethodInfo-    ResolveSessionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveSessionMethod "getFeature" o = SessionGetFeatureMethodInfo-    ResolveSessionMethod "getFeatureForMessage" o = SessionGetFeatureForMessageMethodInfo-    ResolveSessionMethod "getFeatures" o = SessionGetFeaturesMethodInfo-    ResolveSessionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveSessionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveSessionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveSessionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveSessionMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveSessionMethod t Session, O.MethodInfo info Session p) => OL.IsLabel t (Session -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif---- signal Session::authenticate-{- |-Emitted when the session requires authentication. If-credentials are available call 'GI.Soup.Objects.Auth.authAuthenticate' on-/@auth@/. If these credentials fail, the signal will be-emitted again, with /@retrying@/ set to 'True', which will-continue until you return without calling-'GI.Soup.Objects.Auth.authAuthenticate' on /@auth@/.--Note that this may be emitted before /@msg@/\'s body has been-fully read.--If you call 'GI.Soup.Objects.Session.sessionPauseMessage' on /@msg@/ before-returning, then you can authenticate /@auth@/ asynchronously-(as long as you 'GI.GObject.Objects.Object.objectRef' it to make sure it doesn\'t-get destroyed), and then unpause /@msg@/ when you are ready-for it to continue.--}-type SessionAuthenticateCallback =-    Soup.Message.Message-    {- ^ /@msg@/: the 'GI.Soup.Objects.Message.Message' being sent -}-    -> Soup.Auth.Auth-    {- ^ /@auth@/: the 'GI.Soup.Objects.Auth.Auth' to authenticate -}-    -> Bool-    {- ^ /@retrying@/: 'True' if this is the second (or later) attempt -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `SessionAuthenticateCallback`@.-noSessionAuthenticateCallback :: Maybe SessionAuthenticateCallback-noSessionAuthenticateCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_SessionAuthenticateCallback =-    Ptr () ->                               -- object-    Ptr Soup.Message.Message ->-    Ptr Soup.Auth.Auth ->-    CInt ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_SessionAuthenticateCallback`.-foreign import ccall "wrapper"-    mk_SessionAuthenticateCallback :: C_SessionAuthenticateCallback -> IO (FunPtr C_SessionAuthenticateCallback)---- | Wrap the callback into a `GClosure`.-genClosure_SessionAuthenticate :: MonadIO m => SessionAuthenticateCallback -> m (GClosure C_SessionAuthenticateCallback)-genClosure_SessionAuthenticate cb = liftIO $ do-    let cb' = wrap_SessionAuthenticateCallback cb-    mk_SessionAuthenticateCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `SessionAuthenticateCallback` into a `C_SessionAuthenticateCallback`.-wrap_SessionAuthenticateCallback ::-    SessionAuthenticateCallback ->-    C_SessionAuthenticateCallback-wrap_SessionAuthenticateCallback _cb _ msg auth retrying _ = do-    msg' <- (newObject Soup.Message.Message) msg-    auth' <- (newObject Soup.Auth.Auth) auth-    let retrying' = (/= 0) retrying-    _cb  msg' auth' retrying'---{- |-Connect a signal handler for the “@authenticate@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' session #authenticate callback-@--}-onSessionAuthenticate :: (IsSession a, MonadIO m) => a -> SessionAuthenticateCallback -> m SignalHandlerId-onSessionAuthenticate obj cb = liftIO $ do-    let cb' = wrap_SessionAuthenticateCallback cb-    cb'' <- mk_SessionAuthenticateCallback cb'-    connectSignalFunPtr obj "authenticate" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@authenticate@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' session #authenticate callback-@--}-afterSessionAuthenticate :: (IsSession a, MonadIO m) => a -> SessionAuthenticateCallback -> m SignalHandlerId-afterSessionAuthenticate obj cb = liftIO $ do-    let cb' = wrap_SessionAuthenticateCallback cb-    cb'' <- mk_SessionAuthenticateCallback cb'-    connectSignalFunPtr obj "authenticate" cb'' SignalConnectAfter----- signal Session::connection-created-{- |-Emitted when a new connection is created. This is an-internal signal intended only to be used for debugging-purposes, and may go away in the future.--/Since: 2.30/--}-type SessionConnectionCreatedCallback =-    GObject.Object.Object-    {- ^ /@connection@/: the connection -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `SessionConnectionCreatedCallback`@.-noSessionConnectionCreatedCallback :: Maybe SessionConnectionCreatedCallback-noSessionConnectionCreatedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_SessionConnectionCreatedCallback =-    Ptr () ->                               -- object-    Ptr GObject.Object.Object ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_SessionConnectionCreatedCallback`.-foreign import ccall "wrapper"-    mk_SessionConnectionCreatedCallback :: C_SessionConnectionCreatedCallback -> IO (FunPtr C_SessionConnectionCreatedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_SessionConnectionCreated :: MonadIO m => SessionConnectionCreatedCallback -> m (GClosure C_SessionConnectionCreatedCallback)-genClosure_SessionConnectionCreated cb = liftIO $ do-    let cb' = wrap_SessionConnectionCreatedCallback cb-    mk_SessionConnectionCreatedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `SessionConnectionCreatedCallback` into a `C_SessionConnectionCreatedCallback`.-wrap_SessionConnectionCreatedCallback ::-    SessionConnectionCreatedCallback ->-    C_SessionConnectionCreatedCallback-wrap_SessionConnectionCreatedCallback _cb _ connection _ = do-    connection' <- (newObject GObject.Object.Object) connection-    _cb  connection'---{- |-Connect a signal handler for the “@connection-created@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' session #connectionCreated callback-@--}-onSessionConnectionCreated :: (IsSession a, MonadIO m) => a -> SessionConnectionCreatedCallback -> m SignalHandlerId-onSessionConnectionCreated obj cb = liftIO $ do-    let cb' = wrap_SessionConnectionCreatedCallback cb-    cb'' <- mk_SessionConnectionCreatedCallback cb'-    connectSignalFunPtr obj "connection-created" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@connection-created@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' session #connectionCreated callback-@--}-afterSessionConnectionCreated :: (IsSession a, MonadIO m) => a -> SessionConnectionCreatedCallback -> m SignalHandlerId-afterSessionConnectionCreated obj cb = liftIO $ do-    let cb' = wrap_SessionConnectionCreatedCallback cb-    cb'' <- mk_SessionConnectionCreatedCallback cb'-    connectSignalFunPtr obj "connection-created" cb'' SignalConnectAfter----- signal Session::request-queued-{- |-Emitted when a request is queued on /@session@/. (Note that-\"queued\" doesn\'t just mean 'GI.Soup.Objects.Session.sessionQueueMessage';-'GI.Soup.Objects.Session.sessionSendMessage' implicitly queues the message-as well.)--When sending a request, first 'GI.Soup.Objects.Session.Session'::@/request_queued/@-is emitted, indicating that the session has become aware of-the request.--Once a connection is available to send the request on, the-session emits 'GI.Soup.Objects.Session.Session'::@/request_started/@. Then, various-'GI.Soup.Objects.Message.Message' signals are emitted as the message is-processed. If the message is requeued, it will emit-'GI.Soup.Objects.Message.Message'::@/restarted/@, which will then be followed by-another 'GI.Soup.Objects.Session.Session'::@/request_started/@ and another set of-'GI.Soup.Objects.Message.Message' signals when the message is re-sent.--Eventually, the message will emit 'GI.Soup.Objects.Message.Message'::@/finished/@.-Normally, this signals the completion of message-processing. However, it is possible that the application-will requeue the message from the \"finished\" handler (or-equivalently, from the 'GI.Soup.Objects.Session.sessionQueueMessage'-callback). In that case, the process will loop back to-'GI.Soup.Objects.Session.Session'::@/request_started/@.--Eventually, a message will reach \"finished\" and not be-requeued. At that point, the session will emit-'GI.Soup.Objects.Session.Session'::@/request_unqueued/@ to indicate that it is done-with the message.--To sum up: 'GI.Soup.Objects.Session.Session'::@/request_queued/@ and-'GI.Soup.Objects.Session.Session'::@/request_unqueued/@ are guaranteed to be emitted-exactly once, but 'GI.Soup.Objects.Session.Session'::@/request_started/@ and-'GI.Soup.Objects.Message.Message'::@/finished/@ (and all of the other 'GI.Soup.Objects.Message.Message'-signals) may be invoked multiple times for a given message.--/Since: 2.24/--}-type SessionRequestQueuedCallback =-    Soup.Message.Message-    {- ^ /@msg@/: the request that was queued -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `SessionRequestQueuedCallback`@.-noSessionRequestQueuedCallback :: Maybe SessionRequestQueuedCallback-noSessionRequestQueuedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_SessionRequestQueuedCallback =-    Ptr () ->                               -- object-    Ptr Soup.Message.Message ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_SessionRequestQueuedCallback`.-foreign import ccall "wrapper"-    mk_SessionRequestQueuedCallback :: C_SessionRequestQueuedCallback -> IO (FunPtr C_SessionRequestQueuedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_SessionRequestQueued :: MonadIO m => SessionRequestQueuedCallback -> m (GClosure C_SessionRequestQueuedCallback)-genClosure_SessionRequestQueued cb = liftIO $ do-    let cb' = wrap_SessionRequestQueuedCallback cb-    mk_SessionRequestQueuedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `SessionRequestQueuedCallback` into a `C_SessionRequestQueuedCallback`.-wrap_SessionRequestQueuedCallback ::-    SessionRequestQueuedCallback ->-    C_SessionRequestQueuedCallback-wrap_SessionRequestQueuedCallback _cb _ msg _ = do-    msg' <- (newObject Soup.Message.Message) msg-    _cb  msg'---{- |-Connect a signal handler for the “@request-queued@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' session #requestQueued callback-@--}-onSessionRequestQueued :: (IsSession a, MonadIO m) => a -> SessionRequestQueuedCallback -> m SignalHandlerId-onSessionRequestQueued obj cb = liftIO $ do-    let cb' = wrap_SessionRequestQueuedCallback cb-    cb'' <- mk_SessionRequestQueuedCallback cb'-    connectSignalFunPtr obj "request-queued" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@request-queued@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' session #requestQueued callback-@--}-afterSessionRequestQueued :: (IsSession a, MonadIO m) => a -> SessionRequestQueuedCallback -> m SignalHandlerId-afterSessionRequestQueued obj cb = liftIO $ do-    let cb' = wrap_SessionRequestQueuedCallback cb-    cb'' <- mk_SessionRequestQueuedCallback cb'-    connectSignalFunPtr obj "request-queued" cb'' SignalConnectAfter----- signal Session::request-started-{-# DEPRECATED SessionRequestStartedCallback ["(Since version 2.50.)","Use 'GI.Soup.Objects.Message.Message'::@/starting/@ instead."] #-}-{- |-Emitted just before a request is sent. See-'GI.Soup.Objects.Session.Session'::@/request_queued/@ for a detailed description of-the message lifecycle within a session.--}-type SessionRequestStartedCallback =-    Soup.Message.Message-    {- ^ /@msg@/: the request being sent -}-    -> Soup.Socket.Socket-    {- ^ /@socket@/: the socket the request is being sent on -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `SessionRequestStartedCallback`@.-noSessionRequestStartedCallback :: Maybe SessionRequestStartedCallback-noSessionRequestStartedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_SessionRequestStartedCallback =-    Ptr () ->                               -- object-    Ptr Soup.Message.Message ->-    Ptr Soup.Socket.Socket ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_SessionRequestStartedCallback`.-foreign import ccall "wrapper"-    mk_SessionRequestStartedCallback :: C_SessionRequestStartedCallback -> IO (FunPtr C_SessionRequestStartedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_SessionRequestStarted :: MonadIO m => SessionRequestStartedCallback -> m (GClosure C_SessionRequestStartedCallback)-genClosure_SessionRequestStarted cb = liftIO $ do-    let cb' = wrap_SessionRequestStartedCallback cb-    mk_SessionRequestStartedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `SessionRequestStartedCallback` into a `C_SessionRequestStartedCallback`.-wrap_SessionRequestStartedCallback ::-    SessionRequestStartedCallback ->-    C_SessionRequestStartedCallback-wrap_SessionRequestStartedCallback _cb _ msg socket _ = do-    msg' <- (newObject Soup.Message.Message) msg-    socket' <- (newObject Soup.Socket.Socket) socket-    _cb  msg' socket'---{- |-Connect a signal handler for the “@request-started@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' session #requestStarted callback-@--}-onSessionRequestStarted :: (IsSession a, MonadIO m) => a -> SessionRequestStartedCallback -> m SignalHandlerId-onSessionRequestStarted obj cb = liftIO $ do-    let cb' = wrap_SessionRequestStartedCallback cb-    cb'' <- mk_SessionRequestStartedCallback cb'-    connectSignalFunPtr obj "request-started" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@request-started@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' session #requestStarted callback-@--}-afterSessionRequestStarted :: (IsSession a, MonadIO m) => a -> SessionRequestStartedCallback -> m SignalHandlerId-afterSessionRequestStarted obj cb = liftIO $ do-    let cb' = wrap_SessionRequestStartedCallback cb-    cb'' <- mk_SessionRequestStartedCallback cb'-    connectSignalFunPtr obj "request-started" cb'' SignalConnectAfter----- signal Session::request-unqueued-{- |-Emitted when a request is removed from /@session@/\'s queue,-indicating that /@session@/ is done with it. See-'GI.Soup.Objects.Session.Session'::@/request_queued/@ for a detailed description of the-message lifecycle within a session.--/Since: 2.24/--}-type SessionRequestUnqueuedCallback =-    Soup.Message.Message-    {- ^ /@msg@/: the request that was unqueued -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `SessionRequestUnqueuedCallback`@.-noSessionRequestUnqueuedCallback :: Maybe SessionRequestUnqueuedCallback-noSessionRequestUnqueuedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_SessionRequestUnqueuedCallback =-    Ptr () ->                               -- object-    Ptr Soup.Message.Message ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_SessionRequestUnqueuedCallback`.-foreign import ccall "wrapper"-    mk_SessionRequestUnqueuedCallback :: C_SessionRequestUnqueuedCallback -> IO (FunPtr C_SessionRequestUnqueuedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_SessionRequestUnqueued :: MonadIO m => SessionRequestUnqueuedCallback -> m (GClosure C_SessionRequestUnqueuedCallback)-genClosure_SessionRequestUnqueued cb = liftIO $ do-    let cb' = wrap_SessionRequestUnqueuedCallback cb-    mk_SessionRequestUnqueuedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `SessionRequestUnqueuedCallback` into a `C_SessionRequestUnqueuedCallback`.-wrap_SessionRequestUnqueuedCallback ::-    SessionRequestUnqueuedCallback ->-    C_SessionRequestUnqueuedCallback-wrap_SessionRequestUnqueuedCallback _cb _ msg _ = do-    msg' <- (newObject Soup.Message.Message) msg-    _cb  msg'---{- |-Connect a signal handler for the “@request-unqueued@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' session #requestUnqueued callback-@--}-onSessionRequestUnqueued :: (IsSession a, MonadIO m) => a -> SessionRequestUnqueuedCallback -> m SignalHandlerId-onSessionRequestUnqueued obj cb = liftIO $ do-    let cb' = wrap_SessionRequestUnqueuedCallback cb-    cb'' <- mk_SessionRequestUnqueuedCallback cb'-    connectSignalFunPtr obj "request-unqueued" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@request-unqueued@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' session #requestUnqueued callback-@--}-afterSessionRequestUnqueued :: (IsSession a, MonadIO m) => a -> SessionRequestUnqueuedCallback -> m SignalHandlerId-afterSessionRequestUnqueued obj cb = liftIO $ do-    let cb' = wrap_SessionRequestUnqueuedCallback cb-    cb'' <- mk_SessionRequestUnqueuedCallback cb'-    connectSignalFunPtr obj "request-unqueued" cb'' SignalConnectAfter----- signal Session::tunneling-{- |-Emitted when an SSL tunnel is being created on a proxy-connection. This is an internal signal intended only to be-used for debugging purposes, and may go away in the future.--/Since: 2.30/--}-type SessionTunnelingCallback =-    GObject.Object.Object-    {- ^ /@connection@/: the connection -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `SessionTunnelingCallback`@.-noSessionTunnelingCallback :: Maybe SessionTunnelingCallback-noSessionTunnelingCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_SessionTunnelingCallback =-    Ptr () ->                               -- object-    Ptr GObject.Object.Object ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_SessionTunnelingCallback`.-foreign import ccall "wrapper"-    mk_SessionTunnelingCallback :: C_SessionTunnelingCallback -> IO (FunPtr C_SessionTunnelingCallback)---- | Wrap the callback into a `GClosure`.-genClosure_SessionTunneling :: MonadIO m => SessionTunnelingCallback -> m (GClosure C_SessionTunnelingCallback)-genClosure_SessionTunneling cb = liftIO $ do-    let cb' = wrap_SessionTunnelingCallback cb-    mk_SessionTunnelingCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `SessionTunnelingCallback` into a `C_SessionTunnelingCallback`.-wrap_SessionTunnelingCallback ::-    SessionTunnelingCallback ->-    C_SessionTunnelingCallback-wrap_SessionTunnelingCallback _cb _ connection _ = do-    connection' <- (newObject GObject.Object.Object) connection-    _cb  connection'---{- |-Connect a signal handler for the “@tunneling@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' session #tunneling callback-@--}-onSessionTunneling :: (IsSession a, MonadIO m) => a -> SessionTunnelingCallback -> m SignalHandlerId-onSessionTunneling obj cb = liftIO $ do-    let cb' = wrap_SessionTunnelingCallback cb-    cb'' <- mk_SessionTunnelingCallback cb'-    connectSignalFunPtr obj "tunneling" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@tunneling@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' session #tunneling callback-@--}-afterSessionTunneling :: (IsSession a, MonadIO m) => a -> SessionTunnelingCallback -> m SignalHandlerId-afterSessionTunneling obj cb = liftIO $ do-    let cb' = wrap_SessionTunnelingCallback cb-    cb'' <- mk_SessionTunnelingCallback cb'-    connectSignalFunPtr obj "tunneling" cb'' SignalConnectAfter----- VVV Prop "accept-language"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@accept-language@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' session #acceptLanguage-@--}-getSessionAcceptLanguage :: (MonadIO m, IsSession o) => o -> m (Maybe T.Text)-getSessionAcceptLanguage obj = liftIO $ B.Properties.getObjectPropertyString obj "accept-language"--{- |-Set the value of the “@accept-language@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' session [ #acceptLanguage 'Data.GI.Base.Attributes.:=' value ]-@--}-setSessionAcceptLanguage :: (MonadIO m, IsSession o) => o -> T.Text -> m ()-setSessionAcceptLanguage obj val = liftIO $ B.Properties.setObjectPropertyString obj "accept-language" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@accept-language@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSessionAcceptLanguage :: (IsSession o) => T.Text -> IO (GValueConstruct o)-constructSessionAcceptLanguage val = B.Properties.constructObjectPropertyString "accept-language" (Just val)--{- |-Set the value of the “@accept-language@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #acceptLanguage-@--}-clearSessionAcceptLanguage :: (MonadIO m, IsSession o) => o -> m ()-clearSessionAcceptLanguage obj = liftIO $ B.Properties.setObjectPropertyString obj "accept-language" (Nothing :: Maybe T.Text)--#if ENABLE_OVERLOADING-data SessionAcceptLanguagePropertyInfo-instance AttrInfo SessionAcceptLanguagePropertyInfo where-    type AttrAllowedOps SessionAcceptLanguagePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SessionAcceptLanguagePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint SessionAcceptLanguagePropertyInfo = IsSession-    type AttrGetType SessionAcceptLanguagePropertyInfo = (Maybe T.Text)-    type AttrLabel SessionAcceptLanguagePropertyInfo = "accept-language"-    type AttrOrigin SessionAcceptLanguagePropertyInfo = Session-    attrGet _ = getSessionAcceptLanguage-    attrSet _ = setSessionAcceptLanguage-    attrConstruct _ = constructSessionAcceptLanguage-    attrClear _ = clearSessionAcceptLanguage-#endif---- VVV Prop "accept-language-auto"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@accept-language-auto@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' session #acceptLanguageAuto-@--}-getSessionAcceptLanguageAuto :: (MonadIO m, IsSession o) => o -> m Bool-getSessionAcceptLanguageAuto obj = liftIO $ B.Properties.getObjectPropertyBool obj "accept-language-auto"--{- |-Set the value of the “@accept-language-auto@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' session [ #acceptLanguageAuto 'Data.GI.Base.Attributes.:=' value ]-@--}-setSessionAcceptLanguageAuto :: (MonadIO m, IsSession o) => o -> Bool -> m ()-setSessionAcceptLanguageAuto obj val = liftIO $ B.Properties.setObjectPropertyBool obj "accept-language-auto" val--{- |-Construct a `GValueConstruct` with valid value for the “@accept-language-auto@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSessionAcceptLanguageAuto :: (IsSession o) => Bool -> IO (GValueConstruct o)-constructSessionAcceptLanguageAuto val = B.Properties.constructObjectPropertyBool "accept-language-auto" val--#if ENABLE_OVERLOADING-data SessionAcceptLanguageAutoPropertyInfo-instance AttrInfo SessionAcceptLanguageAutoPropertyInfo where-    type AttrAllowedOps SessionAcceptLanguageAutoPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionAcceptLanguageAutoPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SessionAcceptLanguageAutoPropertyInfo = IsSession-    type AttrGetType SessionAcceptLanguageAutoPropertyInfo = Bool-    type AttrLabel SessionAcceptLanguageAutoPropertyInfo = "accept-language-auto"-    type AttrOrigin SessionAcceptLanguageAutoPropertyInfo = Session-    attrGet _ = getSessionAcceptLanguageAuto-    attrSet _ = setSessionAcceptLanguageAuto-    attrConstruct _ = constructSessionAcceptLanguageAuto-    attrClear _ = undefined-#endif---- VVV Prop "async-context"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@async-context@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' session #asyncContext-@--}-getSessionAsyncContext :: (MonadIO m, IsSession o) => o -> m (Ptr ())-getSessionAsyncContext obj = liftIO $ B.Properties.getObjectPropertyPtr obj "async-context"--{- |-Construct a `GValueConstruct` with valid value for the “@async-context@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSessionAsyncContext :: (IsSession o) => Ptr () -> IO (GValueConstruct o)-constructSessionAsyncContext val = B.Properties.constructObjectPropertyPtr "async-context" val--#if ENABLE_OVERLOADING-data SessionAsyncContextPropertyInfo-instance AttrInfo SessionAsyncContextPropertyInfo where-    type AttrAllowedOps SessionAsyncContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionAsyncContextPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint SessionAsyncContextPropertyInfo = IsSession-    type AttrGetType SessionAsyncContextPropertyInfo = (Ptr ())-    type AttrLabel SessionAsyncContextPropertyInfo = "async-context"-    type AttrOrigin SessionAsyncContextPropertyInfo = Session-    attrGet _ = getSessionAsyncContext-    attrSet _ = undefined-    attrConstruct _ = constructSessionAsyncContext-    attrClear _ = undefined-#endif---- VVV Prop "http-aliases"-   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@http-aliases@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' session #httpAliases-@--}-getSessionHttpAliases :: (MonadIO m, IsSession o) => o -> m (Maybe [T.Text])-getSessionHttpAliases obj = liftIO $ B.Properties.getObjectPropertyStringArray obj "http-aliases"--{- |-Set the value of the “@http-aliases@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' session [ #httpAliases 'Data.GI.Base.Attributes.:=' value ]-@--}-setSessionHttpAliases :: (MonadIO m, IsSession o) => o -> [T.Text] -> m ()-setSessionHttpAliases obj val = liftIO $ B.Properties.setObjectPropertyStringArray obj "http-aliases" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@http-aliases@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSessionHttpAliases :: (IsSession o) => [T.Text] -> IO (GValueConstruct o)-constructSessionHttpAliases val = B.Properties.constructObjectPropertyStringArray "http-aliases" (Just val)--{- |-Set the value of the “@http-aliases@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #httpAliases-@--}-clearSessionHttpAliases :: (MonadIO m, IsSession o) => o -> m ()-clearSessionHttpAliases obj = liftIO $ B.Properties.setObjectPropertyStringArray obj "http-aliases" (Nothing :: Maybe [T.Text])--#if ENABLE_OVERLOADING-data SessionHttpAliasesPropertyInfo-instance AttrInfo SessionHttpAliasesPropertyInfo where-    type AttrAllowedOps SessionHttpAliasesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SessionHttpAliasesPropertyInfo = (~) [T.Text]-    type AttrBaseTypeConstraint SessionHttpAliasesPropertyInfo = IsSession-    type AttrGetType SessionHttpAliasesPropertyInfo = (Maybe [T.Text])-    type AttrLabel SessionHttpAliasesPropertyInfo = "http-aliases"-    type AttrOrigin SessionHttpAliasesPropertyInfo = Session-    attrGet _ = getSessionHttpAliases-    attrSet _ = setSessionHttpAliases-    attrConstruct _ = constructSessionHttpAliases-    attrClear _ = clearSessionHttpAliases-#endif---- VVV Prop "https-aliases"-   -- Type: TCArray True (-1) (-1) (TBasicType TUTF8)-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@https-aliases@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' session #httpsAliases-@--}-getSessionHttpsAliases :: (MonadIO m, IsSession o) => o -> m (Maybe [T.Text])-getSessionHttpsAliases obj = liftIO $ B.Properties.getObjectPropertyStringArray obj "https-aliases"--{- |-Set the value of the “@https-aliases@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' session [ #httpsAliases 'Data.GI.Base.Attributes.:=' value ]-@--}-setSessionHttpsAliases :: (MonadIO m, IsSession o) => o -> [T.Text] -> m ()-setSessionHttpsAliases obj val = liftIO $ B.Properties.setObjectPropertyStringArray obj "https-aliases" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@https-aliases@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSessionHttpsAliases :: (IsSession o) => [T.Text] -> IO (GValueConstruct o)-constructSessionHttpsAliases val = B.Properties.constructObjectPropertyStringArray "https-aliases" (Just val)--{- |-Set the value of the “@https-aliases@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #httpsAliases-@--}-clearSessionHttpsAliases :: (MonadIO m, IsSession o) => o -> m ()-clearSessionHttpsAliases obj = liftIO $ B.Properties.setObjectPropertyStringArray obj "https-aliases" (Nothing :: Maybe [T.Text])--#if ENABLE_OVERLOADING-data SessionHttpsAliasesPropertyInfo-instance AttrInfo SessionHttpsAliasesPropertyInfo where-    type AttrAllowedOps SessionHttpsAliasesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SessionHttpsAliasesPropertyInfo = (~) [T.Text]-    type AttrBaseTypeConstraint SessionHttpsAliasesPropertyInfo = IsSession-    type AttrGetType SessionHttpsAliasesPropertyInfo = (Maybe [T.Text])-    type AttrLabel SessionHttpsAliasesPropertyInfo = "https-aliases"-    type AttrOrigin SessionHttpsAliasesPropertyInfo = Session-    attrGet _ = getSessionHttpsAliases-    attrSet _ = setSessionHttpsAliases-    attrConstruct _ = constructSessionHttpsAliases-    attrClear _ = clearSessionHttpsAliases-#endif---- VVV Prop "idle-timeout"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@idle-timeout@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' session #idleTimeout-@--}-getSessionIdleTimeout :: (MonadIO m, IsSession o) => o -> m Word32-getSessionIdleTimeout obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "idle-timeout"--{- |-Set the value of the “@idle-timeout@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' session [ #idleTimeout 'Data.GI.Base.Attributes.:=' value ]-@--}-setSessionIdleTimeout :: (MonadIO m, IsSession o) => o -> Word32 -> m ()-setSessionIdleTimeout obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "idle-timeout" val--{- |-Construct a `GValueConstruct` with valid value for the “@idle-timeout@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSessionIdleTimeout :: (IsSession o) => Word32 -> IO (GValueConstruct o)-constructSessionIdleTimeout val = B.Properties.constructObjectPropertyUInt32 "idle-timeout" val--#if ENABLE_OVERLOADING-data SessionIdleTimeoutPropertyInfo-instance AttrInfo SessionIdleTimeoutPropertyInfo where-    type AttrAllowedOps SessionIdleTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionIdleTimeoutPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint SessionIdleTimeoutPropertyInfo = IsSession-    type AttrGetType SessionIdleTimeoutPropertyInfo = Word32-    type AttrLabel SessionIdleTimeoutPropertyInfo = "idle-timeout"-    type AttrOrigin SessionIdleTimeoutPropertyInfo = Session-    attrGet _ = getSessionIdleTimeout-    attrSet _ = setSessionIdleTimeout-    attrConstruct _ = constructSessionIdleTimeout-    attrClear _ = undefined-#endif---- VVV Prop "local-address"-   -- Type: TInterface (Name {namespace = "Soup", name = "Address"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@local-address@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' session #localAddress-@--}-getSessionLocalAddress :: (MonadIO m, IsSession o) => o -> m (Maybe Soup.Address.Address)-getSessionLocalAddress obj = liftIO $ B.Properties.getObjectPropertyObject obj "local-address" Soup.Address.Address--{- |-Construct a `GValueConstruct` with valid value for the “@local-address@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSessionLocalAddress :: (IsSession o, Soup.Address.IsAddress a) => a -> IO (GValueConstruct o)-constructSessionLocalAddress val = B.Properties.constructObjectPropertyObject "local-address" (Just val)--#if ENABLE_OVERLOADING-data SessionLocalAddressPropertyInfo-instance AttrInfo SessionLocalAddressPropertyInfo where-    type AttrAllowedOps SessionLocalAddressPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SessionLocalAddressPropertyInfo = Soup.Address.IsAddress-    type AttrBaseTypeConstraint SessionLocalAddressPropertyInfo = IsSession-    type AttrGetType SessionLocalAddressPropertyInfo = (Maybe Soup.Address.Address)-    type AttrLabel SessionLocalAddressPropertyInfo = "local-address"-    type AttrOrigin SessionLocalAddressPropertyInfo = Session-    attrGet _ = getSessionLocalAddress-    attrSet _ = undefined-    attrConstruct _ = constructSessionLocalAddress-    attrClear _ = undefined-#endif---- VVV Prop "max-conns"-   -- Type: TBasicType TInt-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@max-conns@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' session #maxConns-@--}-getSessionMaxConns :: (MonadIO m, IsSession o) => o -> m Int32-getSessionMaxConns obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "max-conns"--{- |-Set the value of the “@max-conns@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' session [ #maxConns 'Data.GI.Base.Attributes.:=' value ]-@--}-setSessionMaxConns :: (MonadIO m, IsSession o) => o -> Int32 -> m ()-setSessionMaxConns obj val = liftIO $ B.Properties.setObjectPropertyInt32 obj "max-conns" val--{- |-Construct a `GValueConstruct` with valid value for the “@max-conns@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSessionMaxConns :: (IsSession o) => Int32 -> IO (GValueConstruct o)-constructSessionMaxConns val = B.Properties.constructObjectPropertyInt32 "max-conns" val--#if ENABLE_OVERLOADING-data SessionMaxConnsPropertyInfo-instance AttrInfo SessionMaxConnsPropertyInfo where-    type AttrAllowedOps SessionMaxConnsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionMaxConnsPropertyInfo = (~) Int32-    type AttrBaseTypeConstraint SessionMaxConnsPropertyInfo = IsSession-    type AttrGetType SessionMaxConnsPropertyInfo = Int32-    type AttrLabel SessionMaxConnsPropertyInfo = "max-conns"-    type AttrOrigin SessionMaxConnsPropertyInfo = Session-    attrGet _ = getSessionMaxConns-    attrSet _ = setSessionMaxConns-    attrConstruct _ = constructSessionMaxConns-    attrClear _ = undefined-#endif---- VVV Prop "max-conns-per-host"-   -- Type: TBasicType TInt-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@max-conns-per-host@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' session #maxConnsPerHost-@--}-getSessionMaxConnsPerHost :: (MonadIO m, IsSession o) => o -> m Int32-getSessionMaxConnsPerHost obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "max-conns-per-host"--{- |-Set the value of the “@max-conns-per-host@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' session [ #maxConnsPerHost 'Data.GI.Base.Attributes.:=' value ]-@--}-setSessionMaxConnsPerHost :: (MonadIO m, IsSession o) => o -> Int32 -> m ()-setSessionMaxConnsPerHost obj val = liftIO $ B.Properties.setObjectPropertyInt32 obj "max-conns-per-host" val--{- |-Construct a `GValueConstruct` with valid value for the “@max-conns-per-host@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSessionMaxConnsPerHost :: (IsSession o) => Int32 -> IO (GValueConstruct o)-constructSessionMaxConnsPerHost val = B.Properties.constructObjectPropertyInt32 "max-conns-per-host" val--#if ENABLE_OVERLOADING-data SessionMaxConnsPerHostPropertyInfo-instance AttrInfo SessionMaxConnsPerHostPropertyInfo where-    type AttrAllowedOps SessionMaxConnsPerHostPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionMaxConnsPerHostPropertyInfo = (~) Int32-    type AttrBaseTypeConstraint SessionMaxConnsPerHostPropertyInfo = IsSession-    type AttrGetType SessionMaxConnsPerHostPropertyInfo = Int32-    type AttrLabel SessionMaxConnsPerHostPropertyInfo = "max-conns-per-host"-    type AttrOrigin SessionMaxConnsPerHostPropertyInfo = Session-    attrGet _ = getSessionMaxConnsPerHost-    attrSet _ = setSessionMaxConnsPerHost-    attrConstruct _ = constructSessionMaxConnsPerHost-    attrClear _ = undefined-#endif---- VVV Prop "proxy-resolver"-   -- Type: TInterface (Name {namespace = "Gio", name = "ProxyResolver"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@proxy-resolver@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' session #proxyResolver-@--}-getSessionProxyResolver :: (MonadIO m, IsSession o) => o -> m (Maybe Gio.ProxyResolver.ProxyResolver)-getSessionProxyResolver obj = liftIO $ B.Properties.getObjectPropertyObject obj "proxy-resolver" Gio.ProxyResolver.ProxyResolver--{- |-Set the value of the “@proxy-resolver@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' session [ #proxyResolver 'Data.GI.Base.Attributes.:=' value ]-@--}-setSessionProxyResolver :: (MonadIO m, IsSession o, Gio.ProxyResolver.IsProxyResolver a) => o -> a -> m ()-setSessionProxyResolver obj val = liftIO $ B.Properties.setObjectPropertyObject obj "proxy-resolver" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@proxy-resolver@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSessionProxyResolver :: (IsSession o, Gio.ProxyResolver.IsProxyResolver a) => a -> IO (GValueConstruct o)-constructSessionProxyResolver val = B.Properties.constructObjectPropertyObject "proxy-resolver" (Just val)--{- |-Set the value of the “@proxy-resolver@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #proxyResolver-@--}-clearSessionProxyResolver :: (MonadIO m, IsSession o) => o -> m ()-clearSessionProxyResolver obj = liftIO $ B.Properties.setObjectPropertyObject obj "proxy-resolver" (Nothing :: Maybe Gio.ProxyResolver.ProxyResolver)--#if ENABLE_OVERLOADING-data SessionProxyResolverPropertyInfo-instance AttrInfo SessionProxyResolverPropertyInfo where-    type AttrAllowedOps SessionProxyResolverPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SessionProxyResolverPropertyInfo = Gio.ProxyResolver.IsProxyResolver-    type AttrBaseTypeConstraint SessionProxyResolverPropertyInfo = IsSession-    type AttrGetType SessionProxyResolverPropertyInfo = (Maybe Gio.ProxyResolver.ProxyResolver)-    type AttrLabel SessionProxyResolverPropertyInfo = "proxy-resolver"-    type AttrOrigin SessionProxyResolverPropertyInfo = Session-    attrGet _ = getSessionProxyResolver-    attrSet _ = setSessionProxyResolver-    attrConstruct _ = constructSessionProxyResolver-    attrClear _ = clearSessionProxyResolver-#endif---- VVV Prop "proxy-uri"-   -- Type: TInterface (Name {namespace = "Soup", name = "URI"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@proxy-uri@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' session #proxyUri-@--}-getSessionProxyUri :: (MonadIO m, IsSession o) => o -> m (Maybe Soup.URI.URI)-getSessionProxyUri obj = liftIO $ B.Properties.getObjectPropertyBoxed obj "proxy-uri" Soup.URI.URI--{- |-Set the value of the “@proxy-uri@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' session [ #proxyUri 'Data.GI.Base.Attributes.:=' value ]-@--}-setSessionProxyUri :: (MonadIO m, IsSession o) => o -> Soup.URI.URI -> m ()-setSessionProxyUri obj val = liftIO $ B.Properties.setObjectPropertyBoxed obj "proxy-uri" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@proxy-uri@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSessionProxyUri :: (IsSession o) => Soup.URI.URI -> IO (GValueConstruct o)-constructSessionProxyUri val = B.Properties.constructObjectPropertyBoxed "proxy-uri" (Just val)--{- |-Set the value of the “@proxy-uri@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #proxyUri-@--}-clearSessionProxyUri :: (MonadIO m, IsSession o) => o -> m ()-clearSessionProxyUri obj = liftIO $ B.Properties.setObjectPropertyBoxed obj "proxy-uri" (Nothing :: Maybe Soup.URI.URI)--#if ENABLE_OVERLOADING-data SessionProxyUriPropertyInfo-instance AttrInfo SessionProxyUriPropertyInfo where-    type AttrAllowedOps SessionProxyUriPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SessionProxyUriPropertyInfo = (~) Soup.URI.URI-    type AttrBaseTypeConstraint SessionProxyUriPropertyInfo = IsSession-    type AttrGetType SessionProxyUriPropertyInfo = (Maybe Soup.URI.URI)-    type AttrLabel SessionProxyUriPropertyInfo = "proxy-uri"-    type AttrOrigin SessionProxyUriPropertyInfo = Session-    attrGet _ = getSessionProxyUri-    attrSet _ = setSessionProxyUri-    attrConstruct _ = constructSessionProxyUri-    attrClear _ = clearSessionProxyUri-#endif---- VVV Prop "ssl-ca-file"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@ssl-ca-file@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' session #sslCaFile-@--}-getSessionSslCaFile :: (MonadIO m, IsSession o) => o -> m (Maybe T.Text)-getSessionSslCaFile obj = liftIO $ B.Properties.getObjectPropertyString obj "ssl-ca-file"--{- |-Set the value of the “@ssl-ca-file@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' session [ #sslCaFile 'Data.GI.Base.Attributes.:=' value ]-@--}-setSessionSslCaFile :: (MonadIO m, IsSession o) => o -> T.Text -> m ()-setSessionSslCaFile obj val = liftIO $ B.Properties.setObjectPropertyString obj "ssl-ca-file" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@ssl-ca-file@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSessionSslCaFile :: (IsSession o) => T.Text -> IO (GValueConstruct o)-constructSessionSslCaFile val = B.Properties.constructObjectPropertyString "ssl-ca-file" (Just val)--{- |-Set the value of the “@ssl-ca-file@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #sslCaFile-@--}-clearSessionSslCaFile :: (MonadIO m, IsSession o) => o -> m ()-clearSessionSslCaFile obj = liftIO $ B.Properties.setObjectPropertyString obj "ssl-ca-file" (Nothing :: Maybe T.Text)--#if ENABLE_OVERLOADING-data SessionSslCaFilePropertyInfo-instance AttrInfo SessionSslCaFilePropertyInfo where-    type AttrAllowedOps SessionSslCaFilePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SessionSslCaFilePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint SessionSslCaFilePropertyInfo = IsSession-    type AttrGetType SessionSslCaFilePropertyInfo = (Maybe T.Text)-    type AttrLabel SessionSslCaFilePropertyInfo = "ssl-ca-file"-    type AttrOrigin SessionSslCaFilePropertyInfo = Session-    attrGet _ = getSessionSslCaFile-    attrSet _ = setSessionSslCaFile-    attrConstruct _ = constructSessionSslCaFile-    attrClear _ = clearSessionSslCaFile-#endif---- VVV Prop "ssl-strict"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@ssl-strict@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' session #sslStrict-@--}-getSessionSslStrict :: (MonadIO m, IsSession o) => o -> m Bool-getSessionSslStrict obj = liftIO $ B.Properties.getObjectPropertyBool obj "ssl-strict"--{- |-Set the value of the “@ssl-strict@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' session [ #sslStrict 'Data.GI.Base.Attributes.:=' value ]-@--}-setSessionSslStrict :: (MonadIO m, IsSession o) => o -> Bool -> m ()-setSessionSslStrict obj val = liftIO $ B.Properties.setObjectPropertyBool obj "ssl-strict" val--{- |-Construct a `GValueConstruct` with valid value for the “@ssl-strict@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSessionSslStrict :: (IsSession o) => Bool -> IO (GValueConstruct o)-constructSessionSslStrict val = B.Properties.constructObjectPropertyBool "ssl-strict" val--#if ENABLE_OVERLOADING-data SessionSslStrictPropertyInfo-instance AttrInfo SessionSslStrictPropertyInfo where-    type AttrAllowedOps SessionSslStrictPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionSslStrictPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SessionSslStrictPropertyInfo = IsSession-    type AttrGetType SessionSslStrictPropertyInfo = Bool-    type AttrLabel SessionSslStrictPropertyInfo = "ssl-strict"-    type AttrOrigin SessionSslStrictPropertyInfo = Session-    attrGet _ = getSessionSslStrict-    attrSet _ = setSessionSslStrict-    attrConstruct _ = constructSessionSslStrict-    attrClear _ = undefined-#endif---- VVV Prop "ssl-use-system-ca-file"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@ssl-use-system-ca-file@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' session #sslUseSystemCaFile-@--}-getSessionSslUseSystemCaFile :: (MonadIO m, IsSession o) => o -> m Bool-getSessionSslUseSystemCaFile obj = liftIO $ B.Properties.getObjectPropertyBool obj "ssl-use-system-ca-file"--{- |-Set the value of the “@ssl-use-system-ca-file@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' session [ #sslUseSystemCaFile 'Data.GI.Base.Attributes.:=' value ]-@--}-setSessionSslUseSystemCaFile :: (MonadIO m, IsSession o) => o -> Bool -> m ()-setSessionSslUseSystemCaFile obj val = liftIO $ B.Properties.setObjectPropertyBool obj "ssl-use-system-ca-file" val--{- |-Construct a `GValueConstruct` with valid value for the “@ssl-use-system-ca-file@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSessionSslUseSystemCaFile :: (IsSession o) => Bool -> IO (GValueConstruct o)-constructSessionSslUseSystemCaFile val = B.Properties.constructObjectPropertyBool "ssl-use-system-ca-file" val--#if ENABLE_OVERLOADING-data SessionSslUseSystemCaFilePropertyInfo-instance AttrInfo SessionSslUseSystemCaFilePropertyInfo where-    type AttrAllowedOps SessionSslUseSystemCaFilePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionSslUseSystemCaFilePropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SessionSslUseSystemCaFilePropertyInfo = IsSession-    type AttrGetType SessionSslUseSystemCaFilePropertyInfo = Bool-    type AttrLabel SessionSslUseSystemCaFilePropertyInfo = "ssl-use-system-ca-file"-    type AttrOrigin SessionSslUseSystemCaFilePropertyInfo = Session-    attrGet _ = getSessionSslUseSystemCaFile-    attrSet _ = setSessionSslUseSystemCaFile-    attrConstruct _ = constructSessionSslUseSystemCaFile-    attrClear _ = undefined-#endif---- VVV Prop "timeout"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@timeout@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' session #timeout-@--}-getSessionTimeout :: (MonadIO m, IsSession o) => o -> m Word32-getSessionTimeout obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "timeout"--{- |-Set the value of the “@timeout@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' session [ #timeout 'Data.GI.Base.Attributes.:=' value ]-@--}-setSessionTimeout :: (MonadIO m, IsSession o) => o -> Word32 -> m ()-setSessionTimeout obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "timeout" val--{- |-Construct a `GValueConstruct` with valid value for the “@timeout@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSessionTimeout :: (IsSession o) => Word32 -> IO (GValueConstruct o)-constructSessionTimeout val = B.Properties.constructObjectPropertyUInt32 "timeout" val--#if ENABLE_OVERLOADING-data SessionTimeoutPropertyInfo-instance AttrInfo SessionTimeoutPropertyInfo where-    type AttrAllowedOps SessionTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionTimeoutPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint SessionTimeoutPropertyInfo = IsSession-    type AttrGetType SessionTimeoutPropertyInfo = Word32-    type AttrLabel SessionTimeoutPropertyInfo = "timeout"-    type AttrOrigin SessionTimeoutPropertyInfo = Session-    attrGet _ = getSessionTimeout-    attrSet _ = setSessionTimeout-    attrConstruct _ = constructSessionTimeout-    attrClear _ = undefined-#endif---- VVV Prop "tls-database"-   -- Type: TInterface (Name {namespace = "Gio", name = "TlsDatabase"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@tls-database@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' session #tlsDatabase-@--}-getSessionTlsDatabase :: (MonadIO m, IsSession o) => o -> m (Maybe Gio.TlsDatabase.TlsDatabase)-getSessionTlsDatabase obj = liftIO $ B.Properties.getObjectPropertyObject obj "tls-database" Gio.TlsDatabase.TlsDatabase--{- |-Set the value of the “@tls-database@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' session [ #tlsDatabase 'Data.GI.Base.Attributes.:=' value ]-@--}-setSessionTlsDatabase :: (MonadIO m, IsSession o, Gio.TlsDatabase.IsTlsDatabase a) => o -> a -> m ()-setSessionTlsDatabase obj val = liftIO $ B.Properties.setObjectPropertyObject obj "tls-database" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@tls-database@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSessionTlsDatabase :: (IsSession o, Gio.TlsDatabase.IsTlsDatabase a) => a -> IO (GValueConstruct o)-constructSessionTlsDatabase val = B.Properties.constructObjectPropertyObject "tls-database" (Just val)--{- |-Set the value of the “@tls-database@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #tlsDatabase-@--}-clearSessionTlsDatabase :: (MonadIO m, IsSession o) => o -> m ()-clearSessionTlsDatabase obj = liftIO $ B.Properties.setObjectPropertyObject obj "tls-database" (Nothing :: Maybe Gio.TlsDatabase.TlsDatabase)--#if ENABLE_OVERLOADING-data SessionTlsDatabasePropertyInfo-instance AttrInfo SessionTlsDatabasePropertyInfo where-    type AttrAllowedOps SessionTlsDatabasePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SessionTlsDatabasePropertyInfo = Gio.TlsDatabase.IsTlsDatabase-    type AttrBaseTypeConstraint SessionTlsDatabasePropertyInfo = IsSession-    type AttrGetType SessionTlsDatabasePropertyInfo = (Maybe Gio.TlsDatabase.TlsDatabase)-    type AttrLabel SessionTlsDatabasePropertyInfo = "tls-database"-    type AttrOrigin SessionTlsDatabasePropertyInfo = Session-    attrGet _ = getSessionTlsDatabase-    attrSet _ = setSessionTlsDatabase-    attrConstruct _ = constructSessionTlsDatabase-    attrClear _ = clearSessionTlsDatabase-#endif---- VVV Prop "tls-interaction"-   -- Type: TInterface (Name {namespace = "Gio", name = "TlsInteraction"})-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@tls-interaction@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' session #tlsInteraction-@--}-getSessionTlsInteraction :: (MonadIO m, IsSession o) => o -> m (Maybe Gio.TlsInteraction.TlsInteraction)-getSessionTlsInteraction obj = liftIO $ B.Properties.getObjectPropertyObject obj "tls-interaction" Gio.TlsInteraction.TlsInteraction--{- |-Set the value of the “@tls-interaction@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' session [ #tlsInteraction 'Data.GI.Base.Attributes.:=' value ]-@--}-setSessionTlsInteraction :: (MonadIO m, IsSession o, Gio.TlsInteraction.IsTlsInteraction a) => o -> a -> m ()-setSessionTlsInteraction obj val = liftIO $ B.Properties.setObjectPropertyObject obj "tls-interaction" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@tls-interaction@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSessionTlsInteraction :: (IsSession o, Gio.TlsInteraction.IsTlsInteraction a) => a -> IO (GValueConstruct o)-constructSessionTlsInteraction val = B.Properties.constructObjectPropertyObject "tls-interaction" (Just val)--{- |-Set the value of the “@tls-interaction@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #tlsInteraction-@--}-clearSessionTlsInteraction :: (MonadIO m, IsSession o) => o -> m ()-clearSessionTlsInteraction obj = liftIO $ B.Properties.setObjectPropertyObject obj "tls-interaction" (Nothing :: Maybe Gio.TlsInteraction.TlsInteraction)--#if ENABLE_OVERLOADING-data SessionTlsInteractionPropertyInfo-instance AttrInfo SessionTlsInteractionPropertyInfo where-    type AttrAllowedOps SessionTlsInteractionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SessionTlsInteractionPropertyInfo = Gio.TlsInteraction.IsTlsInteraction-    type AttrBaseTypeConstraint SessionTlsInteractionPropertyInfo = IsSession-    type AttrGetType SessionTlsInteractionPropertyInfo = (Maybe Gio.TlsInteraction.TlsInteraction)-    type AttrLabel SessionTlsInteractionPropertyInfo = "tls-interaction"-    type AttrOrigin SessionTlsInteractionPropertyInfo = Session-    attrGet _ = getSessionTlsInteraction-    attrSet _ = setSessionTlsInteraction-    attrConstruct _ = constructSessionTlsInteraction-    attrClear _ = clearSessionTlsInteraction-#endif---- VVV Prop "use-ntlm"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@use-ntlm@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' session #useNtlm-@--}-getSessionUseNtlm :: (MonadIO m, IsSession o) => o -> m Bool-getSessionUseNtlm obj = liftIO $ B.Properties.getObjectPropertyBool obj "use-ntlm"--{- |-Set the value of the “@use-ntlm@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' session [ #useNtlm 'Data.GI.Base.Attributes.:=' value ]-@--}-setSessionUseNtlm :: (MonadIO m, IsSession o) => o -> Bool -> m ()-setSessionUseNtlm obj val = liftIO $ B.Properties.setObjectPropertyBool obj "use-ntlm" val--{- |-Construct a `GValueConstruct` with valid value for the “@use-ntlm@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSessionUseNtlm :: (IsSession o) => Bool -> IO (GValueConstruct o)-constructSessionUseNtlm val = B.Properties.constructObjectPropertyBool "use-ntlm" val--#if ENABLE_OVERLOADING-data SessionUseNtlmPropertyInfo-instance AttrInfo SessionUseNtlmPropertyInfo where-    type AttrAllowedOps SessionUseNtlmPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionUseNtlmPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SessionUseNtlmPropertyInfo = IsSession-    type AttrGetType SessionUseNtlmPropertyInfo = Bool-    type AttrLabel SessionUseNtlmPropertyInfo = "use-ntlm"-    type AttrOrigin SessionUseNtlmPropertyInfo = Session-    attrGet _ = getSessionUseNtlm-    attrSet _ = setSessionUseNtlm-    attrConstruct _ = constructSessionUseNtlm-    attrClear _ = undefined-#endif---- VVV Prop "use-thread-context"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@use-thread-context@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' session #useThreadContext-@--}-getSessionUseThreadContext :: (MonadIO m, IsSession o) => o -> m Bool-getSessionUseThreadContext obj = liftIO $ B.Properties.getObjectPropertyBool obj "use-thread-context"--{- |-Set the value of the “@use-thread-context@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' session [ #useThreadContext 'Data.GI.Base.Attributes.:=' value ]-@--}-setSessionUseThreadContext :: (MonadIO m, IsSession o) => o -> Bool -> m ()-setSessionUseThreadContext obj val = liftIO $ B.Properties.setObjectPropertyBool obj "use-thread-context" val--{- |-Construct a `GValueConstruct` with valid value for the “@use-thread-context@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSessionUseThreadContext :: (IsSession o) => Bool -> IO (GValueConstruct o)-constructSessionUseThreadContext val = B.Properties.constructObjectPropertyBool "use-thread-context" val--#if ENABLE_OVERLOADING-data SessionUseThreadContextPropertyInfo-instance AttrInfo SessionUseThreadContextPropertyInfo where-    type AttrAllowedOps SessionUseThreadContextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SessionUseThreadContextPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SessionUseThreadContextPropertyInfo = IsSession-    type AttrGetType SessionUseThreadContextPropertyInfo = Bool-    type AttrLabel SessionUseThreadContextPropertyInfo = "use-thread-context"-    type AttrOrigin SessionUseThreadContextPropertyInfo = Session-    attrGet _ = getSessionUseThreadContext-    attrSet _ = setSessionUseThreadContext-    attrConstruct _ = constructSessionUseThreadContext-    attrClear _ = undefined-#endif---- VVV Prop "user-agent"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@user-agent@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' session #userAgent-@--}-getSessionUserAgent :: (MonadIO m, IsSession o) => o -> m (Maybe T.Text)-getSessionUserAgent obj = liftIO $ B.Properties.getObjectPropertyString obj "user-agent"--{- |-Set the value of the “@user-agent@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' session [ #userAgent 'Data.GI.Base.Attributes.:=' value ]-@--}-setSessionUserAgent :: (MonadIO m, IsSession o) => o -> T.Text -> m ()-setSessionUserAgent obj val = liftIO $ B.Properties.setObjectPropertyString obj "user-agent" (Just val)--{- |-Construct a `GValueConstruct` with valid value for the “@user-agent@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSessionUserAgent :: (IsSession o) => T.Text -> IO (GValueConstruct o)-constructSessionUserAgent val = B.Properties.constructObjectPropertyString "user-agent" (Just val)--{- |-Set the value of the “@user-agent@” property to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #userAgent-@--}-clearSessionUserAgent :: (MonadIO m, IsSession o) => o -> m ()-clearSessionUserAgent obj = liftIO $ B.Properties.setObjectPropertyString obj "user-agent" (Nothing :: Maybe T.Text)--#if ENABLE_OVERLOADING-data SessionUserAgentPropertyInfo-instance AttrInfo SessionUserAgentPropertyInfo where-    type AttrAllowedOps SessionUserAgentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SessionUserAgentPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint SessionUserAgentPropertyInfo = IsSession-    type AttrGetType SessionUserAgentPropertyInfo = (Maybe T.Text)-    type AttrLabel SessionUserAgentPropertyInfo = "user-agent"-    type AttrOrigin SessionUserAgentPropertyInfo = Session-    attrGet _ = getSessionUserAgent-    attrSet _ = setSessionUserAgent-    attrConstruct _ = constructSessionUserAgent-    attrClear _ = clearSessionUserAgent-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList Session-type instance O.AttributeList Session = SessionAttributeList-type SessionAttributeList = ('[ '("acceptLanguage", SessionAcceptLanguagePropertyInfo), '("acceptLanguageAuto", SessionAcceptLanguageAutoPropertyInfo), '("asyncContext", SessionAsyncContextPropertyInfo), '("httpAliases", SessionHttpAliasesPropertyInfo), '("httpsAliases", SessionHttpsAliasesPropertyInfo), '("idleTimeout", SessionIdleTimeoutPropertyInfo), '("localAddress", SessionLocalAddressPropertyInfo), '("maxConns", SessionMaxConnsPropertyInfo), '("maxConnsPerHost", SessionMaxConnsPerHostPropertyInfo), '("proxyResolver", SessionProxyResolverPropertyInfo), '("proxyUri", SessionProxyUriPropertyInfo), '("sslCaFile", SessionSslCaFilePropertyInfo), '("sslStrict", SessionSslStrictPropertyInfo), '("sslUseSystemCaFile", SessionSslUseSystemCaFilePropertyInfo), '("timeout", SessionTimeoutPropertyInfo), '("tlsDatabase", SessionTlsDatabasePropertyInfo), '("tlsInteraction", SessionTlsInteractionPropertyInfo), '("useNtlm", SessionUseNtlmPropertyInfo), '("useThreadContext", SessionUseThreadContextPropertyInfo), '("userAgent", SessionUserAgentPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-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--#endif--#if ENABLE_OVERLOADING-data SessionAuthenticateSignalInfo-instance SignalInfo SessionAuthenticateSignalInfo where-    type HaskellCallbackType SessionAuthenticateSignalInfo = SessionAuthenticateCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_SessionAuthenticateCallback cb-        cb'' <- mk_SessionAuthenticateCallback cb'-        connectSignalFunPtr obj "authenticate" cb'' connectMode--data SessionConnectionCreatedSignalInfo-instance SignalInfo SessionConnectionCreatedSignalInfo where-    type HaskellCallbackType SessionConnectionCreatedSignalInfo = SessionConnectionCreatedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_SessionConnectionCreatedCallback cb-        cb'' <- mk_SessionConnectionCreatedCallback cb'-        connectSignalFunPtr obj "connection-created" cb'' connectMode--data SessionRequestQueuedSignalInfo-instance SignalInfo SessionRequestQueuedSignalInfo where-    type HaskellCallbackType SessionRequestQueuedSignalInfo = SessionRequestQueuedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_SessionRequestQueuedCallback cb-        cb'' <- mk_SessionRequestQueuedCallback cb'-        connectSignalFunPtr obj "request-queued" cb'' connectMode--data SessionRequestStartedSignalInfo-instance SignalInfo SessionRequestStartedSignalInfo where-    type HaskellCallbackType SessionRequestStartedSignalInfo = SessionRequestStartedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_SessionRequestStartedCallback cb-        cb'' <- mk_SessionRequestStartedCallback cb'-        connectSignalFunPtr obj "request-started" cb'' connectMode--data SessionRequestUnqueuedSignalInfo-instance SignalInfo SessionRequestUnqueuedSignalInfo where-    type HaskellCallbackType SessionRequestUnqueuedSignalInfo = SessionRequestUnqueuedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_SessionRequestUnqueuedCallback cb-        cb'' <- mk_SessionRequestUnqueuedCallback cb'-        connectSignalFunPtr obj "request-unqueued" cb'' connectMode--data SessionTunnelingSignalInfo-instance SignalInfo SessionTunnelingSignalInfo where-    type HaskellCallbackType SessionTunnelingSignalInfo = SessionTunnelingCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_SessionTunnelingCallback cb-        cb'' <- mk_SessionTunnelingCallback cb'-        connectSignalFunPtr obj "tunneling" cb'' connectMode--type instance O.SignalList Session = SessionSignalList-type SessionSignalList = ('[ '("authenticate", SessionAuthenticateSignalInfo), '("connectionCreated", SessionConnectionCreatedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("requestQueued", SessionRequestQueuedSignalInfo), '("requestStarted", SessionRequestStartedSignalInfo), '("requestUnqueued", SessionRequestUnqueuedSignalInfo), '("tunneling", SessionTunnelingSignalInfo)] :: [(Symbol, *)])--#endif---- method Session::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Session"}))--- throws : False--- Skip return : False--foreign import ccall "soup_session_new" soup_session_new :: -    IO (Ptr Session)--{- |-Creates a 'GI.Soup.Objects.Session.Session' with the default options.--/Since: 2.42/--}-sessionNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m Session-    {- ^ __Returns:__ the new session. -}-sessionNew  = liftIO $ do-    result <- soup_session_new-    checkUnexpectedReturnNULL "sessionNew" result-    result' <- (wrapObject Session) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method Session::abort--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the session", sinceVersion = Nothing}, 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 ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    IO ()--{- |-Cancels all pending requests in /@session@/ and closes all idle-persistent connections.--The message cancellation has the same semantics as with-'GI.Soup.Objects.Session.sessionCancelMessage'; asynchronous requests on a-'GI.Soup.Objects.SessionAsync.SessionAsync' will have their callback called before-'GI.Soup.Objects.Session.sessionAbort' returns. Requests on a plain 'GI.Soup.Objects.Session.Session' will-not.--}-sessionAbort ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a) =>-    a-    {- ^ /@session@/: the session -}-    -> m ()-sessionAbort session = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    soup_session_abort session'-    touchManagedPtr session-    return ()--#if ENABLE_OVERLOADING-data SessionAbortMethodInfo-instance (signature ~ (m ()), MonadIO m, IsSession a) => O.MethodInfo SessionAbortMethodInfo a signature where-    overloadedMethod _ = sessionAbort--#endif---- method Session::add_feature--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature", argType = TInterface (Name {namespace = "Soup", name = "SessionFeature"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an object that implements #SoupSessionFeature", sinceVersion = Nothing}, 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 ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    Ptr Soup.SessionFeature.SessionFeature -> -- feature : TInterface (Name {namespace = "Soup", name = "SessionFeature"})-    IO ()--{- |-Adds /@feature@/\'s functionality to /@session@/. You can also add a-feature to the session at construct time by using the-@/SOUP_SESSION_ADD_FEATURE/@ property.--See the main 'GI.Soup.Objects.Session.Session' documentation for information on what-features are present in sessions by default.--/Since: 2.24/--}-sessionAddFeature ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a, Soup.SessionFeature.IsSessionFeature b) =>-    a-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> b-    {- ^ /@feature@/: an object that implements 'GI.Soup.Interfaces.SessionFeature.SessionFeature' -}-    -> m ()-sessionAddFeature session feature = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    feature' <- unsafeManagedPtrCastPtr feature-    soup_session_add_feature session' feature'-    touchManagedPtr session-    touchManagedPtr feature-    return ()--#if ENABLE_OVERLOADING-data SessionAddFeatureMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsSession a, Soup.SessionFeature.IsSessionFeature b) => O.MethodInfo SessionAddFeatureMethodInfo a signature where-    overloadedMethod _ = sessionAddFeature--#endif---- method Session::add_feature_by_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GType", sinceVersion = Nothing}, 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 ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    CGType ->                               -- feature_type : TBasicType TGType-    IO ()--{- |-If /@featureType@/ is the type of a class that implements-'GI.Soup.Interfaces.SessionFeature.SessionFeature', this creates a new feature of that type and-adds it to /@session@/ as with 'GI.Soup.Objects.Session.sessionAddFeature'. You can use-this when you don\'t need to customize the new feature in any way.--If /@featureType@/ is not a 'GI.Soup.Interfaces.SessionFeature.SessionFeature' type, this gives each-existing feature on /@session@/ the chance to accept /@featureType@/ as-a \"subfeature\". This can be used to add new 'GI.Soup.Objects.Auth.Auth' or-'GI.Soup.Objects.Request.Request' types, for instance.--You can also add a feature to the session at construct time by-using the @/SOUP_SESSION_ADD_FEATURE_BY_TYPE/@ property.--See the main 'GI.Soup.Objects.Session.Session' documentation for information on what-features are present in sessions by default.--/Since: 2.24/--}-sessionAddFeatureByType ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a) =>-    a-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> GType-    {- ^ /@featureType@/: a 'GType' -}-    -> m ()-sessionAddFeatureByType session featureType = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    let featureType' = gtypeToCGType featureType-    soup_session_add_feature_by_type session' featureType'-    touchManagedPtr session-    return ()--#if ENABLE_OVERLOADING-data SessionAddFeatureByTypeMethodInfo-instance (signature ~ (GType -> m ()), MonadIO m, IsSession a) => O.MethodInfo SessionAddFeatureByTypeMethodInfo a signature where-    overloadedMethod _ = sessionAddFeatureByType--#endif---- method Session::cancel_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the message to cancel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "status_code", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "status code to set on @msg (generally\n%SOUP_STATUS_CANCELLED)", sinceVersion = Nothing}, 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 ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    Word32 ->                               -- status_code : TBasicType TUInt-    IO ()--{- |-Causes /@session@/ to immediately finish processing /@msg@/ (regardless-of its current state) with a final status_code of /@statusCode@/. You-may call this at any time after handing /@msg@/ off to /@session@/; if-/@session@/ has started sending the request but has not yet received-the complete response, then it will close the request\'s connection.-Note that with requests that have side effects (eg,-\<literal>POST\<\/literal>, \<literal>PUT\<\/literal>,-\<literal>DELETE\<\/literal>) it is possible that you might cancel the-request after the server acts on it, but before it returns a-response, leaving the remote resource in an unknown state.--If the message is cancelled while its response body is being read,-then the response body in /@msg@/ will be left partially-filled-in.-The response headers, on the other hand, will always be either-empty or complete.--Beware that with the deprecated 'GI.Soup.Objects.SessionAsync.SessionAsync', messages queued-with 'GI.Soup.Objects.Session.sessionQueueMessage' will have their callbacks invoked-before 'GI.Soup.Objects.Session.sessionCancelMessage' returns. The plain-'GI.Soup.Objects.Session.Session' does not have this behavior; cancelling an-asynchronous message will merely queue its callback to be run after-returning to the main loop.--}-sessionCancelMessage ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a, Soup.Message.IsMessage b) =>-    a-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> b-    {- ^ /@msg@/: the message to cancel -}-    -> Word32-    {- ^ /@statusCode@/: status code to set on /@msg@/ (generally-'GI.Soup.Enums.StatusCancelled') -}-    -> m ()-sessionCancelMessage session msg statusCode = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    msg' <- unsafeManagedPtrCastPtr msg-    soup_session_cancel_message session' msg' statusCode-    touchManagedPtr session-    touchManagedPtr msg-    return ()--#if ENABLE_OVERLOADING-data SessionCancelMessageMethodInfo-instance (signature ~ (b -> Word32 -> m ()), MonadIO m, IsSession a, Soup.Message.IsMessage b) => O.MethodInfo SessionCancelMessageMethodInfo a signature where-    overloadedMethod _ = sessionCancelMessage--#endif---- method Session::connect_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI to connect to", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "progress_callback", argType = TInterface (Name {namespace = "Soup", name = "SessionConnectProgressCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #SoupSessionConnectProgressCallback which\nwill be called for every network event that occurs during the connection.", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the callback to invoke when the operation finishes", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 5, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data for @progress_callback and @callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_session_connect_async" soup_session_connect_async :: -    Ptr Session ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    Ptr Soup.URI.URI ->                     -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    FunPtr Soup.Callbacks.C_SessionConnectProgressCallback -> -- progress_callback : TInterface (Name {namespace = "Soup", name = "SessionConnectProgressCallback"})-    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()--{- |-Start a connection to /@uri@/. The operation can be monitored by providing a /@progressCallback@/-and finishes when the connection is done or an error ocurred.--Call 'GI.Soup.Objects.Session.sessionConnectFinish' to get the 'GI.Gio.Objects.IOStream.IOStream' to communicate with the server.--/Since: 2.62/--}-sessionConnectAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> Soup.URI.URI-    {- ^ /@uri@/: a 'GI.Soup.Structs.URI.URI' to connect to -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' -}-    -> Maybe (Soup.Callbacks.SessionConnectProgressCallback)-    {- ^ /@progressCallback@/: a 'GI.Soup.Callbacks.SessionConnectProgressCallback' which-will be called for every network event that occurs during the connection. -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: the callback to invoke when the operation finishes -}-    -> m ()-sessionConnectAsync session uri cancellable progressCallback callback = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    uri' <- unsafeManagedPtrGetPtr uri-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    maybeProgressCallback <- case progressCallback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jProgressCallback -> do-            ptrprogressCallback <- callocMem :: IO (Ptr (FunPtr Soup.Callbacks.C_SessionConnectProgressCallback))-            jProgressCallback' <- Soup.Callbacks.mk_SessionConnectProgressCallback (Soup.Callbacks.wrap_SessionConnectProgressCallback (Just ptrprogressCallback) (Soup.Callbacks.drop_closures_SessionConnectProgressCallback jProgressCallback))-            poke ptrprogressCallback jProgressCallback'-            return jProgressCallback'-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))-            jCallback' <- Gio.Callbacks.mk_AsyncReadyCallback (Gio.Callbacks.wrap_AsyncReadyCallback (Just ptrcallback) (Gio.Callbacks.drop_closures_AsyncReadyCallback jCallback))-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    soup_session_connect_async session' uri' maybeCancellable maybeProgressCallback maybeCallback userData-    touchManagedPtr session-    touchManagedPtr uri-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data SessionConnectAsyncMethodInfo-instance (signature ~ (Soup.URI.URI -> Maybe (b) -> Maybe (Soup.Callbacks.SessionConnectProgressCallback) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsSession a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SessionConnectAsyncMethodInfo a signature where-    overloadedMethod _ = sessionConnectAsync--#endif---- method Session::connect_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GAsyncResult passed to your callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "IOStream"}))--- throws : True--- Skip return : False--foreign import ccall "soup_session_connect_finish" soup_session_connect_finish :: -    Ptr Session ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.IOStream.IOStream)--{- |-Gets the 'GI.Gio.Objects.IOStream.IOStream' created for the connection to communicate with the server.--/Since: 2.62/--}-sessionConnectFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> b-    {- ^ /@result@/: the 'GI.Gio.Interfaces.AsyncResult.AsyncResult' passed to your callback -}-    -> m Gio.IOStream.IOStream-    {- ^ __Returns:__ a new 'GI.Gio.Objects.IOStream.IOStream', or 'Nothing' on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-sessionConnectFinish session result_ = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ soup_session_connect_finish session' result_'-        checkUnexpectedReturnNULL "sessionConnectFinish" result-        result' <- (wrapObject Gio.IOStream.IOStream) result-        touchManagedPtr session-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SessionConnectFinishMethodInfo-instance (signature ~ (b -> m Gio.IOStream.IOStream), MonadIO m, IsSession a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo SessionConnectFinishMethodInfo a signature where-    overloadedMethod _ = sessionConnectFinish--#endif---- method Session::get_async_context--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GLib", name = "MainContext"}))--- throws : False--- Skip return : False--foreign import ccall "soup_session_get_async_context" soup_session_get_async_context :: -    Ptr Session ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    IO (Ptr GLib.MainContext.MainContext)--{- |-Gets /@session@/\'s 'GI.Soup.Objects.Session.Session':@/async-context/@. This does not add a ref-to the context, so you will need to ref it yourself if you want it-to outlive its session.--For a modern 'GI.Soup.Objects.Session.Session', this will always just return the-thread-default 'GI.GLib.Structs.MainContext.MainContext', and so is not especially useful.--}-sessionGetAsyncContext ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a) =>-    a-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> m (Maybe GLib.MainContext.MainContext)-    {- ^ __Returns:__ /@session@/\'s 'GI.GLib.Structs.MainContext.MainContext',-which may be 'Nothing' -}-sessionGetAsyncContext session = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    result <- soup_session_get_async_context session'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newBoxed GLib.MainContext.MainContext) result'-        return result''-    touchManagedPtr session-    return maybeResult--#if ENABLE_OVERLOADING-data SessionGetAsyncContextMethodInfo-instance (signature ~ (m (Maybe GLib.MainContext.MainContext)), MonadIO m, IsSession a) => O.MethodInfo SessionGetAsyncContextMethodInfo a signature where-    overloadedMethod _ = sessionGetAsyncContext--#endif---- method Session::get_feature--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GType of the feature to get", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "SessionFeature"}))--- throws : False--- Skip return : False--foreign import ccall "soup_session_get_feature" soup_session_get_feature :: -    Ptr Session ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    CGType ->                               -- feature_type : TBasicType TGType-    IO (Ptr Soup.SessionFeature.SessionFeature)--{- |-Gets the first feature in /@session@/ of type /@featureType@/. For-features where there may be more than one feature of a given type,-use 'GI.Soup.Objects.Session.sessionGetFeatures'.--/Since: 2.26/--}-sessionGetFeature ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a) =>-    a-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> GType-    {- ^ /@featureType@/: the 'GType' of the feature to get -}-    -> m (Maybe Soup.SessionFeature.SessionFeature)-    {- ^ __Returns:__ a 'GI.Soup.Interfaces.SessionFeature.SessionFeature', or-'Nothing'. The feature is owned by /@session@/. -}-sessionGetFeature session featureType = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    let featureType' = gtypeToCGType featureType-    result <- soup_session_get_feature session' featureType'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Soup.SessionFeature.SessionFeature) result'-        return result''-    touchManagedPtr session-    return maybeResult--#if ENABLE_OVERLOADING-data SessionGetFeatureMethodInfo-instance (signature ~ (GType -> m (Maybe Soup.SessionFeature.SessionFeature)), MonadIO m, IsSession a) => O.MethodInfo SessionGetFeatureMethodInfo a signature where-    overloadedMethod _ = sessionGetFeature--#endif---- method Session::get_feature_for_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GType of the feature to get", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "SessionFeature"}))--- throws : False--- Skip return : False--foreign import ccall "soup_session_get_feature_for_message" soup_session_get_feature_for_message :: -    Ptr Session ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    CGType ->                               -- feature_type : TBasicType TGType-    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO (Ptr Soup.SessionFeature.SessionFeature)--{- |-Gets the first feature in /@session@/ of type /@featureType@/, provided-that it is not disabled for /@msg@/. As with-'GI.Soup.Objects.Session.sessionGetFeature', this should only be used for features-where /@featureType@/ is only expected to match a single feature. In-particular, if there are two matching features, and the first is-disabled on /@msg@/, and the second is not, then this will return-'Nothing', not the second feature.--/Since: 2.28/--}-sessionGetFeatureForMessage ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a, Soup.Message.IsMessage b) =>-    a-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> GType-    {- ^ /@featureType@/: the 'GType' of the feature to get -}-    -> b-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> m (Maybe Soup.SessionFeature.SessionFeature)-    {- ^ __Returns:__ a 'GI.Soup.Interfaces.SessionFeature.SessionFeature', or 'Nothing'. The-feature is owned by /@session@/. -}-sessionGetFeatureForMessage session featureType msg = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    let featureType' = gtypeToCGType featureType-    msg' <- unsafeManagedPtrCastPtr msg-    result <- soup_session_get_feature_for_message session' featureType' msg'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Soup.SessionFeature.SessionFeature) result'-        return result''-    touchManagedPtr session-    touchManagedPtr msg-    return maybeResult--#if ENABLE_OVERLOADING-data SessionGetFeatureForMessageMethodInfo-instance (signature ~ (GType -> b -> m (Maybe Soup.SessionFeature.SessionFeature)), MonadIO m, IsSession a, Soup.Message.IsMessage b) => O.MethodInfo SessionGetFeatureForMessageMethodInfo a signature where-    overloadedMethod _ = sessionGetFeatureForMessage--#endif---- method Session::get_features--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GType of the class of features to get", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGSList (TInterface (Name {namespace = "Soup", name = "SessionFeature"})))--- throws : False--- Skip return : False--foreign import ccall "soup_session_get_features" soup_session_get_features :: -    Ptr Session ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    CGType ->                               -- feature_type : TBasicType TGType-    IO (Ptr (GSList (Ptr Soup.SessionFeature.SessionFeature)))--{- |-Generates a list of /@session@/\'s features of type /@featureType@/. (If-you want to see all features, you can pass @/SOUP_TYPE_SESSION_FEATURE/@-for /@featureType@/.)--/Since: 2.26/--}-sessionGetFeatures ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a) =>-    a-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> GType-    {- ^ /@featureType@/: the 'GType' of the class of features to get -}-    -> m [Soup.SessionFeature.SessionFeature]-    {- ^ __Returns:__ -a list of features. You must free the list, but not its contents -}-sessionGetFeatures session featureType = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    let featureType' = gtypeToCGType featureType-    result <- soup_session_get_features session' featureType'-    result' <- unpackGSList result-    result'' <- mapM (newObject Soup.SessionFeature.SessionFeature) result'-    g_slist_free result-    touchManagedPtr session-    return result''--#if ENABLE_OVERLOADING-data SessionGetFeaturesMethodInfo-instance (signature ~ (GType -> m [Soup.SessionFeature.SessionFeature]), MonadIO m, IsSession a) => O.MethodInfo SessionGetFeaturesMethodInfo a signature where-    overloadedMethod _ = sessionGetFeatures--#endif---- method Session::has_feature--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GType of the class of features to check for", sinceVersion = Nothing}, 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 ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    CGType ->                               -- feature_type : TBasicType TGType-    IO CInt--{- |-Tests if /@session@/ has at a feature of type /@featureType@/ (which can-be the type of either a 'GI.Soup.Interfaces.SessionFeature.SessionFeature', or else a subtype of-some class managed by another feature, such as 'GI.Soup.Objects.Auth.Auth' or-'GI.Soup.Objects.Request.Request').--/Since: 2.42/--}-sessionHasFeature ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a) =>-    a-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> GType-    {- ^ /@featureType@/: the 'GType' of the class of features to check for -}-    -> m Bool-    {- ^ __Returns:__ 'True' or 'False' -}-sessionHasFeature session featureType = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    let featureType' = gtypeToCGType featureType-    result <- soup_session_has_feature session' featureType'-    let result' = (/= 0) result-    touchManagedPtr session-    return result'--#if ENABLE_OVERLOADING-data SessionHasFeatureMethodInfo-instance (signature ~ (GType -> m Bool), MonadIO m, IsSession a) => O.MethodInfo SessionHasFeatureMethodInfo a signature where-    overloadedMethod _ = sessionHasFeature--#endif---- method Session::pause_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage currently running on @session", sinceVersion = Nothing}, 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 ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO ()--{- |-Pauses HTTP I\/O on /@msg@/. Call 'GI.Soup.Objects.Session.sessionUnpauseMessage' to-resume I\/O.--This may only be called for asynchronous messages (those sent on a-'GI.Soup.Objects.SessionAsync.SessionAsync' or using 'GI.Soup.Objects.Session.sessionQueueMessage').--}-sessionPauseMessage ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a, Soup.Message.IsMessage b) =>-    a-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> b-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' currently running on /@session@/ -}-    -> m ()-sessionPauseMessage session msg = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    msg' <- unsafeManagedPtrCastPtr msg-    soup_session_pause_message session' msg'-    touchManagedPtr session-    touchManagedPtr msg-    return ()--#if ENABLE_OVERLOADING-data SessionPauseMessageMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsSession a, Soup.Message.IsMessage b) => O.MethodInfo SessionPauseMessageMethodInfo a signature where-    overloadedMethod _ = sessionPauseMessage--#endif---- method Session::prefetch_dns--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hostname", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a hostname to be resolved", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable object, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Soup", name = "AddressCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "callback to call with the\n    result, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data for @callback", sinceVersion = Nothing}, 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 ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    CString ->                              -- hostname : TBasicType TUTF8-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    FunPtr Soup.Callbacks.C_AddressCallback -> -- callback : TInterface (Name {namespace = "Soup", name = "AddressCallback"})-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()--{- |-Tells /@session@/ that an URI from the given /@hostname@/ may be requested-shortly, and so the session can try to prepare by resolving the-domain name in advance, in order to work more quickly once the URI-is actually requested.--If /@cancellable@/ is non-'Nothing', it can be used to cancel the-resolution. /@callback@/ will still be invoked in this case, with a-status of 'GI.Soup.Enums.StatusCancelled'.--/Since: 2.38/--}-sessionPrefetchDns ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> T.Text-    {- ^ /@hostname@/: a hostname to be resolved -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' object, or 'Nothing' -}-    -> Maybe (Soup.Callbacks.AddressCallback)-    {- ^ /@callback@/: callback to call with the-    result, or 'Nothing' -}-    -> m ()-sessionPrefetchDns session hostname cancellable callback = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    hostname' <- textToCString hostname-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            ptrcallback <- callocMem :: IO (Ptr (FunPtr Soup.Callbacks.C_AddressCallback))-            jCallback' <- Soup.Callbacks.mk_AddressCallback (Soup.Callbacks.wrap_AddressCallback (Just ptrcallback) (Soup.Callbacks.drop_closures_AddressCallback jCallback))-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    soup_session_prefetch_dns session' hostname' maybeCancellable maybeCallback userData-    touchManagedPtr session-    whenJust cancellable touchManagedPtr-    freeMem hostname'-    return ()--#if ENABLE_OVERLOADING-data SessionPrefetchDnsMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> Maybe (Soup.Callbacks.AddressCallback) -> m ()), MonadIO m, IsSession a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SessionPrefetchDnsMethodInfo a signature where-    overloadedMethod _ = sessionPrefetchDns--#endif---- method Session::prepare_for_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI which may be required", sinceVersion = Nothing}, 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 ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    Ptr Soup.URI.URI ->                     -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    IO ()--{-# DEPRECATED sessionPrepareForUri ["(Since version 2.38)","use 'GI.Soup.Objects.Session.sessionPrefetchDns' instead"] #-}-{- |-Tells /@session@/ that /@uri@/ may be requested shortly, and so the-session can try to prepare (resolving the domain name, obtaining-proxy address, etc.) in order to work more quickly once the URI is-actually requested.--/Since: 2.30/--}-sessionPrepareForUri ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a) =>-    a-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> Soup.URI.URI-    {- ^ /@uri@/: a 'GI.Soup.Structs.URI.URI' which may be required -}-    -> m ()-sessionPrepareForUri session uri = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    uri' <- unsafeManagedPtrGetPtr uri-    soup_session_prepare_for_uri session' uri'-    touchManagedPtr session-    touchManagedPtr uri-    return ()--#if ENABLE_OVERLOADING-data SessionPrepareForUriMethodInfo-instance (signature ~ (Soup.URI.URI -> m ()), MonadIO m, IsSession a) => O.MethodInfo SessionPrepareForUriMethodInfo a signature where-    overloadedMethod _ = sessionPrepareForUri--#endif---- method Session::queue_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the message to queue", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Soup", name = "SessionCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #SoupSessionCallback which will\nbe called after the message completes or when an unrecoverable error occurs.", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a pointer passed to @callback.", sinceVersion = Nothing}, 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 ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    FunPtr Soup.Callbacks.C_SessionCallback -> -- callback : TInterface (Name {namespace = "Soup", name = "SessionCallback"})-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()--{- |-Queues the message /@msg@/ for asynchronously sending the request and-receiving a response in the current thread-default 'GI.GLib.Structs.MainContext.MainContext'.-If /@msg@/ has been processed before, any resources related to the-time it was last sent are freed.--Upon message completion, the callback specified in /@callback@/ will-be invoked. If after returning from this callback the message has not-been requeued, /@msg@/ will be unreffed.--(The behavior above applies to a plain 'GI.Soup.Objects.Session.Session'; if you are-using 'GI.Soup.Objects.SessionAsync.SessionAsync' or 'GI.Soup.Objects.SessionSync.SessionSync', then the 'GI.GLib.Structs.MainContext.MainContext'-that is used depends on the settings of 'GI.Soup.Objects.Session.Session':@/async-context/@-and 'GI.Soup.Objects.Session.Session':@/use-thread-context/@, and for 'GI.Soup.Objects.SessionSync.SessionSync', the-message will actually be sent and processed in another thread, with-only the final callback occurring in the indicated 'GI.GLib.Structs.MainContext.MainContext'.)--Contrast this method with 'GI.Soup.Objects.Session.sessionSendAsync', which also-asynchronously sends a message, but returns before reading the-response body, and allows you to read the response via a-'GI.Gio.Objects.InputStream.InputStream'.--}-sessionQueueMessage ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a, Soup.Message.IsMessage b) =>-    a-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> b-    {- ^ /@msg@/: the message to queue -}-    -> Maybe (Soup.Callbacks.SessionCallback)-    {- ^ /@callback@/: a 'GI.Soup.Callbacks.SessionCallback' which will-be called after the message completes or when an unrecoverable error occurs. -}-    -> m ()-sessionQueueMessage session msg callback = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    msg' <- B.ManagedPtr.disownObject msg-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            ptrcallback <- callocMem :: IO (Ptr (FunPtr Soup.Callbacks.C_SessionCallback))-            jCallback' <- Soup.Callbacks.mk_SessionCallback (Soup.Callbacks.wrap_SessionCallback (Just ptrcallback) (Soup.Callbacks.drop_closures_SessionCallback jCallback))-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    soup_session_queue_message session' msg' maybeCallback userData-    touchManagedPtr session-    touchManagedPtr msg-    return ()--#if ENABLE_OVERLOADING-data SessionQueueMessageMethodInfo-instance (signature ~ (b -> Maybe (Soup.Callbacks.SessionCallback) -> m ()), MonadIO m, IsSession a, Soup.Message.IsMessage b) => O.MethodInfo SessionQueueMessageMethodInfo a signature where-    overloadedMethod _ = sessionQueueMessage--#endif---- method Session::redirect_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the session", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage that has received a 3xx response", sinceVersion = Nothing}, 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 ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO CInt--{- |-Updates /@msg@/\'s URI according to its status code and \"Location\"-header, and requeues it on /@session@/. Use this when you have set-'GI.Soup.Flags.MessageFlagsNoRedirect' on a message, but have decided to allow a-particular redirection to occur, or if you want to allow a-redirection that 'GI.Soup.Objects.Session.Session' will not perform automatically (eg,-redirecting a non-safe method such as DELETE).--If /@msg@/\'s status code indicates that it should be retried as a GET-request, then /@msg@/ will be modified accordingly.--If /@msg@/ has already been redirected too many times, this will-cause it to fail with 'GI.Soup.Enums.StatusTooManyRedirects'.--/Since: 2.38/--}-sessionRedirectMessage ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a, Soup.Message.IsMessage b) =>-    a-    {- ^ /@session@/: the session -}-    -> b-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' that has received a 3xx response -}-    -> m Bool-    {- ^ __Returns:__ 'True' if a redirection was applied, 'False' if not-(eg, because there was no Location header, or it could not be-parsed). -}-sessionRedirectMessage session msg = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    msg' <- unsafeManagedPtrCastPtr msg-    result <- soup_session_redirect_message session' msg'-    let result' = (/= 0) result-    touchManagedPtr session-    touchManagedPtr msg-    return result'--#if ENABLE_OVERLOADING-data SessionRedirectMessageMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, IsSession a, Soup.Message.IsMessage b) => O.MethodInfo SessionRedirectMessageMethodInfo a signature where-    overloadedMethod _ = sessionRedirectMessage--#endif---- method Session::remove_feature--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature", argType = TInterface (Name {namespace = "Soup", name = "SessionFeature"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a feature that has previously been added to @session", sinceVersion = Nothing}, 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 ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    Ptr Soup.SessionFeature.SessionFeature -> -- feature : TInterface (Name {namespace = "Soup", name = "SessionFeature"})-    IO ()--{- |-Removes /@feature@/\'s functionality from /@session@/.--/Since: 2.24/--}-sessionRemoveFeature ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a, Soup.SessionFeature.IsSessionFeature b) =>-    a-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> b-    {- ^ /@feature@/: a feature that has previously been added to /@session@/ -}-    -> m ()-sessionRemoveFeature session feature = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    feature' <- unsafeManagedPtrCastPtr feature-    soup_session_remove_feature session' feature'-    touchManagedPtr session-    touchManagedPtr feature-    return ()--#if ENABLE_OVERLOADING-data SessionRemoveFeatureMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsSession a, Soup.SessionFeature.IsSessionFeature b) => O.MethodInfo SessionRemoveFeatureMethodInfo a signature where-    overloadedMethod _ = sessionRemoveFeature--#endif---- method Session::remove_feature_by_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "feature_type", argType = TBasicType TGType, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GType", sinceVersion = Nothing}, 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 ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    CGType ->                               -- feature_type : TBasicType TGType-    IO ()--{- |-Removes all features of type /@featureType@/ (or any subclass of-/@featureType@/) from /@session@/. You can also remove standard features-from the session at construct time by using the-@/SOUP_SESSION_REMOVE_FEATURE_BY_TYPE/@ property.--/Since: 2.24/--}-sessionRemoveFeatureByType ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a) =>-    a-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> GType-    {- ^ /@featureType@/: a 'GType' -}-    -> m ()-sessionRemoveFeatureByType session featureType = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    let featureType' = gtypeToCGType featureType-    soup_session_remove_feature_by_type session' featureType'-    touchManagedPtr session-    return ()--#if ENABLE_OVERLOADING-data SessionRemoveFeatureByTypeMethodInfo-instance (signature ~ (GType -> m ()), MonadIO m, IsSession a) => O.MethodInfo SessionRemoveFeatureByTypeMethodInfo a signature where-    overloadedMethod _ = sessionRemoveFeatureByType--#endif---- method Session::request--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a URI, in string form", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Request"}))--- throws : True--- Skip return : False--foreign import ccall "soup_session_request" soup_session_request :: -    Ptr Session ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    CString ->                              -- uri_string : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Soup.Request.Request)--{- |-Creates a 'GI.Soup.Objects.Request.Request' for retrieving /@uriString@/.--/Since: 2.42/--}-sessionRequest ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a) =>-    a-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> T.Text-    {- ^ /@uriString@/: a URI, in string form -}-    -> m Soup.Request.Request-    {- ^ __Returns:__ a new 'GI.Soup.Objects.Request.Request', or-  'Nothing' on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-sessionRequest session uriString = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    uriString' <- textToCString uriString-    onException (do-        result <- propagateGError $ soup_session_request session' uriString'-        checkUnexpectedReturnNULL "sessionRequest" result-        result' <- (wrapObject Soup.Request.Request) result-        touchManagedPtr session-        freeMem uriString'-        return result'-     ) (do-        freeMem uriString'-     )--#if ENABLE_OVERLOADING-data SessionRequestMethodInfo-instance (signature ~ (T.Text -> m Soup.Request.Request), MonadIO m, IsSession a) => O.MethodInfo SessionRequestMethodInfo a signature where-    overloadedMethod _ = sessionRequest--#endif---- method Session::request_http--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an HTTP method", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a URI, in string form", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "RequestHTTP"}))--- throws : True--- Skip return : False--foreign import ccall "soup_session_request_http" soup_session_request_http :: -    Ptr Session ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    CString ->                              -- method : TBasicType TUTF8-    CString ->                              -- uri_string : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Soup.RequestHTTP.RequestHTTP)--{- |-Creates a 'GI.Soup.Objects.Request.Request' for retrieving /@uriString@/, which must be an-\"http\" or \"https\" URI (or another protocol listed in /@session@/\'s-'GI.Soup.Objects.Session.Session':@/http-aliases/@ or 'GI.Soup.Objects.Session.Session':@/https-aliases/@).--/Since: 2.42/--}-sessionRequestHttp ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a) =>-    a-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> T.Text-    {- ^ /@method@/: an HTTP method -}-    -> T.Text-    {- ^ /@uriString@/: a URI, in string form -}-    -> m Soup.RequestHTTP.RequestHTTP-    {- ^ __Returns:__ a new 'GI.Soup.Objects.RequestHTTP.RequestHTTP', or-  'Nothing' on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-sessionRequestHttp session method uriString = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    method' <- textToCString method-    uriString' <- textToCString uriString-    onException (do-        result <- propagateGError $ soup_session_request_http session' method' uriString'-        checkUnexpectedReturnNULL "sessionRequestHttp" result-        result' <- (wrapObject Soup.RequestHTTP.RequestHTTP) result-        touchManagedPtr session-        freeMem method'-        freeMem uriString'-        return result'-     ) (do-        freeMem method'-        freeMem uriString'-     )--#if ENABLE_OVERLOADING-data SessionRequestHttpMethodInfo-instance (signature ~ (T.Text -> T.Text -> m Soup.RequestHTTP.RequestHTTP), MonadIO m, IsSession a) => O.MethodInfo SessionRequestHttpMethodInfo a signature where-    overloadedMethod _ = sessionRequestHttp--#endif---- method Session::request_http_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "method", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an HTTP method", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI representing the URI to retrieve", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "RequestHTTP"}))--- throws : True--- Skip return : False--foreign import ccall "soup_session_request_http_uri" soup_session_request_http_uri :: -    Ptr Session ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    CString ->                              -- method : TBasicType TUTF8-    Ptr Soup.URI.URI ->                     -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Soup.RequestHTTP.RequestHTTP)--{- |-Creates a 'GI.Soup.Objects.Request.Request' for retrieving /@uri@/, which must be an-\"http\" or \"https\" URI (or another protocol listed in /@session@/\'s-'GI.Soup.Objects.Session.Session':@/http-aliases/@ or 'GI.Soup.Objects.Session.Session':@/https-aliases/@).--/Since: 2.42/--}-sessionRequestHttpUri ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a) =>-    a-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> T.Text-    {- ^ /@method@/: an HTTP method -}-    -> Soup.URI.URI-    {- ^ /@uri@/: a 'GI.Soup.Structs.URI.URI' representing the URI to retrieve -}-    -> m Soup.RequestHTTP.RequestHTTP-    {- ^ __Returns:__ a new 'GI.Soup.Objects.RequestHTTP.RequestHTTP', or-  'Nothing' on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-sessionRequestHttpUri session method uri = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    method' <- textToCString method-    uri' <- unsafeManagedPtrGetPtr uri-    onException (do-        result <- propagateGError $ soup_session_request_http_uri session' method' uri'-        checkUnexpectedReturnNULL "sessionRequestHttpUri" result-        result' <- (wrapObject Soup.RequestHTTP.RequestHTTP) result-        touchManagedPtr session-        touchManagedPtr uri-        freeMem method'-        return result'-     ) (do-        freeMem method'-     )--#if ENABLE_OVERLOADING-data SessionRequestHttpUriMethodInfo-instance (signature ~ (T.Text -> Soup.URI.URI -> m Soup.RequestHTTP.RequestHTTP), MonadIO m, IsSession a) => O.MethodInfo SessionRequestHttpUriMethodInfo a signature where-    overloadedMethod _ = sessionRequestHttpUri--#endif---- method Session::request_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI representing the URI to retrieve", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Request"}))--- throws : True--- Skip return : False--foreign import ccall "soup_session_request_uri" soup_session_request_uri :: -    Ptr Session ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    Ptr Soup.URI.URI ->                     -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Soup.Request.Request)--{- |-Creates a 'GI.Soup.Objects.Request.Request' for retrieving /@uri@/.--/Since: 2.42/--}-sessionRequestUri ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a) =>-    a-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> Soup.URI.URI-    {- ^ /@uri@/: a 'GI.Soup.Structs.URI.URI' representing the URI to retrieve -}-    -> m Soup.Request.Request-    {- ^ __Returns:__ a new 'GI.Soup.Objects.Request.Request', or-  'Nothing' on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-sessionRequestUri session uri = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    uri' <- unsafeManagedPtrGetPtr uri-    onException (do-        result <- propagateGError $ soup_session_request_uri session' uri'-        checkUnexpectedReturnNULL "sessionRequestUri" result-        result' <- (wrapObject Soup.Request.Request) result-        touchManagedPtr session-        touchManagedPtr uri-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SessionRequestUriMethodInfo-instance (signature ~ (Soup.URI.URI -> m Soup.Request.Request), MonadIO m, IsSession a) => O.MethodInfo SessionRequestUriMethodInfo a signature where-    overloadedMethod _ = sessionRequestUri--#endif---- method Session::requeue_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the message to requeue", sinceVersion = Nothing}, 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 ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO ()--{- |-This causes /@msg@/ to be placed back on the queue to be attempted-again.--}-sessionRequeueMessage ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a, Soup.Message.IsMessage b) =>-    a-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> b-    {- ^ /@msg@/: the message to requeue -}-    -> m ()-sessionRequeueMessage session msg = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    msg' <- unsafeManagedPtrCastPtr msg-    soup_session_requeue_message session' msg'-    touchManagedPtr session-    touchManagedPtr msg-    return ()--#if ENABLE_OVERLOADING-data SessionRequeueMessageMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsSession a, Soup.Message.IsMessage b) => O.MethodInfo SessionRequeueMessageMethodInfo a signature where-    overloadedMethod _ = sessionRequeueMessage--#endif---- method Session::send--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "InputStream"}))--- throws : True--- Skip return : False--foreign import ccall "soup_session_send" soup_session_send :: -    Ptr Session ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.InputStream.InputStream)--{- |-Synchronously sends /@msg@/ and waits for the beginning of a response.-On success, a 'GI.Gio.Objects.InputStream.InputStream' will be returned which you can use to-read the response body. (\"Success\" here means only that an HTTP-response was received and understood; it does not necessarily mean-that a 2xx class status code was received.)--If non-'Nothing', /@cancellable@/ can be used to cancel the request;-'GI.Soup.Objects.Session.sessionSend' will return a 'GI.Gio.Enums.IOErrorEnumCancelled' error. Note-that with requests that have side effects (eg,-\<literal>POST\<\/literal>, \<literal>PUT\<\/literal>,-\<literal>DELETE\<\/literal>) it is possible that you might cancel the-request after the server acts on it, but before it returns a-response, leaving the remote resource in an unknown state.--If /@msg@/ is requeued due to a redirect or authentication, the-initial (3xx\/401\/407) response body will be suppressed, and-'GI.Soup.Objects.Session.sessionSend' will only return once a final response has been-received.--Contrast this method with 'GI.Soup.Objects.Session.sessionSendMessage', which also-synchronously sends a 'GI.Soup.Objects.Message.Message', but doesn\'t return until the-response has been completely read.--(Note that this method cannot be called on the deprecated-'GI.Soup.Objects.SessionAsync.SessionAsync' subclass.)--/Since: 2.42/--}-sessionSend ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a, Soup.Message.IsMessage b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> b-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> Maybe (c)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' -}-    -> m Gio.InputStream.InputStream-    {- ^ __Returns:__ a 'GI.Gio.Objects.InputStream.InputStream' for reading the-  response body, or 'Nothing' on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-sessionSend session msg cancellable = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    msg' <- unsafeManagedPtrCastPtr msg-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ soup_session_send session' msg' maybeCancellable-        checkUnexpectedReturnNULL "sessionSend" result-        result' <- (wrapObject Gio.InputStream.InputStream) result-        touchManagedPtr session-        touchManagedPtr msg-        whenJust cancellable touchManagedPtr-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SessionSendMethodInfo-instance (signature ~ (b -> Maybe (c) -> m Gio.InputStream.InputStream), MonadIO m, IsSession a, Soup.Message.IsMessage b, Gio.Cancellable.IsCancellable c) => O.MethodInfo SessionSendMethodInfo a signature where-    overloadedMethod _ = sessionSend--#endif---- method Session::send_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the callback to invoke", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 4, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data for @callback", sinceVersion = Nothing}, 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 ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()--{- |-Asynchronously sends /@msg@/ and waits for the beginning of a-response. When /@callback@/ is called, then either /@msg@/ has been sent,-and its response headers received, or else an error has occurred.-Call 'GI.Soup.Objects.Session.sessionSendFinish' to get a 'GI.Gio.Objects.InputStream.InputStream' for reading-the response body.--See 'GI.Soup.Objects.Session.sessionSend' for more details on the general semantics.--Contrast this method with 'GI.Soup.Objects.Session.sessionQueueMessage', which also-asynchronously sends a 'GI.Soup.Objects.Message.Message', but doesn\'t invoke its-callback until the response has been completely read.--(Note that this method cannot be called on the deprecated-'GI.Soup.Objects.SessionSync.SessionSync' subclass, and can only be called on-'GI.Soup.Objects.SessionAsync.SessionAsync' if you have set the-'GI.Soup.Objects.Session.Session':@/use-thread-context/@ property.)--/Since: 2.42/--}-sessionSendAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a, Soup.Message.IsMessage b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> b-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' -}-    -> Maybe (c)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: the callback to invoke -}-    -> m ()-sessionSendAsync session msg cancellable callback = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    msg' <- unsafeManagedPtrCastPtr msg-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))-            jCallback' <- Gio.Callbacks.mk_AsyncReadyCallback (Gio.Callbacks.wrap_AsyncReadyCallback (Just ptrcallback) (Gio.Callbacks.drop_closures_AsyncReadyCallback jCallback))-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    soup_session_send_async session' msg' maybeCancellable maybeCallback userData-    touchManagedPtr session-    touchManagedPtr msg-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data SessionSendAsyncMethodInfo-instance (signature ~ (b -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsSession a, Soup.Message.IsMessage b, Gio.Cancellable.IsCancellable c) => O.MethodInfo SessionSendAsyncMethodInfo a signature where-    overloadedMethod _ = sessionSendAsync--#endif---- method Session::send_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GAsyncResult passed to your callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "InputStream"}))--- throws : True--- Skip return : False--foreign import ccall "soup_session_send_finish" soup_session_send_finish :: -    Ptr Session ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Gio.InputStream.InputStream)--{- |-Gets the response to a 'GI.Soup.Objects.Session.sessionSendAsync' call and (if-successful), returns a 'GI.Gio.Objects.InputStream.InputStream' that can be used to read the-response body.--/Since: 2.42/--}-sessionSendFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> b-    {- ^ /@result@/: the 'GI.Gio.Interfaces.AsyncResult.AsyncResult' passed to your callback -}-    -> m Gio.InputStream.InputStream-    {- ^ __Returns:__ a 'GI.Gio.Objects.InputStream.InputStream' for reading the-  response body, or 'Nothing' on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-sessionSendFinish session result_ = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ soup_session_send_finish session' result_'-        checkUnexpectedReturnNULL "sessionSendFinish" result-        result' <- (wrapObject Gio.InputStream.InputStream) result-        touchManagedPtr session-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SessionSendFinishMethodInfo-instance (signature ~ (b -> m Gio.InputStream.InputStream), MonadIO m, IsSession a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo SessionSendFinishMethodInfo a signature where-    overloadedMethod _ = sessionSendFinish--#endif---- method Session::send_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the message to send", sinceVersion = Nothing}, 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 ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO Word32--{- |-Synchronously send /@msg@/. This call will not return until the-transfer is finished successfully or there is an unrecoverable-error.--Unlike with 'GI.Soup.Objects.Session.sessionQueueMessage', /@msg@/ is not freed upon-return.--(Note that if you call this method on a 'GI.Soup.Objects.SessionAsync.SessionAsync', it will-still use asynchronous I\/O internally, running the glib main loop-to process the message, which may also cause other events to be-processed.)--Contrast this method with 'GI.Soup.Objects.Session.sessionSend', which also-synchronously sends a message, but returns before reading the-response body, and allows you to read the response via a-'GI.Gio.Objects.InputStream.InputStream'.--}-sessionSendMessage ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a, Soup.Message.IsMessage b) =>-    a-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> b-    {- ^ /@msg@/: the message to send -}-    -> m Word32-    {- ^ __Returns:__ the HTTP status code of the response -}-sessionSendMessage session msg = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    msg' <- unsafeManagedPtrCastPtr msg-    result <- soup_session_send_message session' msg'-    touchManagedPtr session-    touchManagedPtr msg-    return result--#if ENABLE_OVERLOADING-data SessionSendMessageMethodInfo-instance (signature ~ (b -> m Word32), MonadIO m, IsSession a, Soup.Message.IsMessage b) => O.MethodInfo SessionSendMessageMethodInfo a signature where-    overloadedMethod _ = sessionSendMessage--#endif---- method Session::steal_connection--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the message whose connection is to be stolen", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "IOStream"}))--- throws : False--- Skip return : False--foreign import ccall "soup_session_steal_connection" soup_session_steal_connection :: -    Ptr Session ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO (Ptr Gio.IOStream.IOStream)--{- |-\"Steals\" the HTTP connection associated with /@msg@/ from /@session@/.-This happens immediately, regardless of the current state of the-connection, and /@msg@/\'s callback will not be called. You can steal-the connection from a 'GI.Soup.Objects.Message.Message' signal handler if you need to-wait for part or all of the response to be received first.--Calling this function may cause /@msg@/ to be freed if you are not-holding any other reference to it.--/Since: 2.50/--}-sessionStealConnection ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a, Soup.Message.IsMessage b) =>-    a-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> b-    {- ^ /@msg@/: the message whose connection is to be stolen -}-    -> m Gio.IOStream.IOStream-    {- ^ __Returns:__ the 'GI.Gio.Objects.IOStream.IOStream' formerly associated-  with /@msg@/ (or 'Nothing' if /@msg@/ was no longer associated with a-  connection). No guarantees are made about what kind of 'GI.Gio.Objects.IOStream.IOStream'-  is returned. -}-sessionStealConnection session msg = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    msg' <- unsafeManagedPtrCastPtr msg-    result <- soup_session_steal_connection session' msg'-    checkUnexpectedReturnNULL "sessionStealConnection" result-    result' <- (wrapObject Gio.IOStream.IOStream) result-    touchManagedPtr session-    touchManagedPtr msg-    return result'--#if ENABLE_OVERLOADING-data SessionStealConnectionMethodInfo-instance (signature ~ (b -> m Gio.IOStream.IOStream), MonadIO m, IsSession a, Soup.Message.IsMessage b) => O.MethodInfo SessionStealConnectionMethodInfo a signature where-    overloadedMethod _ = sessionStealConnection--#endif---- method Session::unpause_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage currently running on @session", sinceVersion = Nothing}, 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 ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO ()--{- |-Resumes HTTP I\/O on /@msg@/. Use this to resume after calling-'GI.Soup.Objects.Session.sessionPauseMessage'.--If /@msg@/ is being sent via blocking I\/O, this will resume reading or-writing immediately. If /@msg@/ is using non-blocking I\/O, then-reading or writing won\'t resume until you return to the main loop.--This may only be called for asynchronous messages (those sent on a-'GI.Soup.Objects.SessionAsync.SessionAsync' or using 'GI.Soup.Objects.Session.sessionQueueMessage').--}-sessionUnpauseMessage ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a, Soup.Message.IsMessage b) =>-    a-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> b-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' currently running on /@session@/ -}-    -> m ()-sessionUnpauseMessage session msg = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    msg' <- unsafeManagedPtrCastPtr msg-    soup_session_unpause_message session' msg'-    touchManagedPtr session-    touchManagedPtr msg-    return ()--#if ENABLE_OVERLOADING-data SessionUnpauseMessageMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, IsSession a, Soup.Message.IsMessage b) => O.MethodInfo SessionUnpauseMessageMethodInfo a signature where-    overloadedMethod _ = sessionUnpauseMessage--#endif---- method Session::websocket_connect_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "#SoupMessage indicating the WebSocket server to connect to", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "origin of the connection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocols", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a\n  %NULL-terminated array of protocols supported", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the callback to invoke", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 6, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data for @callback", sinceVersion = Nothing}, 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 ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    CString ->                              -- origin : TBasicType TUTF8-    Ptr CString ->                          -- protocols : TCArray True (-1) (-1) (TBasicType TUTF8)-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    FunPtr Gio.Callbacks.C_AsyncReadyCallback -> -- callback : TInterface (Name {namespace = "Gio", name = "AsyncReadyCallback"})-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()--{- |-Asynchronously creates a 'GI.Soup.Objects.WebsocketConnection.WebsocketConnection' to communicate-with a remote server.--All necessary WebSocket-related headers will be added to /@msg@/, and-it will then be sent and asynchronously processed normally-(including handling of redirection and HTTP authentication).--If the server returns \"101 Switching Protocols\", then /@msg@/\'s status-code and response headers will be updated, and then the WebSocket-handshake will be completed. On success,-'GI.Soup.Objects.Session.sessionWebsocketConnectFinish' will return a new-'GI.Soup.Objects.WebsocketConnection.WebsocketConnection'. On failure it will return a 'GError'.--If the server returns a status other than \"101 Switching-Protocols\", then /@msg@/ will contain the complete response headers-and body from the server\'s response, and-'GI.Soup.Objects.Session.sessionWebsocketConnectFinish' will return-'GI.Soup.Enums.WebsocketErrorNotWebsocket'.--/Since: 2.50/--}-sessionWebsocketConnectAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a, Soup.Message.IsMessage b, Gio.Cancellable.IsCancellable c) =>-    a-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> b-    {- ^ /@msg@/: 'GI.Soup.Objects.Message.Message' indicating the WebSocket server to connect to -}-    -> Maybe (T.Text)-    {- ^ /@origin@/: origin of the connection -}-    -> Maybe ([T.Text])-    {- ^ /@protocols@/: a-  'Nothing'-terminated array of protocols supported -}-    -> Maybe (c)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' -}-    -> Maybe (Gio.Callbacks.AsyncReadyCallback)-    {- ^ /@callback@/: the callback to invoke -}-    -> m ()-sessionWebsocketConnectAsync session msg origin protocols cancellable callback = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    msg' <- unsafeManagedPtrCastPtr msg-    maybeOrigin <- case origin of-        Nothing -> return nullPtr-        Just jOrigin -> do-            jOrigin' <- textToCString jOrigin-            return jOrigin'-    maybeProtocols <- case protocols of-        Nothing -> return nullPtr-        Just jProtocols -> do-            jProtocols' <- packZeroTerminatedUTF8CArray jProtocols-            return jProtocols'-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    maybeCallback <- case callback of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jCallback -> do-            ptrcallback <- callocMem :: IO (Ptr (FunPtr Gio.Callbacks.C_AsyncReadyCallback))-            jCallback' <- Gio.Callbacks.mk_AsyncReadyCallback (Gio.Callbacks.wrap_AsyncReadyCallback (Just ptrcallback) (Gio.Callbacks.drop_closures_AsyncReadyCallback jCallback))-            poke ptrcallback jCallback'-            return jCallback'-    let userData = nullPtr-    soup_session_websocket_connect_async session' msg' maybeOrigin maybeProtocols maybeCancellable maybeCallback userData-    touchManagedPtr session-    touchManagedPtr msg-    whenJust cancellable touchManagedPtr-    freeMem maybeOrigin-    mapZeroTerminatedCArray freeMem maybeProtocols-    freeMem maybeProtocols-    return ()--#if ENABLE_OVERLOADING-data SessionWebsocketConnectAsyncMethodInfo-instance (signature ~ (b -> Maybe (T.Text) -> Maybe ([T.Text]) -> Maybe (c) -> Maybe (Gio.Callbacks.AsyncReadyCallback) -> m ()), MonadIO m, IsSession a, Soup.Message.IsMessage b, Gio.Cancellable.IsCancellable c) => O.MethodInfo SessionWebsocketConnectAsyncMethodInfo a signature where-    overloadedMethod _ = sessionWebsocketConnectAsync--#endif---- method Session::websocket_connect_finish--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "result", argType = TInterface (Name {namespace = "Gio", name = "AsyncResult"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GAsyncResult passed to your callback", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "WebsocketConnection"}))--- throws : True--- Skip return : False--foreign import ccall "soup_session_websocket_connect_finish" soup_session_websocket_connect_finish :: -    Ptr Session ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    Ptr Gio.AsyncResult.AsyncResult ->      -- result : TInterface (Name {namespace = "Gio", name = "AsyncResult"})-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr Soup.WebsocketConnection.WebsocketConnection)--{- |-Gets the 'GI.Soup.Objects.WebsocketConnection.WebsocketConnection' response to a-'GI.Soup.Objects.Session.sessionWebsocketConnectAsync' call and (if successful),-returns a 'GI.Soup.Objects.WebsocketConnection.WebsocketConnection' that can be used to communicate-with the server.--/Since: 2.50/--}-sessionWebsocketConnectFinish ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a, Gio.AsyncResult.IsAsyncResult b) =>-    a-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> b-    {- ^ /@result@/: the 'GI.Gio.Interfaces.AsyncResult.AsyncResult' passed to your callback -}-    -> m Soup.WebsocketConnection.WebsocketConnection-    {- ^ __Returns:__ a new 'GI.Soup.Objects.WebsocketConnection.WebsocketConnection', or-  'Nothing' on error. /(Can throw 'Data.GI.Base.GError.GError')/ -}-sessionWebsocketConnectFinish session result_ = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    result_' <- unsafeManagedPtrCastPtr result_-    onException (do-        result <- propagateGError $ soup_session_websocket_connect_finish session' result_'-        checkUnexpectedReturnNULL "sessionWebsocketConnectFinish" result-        result' <- (wrapObject Soup.WebsocketConnection.WebsocketConnection) result-        touchManagedPtr session-        touchManagedPtr result_-        return result'-     ) (do-        return ()-     )--#if ENABLE_OVERLOADING-data SessionWebsocketConnectFinishMethodInfo-instance (signature ~ (b -> m Soup.WebsocketConnection.WebsocketConnection), MonadIO m, IsSession a, Gio.AsyncResult.IsAsyncResult b) => O.MethodInfo SessionWebsocketConnectFinishMethodInfo a signature where-    overloadedMethod _ = sessionWebsocketConnectFinish--#endif---- method Session::would_redirect--- method type : OrdinaryMethod--- Args : [Arg {argCName = "session", argType = TInterface (Name {namespace = "Soup", name = "Session"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSession", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msg", argType = TInterface (Name {namespace = "Soup", name = "Message"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessage that has response headers", sinceVersion = Nothing}, 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 ->                          -- session : TInterface (Name {namespace = "Soup", name = "Session"})-    Ptr Soup.Message.Message ->             -- msg : TInterface (Name {namespace = "Soup", name = "Message"})-    IO CInt--{- |-Checks if /@msg@/ contains a response that would cause /@session@/ to-redirect it to a new URL (ignoring /@msg@/\'s 'GI.Soup.Flags.MessageFlagsNoRedirect'-flag, and the number of times it has already been redirected).--/Since: 2.38/--}-sessionWouldRedirect ::-    (B.CallStack.HasCallStack, MonadIO m, IsSession a, Soup.Message.IsMessage b) =>-    a-    {- ^ /@session@/: a 'GI.Soup.Objects.Session.Session' -}-    -> b-    {- ^ /@msg@/: a 'GI.Soup.Objects.Message.Message' that has response headers -}-    -> m Bool-    {- ^ __Returns:__ whether /@msg@/ would be redirected -}-sessionWouldRedirect session msg = liftIO $ do-    session' <- unsafeManagedPtrCastPtr session-    msg' <- unsafeManagedPtrCastPtr msg-    result <- soup_session_would_redirect session' msg'-    let result' = (/= 0) result-    touchManagedPtr session-    touchManagedPtr msg-    return result'--#if ENABLE_OVERLOADING-data SessionWouldRedirectMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, IsSession a, Soup.Message.IsMessage b) => O.MethodInfo SessionWouldRedirectMethodInfo a signature where-    overloadedMethod _ = sessionWouldRedirect--#endif--
− GI/Soup/Objects/Session.hs-boot 
@@ -1,203 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Objects.Session where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype Session = Session (ManagedPtr Session)-instance GObject Session where-class (GObject o, O.IsDescendantOf Session o) => IsSession o-instance (GObject o, O.IsDescendantOf Session o) => IsSession o-instance O.HasParentTypes Session-#if ENABLE_OVERLOADING-data SessionAcceptLanguagePropertyInfo-#endif-#if ENABLE_OVERLOADING-data SessionAcceptLanguageAutoPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SessionAsyncContextPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SessionHttpAliasesPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SessionHttpsAliasesPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SessionIdleTimeoutPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SessionLocalAddressPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SessionMaxConnsPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SessionMaxConnsPerHostPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SessionProxyResolverPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SessionProxyUriPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SessionSslCaFilePropertyInfo-#endif-#if ENABLE_OVERLOADING-data SessionSslStrictPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SessionSslUseSystemCaFilePropertyInfo-#endif-#if ENABLE_OVERLOADING-data SessionTimeoutPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SessionTlsDatabasePropertyInfo-#endif-#if ENABLE_OVERLOADING-data SessionTlsInteractionPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SessionUseNtlmPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SessionUseThreadContextPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SessionUserAgentPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SessionAuthenticateSignalInfo-#endif-#if ENABLE_OVERLOADING-data SessionConnectionCreatedSignalInfo-#endif-#if ENABLE_OVERLOADING-data SessionRequestQueuedSignalInfo-#endif-#if ENABLE_OVERLOADING-data SessionRequestStartedSignalInfo-#endif-#if ENABLE_OVERLOADING-data SessionRequestUnqueuedSignalInfo-#endif-#if ENABLE_OVERLOADING-data SessionTunnelingSignalInfo-#endif-#if ENABLE_OVERLOADING-data SessionAbortMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionAddFeatureMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionAddFeatureByTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionCancelMessageMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionConnectAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionConnectFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionGetAsyncContextMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionGetFeatureMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionGetFeatureForMessageMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionGetFeaturesMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionHasFeatureMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionPauseMessageMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionPrefetchDnsMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionPrepareForUriMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionQueueMessageMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionRedirectMessageMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionRemoveFeatureMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionRemoveFeatureByTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionRequestMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionRequestHttpMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionRequestHttpUriMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionRequestUriMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionRequeueMessageMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionSendMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionSendAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionSendFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionSendMessageMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionStealConnectionMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionUnpauseMessageMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionWebsocketConnectAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionWebsocketConnectFinishMethodInfo-#endif-#if ENABLE_OVERLOADING-data SessionWouldRedirectMethodInfo-#endif
− GI/Soup/Objects/SessionAsync.hs 
@@ -1,190 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Objects.SessionAsync-    ( ---- * Exported types-    SessionAsync(..)                        ,-    IsSessionAsync                          ,-    toSessionAsync                          ,-    noSessionAsync                          ,--- -- * Methods--- ** new #method:new#--    sessionAsyncNew                         ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Soup.Objects.Session as Soup.Session---- | Memory-managed wrapper type.-newtype SessionAsync = SessionAsync (ManagedPtr SessionAsync)-foreign import ccall "soup_session_async_get_type"-    c_soup_session_async_get_type :: IO GType--instance GObject SessionAsync where-    gobjectType = c_soup_session_async_get_type-    ---- | Type class for types which can be safely cast to `SessionAsync`, for instance with `toSessionAsync`.-class (GObject o, O.IsDescendantOf SessionAsync o) => IsSessionAsync o-instance (GObject o, O.IsDescendantOf SessionAsync o) => IsSessionAsync o--instance O.HasParentTypes SessionAsync-type instance O.ParentTypes SessionAsync = '[Soup.Session.Session, GObject.Object.Object]---- | Cast to `SessionAsync`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toSessionAsync :: (MonadIO m, IsSessionAsync o) => o -> m SessionAsync-toSessionAsync = liftIO . unsafeCastTo SessionAsync---- | A convenience alias for `Nothing` :: `Maybe` `SessionAsync`.-noSessionAsync :: Maybe SessionAsync-noSessionAsync = Nothing--#if ENABLE_OVERLOADING-type family ResolveSessionAsyncMethod (t :: Symbol) (o :: *) :: * where-    ResolveSessionAsyncMethod "abort" o = Soup.Session.SessionAbortMethodInfo-    ResolveSessionAsyncMethod "addFeature" o = Soup.Session.SessionAddFeatureMethodInfo-    ResolveSessionAsyncMethod "addFeatureByType" o = Soup.Session.SessionAddFeatureByTypeMethodInfo-    ResolveSessionAsyncMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveSessionAsyncMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveSessionAsyncMethod "cancelMessage" o = Soup.Session.SessionCancelMessageMethodInfo-    ResolveSessionAsyncMethod "connectAsync" o = Soup.Session.SessionConnectAsyncMethodInfo-    ResolveSessionAsyncMethod "connectFinish" o = Soup.Session.SessionConnectFinishMethodInfo-    ResolveSessionAsyncMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveSessionAsyncMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveSessionAsyncMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveSessionAsyncMethod "hasFeature" o = Soup.Session.SessionHasFeatureMethodInfo-    ResolveSessionAsyncMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveSessionAsyncMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveSessionAsyncMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveSessionAsyncMethod "pauseMessage" o = Soup.Session.SessionPauseMessageMethodInfo-    ResolveSessionAsyncMethod "prefetchDns" o = Soup.Session.SessionPrefetchDnsMethodInfo-    ResolveSessionAsyncMethod "prepareForUri" o = Soup.Session.SessionPrepareForUriMethodInfo-    ResolveSessionAsyncMethod "queueMessage" o = Soup.Session.SessionQueueMessageMethodInfo-    ResolveSessionAsyncMethod "redirectMessage" o = Soup.Session.SessionRedirectMessageMethodInfo-    ResolveSessionAsyncMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveSessionAsyncMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveSessionAsyncMethod "removeFeature" o = Soup.Session.SessionRemoveFeatureMethodInfo-    ResolveSessionAsyncMethod "removeFeatureByType" o = Soup.Session.SessionRemoveFeatureByTypeMethodInfo-    ResolveSessionAsyncMethod "request" o = Soup.Session.SessionRequestMethodInfo-    ResolveSessionAsyncMethod "requestHttp" o = Soup.Session.SessionRequestHttpMethodInfo-    ResolveSessionAsyncMethod "requestHttpUri" o = Soup.Session.SessionRequestHttpUriMethodInfo-    ResolveSessionAsyncMethod "requestUri" o = Soup.Session.SessionRequestUriMethodInfo-    ResolveSessionAsyncMethod "requeueMessage" o = Soup.Session.SessionRequeueMessageMethodInfo-    ResolveSessionAsyncMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveSessionAsyncMethod "send" o = Soup.Session.SessionSendMethodInfo-    ResolveSessionAsyncMethod "sendAsync" o = Soup.Session.SessionSendAsyncMethodInfo-    ResolveSessionAsyncMethod "sendFinish" o = Soup.Session.SessionSendFinishMethodInfo-    ResolveSessionAsyncMethod "sendMessage" o = Soup.Session.SessionSendMessageMethodInfo-    ResolveSessionAsyncMethod "stealConnection" o = Soup.Session.SessionStealConnectionMethodInfo-    ResolveSessionAsyncMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveSessionAsyncMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveSessionAsyncMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveSessionAsyncMethod "unpauseMessage" o = Soup.Session.SessionUnpauseMessageMethodInfo-    ResolveSessionAsyncMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveSessionAsyncMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveSessionAsyncMethod "websocketConnectAsync" o = Soup.Session.SessionWebsocketConnectAsyncMethodInfo-    ResolveSessionAsyncMethod "websocketConnectFinish" o = Soup.Session.SessionWebsocketConnectFinishMethodInfo-    ResolveSessionAsyncMethod "wouldRedirect" o = Soup.Session.SessionWouldRedirectMethodInfo-    ResolveSessionAsyncMethod "getAsyncContext" o = Soup.Session.SessionGetAsyncContextMethodInfo-    ResolveSessionAsyncMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveSessionAsyncMethod "getFeature" o = Soup.Session.SessionGetFeatureMethodInfo-    ResolveSessionAsyncMethod "getFeatureForMessage" o = Soup.Session.SessionGetFeatureForMessageMethodInfo-    ResolveSessionAsyncMethod "getFeatures" o = Soup.Session.SessionGetFeaturesMethodInfo-    ResolveSessionAsyncMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveSessionAsyncMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveSessionAsyncMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveSessionAsyncMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveSessionAsyncMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveSessionAsyncMethod t SessionAsync, O.MethodInfo info SessionAsync p) => OL.IsLabel t (SessionAsync -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList SessionAsync-type instance O.AttributeList SessionAsync = SessionAsyncAttributeList-type SessionAsyncAttributeList = ('[ '("acceptLanguage", Soup.Session.SessionAcceptLanguagePropertyInfo), '("acceptLanguageAuto", Soup.Session.SessionAcceptLanguageAutoPropertyInfo), '("asyncContext", Soup.Session.SessionAsyncContextPropertyInfo), '("httpAliases", Soup.Session.SessionHttpAliasesPropertyInfo), '("httpsAliases", Soup.Session.SessionHttpsAliasesPropertyInfo), '("idleTimeout", Soup.Session.SessionIdleTimeoutPropertyInfo), '("localAddress", Soup.Session.SessionLocalAddressPropertyInfo), '("maxConns", Soup.Session.SessionMaxConnsPropertyInfo), '("maxConnsPerHost", Soup.Session.SessionMaxConnsPerHostPropertyInfo), '("proxyResolver", Soup.Session.SessionProxyResolverPropertyInfo), '("proxyUri", Soup.Session.SessionProxyUriPropertyInfo), '("sslCaFile", Soup.Session.SessionSslCaFilePropertyInfo), '("sslStrict", Soup.Session.SessionSslStrictPropertyInfo), '("sslUseSystemCaFile", Soup.Session.SessionSslUseSystemCaFilePropertyInfo), '("timeout", Soup.Session.SessionTimeoutPropertyInfo), '("tlsDatabase", Soup.Session.SessionTlsDatabasePropertyInfo), '("tlsInteraction", Soup.Session.SessionTlsInteractionPropertyInfo), '("useNtlm", Soup.Session.SessionUseNtlmPropertyInfo), '("useThreadContext", Soup.Session.SessionUseThreadContextPropertyInfo), '("userAgent", Soup.Session.SessionUserAgentPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList SessionAsync = SessionAsyncSignalList-type SessionAsyncSignalList = ('[ '("authenticate", Soup.Session.SessionAuthenticateSignalInfo), '("connectionCreated", Soup.Session.SessionConnectionCreatedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("requestQueued", Soup.Session.SessionRequestQueuedSignalInfo), '("requestStarted", Soup.Session.SessionRequestStartedSignalInfo), '("requestUnqueued", Soup.Session.SessionRequestUnqueuedSignalInfo), '("tunneling", Soup.Session.SessionTunnelingSignalInfo)] :: [(Symbol, *)])--#endif---- method SessionAsync::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "SessionAsync"}))--- throws : False--- Skip return : False--foreign import ccall "soup_session_async_new" soup_session_async_new :: -    IO (Ptr SessionAsync)--{-# DEPRECATED sessionAsyncNew ["'GI.Soup.Objects.SessionAsync.SessionAsync' is deprecated; use a plain","'GI.Soup.Objects.Session.Session', created with 'GI.Soup.Objects.Session.sessionNew'. See the \\<link","linkend=\\\"libsoup-session-porting\\\">porting guide\\<\\/link>."] #-}-{- |-Creates an asynchronous 'GI.Soup.Objects.Session.Session' with the default options.--}-sessionAsyncNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m SessionAsync-    {- ^ __Returns:__ the new session. -}-sessionAsyncNew  = liftIO $ do-    result <- soup_session_async_new-    checkUnexpectedReturnNULL "sessionAsyncNew" result-    result' <- (wrapObject SessionAsync) result-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/Soup/Objects/SessionAsync.hs-boot 
@@ -1,29 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Objects.SessionAsync where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype SessionAsync = SessionAsync (ManagedPtr SessionAsync)-instance GObject SessionAsync where-class (GObject o, O.IsDescendantOf SessionAsync o) => IsSessionAsync o-instance (GObject o, O.IsDescendantOf SessionAsync o) => IsSessionAsync o-instance O.HasParentTypes SessionAsync
− GI/Soup/Objects/SessionSync.hs 
@@ -1,190 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Objects.SessionSync-    ( ---- * Exported types-    SessionSync(..)                         ,-    IsSessionSync                           ,-    toSessionSync                           ,-    noSessionSync                           ,--- -- * Methods--- ** new #method:new#--    sessionSyncNew                          ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GObject.Objects.Object as GObject.Object-import {-# SOURCE #-} qualified GI.Soup.Objects.Session as Soup.Session---- | Memory-managed wrapper type.-newtype SessionSync = SessionSync (ManagedPtr SessionSync)-foreign import ccall "soup_session_sync_get_type"-    c_soup_session_sync_get_type :: IO GType--instance GObject SessionSync where-    gobjectType = c_soup_session_sync_get_type-    ---- | Type class for types which can be safely cast to `SessionSync`, for instance with `toSessionSync`.-class (GObject o, O.IsDescendantOf SessionSync o) => IsSessionSync o-instance (GObject o, O.IsDescendantOf SessionSync o) => IsSessionSync o--instance O.HasParentTypes SessionSync-type instance O.ParentTypes SessionSync = '[Soup.Session.Session, GObject.Object.Object]---- | Cast to `SessionSync`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toSessionSync :: (MonadIO m, IsSessionSync o) => o -> m SessionSync-toSessionSync = liftIO . unsafeCastTo SessionSync---- | A convenience alias for `Nothing` :: `Maybe` `SessionSync`.-noSessionSync :: Maybe SessionSync-noSessionSync = Nothing--#if ENABLE_OVERLOADING-type family ResolveSessionSyncMethod (t :: Symbol) (o :: *) :: * where-    ResolveSessionSyncMethod "abort" o = Soup.Session.SessionAbortMethodInfo-    ResolveSessionSyncMethod "addFeature" o = Soup.Session.SessionAddFeatureMethodInfo-    ResolveSessionSyncMethod "addFeatureByType" o = Soup.Session.SessionAddFeatureByTypeMethodInfo-    ResolveSessionSyncMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveSessionSyncMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveSessionSyncMethod "cancelMessage" o = Soup.Session.SessionCancelMessageMethodInfo-    ResolveSessionSyncMethod "connectAsync" o = Soup.Session.SessionConnectAsyncMethodInfo-    ResolveSessionSyncMethod "connectFinish" o = Soup.Session.SessionConnectFinishMethodInfo-    ResolveSessionSyncMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveSessionSyncMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveSessionSyncMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveSessionSyncMethod "hasFeature" o = Soup.Session.SessionHasFeatureMethodInfo-    ResolveSessionSyncMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveSessionSyncMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveSessionSyncMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveSessionSyncMethod "pauseMessage" o = Soup.Session.SessionPauseMessageMethodInfo-    ResolveSessionSyncMethod "prefetchDns" o = Soup.Session.SessionPrefetchDnsMethodInfo-    ResolveSessionSyncMethod "prepareForUri" o = Soup.Session.SessionPrepareForUriMethodInfo-    ResolveSessionSyncMethod "queueMessage" o = Soup.Session.SessionQueueMessageMethodInfo-    ResolveSessionSyncMethod "redirectMessage" o = Soup.Session.SessionRedirectMessageMethodInfo-    ResolveSessionSyncMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveSessionSyncMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveSessionSyncMethod "removeFeature" o = Soup.Session.SessionRemoveFeatureMethodInfo-    ResolveSessionSyncMethod "removeFeatureByType" o = Soup.Session.SessionRemoveFeatureByTypeMethodInfo-    ResolveSessionSyncMethod "request" o = Soup.Session.SessionRequestMethodInfo-    ResolveSessionSyncMethod "requestHttp" o = Soup.Session.SessionRequestHttpMethodInfo-    ResolveSessionSyncMethod "requestHttpUri" o = Soup.Session.SessionRequestHttpUriMethodInfo-    ResolveSessionSyncMethod "requestUri" o = Soup.Session.SessionRequestUriMethodInfo-    ResolveSessionSyncMethod "requeueMessage" o = Soup.Session.SessionRequeueMessageMethodInfo-    ResolveSessionSyncMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveSessionSyncMethod "send" o = Soup.Session.SessionSendMethodInfo-    ResolveSessionSyncMethod "sendAsync" o = Soup.Session.SessionSendAsyncMethodInfo-    ResolveSessionSyncMethod "sendFinish" o = Soup.Session.SessionSendFinishMethodInfo-    ResolveSessionSyncMethod "sendMessage" o = Soup.Session.SessionSendMessageMethodInfo-    ResolveSessionSyncMethod "stealConnection" o = Soup.Session.SessionStealConnectionMethodInfo-    ResolveSessionSyncMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveSessionSyncMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveSessionSyncMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveSessionSyncMethod "unpauseMessage" o = Soup.Session.SessionUnpauseMessageMethodInfo-    ResolveSessionSyncMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveSessionSyncMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveSessionSyncMethod "websocketConnectAsync" o = Soup.Session.SessionWebsocketConnectAsyncMethodInfo-    ResolveSessionSyncMethod "websocketConnectFinish" o = Soup.Session.SessionWebsocketConnectFinishMethodInfo-    ResolveSessionSyncMethod "wouldRedirect" o = Soup.Session.SessionWouldRedirectMethodInfo-    ResolveSessionSyncMethod "getAsyncContext" o = Soup.Session.SessionGetAsyncContextMethodInfo-    ResolveSessionSyncMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveSessionSyncMethod "getFeature" o = Soup.Session.SessionGetFeatureMethodInfo-    ResolveSessionSyncMethod "getFeatureForMessage" o = Soup.Session.SessionGetFeatureForMessageMethodInfo-    ResolveSessionSyncMethod "getFeatures" o = Soup.Session.SessionGetFeaturesMethodInfo-    ResolveSessionSyncMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveSessionSyncMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveSessionSyncMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveSessionSyncMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveSessionSyncMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveSessionSyncMethod t SessionSync, O.MethodInfo info SessionSync p) => OL.IsLabel t (SessionSync -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList SessionSync-type instance O.AttributeList SessionSync = SessionSyncAttributeList-type SessionSyncAttributeList = ('[ '("acceptLanguage", Soup.Session.SessionAcceptLanguagePropertyInfo), '("acceptLanguageAuto", Soup.Session.SessionAcceptLanguageAutoPropertyInfo), '("asyncContext", Soup.Session.SessionAsyncContextPropertyInfo), '("httpAliases", Soup.Session.SessionHttpAliasesPropertyInfo), '("httpsAliases", Soup.Session.SessionHttpsAliasesPropertyInfo), '("idleTimeout", Soup.Session.SessionIdleTimeoutPropertyInfo), '("localAddress", Soup.Session.SessionLocalAddressPropertyInfo), '("maxConns", Soup.Session.SessionMaxConnsPropertyInfo), '("maxConnsPerHost", Soup.Session.SessionMaxConnsPerHostPropertyInfo), '("proxyResolver", Soup.Session.SessionProxyResolverPropertyInfo), '("proxyUri", Soup.Session.SessionProxyUriPropertyInfo), '("sslCaFile", Soup.Session.SessionSslCaFilePropertyInfo), '("sslStrict", Soup.Session.SessionSslStrictPropertyInfo), '("sslUseSystemCaFile", Soup.Session.SessionSslUseSystemCaFilePropertyInfo), '("timeout", Soup.Session.SessionTimeoutPropertyInfo), '("tlsDatabase", Soup.Session.SessionTlsDatabasePropertyInfo), '("tlsInteraction", Soup.Session.SessionTlsInteractionPropertyInfo), '("useNtlm", Soup.Session.SessionUseNtlmPropertyInfo), '("useThreadContext", Soup.Session.SessionUseThreadContextPropertyInfo), '("userAgent", Soup.Session.SessionUserAgentPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type instance O.SignalList SessionSync = SessionSyncSignalList-type SessionSyncSignalList = ('[ '("authenticate", Soup.Session.SessionAuthenticateSignalInfo), '("connectionCreated", Soup.Session.SessionConnectionCreatedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("requestQueued", Soup.Session.SessionRequestQueuedSignalInfo), '("requestStarted", Soup.Session.SessionRequestStartedSignalInfo), '("requestUnqueued", Soup.Session.SessionRequestUnqueuedSignalInfo), '("tunneling", Soup.Session.SessionTunnelingSignalInfo)] :: [(Symbol, *)])--#endif---- method SessionSync::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "SessionSync"}))--- throws : False--- Skip return : False--foreign import ccall "soup_session_sync_new" soup_session_sync_new :: -    IO (Ptr SessionSync)--{-# DEPRECATED sessionSyncNew ["'GI.Soup.Objects.SessionSync.SessionSync' is deprecated; use a plain","'GI.Soup.Objects.Session.Session', created with 'GI.Soup.Objects.Session.sessionNew'. See the \\<link","linkend=\\\"libsoup-session-porting\\\">porting guide\\<\\/link>."] #-}-{- |-Creates an synchronous 'GI.Soup.Objects.Session.Session' with the default options.--}-sessionSyncNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m SessionSync-    {- ^ __Returns:__ the new session. -}-sessionSyncNew  = liftIO $ do-    result <- soup_session_sync_new-    checkUnexpectedReturnNULL "sessionSyncNew" result-    result' <- (wrapObject SessionSync) result-    return result'--#if ENABLE_OVERLOADING-#endif--
− GI/Soup/Objects/SessionSync.hs-boot 
@@ -1,29 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Objects.SessionSync where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype SessionSync = SessionSync (ManagedPtr SessionSync)-instance GObject SessionSync where-class (GObject o, O.IsDescendantOf SessionSync o) => IsSessionSync o-instance (GObject o, O.IsDescendantOf SessionSync o) => IsSessionSync o-instance O.HasParentTypes SessionSync
− GI/Soup/Objects/Socket.hs 
@@ -1,2341 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Objects.Socket-    ( ---- * Exported types-    Socket(..)                              ,-    IsSocket                                ,-    toSocket                                ,-    noSocket                                ,--- -- * Methods--- ** connectAsync #method:connectAsync#--#if ENABLE_OVERLOADING-    SocketConnectAsyncMethodInfo            ,-#endif-    socketConnectAsync                      ,----- ** connectSync #method:connectSync#--#if ENABLE_OVERLOADING-    SocketConnectSyncMethodInfo             ,-#endif-    socketConnectSync                       ,----- ** disconnect #method:disconnect#--#if ENABLE_OVERLOADING-    SocketDisconnectMethodInfo              ,-#endif-    socketDisconnect                        ,----- ** getFd #method:getFd#--#if ENABLE_OVERLOADING-    SocketGetFdMethodInfo                   ,-#endif-    socketGetFd                             ,----- ** getLocalAddress #method:getLocalAddress#--#if ENABLE_OVERLOADING-    SocketGetLocalAddressMethodInfo         ,-#endif-    socketGetLocalAddress                   ,----- ** getRemoteAddress #method:getRemoteAddress#--#if ENABLE_OVERLOADING-    SocketGetRemoteAddressMethodInfo        ,-#endif-    socketGetRemoteAddress                  ,----- ** isConnected #method:isConnected#--#if ENABLE_OVERLOADING-    SocketIsConnectedMethodInfo             ,-#endif-    socketIsConnected                       ,----- ** isSsl #method:isSsl#--#if ENABLE_OVERLOADING-    SocketIsSslMethodInfo                   ,-#endif-    socketIsSsl                             ,----- ** listen #method:listen#--#if ENABLE_OVERLOADING-    SocketListenMethodInfo                  ,-#endif-    socketListen                            ,----- ** read #method:read#--#if ENABLE_OVERLOADING-    SocketReadMethodInfo                    ,-#endif-    socketRead                              ,----- ** readUntil #method:readUntil#--#if ENABLE_OVERLOADING-    SocketReadUntilMethodInfo               ,-#endif-    socketReadUntil                         ,----- ** startProxySsl #method:startProxySsl#--#if ENABLE_OVERLOADING-    SocketStartProxySslMethodInfo           ,-#endif-    socketStartProxySsl                     ,----- ** startSsl #method:startSsl#--#if ENABLE_OVERLOADING-    SocketStartSslMethodInfo                ,-#endif-    socketStartSsl                          ,----- ** write #method:write#--#if ENABLE_OVERLOADING-    SocketWriteMethodInfo                   ,-#endif-    socketWrite                             ,----- -- * Properties--- ** asyncContext #attr:asyncContext#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketAsyncContextPropertyInfo          ,-#endif-    constructSocketAsyncContext             ,-    getSocketAsyncContext                   ,-#if ENABLE_OVERLOADING-    socketAsyncContext                      ,-#endif----- ** fd #attr:fd#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketFdPropertyInfo                    ,-#endif-    constructSocketFd                       ,-    getSocketFd                             ,-#if ENABLE_OVERLOADING-    socketFd                                ,-#endif----- ** gsocket #attr:gsocket#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketGsocketPropertyInfo               ,-#endif-    constructSocketGsocket                  ,-#if ENABLE_OVERLOADING-    socketGsocket                           ,-#endif----- ** iostream #attr:iostream#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketIostreamPropertyInfo              ,-#endif-    constructSocketIostream                 ,-#if ENABLE_OVERLOADING-    socketIostream                          ,-#endif----- ** ipv6Only #attr:ipv6Only#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketIpv6OnlyPropertyInfo              ,-#endif-    constructSocketIpv6Only                 ,-    getSocketIpv6Only                       ,-    setSocketIpv6Only                       ,-#if ENABLE_OVERLOADING-    socketIpv6Only                          ,-#endif----- ** isServer #attr:isServer#-{- | Whether or not the socket is a server socket.--Note that for \"ordinary\" @/SoupSockets/@ this will be set for-both listening sockets and the sockets emitted by-'GI.Soup.Objects.Socket.Socket'::@/new-connection/@, but for sockets created by-setting 'GI.Soup.Objects.Socket.Socket':@/fd/@, it will only be set for listening-sockets.--}-#if ENABLE_OVERLOADING-    SocketIsServerPropertyInfo              ,-#endif-    getSocketIsServer                       ,-#if ENABLE_OVERLOADING-    socketIsServer                          ,-#endif----- ** localAddress #attr:localAddress#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketLocalAddressPropertyInfo          ,-#endif-    constructSocketLocalAddress             ,-    getSocketLocalAddress                   ,-#if ENABLE_OVERLOADING-    socketLocalAddress                      ,-#endif----- ** nonBlocking #attr:nonBlocking#-{- | Whether or not the socket uses non-blocking I\/O.--'GI.Soup.Objects.Socket.Socket'\'s I\/O methods are designed around the idea of-using a single codepath for both synchronous and-asynchronous I\/O. If you want to read off a 'GI.Soup.Objects.Socket.Socket',-the \"correct\" way to do it is to call 'GI.Soup.Objects.Socket.socketRead' or-'GI.Soup.Objects.Socket.socketReadUntil' repeatedly until you have read-everything you want. If it returns 'GI.Soup.Enums.SocketIOStatusWouldBlock'-at any point, stop reading and wait for it to emit the-'GI.Soup.Objects.Socket.Socket'::@/readable/@ signal. Then go back to the-reading-as-much-as-you-can loop. Likewise, for writing to a-'GI.Soup.Objects.Socket.Socket', you should call 'GI.Soup.Objects.Socket.socketWrite' either-until you have written everything, or it returns-'GI.Soup.Enums.SocketIOStatusWouldBlock' (in which case you wait for-'GI.Soup.Objects.Socket.Socket'::@/writable/@ and then go back into the loop).--Code written this way will work correctly with both-blocking and non-blocking sockets; blocking sockets will-simply never return 'GI.Soup.Enums.SocketIOStatusWouldBlock', and so the-code that handles that case just won\'t get used for them.--}-#if ENABLE_OVERLOADING-    SocketNonBlockingPropertyInfo           ,-#endif-    constructSocketNonBlocking              ,-    getSocketNonBlocking                    ,-    setSocketNonBlocking                    ,-#if ENABLE_OVERLOADING-    socketNonBlocking                       ,-#endif----- ** remoteAddress #attr:remoteAddress#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketRemoteAddressPropertyInfo         ,-#endif-    constructSocketRemoteAddress            ,-    getSocketRemoteAddress                  ,-#if ENABLE_OVERLOADING-    socketRemoteAddress                     ,-#endif----- ** sslCreds #attr:sslCreds#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketSslCredsPropertyInfo              ,-#endif-    constructSocketSslCreds                 ,-    getSocketSslCreds                       ,-    setSocketSslCreds                       ,-#if ENABLE_OVERLOADING-    socketSslCreds                          ,-#endif----- ** sslFallback #attr:sslFallback#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketSslFallbackPropertyInfo           ,-#endif-    constructSocketSslFallback              ,-    getSocketSslFallback                    ,-#if ENABLE_OVERLOADING-    socketSslFallback                       ,-#endif----- ** sslStrict #attr:sslStrict#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketSslStrictPropertyInfo             ,-#endif-    constructSocketSslStrict                ,-    getSocketSslStrict                      ,-#if ENABLE_OVERLOADING-    socketSslStrict                         ,-#endif----- ** timeout #attr:timeout#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketTimeoutPropertyInfo               ,-#endif-    constructSocketTimeout                  ,-    getSocketTimeout                        ,-    setSocketTimeout                        ,-#if ENABLE_OVERLOADING-    socketTimeout                           ,-#endif----- ** tlsCertificate #attr:tlsCertificate#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketTlsCertificatePropertyInfo        ,-#endif-    getSocketTlsCertificate                 ,-#if ENABLE_OVERLOADING-    socketTlsCertificate                    ,-#endif----- ** tlsErrors #attr:tlsErrors#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketTlsErrorsPropertyInfo             ,-#endif-    getSocketTlsErrors                      ,-#if ENABLE_OVERLOADING-    socketTlsErrors                         ,-#endif----- ** trustedCertificate #attr:trustedCertificate#-{- | /No description available in the introspection data./--}-#if ENABLE_OVERLOADING-    SocketTrustedCertificatePropertyInfo    ,-#endif-    getSocketTrustedCertificate             ,-#if ENABLE_OVERLOADING-    socketTrustedCertificate                ,-#endif----- ** useThreadContext #attr:useThreadContext#-{- | Use 'GI.GLib.Functions.mainContextGetThreadDefault'.--/Since: 2.38/--}-#if ENABLE_OVERLOADING-    SocketUseThreadContextPropertyInfo      ,-#endif-    constructSocketUseThreadContext         ,-    getSocketUseThreadContext               ,-#if ENABLE_OVERLOADING-    socketUseThreadContext                  ,-#endif----- -- * Signals--- ** disconnected #signal:disconnected#--    C_SocketDisconnectedCallback            ,-    SocketDisconnectedCallback              ,-#if ENABLE_OVERLOADING-    SocketDisconnectedSignalInfo            ,-#endif-    afterSocketDisconnected                 ,-    genClosure_SocketDisconnected           ,-    mk_SocketDisconnectedCallback           ,-    noSocketDisconnectedCallback            ,-    onSocketDisconnected                    ,-    wrap_SocketDisconnectedCallback         ,----- ** event #signal:event#--    C_SocketEventCallback                   ,-    SocketEventCallback                     ,-#if ENABLE_OVERLOADING-    SocketEventSignalInfo                   ,-#endif-    afterSocketEvent                        ,-    genClosure_SocketEvent                  ,-    mk_SocketEventCallback                  ,-    noSocketEventCallback                   ,-    onSocketEvent                           ,-    wrap_SocketEventCallback                ,----- ** newConnection #signal:newConnection#--    C_SocketNewConnectionCallback           ,-    SocketNewConnectionCallback             ,-#if ENABLE_OVERLOADING-    SocketNewConnectionSignalInfo           ,-#endif-    afterSocketNewConnection                ,-    genClosure_SocketNewConnection          ,-    mk_SocketNewConnectionCallback          ,-    noSocketNewConnectionCallback           ,-    onSocketNewConnection                   ,-    wrap_SocketNewConnectionCallback        ,----- ** readable #signal:readable#--    C_SocketReadableCallback                ,-    SocketReadableCallback                  ,-#if ENABLE_OVERLOADING-    SocketReadableSignalInfo                ,-#endif-    afterSocketReadable                     ,-    genClosure_SocketReadable               ,-    mk_SocketReadableCallback               ,-    noSocketReadableCallback                ,-    onSocketReadable                        ,-    wrap_SocketReadableCallback             ,----- ** writable #signal:writable#--    C_SocketWritableCallback                ,-    SocketWritableCallback                  ,-#if ENABLE_OVERLOADING-    SocketWritableSignalInfo                ,-#endif-    afterSocketWritable                     ,-    genClosure_SocketWritable               ,-    mk_SocketWritableCallback               ,-    noSocketWritableCallback                ,-    onSocketWritable                        ,-    wrap_SocketWritableCallback             ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GObject.Objects.Object as GObject.Object-import qualified GI.Gio.Enums as Gio.Enums-import qualified GI.Gio.Flags as Gio.Flags-import qualified GI.Gio.Interfaces.Initable as Gio.Initable-import qualified GI.Gio.Objects.Cancellable as Gio.Cancellable-import qualified GI.Gio.Objects.IOStream as Gio.IOStream-import qualified GI.Gio.Objects.Socket as Gio.Socket-import qualified GI.Gio.Objects.TlsCertificate as Gio.TlsCertificate-import qualified GI.Soup.Callbacks as Soup.Callbacks-import {-# SOURCE #-} qualified GI.Soup.Enums as Soup.Enums-import {-# SOURCE #-} qualified GI.Soup.Objects.Address as Soup.Address---- | Memory-managed wrapper type.-newtype Socket = Socket (ManagedPtr Socket)-foreign import ccall "soup_socket_get_type"-    c_soup_socket_get_type :: IO GType--instance GObject Socket where-    gobjectType = c_soup_socket_get_type-    ---- | Type class for types which can be safely cast to `Socket`, for instance with `toSocket`.-class (GObject o, O.IsDescendantOf Socket o) => IsSocket o-instance (GObject o, O.IsDescendantOf Socket o) => IsSocket o--instance O.HasParentTypes Socket-type instance O.ParentTypes Socket = '[GObject.Object.Object, Gio.Initable.Initable]---- | Cast to `Socket`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toSocket :: (MonadIO m, IsSocket o) => o -> m Socket-toSocket = liftIO . unsafeCastTo Socket---- | A convenience alias for `Nothing` :: `Maybe` `Socket`.-noSocket :: Maybe Socket-noSocket = Nothing--#if ENABLE_OVERLOADING-type family ResolveSocketMethod (t :: Symbol) (o :: *) :: * where-    ResolveSocketMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveSocketMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveSocketMethod "connectAsync" o = SocketConnectAsyncMethodInfo-    ResolveSocketMethod "connectSync" o = SocketConnectSyncMethodInfo-    ResolveSocketMethod "disconnect" o = SocketDisconnectMethodInfo-    ResolveSocketMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveSocketMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveSocketMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveSocketMethod "init" o = Gio.Initable.InitableInitMethodInfo-    ResolveSocketMethod "isConnected" o = SocketIsConnectedMethodInfo-    ResolveSocketMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveSocketMethod "isSsl" o = SocketIsSslMethodInfo-    ResolveSocketMethod "listen" o = SocketListenMethodInfo-    ResolveSocketMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveSocketMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveSocketMethod "read" o = SocketReadMethodInfo-    ResolveSocketMethod "readUntil" o = SocketReadUntilMethodInfo-    ResolveSocketMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveSocketMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveSocketMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveSocketMethod "startProxySsl" o = SocketStartProxySslMethodInfo-    ResolveSocketMethod "startSsl" o = SocketStartSslMethodInfo-    ResolveSocketMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveSocketMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveSocketMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveSocketMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveSocketMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveSocketMethod "write" o = SocketWriteMethodInfo-    ResolveSocketMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveSocketMethod "getFd" o = SocketGetFdMethodInfo-    ResolveSocketMethod "getLocalAddress" o = SocketGetLocalAddressMethodInfo-    ResolveSocketMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveSocketMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveSocketMethod "getRemoteAddress" o = SocketGetRemoteAddressMethodInfo-    ResolveSocketMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveSocketMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveSocketMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveSocketMethod t Socket, O.MethodInfo info Socket p) => OL.IsLabel t (Socket -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif---- signal Socket::disconnected-{- |-Emitted when the socket is disconnected, for whatever-reason.--}-type SocketDisconnectedCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `SocketDisconnectedCallback`@.-noSocketDisconnectedCallback :: Maybe SocketDisconnectedCallback-noSocketDisconnectedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_SocketDisconnectedCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_SocketDisconnectedCallback`.-foreign import ccall "wrapper"-    mk_SocketDisconnectedCallback :: C_SocketDisconnectedCallback -> IO (FunPtr C_SocketDisconnectedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_SocketDisconnected :: MonadIO m => SocketDisconnectedCallback -> m (GClosure C_SocketDisconnectedCallback)-genClosure_SocketDisconnected cb = liftIO $ do-    let cb' = wrap_SocketDisconnectedCallback cb-    mk_SocketDisconnectedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `SocketDisconnectedCallback` into a `C_SocketDisconnectedCallback`.-wrap_SocketDisconnectedCallback ::-    SocketDisconnectedCallback ->-    C_SocketDisconnectedCallback-wrap_SocketDisconnectedCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@disconnected@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' socket #disconnected callback-@--}-onSocketDisconnected :: (IsSocket a, MonadIO m) => a -> SocketDisconnectedCallback -> m SignalHandlerId-onSocketDisconnected obj cb = liftIO $ do-    let cb' = wrap_SocketDisconnectedCallback cb-    cb'' <- mk_SocketDisconnectedCallback cb'-    connectSignalFunPtr obj "disconnected" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@disconnected@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' socket #disconnected callback-@--}-afterSocketDisconnected :: (IsSocket a, MonadIO m) => a -> SocketDisconnectedCallback -> m SignalHandlerId-afterSocketDisconnected obj cb = liftIO $ do-    let cb' = wrap_SocketDisconnectedCallback cb-    cb'' <- mk_SocketDisconnectedCallback cb'-    connectSignalFunPtr obj "disconnected" cb'' SignalConnectAfter----- signal Socket::event-{- |-Emitted when a network-related event occurs. See-'GI.Gio.Objects.SocketClient.SocketClient'::@/event/@ for more details.--/Since: 2.38/--}-type SocketEventCallback =-    Gio.Enums.SocketClientEvent-    {- ^ /@event@/: the event that occurred -}-    -> Gio.IOStream.IOStream-    {- ^ /@connection@/: the current connection state -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `SocketEventCallback`@.-noSocketEventCallback :: Maybe SocketEventCallback-noSocketEventCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_SocketEventCallback =-    Ptr () ->                               -- object-    CUInt ->-    Ptr Gio.IOStream.IOStream ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_SocketEventCallback`.-foreign import ccall "wrapper"-    mk_SocketEventCallback :: C_SocketEventCallback -> IO (FunPtr C_SocketEventCallback)---- | Wrap the callback into a `GClosure`.-genClosure_SocketEvent :: MonadIO m => SocketEventCallback -> m (GClosure C_SocketEventCallback)-genClosure_SocketEvent cb = liftIO $ do-    let cb' = wrap_SocketEventCallback cb-    mk_SocketEventCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `SocketEventCallback` into a `C_SocketEventCallback`.-wrap_SocketEventCallback ::-    SocketEventCallback ->-    C_SocketEventCallback-wrap_SocketEventCallback _cb _ event connection _ = do-    let event' = (toEnum . fromIntegral) event-    connection' <- (newObject Gio.IOStream.IOStream) connection-    _cb  event' connection'---{- |-Connect a signal handler for the “@event@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' socket #event callback-@--}-onSocketEvent :: (IsSocket a, MonadIO m) => a -> SocketEventCallback -> m SignalHandlerId-onSocketEvent obj cb = liftIO $ do-    let cb' = wrap_SocketEventCallback cb-    cb'' <- mk_SocketEventCallback cb'-    connectSignalFunPtr obj "event" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@event@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' socket #event callback-@--}-afterSocketEvent :: (IsSocket a, MonadIO m) => a -> SocketEventCallback -> m SignalHandlerId-afterSocketEvent obj cb = liftIO $ do-    let cb' = wrap_SocketEventCallback cb-    cb'' <- mk_SocketEventCallback cb'-    connectSignalFunPtr obj "event" cb'' SignalConnectAfter----- signal Socket::new-connection-{- |-Emitted when a listening socket (set up with-'GI.Soup.Objects.Socket.socketListen') receives a new connection.--You must ref the /@new@/ if you want to keep it; otherwise it-will be destroyed after the signal is emitted.--}-type SocketNewConnectionCallback =-    Socket-    {- ^ /@new@/: the new socket -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `SocketNewConnectionCallback`@.-noSocketNewConnectionCallback :: Maybe SocketNewConnectionCallback-noSocketNewConnectionCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_SocketNewConnectionCallback =-    Ptr () ->                               -- object-    Ptr Socket ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_SocketNewConnectionCallback`.-foreign import ccall "wrapper"-    mk_SocketNewConnectionCallback :: C_SocketNewConnectionCallback -> IO (FunPtr C_SocketNewConnectionCallback)---- | Wrap the callback into a `GClosure`.-genClosure_SocketNewConnection :: MonadIO m => SocketNewConnectionCallback -> m (GClosure C_SocketNewConnectionCallback)-genClosure_SocketNewConnection cb = liftIO $ do-    let cb' = wrap_SocketNewConnectionCallback cb-    mk_SocketNewConnectionCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `SocketNewConnectionCallback` into a `C_SocketNewConnectionCallback`.-wrap_SocketNewConnectionCallback ::-    SocketNewConnectionCallback ->-    C_SocketNewConnectionCallback-wrap_SocketNewConnectionCallback _cb _ new _ = do-    new' <- (newObject Socket) new-    _cb  new'---{- |-Connect a signal handler for the “@new-connection@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' socket #newConnection callback-@--}-onSocketNewConnection :: (IsSocket a, MonadIO m) => a -> SocketNewConnectionCallback -> m SignalHandlerId-onSocketNewConnection obj cb = liftIO $ do-    let cb' = wrap_SocketNewConnectionCallback cb-    cb'' <- mk_SocketNewConnectionCallback cb'-    connectSignalFunPtr obj "new-connection" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@new-connection@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' socket #newConnection callback-@--}-afterSocketNewConnection :: (IsSocket a, MonadIO m) => a -> SocketNewConnectionCallback -> m SignalHandlerId-afterSocketNewConnection obj cb = liftIO $ do-    let cb' = wrap_SocketNewConnectionCallback cb-    cb'' <- mk_SocketNewConnectionCallback cb'-    connectSignalFunPtr obj "new-connection" cb'' SignalConnectAfter----- signal Socket::readable-{- |-Emitted when an async socket is readable. See-'GI.Soup.Objects.Socket.socketRead', 'GI.Soup.Objects.Socket.socketReadUntil' and-'GI.Soup.Objects.Socket.Socket':@/non-blocking/@.--}-type SocketReadableCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `SocketReadableCallback`@.-noSocketReadableCallback :: Maybe SocketReadableCallback-noSocketReadableCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_SocketReadableCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_SocketReadableCallback`.-foreign import ccall "wrapper"-    mk_SocketReadableCallback :: C_SocketReadableCallback -> IO (FunPtr C_SocketReadableCallback)---- | Wrap the callback into a `GClosure`.-genClosure_SocketReadable :: MonadIO m => SocketReadableCallback -> m (GClosure C_SocketReadableCallback)-genClosure_SocketReadable cb = liftIO $ do-    let cb' = wrap_SocketReadableCallback cb-    mk_SocketReadableCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `SocketReadableCallback` into a `C_SocketReadableCallback`.-wrap_SocketReadableCallback ::-    SocketReadableCallback ->-    C_SocketReadableCallback-wrap_SocketReadableCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@readable@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' socket #readable callback-@--}-onSocketReadable :: (IsSocket a, MonadIO m) => a -> SocketReadableCallback -> m SignalHandlerId-onSocketReadable obj cb = liftIO $ do-    let cb' = wrap_SocketReadableCallback cb-    cb'' <- mk_SocketReadableCallback cb'-    connectSignalFunPtr obj "readable" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@readable@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' socket #readable callback-@--}-afterSocketReadable :: (IsSocket a, MonadIO m) => a -> SocketReadableCallback -> m SignalHandlerId-afterSocketReadable obj cb = liftIO $ do-    let cb' = wrap_SocketReadableCallback cb-    cb'' <- mk_SocketReadableCallback cb'-    connectSignalFunPtr obj "readable" cb'' SignalConnectAfter----- signal Socket::writable-{- |-Emitted when an async socket is writable. See-'GI.Soup.Objects.Socket.socketWrite' and 'GI.Soup.Objects.Socket.Socket':@/non-blocking/@.--}-type SocketWritableCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `SocketWritableCallback`@.-noSocketWritableCallback :: Maybe SocketWritableCallback-noSocketWritableCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_SocketWritableCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_SocketWritableCallback`.-foreign import ccall "wrapper"-    mk_SocketWritableCallback :: C_SocketWritableCallback -> IO (FunPtr C_SocketWritableCallback)---- | Wrap the callback into a `GClosure`.-genClosure_SocketWritable :: MonadIO m => SocketWritableCallback -> m (GClosure C_SocketWritableCallback)-genClosure_SocketWritable cb = liftIO $ do-    let cb' = wrap_SocketWritableCallback cb-    mk_SocketWritableCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `SocketWritableCallback` into a `C_SocketWritableCallback`.-wrap_SocketWritableCallback ::-    SocketWritableCallback ->-    C_SocketWritableCallback-wrap_SocketWritableCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@writable@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' socket #writable callback-@--}-onSocketWritable :: (IsSocket a, MonadIO m) => a -> SocketWritableCallback -> m SignalHandlerId-onSocketWritable obj cb = liftIO $ do-    let cb' = wrap_SocketWritableCallback cb-    cb'' <- mk_SocketWritableCallback cb'-    connectSignalFunPtr obj "writable" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@writable@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' socket #writable callback-@--}-afterSocketWritable :: (IsSocket a, MonadIO m) => a -> SocketWritableCallback -> m SignalHandlerId-afterSocketWritable obj cb = liftIO $ do-    let cb' = wrap_SocketWritableCallback cb-    cb'' <- mk_SocketWritableCallback cb'-    connectSignalFunPtr obj "writable" cb'' SignalConnectAfter----- VVV Prop "async-context"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@async-context@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socket #asyncContext-@--}-getSocketAsyncContext :: (MonadIO m, IsSocket o) => o -> m (Ptr ())-getSocketAsyncContext obj = liftIO $ B.Properties.getObjectPropertyPtr obj "async-context"--{- |-Construct a `GValueConstruct` with valid value for the “@async-context@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketAsyncContext :: (IsSocket o) => Ptr () -> IO (GValueConstruct o)-constructSocketAsyncContext val = B.Properties.constructObjectPropertyPtr "async-context" val--#if ENABLE_OVERLOADING-data SocketAsyncContextPropertyInfo-instance AttrInfo SocketAsyncContextPropertyInfo where-    type AttrAllowedOps SocketAsyncContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketAsyncContextPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint SocketAsyncContextPropertyInfo = IsSocket-    type AttrGetType SocketAsyncContextPropertyInfo = (Ptr ())-    type AttrLabel SocketAsyncContextPropertyInfo = "async-context"-    type AttrOrigin SocketAsyncContextPropertyInfo = Socket-    attrGet _ = getSocketAsyncContext-    attrSet _ = undefined-    attrConstruct _ = constructSocketAsyncContext-    attrClear _ = undefined-#endif---- VVV Prop "fd"-   -- Type: TBasicType TInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@fd@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socket #fd-@--}-getSocketFd :: (MonadIO m, IsSocket o) => o -> m Int32-getSocketFd obj = liftIO $ B.Properties.getObjectPropertyInt32 obj "fd"--{- |-Construct a `GValueConstruct` with valid value for the “@fd@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketFd :: (IsSocket o) => Int32 -> IO (GValueConstruct o)-constructSocketFd val = B.Properties.constructObjectPropertyInt32 "fd" val--#if ENABLE_OVERLOADING-data SocketFdPropertyInfo-instance AttrInfo SocketFdPropertyInfo where-    type AttrAllowedOps SocketFdPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketFdPropertyInfo = (~) Int32-    type AttrBaseTypeConstraint SocketFdPropertyInfo = IsSocket-    type AttrGetType SocketFdPropertyInfo = Int32-    type AttrLabel SocketFdPropertyInfo = "fd"-    type AttrOrigin SocketFdPropertyInfo = Socket-    attrGet _ = getSocketFd-    attrSet _ = undefined-    attrConstruct _ = constructSocketFd-    attrClear _ = undefined-#endif---- VVV Prop "gsocket"-   -- Type: TInterface (Name {namespace = "Gio", name = "Socket"})-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Construct a `GValueConstruct` with valid value for the “@gsocket@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketGsocket :: (IsSocket o, Gio.Socket.IsSocket a) => a -> IO (GValueConstruct o)-constructSocketGsocket val = B.Properties.constructObjectPropertyObject "gsocket" (Just val)--#if ENABLE_OVERLOADING-data SocketGsocketPropertyInfo-instance AttrInfo SocketGsocketPropertyInfo where-    type AttrAllowedOps SocketGsocketPropertyInfo = '[ 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint SocketGsocketPropertyInfo = Gio.Socket.IsSocket-    type AttrBaseTypeConstraint SocketGsocketPropertyInfo = IsSocket-    type AttrGetType SocketGsocketPropertyInfo = ()-    type AttrLabel SocketGsocketPropertyInfo = "gsocket"-    type AttrOrigin SocketGsocketPropertyInfo = Socket-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructSocketGsocket-    attrClear _ = undefined-#endif---- VVV Prop "iostream"-   -- Type: TInterface (Name {namespace = "Gio", name = "IOStream"})-   -- Flags: [PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Construct a `GValueConstruct` with valid value for the “@iostream@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketIostream :: (IsSocket o, Gio.IOStream.IsIOStream a) => a -> IO (GValueConstruct o)-constructSocketIostream val = B.Properties.constructObjectPropertyObject "iostream" (Just val)--#if ENABLE_OVERLOADING-data SocketIostreamPropertyInfo-instance AttrInfo SocketIostreamPropertyInfo where-    type AttrAllowedOps SocketIostreamPropertyInfo = '[ 'AttrConstruct, 'AttrClear]-    type AttrSetTypeConstraint SocketIostreamPropertyInfo = Gio.IOStream.IsIOStream-    type AttrBaseTypeConstraint SocketIostreamPropertyInfo = IsSocket-    type AttrGetType SocketIostreamPropertyInfo = ()-    type AttrLabel SocketIostreamPropertyInfo = "iostream"-    type AttrOrigin SocketIostreamPropertyInfo = Socket-    attrGet _ = undefined-    attrSet _ = undefined-    attrConstruct _ = constructSocketIostream-    attrClear _ = undefined-#endif---- VVV Prop "ipv6-only"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@ipv6-only@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socket #ipv6Only-@--}-getSocketIpv6Only :: (MonadIO m, IsSocket o) => o -> m Bool-getSocketIpv6Only obj = liftIO $ B.Properties.getObjectPropertyBool obj "ipv6-only"--{- |-Set the value of the “@ipv6-only@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' socket [ #ipv6Only 'Data.GI.Base.Attributes.:=' value ]-@--}-setSocketIpv6Only :: (MonadIO m, IsSocket o) => o -> Bool -> m ()-setSocketIpv6Only obj val = liftIO $ B.Properties.setObjectPropertyBool obj "ipv6-only" val--{- |-Construct a `GValueConstruct` with valid value for the “@ipv6-only@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketIpv6Only :: (IsSocket o) => Bool -> IO (GValueConstruct o)-constructSocketIpv6Only val = B.Properties.constructObjectPropertyBool "ipv6-only" val--#if ENABLE_OVERLOADING-data SocketIpv6OnlyPropertyInfo-instance AttrInfo SocketIpv6OnlyPropertyInfo where-    type AttrAllowedOps SocketIpv6OnlyPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketIpv6OnlyPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SocketIpv6OnlyPropertyInfo = IsSocket-    type AttrGetType SocketIpv6OnlyPropertyInfo = Bool-    type AttrLabel SocketIpv6OnlyPropertyInfo = "ipv6-only"-    type AttrOrigin SocketIpv6OnlyPropertyInfo = Socket-    attrGet _ = getSocketIpv6Only-    attrSet _ = setSocketIpv6Only-    attrConstruct _ = constructSocketIpv6Only-    attrClear _ = undefined-#endif---- VVV Prop "is-server"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@is-server@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socket #isServer-@--}-getSocketIsServer :: (MonadIO m, IsSocket o) => o -> m Bool-getSocketIsServer obj = liftIO $ B.Properties.getObjectPropertyBool obj "is-server"--#if ENABLE_OVERLOADING-data SocketIsServerPropertyInfo-instance AttrInfo SocketIsServerPropertyInfo where-    type AttrAllowedOps SocketIsServerPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint SocketIsServerPropertyInfo = (~) ()-    type AttrBaseTypeConstraint SocketIsServerPropertyInfo = IsSocket-    type AttrGetType SocketIsServerPropertyInfo = Bool-    type AttrLabel SocketIsServerPropertyInfo = "is-server"-    type AttrOrigin SocketIsServerPropertyInfo = Socket-    attrGet _ = getSocketIsServer-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "local-address"-   -- Type: TInterface (Name {namespace = "Soup", name = "Address"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@local-address@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socket #localAddress-@--}-getSocketLocalAddress :: (MonadIO m, IsSocket o) => o -> m Soup.Address.Address-getSocketLocalAddress obj = liftIO $ checkUnexpectedNothing "getSocketLocalAddress" $ B.Properties.getObjectPropertyObject obj "local-address" Soup.Address.Address--{- |-Construct a `GValueConstruct` with valid value for the “@local-address@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketLocalAddress :: (IsSocket o, Soup.Address.IsAddress a) => a -> IO (GValueConstruct o)-constructSocketLocalAddress val = B.Properties.constructObjectPropertyObject "local-address" (Just val)--#if ENABLE_OVERLOADING-data SocketLocalAddressPropertyInfo-instance AttrInfo SocketLocalAddressPropertyInfo where-    type AttrAllowedOps SocketLocalAddressPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SocketLocalAddressPropertyInfo = Soup.Address.IsAddress-    type AttrBaseTypeConstraint SocketLocalAddressPropertyInfo = IsSocket-    type AttrGetType SocketLocalAddressPropertyInfo = Soup.Address.Address-    type AttrLabel SocketLocalAddressPropertyInfo = "local-address"-    type AttrOrigin SocketLocalAddressPropertyInfo = Socket-    attrGet _ = getSocketLocalAddress-    attrSet _ = undefined-    attrConstruct _ = constructSocketLocalAddress-    attrClear _ = undefined-#endif---- VVV Prop "non-blocking"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@non-blocking@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socket #nonBlocking-@--}-getSocketNonBlocking :: (MonadIO m, IsSocket o) => o -> m Bool-getSocketNonBlocking obj = liftIO $ B.Properties.getObjectPropertyBool obj "non-blocking"--{- |-Set the value of the “@non-blocking@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' socket [ #nonBlocking 'Data.GI.Base.Attributes.:=' value ]-@--}-setSocketNonBlocking :: (MonadIO m, IsSocket o) => o -> Bool -> m ()-setSocketNonBlocking obj val = liftIO $ B.Properties.setObjectPropertyBool obj "non-blocking" val--{- |-Construct a `GValueConstruct` with valid value for the “@non-blocking@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketNonBlocking :: (IsSocket o) => Bool -> IO (GValueConstruct o)-constructSocketNonBlocking val = B.Properties.constructObjectPropertyBool "non-blocking" val--#if ENABLE_OVERLOADING-data SocketNonBlockingPropertyInfo-instance AttrInfo SocketNonBlockingPropertyInfo where-    type AttrAllowedOps SocketNonBlockingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketNonBlockingPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SocketNonBlockingPropertyInfo = IsSocket-    type AttrGetType SocketNonBlockingPropertyInfo = Bool-    type AttrLabel SocketNonBlockingPropertyInfo = "non-blocking"-    type AttrOrigin SocketNonBlockingPropertyInfo = Socket-    attrGet _ = getSocketNonBlocking-    attrSet _ = setSocketNonBlocking-    attrConstruct _ = constructSocketNonBlocking-    attrClear _ = undefined-#endif---- VVV Prop "remote-address"-   -- Type: TInterface (Name {namespace = "Soup", name = "Address"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@remote-address@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socket #remoteAddress-@--}-getSocketRemoteAddress :: (MonadIO m, IsSocket o) => o -> m Soup.Address.Address-getSocketRemoteAddress obj = liftIO $ checkUnexpectedNothing "getSocketRemoteAddress" $ B.Properties.getObjectPropertyObject obj "remote-address" Soup.Address.Address--{- |-Construct a `GValueConstruct` with valid value for the “@remote-address@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketRemoteAddress :: (IsSocket o, Soup.Address.IsAddress a) => a -> IO (GValueConstruct o)-constructSocketRemoteAddress val = B.Properties.constructObjectPropertyObject "remote-address" (Just val)--#if ENABLE_OVERLOADING-data SocketRemoteAddressPropertyInfo-instance AttrInfo SocketRemoteAddressPropertyInfo where-    type AttrAllowedOps SocketRemoteAddressPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SocketRemoteAddressPropertyInfo = Soup.Address.IsAddress-    type AttrBaseTypeConstraint SocketRemoteAddressPropertyInfo = IsSocket-    type AttrGetType SocketRemoteAddressPropertyInfo = Soup.Address.Address-    type AttrLabel SocketRemoteAddressPropertyInfo = "remote-address"-    type AttrOrigin SocketRemoteAddressPropertyInfo = Socket-    attrGet _ = getSocketRemoteAddress-    attrSet _ = undefined-    attrConstruct _ = constructSocketRemoteAddress-    attrClear _ = undefined-#endif---- VVV Prop "ssl-creds"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@ssl-creds@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socket #sslCreds-@--}-getSocketSslCreds :: (MonadIO m, IsSocket o) => o -> m (Ptr ())-getSocketSslCreds obj = liftIO $ B.Properties.getObjectPropertyPtr obj "ssl-creds"--{- |-Set the value of the “@ssl-creds@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' socket [ #sslCreds 'Data.GI.Base.Attributes.:=' value ]-@--}-setSocketSslCreds :: (MonadIO m, IsSocket o) => o -> Ptr () -> m ()-setSocketSslCreds obj val = liftIO $ B.Properties.setObjectPropertyPtr obj "ssl-creds" val--{- |-Construct a `GValueConstruct` with valid value for the “@ssl-creds@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketSslCreds :: (IsSocket o) => Ptr () -> IO (GValueConstruct o)-constructSocketSslCreds val = B.Properties.constructObjectPropertyPtr "ssl-creds" val--#if ENABLE_OVERLOADING-data SocketSslCredsPropertyInfo-instance AttrInfo SocketSslCredsPropertyInfo where-    type AttrAllowedOps SocketSslCredsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketSslCredsPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint SocketSslCredsPropertyInfo = IsSocket-    type AttrGetType SocketSslCredsPropertyInfo = (Ptr ())-    type AttrLabel SocketSslCredsPropertyInfo = "ssl-creds"-    type AttrOrigin SocketSslCredsPropertyInfo = Socket-    attrGet _ = getSocketSslCreds-    attrSet _ = setSocketSslCreds-    attrConstruct _ = constructSocketSslCreds-    attrClear _ = undefined-#endif---- VVV Prop "ssl-fallback"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@ssl-fallback@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socket #sslFallback-@--}-getSocketSslFallback :: (MonadIO m, IsSocket o) => o -> m Bool-getSocketSslFallback obj = liftIO $ B.Properties.getObjectPropertyBool obj "ssl-fallback"--{- |-Construct a `GValueConstruct` with valid value for the “@ssl-fallback@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketSslFallback :: (IsSocket o) => Bool -> IO (GValueConstruct o)-constructSocketSslFallback val = B.Properties.constructObjectPropertyBool "ssl-fallback" val--#if ENABLE_OVERLOADING-data SocketSslFallbackPropertyInfo-instance AttrInfo SocketSslFallbackPropertyInfo where-    type AttrAllowedOps SocketSslFallbackPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketSslFallbackPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SocketSslFallbackPropertyInfo = IsSocket-    type AttrGetType SocketSslFallbackPropertyInfo = Bool-    type AttrLabel SocketSslFallbackPropertyInfo = "ssl-fallback"-    type AttrOrigin SocketSslFallbackPropertyInfo = Socket-    attrGet _ = getSocketSslFallback-    attrSet _ = undefined-    attrConstruct _ = constructSocketSslFallback-    attrClear _ = undefined-#endif---- VVV Prop "ssl-strict"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@ssl-strict@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socket #sslStrict-@--}-getSocketSslStrict :: (MonadIO m, IsSocket o) => o -> m Bool-getSocketSslStrict obj = liftIO $ B.Properties.getObjectPropertyBool obj "ssl-strict"--{- |-Construct a `GValueConstruct` with valid value for the “@ssl-strict@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketSslStrict :: (IsSocket o) => Bool -> IO (GValueConstruct o)-constructSocketSslStrict val = B.Properties.constructObjectPropertyBool "ssl-strict" val--#if ENABLE_OVERLOADING-data SocketSslStrictPropertyInfo-instance AttrInfo SocketSslStrictPropertyInfo where-    type AttrAllowedOps SocketSslStrictPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketSslStrictPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SocketSslStrictPropertyInfo = IsSocket-    type AttrGetType SocketSslStrictPropertyInfo = Bool-    type AttrLabel SocketSslStrictPropertyInfo = "ssl-strict"-    type AttrOrigin SocketSslStrictPropertyInfo = Socket-    attrGet _ = getSocketSslStrict-    attrSet _ = undefined-    attrConstruct _ = constructSocketSslStrict-    attrClear _ = undefined-#endif---- VVV Prop "timeout"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@timeout@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socket #timeout-@--}-getSocketTimeout :: (MonadIO m, IsSocket o) => o -> m Word32-getSocketTimeout obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "timeout"--{- |-Set the value of the “@timeout@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' socket [ #timeout 'Data.GI.Base.Attributes.:=' value ]-@--}-setSocketTimeout :: (MonadIO m, IsSocket o) => o -> Word32 -> m ()-setSocketTimeout obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "timeout" val--{- |-Construct a `GValueConstruct` with valid value for the “@timeout@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketTimeout :: (IsSocket o) => Word32 -> IO (GValueConstruct o)-constructSocketTimeout val = B.Properties.constructObjectPropertyUInt32 "timeout" val--#if ENABLE_OVERLOADING-data SocketTimeoutPropertyInfo-instance AttrInfo SocketTimeoutPropertyInfo where-    type AttrAllowedOps SocketTimeoutPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketTimeoutPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint SocketTimeoutPropertyInfo = IsSocket-    type AttrGetType SocketTimeoutPropertyInfo = Word32-    type AttrLabel SocketTimeoutPropertyInfo = "timeout"-    type AttrOrigin SocketTimeoutPropertyInfo = Socket-    attrGet _ = getSocketTimeout-    attrSet _ = setSocketTimeout-    attrConstruct _ = constructSocketTimeout-    attrClear _ = undefined-#endif---- VVV Prop "tls-certificate"-   -- Type: TInterface (Name {namespace = "Gio", name = "TlsCertificate"})-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@tls-certificate@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socket #tlsCertificate-@--}-getSocketTlsCertificate :: (MonadIO m, IsSocket o) => o -> m (Maybe Gio.TlsCertificate.TlsCertificate)-getSocketTlsCertificate obj = liftIO $ B.Properties.getObjectPropertyObject obj "tls-certificate" Gio.TlsCertificate.TlsCertificate--#if ENABLE_OVERLOADING-data SocketTlsCertificatePropertyInfo-instance AttrInfo SocketTlsCertificatePropertyInfo where-    type AttrAllowedOps SocketTlsCertificatePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint SocketTlsCertificatePropertyInfo = (~) ()-    type AttrBaseTypeConstraint SocketTlsCertificatePropertyInfo = IsSocket-    type AttrGetType SocketTlsCertificatePropertyInfo = (Maybe Gio.TlsCertificate.TlsCertificate)-    type AttrLabel SocketTlsCertificatePropertyInfo = "tls-certificate"-    type AttrOrigin SocketTlsCertificatePropertyInfo = Socket-    attrGet _ = getSocketTlsCertificate-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "tls-errors"-   -- Type: TInterface (Name {namespace = "Gio", name = "TlsCertificateFlags"})-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@tls-errors@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socket #tlsErrors-@--}-getSocketTlsErrors :: (MonadIO m, IsSocket o) => o -> m [Gio.Flags.TlsCertificateFlags]-getSocketTlsErrors obj = liftIO $ B.Properties.getObjectPropertyFlags obj "tls-errors"--#if ENABLE_OVERLOADING-data SocketTlsErrorsPropertyInfo-instance AttrInfo SocketTlsErrorsPropertyInfo where-    type AttrAllowedOps SocketTlsErrorsPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint SocketTlsErrorsPropertyInfo = (~) ()-    type AttrBaseTypeConstraint SocketTlsErrorsPropertyInfo = IsSocket-    type AttrGetType SocketTlsErrorsPropertyInfo = [Gio.Flags.TlsCertificateFlags]-    type AttrLabel SocketTlsErrorsPropertyInfo = "tls-errors"-    type AttrOrigin SocketTlsErrorsPropertyInfo = Socket-    attrGet _ = getSocketTlsErrors-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "trusted-certificate"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@trusted-certificate@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socket #trustedCertificate-@--}-getSocketTrustedCertificate :: (MonadIO m, IsSocket o) => o -> m Bool-getSocketTrustedCertificate obj = liftIO $ B.Properties.getObjectPropertyBool obj "trusted-certificate"--#if ENABLE_OVERLOADING-data SocketTrustedCertificatePropertyInfo-instance AttrInfo SocketTrustedCertificatePropertyInfo where-    type AttrAllowedOps SocketTrustedCertificatePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint SocketTrustedCertificatePropertyInfo = (~) ()-    type AttrBaseTypeConstraint SocketTrustedCertificatePropertyInfo = IsSocket-    type AttrGetType SocketTrustedCertificatePropertyInfo = Bool-    type AttrLabel SocketTrustedCertificatePropertyInfo = "trusted-certificate"-    type AttrOrigin SocketTrustedCertificatePropertyInfo = Socket-    attrGet _ = getSocketTrustedCertificate-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "use-thread-context"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--{- |-Get the value of the “@use-thread-context@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' socket #useThreadContext-@--}-getSocketUseThreadContext :: (MonadIO m, IsSocket o) => o -> m Bool-getSocketUseThreadContext obj = liftIO $ B.Properties.getObjectPropertyBool obj "use-thread-context"--{- |-Construct a `GValueConstruct` with valid value for the “@use-thread-context@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructSocketUseThreadContext :: (IsSocket o) => Bool -> IO (GValueConstruct o)-constructSocketUseThreadContext val = B.Properties.constructObjectPropertyBool "use-thread-context" val--#if ENABLE_OVERLOADING-data SocketUseThreadContextPropertyInfo-instance AttrInfo SocketUseThreadContextPropertyInfo where-    type AttrAllowedOps SocketUseThreadContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint SocketUseThreadContextPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint SocketUseThreadContextPropertyInfo = IsSocket-    type AttrGetType SocketUseThreadContextPropertyInfo = Bool-    type AttrLabel SocketUseThreadContextPropertyInfo = "use-thread-context"-    type AttrOrigin SocketUseThreadContextPropertyInfo = Socket-    attrGet _ = getSocketUseThreadContext-    attrSet _ = undefined-    attrConstruct _ = constructSocketUseThreadContext-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList Socket-type instance O.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, *)])-#endif--#if ENABLE_OVERLOADING-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--#endif--#if ENABLE_OVERLOADING-data SocketDisconnectedSignalInfo-instance SignalInfo SocketDisconnectedSignalInfo where-    type HaskellCallbackType SocketDisconnectedSignalInfo = SocketDisconnectedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_SocketDisconnectedCallback cb-        cb'' <- mk_SocketDisconnectedCallback cb'-        connectSignalFunPtr obj "disconnected" cb'' connectMode--data SocketEventSignalInfo-instance SignalInfo SocketEventSignalInfo where-    type HaskellCallbackType SocketEventSignalInfo = SocketEventCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_SocketEventCallback cb-        cb'' <- mk_SocketEventCallback cb'-        connectSignalFunPtr obj "event" cb'' connectMode--data SocketNewConnectionSignalInfo-instance SignalInfo SocketNewConnectionSignalInfo where-    type HaskellCallbackType SocketNewConnectionSignalInfo = SocketNewConnectionCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_SocketNewConnectionCallback cb-        cb'' <- mk_SocketNewConnectionCallback cb'-        connectSignalFunPtr obj "new-connection" cb'' connectMode--data SocketReadableSignalInfo-instance SignalInfo SocketReadableSignalInfo where-    type HaskellCallbackType SocketReadableSignalInfo = SocketReadableCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_SocketReadableCallback cb-        cb'' <- mk_SocketReadableCallback cb'-        connectSignalFunPtr obj "readable" cb'' connectMode--data SocketWritableSignalInfo-instance SignalInfo SocketWritableSignalInfo where-    type HaskellCallbackType SocketWritableSignalInfo = SocketWritableCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_SocketWritableCallback cb-        cb'' <- mk_SocketWritableCallback cb'-        connectSignalFunPtr obj "writable" cb'' connectMode--type instance O.SignalList Socket = SocketSignalList-type SocketSignalList = ('[ '("disconnected", SocketDisconnectedSignalInfo), '("event", SocketEventSignalInfo), '("newConnection", SocketNewConnectionSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("readable", SocketReadableSignalInfo), '("writable", SocketWritableSignalInfo)] :: [(Symbol, *)])--#endif---- method Socket::connect_async--- method type : OrdinaryMethod--- Args : [Arg {argCName = "sock", argType = TInterface (Name {namespace = "Soup", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a client #SoupSocket (which must not already be connected)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "callback", argType = TInterface (Name {namespace = "Soup", name = "SocketCallback"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "callback to call after connecting", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data to pass to @callback", sinceVersion = Nothing}, 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 ->                           -- sock : TInterface (Name {namespace = "Soup", name = "Socket"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    FunPtr Soup.Callbacks.C_SocketCallback -> -- callback : TInterface (Name {namespace = "Soup", name = "SocketCallback"})-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()--{- |-Begins asynchronously connecting to /@sock@/\'s remote address. The-socket will call /@callback@/ when it succeeds or fails (but not-before returning from this function).--If /@cancellable@/ is non-'Nothing', it can be used to cancel the-connection. /@callback@/ will still be invoked in this case, with a-status of 'GI.Soup.Enums.StatusCancelled'.--}-socketConnectAsync ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@sock@/: a client 'GI.Soup.Objects.Socket.Socket' (which must not already be connected) -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> Soup.Callbacks.SocketCallback-    {- ^ /@callback@/: callback to call after connecting -}-    -> m ()-socketConnectAsync sock cancellable callback = liftIO $ do-    sock' <- unsafeManagedPtrCastPtr sock-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    ptrcallback <- callocMem :: IO (Ptr (FunPtr Soup.Callbacks.C_SocketCallback))-    callback' <- Soup.Callbacks.mk_SocketCallback (Soup.Callbacks.wrap_SocketCallback (Just ptrcallback) (Soup.Callbacks.drop_closures_SocketCallback callback))-    poke ptrcallback callback'-    let userData = nullPtr-    soup_socket_connect_async sock' maybeCancellable callback' userData-    touchManagedPtr sock-    whenJust cancellable touchManagedPtr-    return ()--#if ENABLE_OVERLOADING-data SocketConnectAsyncMethodInfo-instance (signature ~ (Maybe (b) -> Soup.Callbacks.SocketCallback -> m ()), MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketConnectAsyncMethodInfo a signature where-    overloadedMethod _ = socketConnectAsync--#endif---- method Socket::connect_sync--- method type : OrdinaryMethod--- Args : [Arg {argCName = "sock", argType = TInterface (Name {namespace = "Soup", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a client #SoupSocket (which must not already be connected)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable, or %NULL", sinceVersion = Nothing}, 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 ->                           -- sock : TInterface (Name {namespace = "Soup", name = "Socket"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    IO Word32--{- |-Attempt to synchronously connect /@sock@/ to its remote address.--If /@cancellable@/ is non-'Nothing', it can be used to cancel the-connection, in which case 'GI.Soup.Objects.Socket.socketConnectSync' will return-'GI.Soup.Enums.StatusCancelled'.--}-socketConnectSync ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@sock@/: a client 'GI.Soup.Objects.Socket.Socket' (which must not already be connected) -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m Word32-    {- ^ __Returns:__ a success or failure code. -}-socketConnectSync sock cancellable = liftIO $ do-    sock' <- unsafeManagedPtrCastPtr sock-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    result <- soup_socket_connect_sync sock' maybeCancellable-    touchManagedPtr sock-    whenJust cancellable touchManagedPtr-    return result--#if ENABLE_OVERLOADING-data SocketConnectSyncMethodInfo-instance (signature ~ (Maybe (b) -> m Word32), MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketConnectSyncMethodInfo a signature where-    overloadedMethod _ = socketConnectSync--#endif---- method Socket::disconnect--- method type : OrdinaryMethod--- Args : [Arg {argCName = "sock", argType = TInterface (Name {namespace = "Soup", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSocket", sinceVersion = Nothing}, 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 ->                           -- sock : TInterface (Name {namespace = "Soup", name = "Socket"})-    IO ()--{- |-Disconnects /@sock@/. Any further read or write attempts on it will-fail.--}-socketDisconnect ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@sock@/: a 'GI.Soup.Objects.Socket.Socket' -}-    -> m ()-socketDisconnect sock = liftIO $ do-    sock' <- unsafeManagedPtrCastPtr sock-    soup_socket_disconnect sock'-    touchManagedPtr sock-    return ()--#if ENABLE_OVERLOADING-data SocketDisconnectMethodInfo-instance (signature ~ (m ()), MonadIO m, IsSocket a) => O.MethodInfo SocketDisconnectMethodInfo a signature where-    overloadedMethod _ = socketDisconnect--#endif---- method Socket::get_fd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "sock", argType = TInterface (Name {namespace = "Soup", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSocket", sinceVersion = Nothing}, 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 ->                           -- sock : TInterface (Name {namespace = "Soup", name = "Socket"})-    IO Int32--{- |-Gets /@sock@/\'s underlying file descriptor.--Note that fiddling with the file descriptor may break the-'GI.Soup.Objects.Socket.Socket'.--}-socketGetFd ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@sock@/: a 'GI.Soup.Objects.Socket.Socket' -}-    -> m Int32-    {- ^ __Returns:__ /@sock@/\'s file descriptor. -}-socketGetFd sock = liftIO $ do-    sock' <- unsafeManagedPtrCastPtr sock-    result <- soup_socket_get_fd sock'-    touchManagedPtr sock-    return result--#if ENABLE_OVERLOADING-data SocketGetFdMethodInfo-instance (signature ~ (m Int32), MonadIO m, IsSocket a) => O.MethodInfo SocketGetFdMethodInfo a signature where-    overloadedMethod _ = socketGetFd--#endif---- method Socket::get_local_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "sock", argType = TInterface (Name {namespace = "Soup", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Address"}))--- throws : False--- Skip return : False--foreign import ccall "soup_socket_get_local_address" soup_socket_get_local_address :: -    Ptr Socket ->                           -- sock : TInterface (Name {namespace = "Soup", name = "Socket"})-    IO (Ptr Soup.Address.Address)--{- |-Returns the 'GI.Soup.Objects.Address.Address' corresponding to the local end of /@sock@/.--Calling this method on an unconnected socket is considered to be-an error, and produces undefined results.--}-socketGetLocalAddress ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@sock@/: a 'GI.Soup.Objects.Socket.Socket' -}-    -> m Soup.Address.Address-    {- ^ __Returns:__ the 'GI.Soup.Objects.Address.Address' -}-socketGetLocalAddress sock = liftIO $ do-    sock' <- unsafeManagedPtrCastPtr sock-    result <- soup_socket_get_local_address sock'-    checkUnexpectedReturnNULL "socketGetLocalAddress" result-    result' <- (newObject Soup.Address.Address) result-    touchManagedPtr sock-    return result'--#if ENABLE_OVERLOADING-data SocketGetLocalAddressMethodInfo-instance (signature ~ (m Soup.Address.Address), MonadIO m, IsSocket a) => O.MethodInfo SocketGetLocalAddressMethodInfo a signature where-    overloadedMethod _ = socketGetLocalAddress--#endif---- method Socket::get_remote_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "sock", argType = TInterface (Name {namespace = "Soup", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Address"}))--- throws : False--- Skip return : False--foreign import ccall "soup_socket_get_remote_address" soup_socket_get_remote_address :: -    Ptr Socket ->                           -- sock : TInterface (Name {namespace = "Soup", name = "Socket"})-    IO (Ptr Soup.Address.Address)--{- |-Returns the 'GI.Soup.Objects.Address.Address' corresponding to the remote end of /@sock@/.--Calling this method on an unconnected socket is considered to be-an error, and produces undefined results.--}-socketGetRemoteAddress ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@sock@/: a 'GI.Soup.Objects.Socket.Socket' -}-    -> m Soup.Address.Address-    {- ^ __Returns:__ the 'GI.Soup.Objects.Address.Address' -}-socketGetRemoteAddress sock = liftIO $ do-    sock' <- unsafeManagedPtrCastPtr sock-    result <- soup_socket_get_remote_address sock'-    checkUnexpectedReturnNULL "socketGetRemoteAddress" result-    result' <- (newObject Soup.Address.Address) result-    touchManagedPtr sock-    return result'--#if ENABLE_OVERLOADING-data SocketGetRemoteAddressMethodInfo-instance (signature ~ (m Soup.Address.Address), MonadIO m, IsSocket a) => O.MethodInfo SocketGetRemoteAddressMethodInfo a signature where-    overloadedMethod _ = socketGetRemoteAddress--#endif---- method Socket::is_connected--- method type : OrdinaryMethod--- Args : [Arg {argCName = "sock", argType = TInterface (Name {namespace = "Soup", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSocket", sinceVersion = Nothing}, 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 ->                           -- sock : TInterface (Name {namespace = "Soup", name = "Socket"})-    IO CInt--{- |-Tests if /@sock@/ is connected to another host--}-socketIsConnected ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@sock@/: a 'GI.Soup.Objects.Socket.Socket' -}-    -> m Bool-    {- ^ __Returns:__ 'True' or 'False'. -}-socketIsConnected sock = liftIO $ do-    sock' <- unsafeManagedPtrCastPtr sock-    result <- soup_socket_is_connected sock'-    let result' = (/= 0) result-    touchManagedPtr sock-    return result'--#if ENABLE_OVERLOADING-data SocketIsConnectedMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsSocket a) => O.MethodInfo SocketIsConnectedMethodInfo a signature where-    overloadedMethod _ = socketIsConnected--#endif---- method Socket::is_ssl--- method type : OrdinaryMethod--- Args : [Arg {argCName = "sock", argType = TInterface (Name {namespace = "Soup", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupSocket", sinceVersion = Nothing}, 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 ->                           -- sock : TInterface (Name {namespace = "Soup", name = "Socket"})-    IO CInt--{- |-Tests if /@sock@/ is doing (or has attempted to do) SSL.--}-socketIsSsl ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@sock@/: a 'GI.Soup.Objects.Socket.Socket' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@sock@/ has SSL credentials set -}-socketIsSsl sock = liftIO $ do-    sock' <- unsafeManagedPtrCastPtr sock-    result <- soup_socket_is_ssl sock'-    let result' = (/= 0) result-    touchManagedPtr sock-    return result'--#if ENABLE_OVERLOADING-data SocketIsSslMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsSocket a) => O.MethodInfo SocketIsSslMethodInfo a signature where-    overloadedMethod _ = socketIsSsl--#endif---- method Socket::listen--- method type : OrdinaryMethod--- Args : [Arg {argCName = "sock", argType = TInterface (Name {namespace = "Soup", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a server #SoupSocket (which must not already be connected or\nlistening)", sinceVersion = Nothing}, 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 ->                           -- sock : TInterface (Name {namespace = "Soup", name = "Socket"})-    IO CInt--{- |-Makes /@sock@/ start listening on its local address. When connections-come in, /@sock@/ will emit 'GI.Soup.Objects.Socket.Socket'::@/new_connection/@.--}-socketListen ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a) =>-    a-    {- ^ /@sock@/: a server 'GI.Soup.Objects.Socket.Socket' (which must not already be connected or-listening) -}-    -> m Bool-    {- ^ __Returns:__ whether or not /@sock@/ is now listening. -}-socketListen sock = liftIO $ do-    sock' <- unsafeManagedPtrCastPtr sock-    result <- soup_socket_listen sock'-    let result' = (/= 0) result-    touchManagedPtr sock-    return result'--#if ENABLE_OVERLOADING-data SocketListenMethodInfo-instance (signature ~ (m Bool), MonadIO m, IsSocket a) => O.MethodInfo SocketListenMethodInfo a signature where-    overloadedMethod _ = socketListen--#endif---- method Socket::read--- method type : OrdinaryMethod--- Args : [Arg {argCName = "sock", argType = TInterface (Name {namespace = "Soup", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the socket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "buffer to read\n  into", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "size of @buffer in bytes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "nread", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "on return, the number of bytes read into @buffer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "size of @buffer in bytes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TInterface (Name {namespace = "Soup", name = "SocketIOStatus"}))--- throws : True--- Skip return : False--foreign import ccall "soup_socket_read" soup_socket_read :: -    Ptr Socket ->                           -- sock : TInterface (Name {namespace = "Soup", name = "Socket"})-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- len : TBasicType TUInt64-    Ptr Word64 ->                           -- nread : TBasicType TUInt64-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CUInt--{- |-Attempts to read up to /@len@/ bytes from /@sock@/ into /@buffer@/. If some-data is successfully read, 'GI.Soup.Objects.Socket.socketRead' will return-'GI.Soup.Enums.SocketIOStatusOk', and */@nread@/ will contain the number of bytes-actually read (which may be less than /@len@/).--If /@sock@/ is non-blocking, and no data is available, the return-value will be 'GI.Soup.Enums.SocketIOStatusWouldBlock'. In this case, the caller-can connect to the 'GI.Soup.Objects.Socket.Socket'::@/readable/@ signal to know when there-is more data to read. (NB: You MUST read all available data off the-socket first. 'GI.Soup.Objects.Socket.Socket'::@/readable/@ is only emitted after-'GI.Soup.Objects.Socket.socketRead' returns 'GI.Soup.Enums.SocketIOStatusWouldBlock', and it is only-emitted once. See the documentation for 'GI.Soup.Objects.Socket.Socket':@/non-blocking/@.)--}-socketRead ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@sock@/: the socket -}-    -> ByteString-    {- ^ /@buffer@/: buffer to read-  into -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m ((Soup.Enums.SocketIOStatus, Word64))-    {- ^ __Returns:__ a 'GI.Soup.Enums.SocketIOStatus', as described above (or-'GI.Soup.Enums.SocketIOStatusEof' if the socket is no longer connected, or-'GI.Soup.Enums.SocketIOStatusError' on any other error, in which case /@error@/ will-also be set). /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketRead sock buffer cancellable = liftIO $ do-    let len = fromIntegral $ B.length buffer-    sock' <- unsafeManagedPtrCastPtr sock-    buffer' <- packByteString buffer-    nread <- allocMem :: IO (Ptr Word64)-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ soup_socket_read sock' buffer' len nread maybeCancellable-        let result' = (toEnum . fromIntegral) result-        nread' <- peek nread-        touchManagedPtr sock-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        freeMem nread-        return (result', nread')-     ) (do-        freeMem buffer'-        freeMem nread-     )--#if ENABLE_OVERLOADING-data SocketReadMethodInfo-instance (signature ~ (ByteString -> Maybe (b) -> m ((Soup.Enums.SocketIOStatus, Word64))), MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketReadMethodInfo a signature where-    overloadedMethod _ = socketRead--#endif---- method Socket::read_until--- method type : OrdinaryMethod--- Args : [Arg {argCName = "sock", argType = TInterface (Name {namespace = "Soup", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the socket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "buffer to read\n  into", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "size of @buffer in bytes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "boundary", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "boundary to read until", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "boundary_len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "length of @boundary in bytes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "nread", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "on return, the number of bytes read into @buffer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "got_boundary", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "on return, whether or not the data in @buffer\nends with the boundary string", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "size of @buffer in bytes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TInterface (Name {namespace = "Soup", name = "SocketIOStatus"}))--- throws : True--- Skip return : False--foreign import ccall "soup_socket_read_until" soup_socket_read_until :: -    Ptr Socket ->                           -- sock : TInterface (Name {namespace = "Soup", name = "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 ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CUInt--{- |-Like 'GI.Soup.Objects.Socket.socketRead', but reads no further than the first-occurrence of /@boundary@/. (If the boundary is found, it will be-included in the returned data, and */@gotBoundary@/ will be set to-'True'.) Any data after the boundary will returned in future reads.--'GI.Soup.Objects.Socket.socketReadUntil' will almost always return fewer than /@len@/-bytes: if the boundary is found, then it will only return the bytes-up until the end of the boundary, and if the boundary is not found,-then it will leave the last \<literal>(boundary_len - 1)\<\/literal>-bytes in its internal buffer, in case they form the start of the-boundary string. Thus, /@len@/ normally needs to be at least 1 byte-longer than /@boundaryLen@/ if you want to make any progress at all.--}-socketReadUntil ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@sock@/: the socket -}-    -> ByteString-    {- ^ /@buffer@/: buffer to read-  into -}-    -> Ptr ()-    {- ^ /@boundary@/: boundary to read until -}-    -> Word64-    {- ^ /@boundaryLen@/: length of /@boundary@/ in bytes -}-    -> Bool-    {- ^ /@gotBoundary@/: on return, whether or not the data in /@buffer@/-ends with the boundary string -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m ((Soup.Enums.SocketIOStatus, Word64))-    {- ^ __Returns:__ as for 'GI.Soup.Objects.Socket.socketRead' /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketReadUntil sock buffer boundary boundaryLen gotBoundary cancellable = liftIO $ do-    let len = fromIntegral $ B.length buffer-    sock' <- unsafeManagedPtrCastPtr sock-    buffer' <- packByteString buffer-    nread <- allocMem :: IO (Ptr Word64)-    let gotBoundary' = (fromIntegral . fromEnum) gotBoundary-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ soup_socket_read_until sock' buffer' len boundary boundaryLen nread gotBoundary' maybeCancellable-        let result' = (toEnum . fromIntegral) result-        nread' <- peek nread-        touchManagedPtr sock-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        freeMem nread-        return (result', nread')-     ) (do-        freeMem buffer'-        freeMem nread-     )--#if ENABLE_OVERLOADING-data SocketReadUntilMethodInfo-instance (signature ~ (ByteString -> Ptr () -> Word64 -> Bool -> Maybe (b) -> m ((Soup.Enums.SocketIOStatus, Word64))), MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketReadUntilMethodInfo a signature where-    overloadedMethod _ = socketReadUntil--#endif---- method Socket::start_proxy_ssl--- method type : OrdinaryMethod--- Args : [Arg {argCName = "sock", argType = TInterface (Name {namespace = "Soup", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the socket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ssl_host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "hostname of the SSL server", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable", sinceVersion = Nothing}, 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 ->                           -- sock : TInterface (Name {namespace = "Soup", name = "Socket"})-    CString ->                              -- ssl_host : TBasicType TUTF8-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    IO CInt--{- |-Starts using SSL on /@socket@/, expecting to find a host named-/@sslHost@/.--}-socketStartProxySsl ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@sock@/: the socket -}-    -> T.Text-    {- ^ /@sslHost@/: hostname of the SSL server -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' -}-    -> m Bool-    {- ^ __Returns:__ success or failure -}-socketStartProxySsl sock sslHost cancellable = liftIO $ do-    sock' <- unsafeManagedPtrCastPtr sock-    sslHost' <- textToCString sslHost-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    result <- soup_socket_start_proxy_ssl sock' sslHost' maybeCancellable-    let result' = (/= 0) result-    touchManagedPtr sock-    whenJust cancellable touchManagedPtr-    freeMem sslHost'-    return result'--#if ENABLE_OVERLOADING-data SocketStartProxySslMethodInfo-instance (signature ~ (T.Text -> Maybe (b) -> m Bool), MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketStartProxySslMethodInfo a signature where-    overloadedMethod _ = socketStartProxySsl--#endif---- method Socket::start_ssl--- method type : OrdinaryMethod--- Args : [Arg {argCName = "sock", argType = TInterface (Name {namespace = "Soup", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the socket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable", sinceVersion = Nothing}, 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 ->                           -- sock : TInterface (Name {namespace = "Soup", name = "Socket"})-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    IO CInt--{- |-Starts using SSL on /@socket@/.--}-socketStartSsl ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@sock@/: the socket -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable' -}-    -> m Bool-    {- ^ __Returns:__ success or failure -}-socketStartSsl sock cancellable = liftIO $ do-    sock' <- unsafeManagedPtrCastPtr sock-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    result <- soup_socket_start_ssl sock' maybeCancellable-    let result' = (/= 0) result-    touchManagedPtr sock-    whenJust cancellable touchManagedPtr-    return result'--#if ENABLE_OVERLOADING-data SocketStartSslMethodInfo-instance (signature ~ (Maybe (b) -> m Bool), MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketStartSslMethodInfo a signature where-    overloadedMethod _ = socketStartSsl--#endif---- method Socket::write--- method type : OrdinaryMethod--- Args : [Arg {argCName = "sock", argType = TInterface (Name {namespace = "Soup", name = "Socket"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the socket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "data to write", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "size of @buffer, in bytes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "nwrote", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "on return, number of bytes written", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "cancellable", argType = TInterface (Name {namespace = "Gio", name = "Cancellable"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a #GCancellable, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "len", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "size of @buffer, in bytes", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TInterface (Name {namespace = "Soup", name = "SocketIOStatus"}))--- throws : True--- Skip return : False--foreign import ccall "soup_socket_write" soup_socket_write :: -    Ptr Socket ->                           -- sock : TInterface (Name {namespace = "Soup", name = "Socket"})-    Ptr Word8 ->                            -- buffer : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- len : TBasicType TUInt64-    Ptr Word64 ->                           -- nwrote : TBasicType TUInt64-    Ptr Gio.Cancellable.Cancellable ->      -- cancellable : TInterface (Name {namespace = "Gio", name = "Cancellable"})-    Ptr (Ptr GError) ->                     -- error-    IO CUInt--{- |-Attempts to write /@len@/ bytes from /@buffer@/ to /@sock@/. If some data is-successfully written, the return status will be 'GI.Soup.Enums.SocketIOStatusOk',-and */@nwrote@/ will contain the number of bytes actually written-(which may be less than /@len@/).--If /@sock@/ is non-blocking, and no data could be written right away,-the return value will be 'GI.Soup.Enums.SocketIOStatusWouldBlock'. In this case,-the caller can connect to the 'GI.Soup.Objects.Socket.Socket'::@/writable/@ signal to know-when more data can be written. (NB: 'GI.Soup.Objects.Socket.Socket'::@/writable/@ is only-emitted after 'GI.Soup.Objects.Socket.socketWrite' returns 'GI.Soup.Enums.SocketIOStatusWouldBlock',-and it is only emitted once. See the documentation for-'GI.Soup.Objects.Socket.Socket':@/non-blocking/@.)--}-socketWrite ::-    (B.CallStack.HasCallStack, MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) =>-    a-    {- ^ /@sock@/: the socket -}-    -> ByteString-    {- ^ /@buffer@/: data to write -}-    -> Maybe (b)-    {- ^ /@cancellable@/: a 'GI.Gio.Objects.Cancellable.Cancellable', or 'Nothing' -}-    -> m ((Soup.Enums.SocketIOStatus, Word64))-    {- ^ __Returns:__ a 'GI.Soup.Enums.SocketIOStatus', as described above (or-'GI.Soup.Enums.SocketIOStatusEof' or 'GI.Soup.Enums.SocketIOStatusError'. /@error@/ will be set if the-return value is 'GI.Soup.Enums.SocketIOStatusError'.) /(Can throw 'Data.GI.Base.GError.GError')/ -}-socketWrite sock buffer cancellable = liftIO $ do-    let len = fromIntegral $ B.length buffer-    sock' <- unsafeManagedPtrCastPtr sock-    buffer' <- packByteString buffer-    nwrote <- allocMem :: IO (Ptr Word64)-    maybeCancellable <- case cancellable of-        Nothing -> return nullPtr-        Just jCancellable -> do-            jCancellable' <- unsafeManagedPtrCastPtr jCancellable-            return jCancellable'-    onException (do-        result <- propagateGError $ soup_socket_write sock' buffer' len nwrote maybeCancellable-        let result' = (toEnum . fromIntegral) result-        nwrote' <- peek nwrote-        touchManagedPtr sock-        whenJust cancellable touchManagedPtr-        freeMem buffer'-        freeMem nwrote-        return (result', nwrote')-     ) (do-        freeMem buffer'-        freeMem nwrote-     )--#if ENABLE_OVERLOADING-data SocketWriteMethodInfo-instance (signature ~ (ByteString -> Maybe (b) -> m ((Soup.Enums.SocketIOStatus, Word64))), MonadIO m, IsSocket a, Gio.Cancellable.IsCancellable b) => O.MethodInfo SocketWriteMethodInfo a signature where-    overloadedMethod _ = socketWrite--#endif--
− GI/Soup/Objects/Socket.hs-boot 
@@ -1,137 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Objects.Socket where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype Socket = Socket (ManagedPtr Socket)-instance GObject Socket where-class (GObject o, O.IsDescendantOf Socket o) => IsSocket o-instance (GObject o, O.IsDescendantOf Socket o) => IsSocket o-instance O.HasParentTypes Socket-#if ENABLE_OVERLOADING-data SocketAsyncContextPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketFdPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketGsocketPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketIostreamPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketIpv6OnlyPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketIsServerPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketLocalAddressPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketNonBlockingPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketRemoteAddressPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketSslCredsPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketSslFallbackPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketSslStrictPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketTimeoutPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketTlsCertificatePropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketTlsErrorsPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketTrustedCertificatePropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketUseThreadContextPropertyInfo-#endif-#if ENABLE_OVERLOADING-data SocketDisconnectedSignalInfo-#endif-#if ENABLE_OVERLOADING-data SocketEventSignalInfo-#endif-#if ENABLE_OVERLOADING-data SocketNewConnectionSignalInfo-#endif-#if ENABLE_OVERLOADING-data SocketReadableSignalInfo-#endif-#if ENABLE_OVERLOADING-data SocketWritableSignalInfo-#endif-#if ENABLE_OVERLOADING-data SocketConnectAsyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketConnectSyncMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketDisconnectMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketGetFdMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketGetLocalAddressMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketGetRemoteAddressMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketIsConnectedMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketIsSslMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketListenMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketReadMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketReadUntilMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketStartProxySslMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketStartSslMethodInfo-#endif-#if ENABLE_OVERLOADING-data SocketWriteMethodInfo-#endif
− GI/Soup/Objects/WebsocketConnection.hs 
@@ -1,1893 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--A class representing a WebSocket connection.--/Since: 2.50/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Objects.WebsocketConnection-    ( ---- * Exported types-    WebsocketConnection(..)                 ,-    IsWebsocketConnection                   ,-    toWebsocketConnection                   ,-    noWebsocketConnection                   ,--- -- * Methods--- ** close #method:close#--#if ENABLE_OVERLOADING-    WebsocketConnectionCloseMethodInfo      ,-#endif-    websocketConnectionClose                ,----- ** getCloseCode #method:getCloseCode#--#if ENABLE_OVERLOADING-    WebsocketConnectionGetCloseCodeMethodInfo,-#endif-    websocketConnectionGetCloseCode         ,----- ** getCloseData #method:getCloseData#--#if ENABLE_OVERLOADING-    WebsocketConnectionGetCloseDataMethodInfo,-#endif-    websocketConnectionGetCloseData         ,----- ** getConnectionType #method:getConnectionType#--#if ENABLE_OVERLOADING-    WebsocketConnectionGetConnectionTypeMethodInfo,-#endif-    websocketConnectionGetConnectionType    ,----- ** getIoStream #method:getIoStream#--#if ENABLE_OVERLOADING-    WebsocketConnectionGetIoStreamMethodInfo,-#endif-    websocketConnectionGetIoStream          ,----- ** getKeepaliveInterval #method:getKeepaliveInterval#--#if ENABLE_OVERLOADING-    WebsocketConnectionGetKeepaliveIntervalMethodInfo,-#endif-    websocketConnectionGetKeepaliveInterval ,----- ** getMaxIncomingPayloadSize #method:getMaxIncomingPayloadSize#--#if ENABLE_OVERLOADING-    WebsocketConnectionGetMaxIncomingPayloadSizeMethodInfo,-#endif-    websocketConnectionGetMaxIncomingPayloadSize,----- ** getOrigin #method:getOrigin#--#if ENABLE_OVERLOADING-    WebsocketConnectionGetOriginMethodInfo  ,-#endif-    websocketConnectionGetOrigin            ,----- ** getProtocol #method:getProtocol#--#if ENABLE_OVERLOADING-    WebsocketConnectionGetProtocolMethodInfo,-#endif-    websocketConnectionGetProtocol          ,----- ** getState #method:getState#--#if ENABLE_OVERLOADING-    WebsocketConnectionGetStateMethodInfo   ,-#endif-    websocketConnectionGetState             ,----- ** getUri #method:getUri#--#if ENABLE_OVERLOADING-    WebsocketConnectionGetUriMethodInfo     ,-#endif-    websocketConnectionGetUri               ,----- ** new #method:new#--    websocketConnectionNew                  ,----- ** sendBinary #method:sendBinary#--#if ENABLE_OVERLOADING-    WebsocketConnectionSendBinaryMethodInfo ,-#endif-    websocketConnectionSendBinary           ,----- ** sendText #method:sendText#--#if ENABLE_OVERLOADING-    WebsocketConnectionSendTextMethodInfo   ,-#endif-    websocketConnectionSendText             ,----- ** setKeepaliveInterval #method:setKeepaliveInterval#--#if ENABLE_OVERLOADING-    WebsocketConnectionSetKeepaliveIntervalMethodInfo,-#endif-    websocketConnectionSetKeepaliveInterval ,----- ** setMaxIncomingPayloadSize #method:setMaxIncomingPayloadSize#--#if ENABLE_OVERLOADING-    WebsocketConnectionSetMaxIncomingPayloadSizeMethodInfo,-#endif-    websocketConnectionSetMaxIncomingPayloadSize,----- -- * Properties--- ** connectionType #attr:connectionType#-{- | The type of connection (client\/server).--/Since: 2.50/--}-#if ENABLE_OVERLOADING-    WebsocketConnectionConnectionTypePropertyInfo,-#endif-    constructWebsocketConnectionConnectionType,-    getWebsocketConnectionConnectionType    ,-#if ENABLE_OVERLOADING-    websocketConnectionConnectionType       ,-#endif----- ** ioStream #attr:ioStream#-{- | The underlying IO stream the WebSocket is communicating-over.--The input and output streams must be pollable streams.--/Since: 2.50/--}-#if ENABLE_OVERLOADING-    WebsocketConnectionIoStreamPropertyInfo ,-#endif-    constructWebsocketConnectionIoStream    ,-    getWebsocketConnectionIoStream          ,-#if ENABLE_OVERLOADING-    websocketConnectionIoStream             ,-#endif----- ** keepaliveInterval #attr:keepaliveInterval#-{- | Interval in seconds on when to send a ping message which will-serve as a keepalive message. If set to 0 the keepalive message is-disabled.--/Since: 2.58/--}-#if ENABLE_OVERLOADING-    WebsocketConnectionKeepaliveIntervalPropertyInfo,-#endif-    constructWebsocketConnectionKeepaliveInterval,-    getWebsocketConnectionKeepaliveInterval ,-    setWebsocketConnectionKeepaliveInterval ,-#if ENABLE_OVERLOADING-    websocketConnectionKeepaliveInterval    ,-#endif----- ** maxIncomingPayloadSize #attr:maxIncomingPayloadSize#-{- | The maximum payload size for incoming packets the protocol expects-or 0 to not limit it.--/Since: 2.56/--}-#if ENABLE_OVERLOADING-    WebsocketConnectionMaxIncomingPayloadSizePropertyInfo,-#endif-    constructWebsocketConnectionMaxIncomingPayloadSize,-    getWebsocketConnectionMaxIncomingPayloadSize,-    setWebsocketConnectionMaxIncomingPayloadSize,-#if ENABLE_OVERLOADING-    websocketConnectionMaxIncomingPayloadSize,-#endif----- ** origin #attr:origin#-{- | The client\'s Origin.--/Since: 2.50/--}-#if ENABLE_OVERLOADING-    WebsocketConnectionOriginPropertyInfo   ,-#endif-    constructWebsocketConnectionOrigin      ,-    getWebsocketConnectionOrigin            ,-#if ENABLE_OVERLOADING-    websocketConnectionOrigin               ,-#endif----- ** protocol #attr:protocol#-{- | The chosen protocol, or 'Nothing' if a protocol was not agreed-upon.--/Since: 2.50/--}-#if ENABLE_OVERLOADING-    WebsocketConnectionProtocolPropertyInfo ,-#endif-    constructWebsocketConnectionProtocol    ,-    getWebsocketConnectionProtocol          ,-#if ENABLE_OVERLOADING-    websocketConnectionProtocol             ,-#endif----- ** state #attr:state#-{- | The current state of the WebSocket.--/Since: 2.50/--}-#if ENABLE_OVERLOADING-    WebsocketConnectionStatePropertyInfo    ,-#endif-    getWebsocketConnectionState             ,-#if ENABLE_OVERLOADING-    websocketConnectionState                ,-#endif----- ** uri #attr:uri#-{- | The URI of the WebSocket.--For servers this represents the address of the WebSocket,-and for clients it is the address connected to.--/Since: 2.50/--}-#if ENABLE_OVERLOADING-    WebsocketConnectionUriPropertyInfo      ,-#endif-    constructWebsocketConnectionUri         ,-    getWebsocketConnectionUri               ,-#if ENABLE_OVERLOADING-    websocketConnectionUri                  ,-#endif----- -- * Signals--- ** closed #signal:closed#--    C_WebsocketConnectionClosedCallback     ,-    WebsocketConnectionClosedCallback       ,-#if ENABLE_OVERLOADING-    WebsocketConnectionClosedSignalInfo     ,-#endif-    afterWebsocketConnectionClosed          ,-    genClosure_WebsocketConnectionClosed    ,-    mk_WebsocketConnectionClosedCallback    ,-    noWebsocketConnectionClosedCallback     ,-    onWebsocketConnectionClosed             ,-    wrap_WebsocketConnectionClosedCallback  ,----- ** closing #signal:closing#--    C_WebsocketConnectionClosingCallback    ,-    WebsocketConnectionClosingCallback      ,-#if ENABLE_OVERLOADING-    WebsocketConnectionClosingSignalInfo    ,-#endif-    afterWebsocketConnectionClosing         ,-    genClosure_WebsocketConnectionClosing   ,-    mk_WebsocketConnectionClosingCallback   ,-    noWebsocketConnectionClosingCallback    ,-    onWebsocketConnectionClosing            ,-    wrap_WebsocketConnectionClosingCallback ,----- ** error #signal:error#--    C_WebsocketConnectionErrorCallback      ,-    WebsocketConnectionErrorCallback        ,-#if ENABLE_OVERLOADING-    WebsocketConnectionErrorSignalInfo      ,-#endif-    afterWebsocketConnectionError           ,-    genClosure_WebsocketConnectionError     ,-    mk_WebsocketConnectionErrorCallback     ,-    noWebsocketConnectionErrorCallback      ,-    onWebsocketConnectionError              ,-    wrap_WebsocketConnectionErrorCallback   ,----- ** message #signal:message#--    C_WebsocketConnectionMessageCallback    ,-    WebsocketConnectionMessageCallback      ,-#if ENABLE_OVERLOADING-    WebsocketConnectionMessageSignalInfo    ,-#endif-    afterWebsocketConnectionMessage         ,-    genClosure_WebsocketConnectionMessage   ,-    mk_WebsocketConnectionMessageCallback   ,-    noWebsocketConnectionMessageCallback    ,-    onWebsocketConnectionMessage            ,-    wrap_WebsocketConnectionMessageCallback ,----- ** pong #signal:pong#--    C_WebsocketConnectionPongCallback       ,-    WebsocketConnectionPongCallback         ,-#if ENABLE_OVERLOADING-    WebsocketConnectionPongSignalInfo       ,-#endif-    afterWebsocketConnectionPong            ,-    genClosure_WebsocketConnectionPong      ,-    mk_WebsocketConnectionPongCallback      ,-    noWebsocketConnectionPongCallback       ,-    onWebsocketConnectionPong               ,-    wrap_WebsocketConnectionPongCallback    ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GLib.Structs.Bytes as GLib.Bytes-import qualified GI.GObject.Objects.Object as GObject.Object-import qualified GI.Gio.Objects.IOStream as Gio.IOStream-import {-# SOURCE #-} qualified GI.Soup.Enums as Soup.Enums-import {-# SOURCE #-} qualified GI.Soup.Structs.URI as Soup.URI---- | Memory-managed wrapper type.-newtype WebsocketConnection = WebsocketConnection (ManagedPtr WebsocketConnection)-foreign import ccall "soup_websocket_connection_get_type"-    c_soup_websocket_connection_get_type :: IO GType--instance GObject WebsocketConnection where-    gobjectType = c_soup_websocket_connection_get_type-    ---- | Type class for types which can be safely cast to `WebsocketConnection`, for instance with `toWebsocketConnection`.-class (GObject o, O.IsDescendantOf WebsocketConnection o) => IsWebsocketConnection o-instance (GObject o, O.IsDescendantOf WebsocketConnection o) => IsWebsocketConnection o--instance O.HasParentTypes WebsocketConnection-type instance O.ParentTypes WebsocketConnection = '[GObject.Object.Object]---- | Cast to `WebsocketConnection`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.-toWebsocketConnection :: (MonadIO m, IsWebsocketConnection o) => o -> m WebsocketConnection-toWebsocketConnection = liftIO . unsafeCastTo WebsocketConnection---- | A convenience alias for `Nothing` :: `Maybe` `WebsocketConnection`.-noWebsocketConnection :: Maybe WebsocketConnection-noWebsocketConnection = Nothing--#if ENABLE_OVERLOADING-type family ResolveWebsocketConnectionMethod (t :: Symbol) (o :: *) :: * where-    ResolveWebsocketConnectionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo-    ResolveWebsocketConnectionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo-    ResolveWebsocketConnectionMethod "close" o = WebsocketConnectionCloseMethodInfo-    ResolveWebsocketConnectionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo-    ResolveWebsocketConnectionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo-    ResolveWebsocketConnectionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo-    ResolveWebsocketConnectionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo-    ResolveWebsocketConnectionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo-    ResolveWebsocketConnectionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo-    ResolveWebsocketConnectionMethod "ref" o = GObject.Object.ObjectRefMethodInfo-    ResolveWebsocketConnectionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo-    ResolveWebsocketConnectionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo-    ResolveWebsocketConnectionMethod "sendBinary" o = WebsocketConnectionSendBinaryMethodInfo-    ResolveWebsocketConnectionMethod "sendText" o = WebsocketConnectionSendTextMethodInfo-    ResolveWebsocketConnectionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo-    ResolveWebsocketConnectionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo-    ResolveWebsocketConnectionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo-    ResolveWebsocketConnectionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo-    ResolveWebsocketConnectionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo-    ResolveWebsocketConnectionMethod "getCloseCode" o = WebsocketConnectionGetCloseCodeMethodInfo-    ResolveWebsocketConnectionMethod "getCloseData" o = WebsocketConnectionGetCloseDataMethodInfo-    ResolveWebsocketConnectionMethod "getConnectionType" o = WebsocketConnectionGetConnectionTypeMethodInfo-    ResolveWebsocketConnectionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo-    ResolveWebsocketConnectionMethod "getIoStream" o = WebsocketConnectionGetIoStreamMethodInfo-    ResolveWebsocketConnectionMethod "getKeepaliveInterval" o = WebsocketConnectionGetKeepaliveIntervalMethodInfo-    ResolveWebsocketConnectionMethod "getMaxIncomingPayloadSize" o = WebsocketConnectionGetMaxIncomingPayloadSizeMethodInfo-    ResolveWebsocketConnectionMethod "getOrigin" o = WebsocketConnectionGetOriginMethodInfo-    ResolveWebsocketConnectionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo-    ResolveWebsocketConnectionMethod "getProtocol" o = WebsocketConnectionGetProtocolMethodInfo-    ResolveWebsocketConnectionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo-    ResolveWebsocketConnectionMethod "getState" o = WebsocketConnectionGetStateMethodInfo-    ResolveWebsocketConnectionMethod "getUri" o = WebsocketConnectionGetUriMethodInfo-    ResolveWebsocketConnectionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo-    ResolveWebsocketConnectionMethod "setKeepaliveInterval" o = WebsocketConnectionSetKeepaliveIntervalMethodInfo-    ResolveWebsocketConnectionMethod "setMaxIncomingPayloadSize" o = WebsocketConnectionSetMaxIncomingPayloadSizeMethodInfo-    ResolveWebsocketConnectionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo-    ResolveWebsocketConnectionMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveWebsocketConnectionMethod t WebsocketConnection, O.MethodInfo info WebsocketConnection p) => OL.IsLabel t (WebsocketConnection -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif---- signal WebsocketConnection::closed-{- |-Emitted when the connection has completely closed, either-due to an orderly close from the peer, one initiated via-'GI.Soup.Objects.WebsocketConnection.websocketConnectionClose' or a fatal error-condition that caused a close.--This signal will be emitted once.--/Since: 2.50/--}-type WebsocketConnectionClosedCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `WebsocketConnectionClosedCallback`@.-noWebsocketConnectionClosedCallback :: Maybe WebsocketConnectionClosedCallback-noWebsocketConnectionClosedCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_WebsocketConnectionClosedCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_WebsocketConnectionClosedCallback`.-foreign import ccall "wrapper"-    mk_WebsocketConnectionClosedCallback :: C_WebsocketConnectionClosedCallback -> IO (FunPtr C_WebsocketConnectionClosedCallback)---- | Wrap the callback into a `GClosure`.-genClosure_WebsocketConnectionClosed :: MonadIO m => WebsocketConnectionClosedCallback -> m (GClosure C_WebsocketConnectionClosedCallback)-genClosure_WebsocketConnectionClosed cb = liftIO $ do-    let cb' = wrap_WebsocketConnectionClosedCallback cb-    mk_WebsocketConnectionClosedCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `WebsocketConnectionClosedCallback` into a `C_WebsocketConnectionClosedCallback`.-wrap_WebsocketConnectionClosedCallback ::-    WebsocketConnectionClosedCallback ->-    C_WebsocketConnectionClosedCallback-wrap_WebsocketConnectionClosedCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@closed@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' websocketConnection #closed callback-@--}-onWebsocketConnectionClosed :: (IsWebsocketConnection a, MonadIO m) => a -> WebsocketConnectionClosedCallback -> m SignalHandlerId-onWebsocketConnectionClosed obj cb = liftIO $ do-    let cb' = wrap_WebsocketConnectionClosedCallback cb-    cb'' <- mk_WebsocketConnectionClosedCallback cb'-    connectSignalFunPtr obj "closed" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@closed@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' websocketConnection #closed callback-@--}-afterWebsocketConnectionClosed :: (IsWebsocketConnection a, MonadIO m) => a -> WebsocketConnectionClosedCallback -> m SignalHandlerId-afterWebsocketConnectionClosed obj cb = liftIO $ do-    let cb' = wrap_WebsocketConnectionClosedCallback cb-    cb'' <- mk_WebsocketConnectionClosedCallback cb'-    connectSignalFunPtr obj "closed" cb'' SignalConnectAfter----- signal WebsocketConnection::closing-{- |-This signal will be emitted during an orderly close.--/Since: 2.50/--}-type WebsocketConnectionClosingCallback =-    IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `WebsocketConnectionClosingCallback`@.-noWebsocketConnectionClosingCallback :: Maybe WebsocketConnectionClosingCallback-noWebsocketConnectionClosingCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_WebsocketConnectionClosingCallback =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_WebsocketConnectionClosingCallback`.-foreign import ccall "wrapper"-    mk_WebsocketConnectionClosingCallback :: C_WebsocketConnectionClosingCallback -> IO (FunPtr C_WebsocketConnectionClosingCallback)---- | Wrap the callback into a `GClosure`.-genClosure_WebsocketConnectionClosing :: MonadIO m => WebsocketConnectionClosingCallback -> m (GClosure C_WebsocketConnectionClosingCallback)-genClosure_WebsocketConnectionClosing cb = liftIO $ do-    let cb' = wrap_WebsocketConnectionClosingCallback cb-    mk_WebsocketConnectionClosingCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `WebsocketConnectionClosingCallback` into a `C_WebsocketConnectionClosingCallback`.-wrap_WebsocketConnectionClosingCallback ::-    WebsocketConnectionClosingCallback ->-    C_WebsocketConnectionClosingCallback-wrap_WebsocketConnectionClosingCallback _cb _ _ = do-    _cb ---{- |-Connect a signal handler for the “@closing@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' websocketConnection #closing callback-@--}-onWebsocketConnectionClosing :: (IsWebsocketConnection a, MonadIO m) => a -> WebsocketConnectionClosingCallback -> m SignalHandlerId-onWebsocketConnectionClosing obj cb = liftIO $ do-    let cb' = wrap_WebsocketConnectionClosingCallback cb-    cb'' <- mk_WebsocketConnectionClosingCallback cb'-    connectSignalFunPtr obj "closing" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@closing@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' websocketConnection #closing callback-@--}-afterWebsocketConnectionClosing :: (IsWebsocketConnection a, MonadIO m) => a -> WebsocketConnectionClosingCallback -> m SignalHandlerId-afterWebsocketConnectionClosing obj cb = liftIO $ do-    let cb' = wrap_WebsocketConnectionClosingCallback cb-    cb'' <- mk_WebsocketConnectionClosingCallback cb'-    connectSignalFunPtr obj "closing" cb'' SignalConnectAfter----- signal WebsocketConnection::error-{- |-Emitted when an error occurred on the WebSocket. This may-be fired multiple times. Fatal errors will be followed by-the 'GI.Soup.Objects.WebsocketConnection.WebsocketConnection'::@/closed/@ signal being emitted.--/Since: 2.50/--}-type WebsocketConnectionErrorCallback =-    GError-    {- ^ /@error@/: the error that occured -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `WebsocketConnectionErrorCallback`@.-noWebsocketConnectionErrorCallback :: Maybe WebsocketConnectionErrorCallback-noWebsocketConnectionErrorCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_WebsocketConnectionErrorCallback =-    Ptr () ->                               -- object-    Ptr GError ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_WebsocketConnectionErrorCallback`.-foreign import ccall "wrapper"-    mk_WebsocketConnectionErrorCallback :: C_WebsocketConnectionErrorCallback -> IO (FunPtr C_WebsocketConnectionErrorCallback)---- | Wrap the callback into a `GClosure`.-genClosure_WebsocketConnectionError :: MonadIO m => WebsocketConnectionErrorCallback -> m (GClosure C_WebsocketConnectionErrorCallback)-genClosure_WebsocketConnectionError cb = liftIO $ do-    let cb' = wrap_WebsocketConnectionErrorCallback cb-    mk_WebsocketConnectionErrorCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `WebsocketConnectionErrorCallback` into a `C_WebsocketConnectionErrorCallback`.-wrap_WebsocketConnectionErrorCallback ::-    WebsocketConnectionErrorCallback ->-    C_WebsocketConnectionErrorCallback-wrap_WebsocketConnectionErrorCallback _cb _ error_ _ = do-    error_' <- (newBoxed GError) error_-    _cb  error_'---{- |-Connect a signal handler for the “@error@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' websocketConnection #error callback-@--}-onWebsocketConnectionError :: (IsWebsocketConnection a, MonadIO m) => a -> WebsocketConnectionErrorCallback -> m SignalHandlerId-onWebsocketConnectionError obj cb = liftIO $ do-    let cb' = wrap_WebsocketConnectionErrorCallback cb-    cb'' <- mk_WebsocketConnectionErrorCallback cb'-    connectSignalFunPtr obj "error" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@error@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' websocketConnection #error callback-@--}-afterWebsocketConnectionError :: (IsWebsocketConnection a, MonadIO m) => a -> WebsocketConnectionErrorCallback -> m SignalHandlerId-afterWebsocketConnectionError obj cb = liftIO $ do-    let cb' = wrap_WebsocketConnectionErrorCallback cb-    cb'' <- mk_WebsocketConnectionErrorCallback cb'-    connectSignalFunPtr obj "error" cb'' SignalConnectAfter----- signal WebsocketConnection::message-{- |-Emitted when we receive a message from the peer.--As a convenience, the /@message@/ data will always be-NUL-terminated, but the NUL byte will not be included in-the length count.--/Since: 2.50/--}-type WebsocketConnectionMessageCallback =-    Int32-    {- ^ /@type@/: the type of message contents -}-    -> GLib.Bytes.Bytes-    {- ^ /@message@/: the message data -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `WebsocketConnectionMessageCallback`@.-noWebsocketConnectionMessageCallback :: Maybe WebsocketConnectionMessageCallback-noWebsocketConnectionMessageCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_WebsocketConnectionMessageCallback =-    Ptr () ->                               -- object-    Int32 ->-    Ptr GLib.Bytes.Bytes ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_WebsocketConnectionMessageCallback`.-foreign import ccall "wrapper"-    mk_WebsocketConnectionMessageCallback :: C_WebsocketConnectionMessageCallback -> IO (FunPtr C_WebsocketConnectionMessageCallback)---- | Wrap the callback into a `GClosure`.-genClosure_WebsocketConnectionMessage :: MonadIO m => WebsocketConnectionMessageCallback -> m (GClosure C_WebsocketConnectionMessageCallback)-genClosure_WebsocketConnectionMessage cb = liftIO $ do-    let cb' = wrap_WebsocketConnectionMessageCallback cb-    mk_WebsocketConnectionMessageCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `WebsocketConnectionMessageCallback` into a `C_WebsocketConnectionMessageCallback`.-wrap_WebsocketConnectionMessageCallback ::-    WebsocketConnectionMessageCallback ->-    C_WebsocketConnectionMessageCallback-wrap_WebsocketConnectionMessageCallback _cb _ type_ message _ = do-    B.ManagedPtr.withTransient GLib.Bytes.Bytes message $ \message' -> do-        _cb  type_ message'---{- |-Connect a signal handler for the “@message@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' websocketConnection #message callback-@--}-onWebsocketConnectionMessage :: (IsWebsocketConnection a, MonadIO m) => a -> WebsocketConnectionMessageCallback -> m SignalHandlerId-onWebsocketConnectionMessage obj cb = liftIO $ do-    let cb' = wrap_WebsocketConnectionMessageCallback cb-    cb'' <- mk_WebsocketConnectionMessageCallback cb'-    connectSignalFunPtr obj "message" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@message@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' websocketConnection #message callback-@--}-afterWebsocketConnectionMessage :: (IsWebsocketConnection a, MonadIO m) => a -> WebsocketConnectionMessageCallback -> m SignalHandlerId-afterWebsocketConnectionMessage obj cb = liftIO $ do-    let cb' = wrap_WebsocketConnectionMessageCallback cb-    cb'' <- mk_WebsocketConnectionMessageCallback cb'-    connectSignalFunPtr obj "message" cb'' SignalConnectAfter----- signal WebsocketConnection::pong-{- |-Emitted when we receive a Pong frame (solicited or-unsolicited) from the peer.--As a convenience, the /@message@/ data will always be-NUL-terminated, but the NUL byte will not be included in-the length count.--/Since: 2.60/--}-type WebsocketConnectionPongCallback =-    GLib.Bytes.Bytes-    {- ^ /@message@/: the application data (if any) -}-    -> IO ()---- | A convenience synonym for @`Nothing` :: `Maybe` `WebsocketConnectionPongCallback`@.-noWebsocketConnectionPongCallback :: Maybe WebsocketConnectionPongCallback-noWebsocketConnectionPongCallback = Nothing---- | Type for the callback on the (unwrapped) C side.-type C_WebsocketConnectionPongCallback =-    Ptr () ->                               -- object-    Ptr GLib.Bytes.Bytes ->-    Ptr () ->                               -- user_data-    IO ()---- | Generate a function pointer callable from C code, from a `C_WebsocketConnectionPongCallback`.-foreign import ccall "wrapper"-    mk_WebsocketConnectionPongCallback :: C_WebsocketConnectionPongCallback -> IO (FunPtr C_WebsocketConnectionPongCallback)---- | Wrap the callback into a `GClosure`.-genClosure_WebsocketConnectionPong :: MonadIO m => WebsocketConnectionPongCallback -> m (GClosure C_WebsocketConnectionPongCallback)-genClosure_WebsocketConnectionPong cb = liftIO $ do-    let cb' = wrap_WebsocketConnectionPongCallback cb-    mk_WebsocketConnectionPongCallback cb' >>= B.GClosure.newGClosure----- | Wrap a `WebsocketConnectionPongCallback` into a `C_WebsocketConnectionPongCallback`.-wrap_WebsocketConnectionPongCallback ::-    WebsocketConnectionPongCallback ->-    C_WebsocketConnectionPongCallback-wrap_WebsocketConnectionPongCallback _cb _ message _ = do-    B.ManagedPtr.withTransient GLib.Bytes.Bytes message $ \message' -> do-        _cb  message'---{- |-Connect a signal handler for the “@pong@” signal, to be run before the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.on' websocketConnection #pong callback-@--}-onWebsocketConnectionPong :: (IsWebsocketConnection a, MonadIO m) => a -> WebsocketConnectionPongCallback -> m SignalHandlerId-onWebsocketConnectionPong obj cb = liftIO $ do-    let cb' = wrap_WebsocketConnectionPongCallback cb-    cb'' <- mk_WebsocketConnectionPongCallback cb'-    connectSignalFunPtr obj "pong" cb'' SignalConnectBefore--{- |-Connect a signal handler for the “@pong@” signal, to be run after the default handler.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Signals.after' websocketConnection #pong callback-@--}-afterWebsocketConnectionPong :: (IsWebsocketConnection a, MonadIO m) => a -> WebsocketConnectionPongCallback -> m SignalHandlerId-afterWebsocketConnectionPong obj cb = liftIO $ do-    let cb' = wrap_WebsocketConnectionPongCallback cb-    cb'' <- mk_WebsocketConnectionPongCallback cb'-    connectSignalFunPtr obj "pong" cb'' SignalConnectAfter----- VVV Prop "connection-type"-   -- Type: TInterface (Name {namespace = "Soup", name = "WebsocketConnectionType"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@connection-type@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' websocketConnection #connectionType-@--}-getWebsocketConnectionConnectionType :: (MonadIO m, IsWebsocketConnection o) => o -> m Soup.Enums.WebsocketConnectionType-getWebsocketConnectionConnectionType obj = liftIO $ B.Properties.getObjectPropertyEnum obj "connection-type"--{- |-Construct a `GValueConstruct` with valid value for the “@connection-type@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructWebsocketConnectionConnectionType :: (IsWebsocketConnection o) => Soup.Enums.WebsocketConnectionType -> IO (GValueConstruct o)-constructWebsocketConnectionConnectionType val = B.Properties.constructObjectPropertyEnum "connection-type" val--#if ENABLE_OVERLOADING-data WebsocketConnectionConnectionTypePropertyInfo-instance AttrInfo WebsocketConnectionConnectionTypePropertyInfo where-    type AttrAllowedOps WebsocketConnectionConnectionTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint WebsocketConnectionConnectionTypePropertyInfo = (~) Soup.Enums.WebsocketConnectionType-    type AttrBaseTypeConstraint WebsocketConnectionConnectionTypePropertyInfo = IsWebsocketConnection-    type AttrGetType WebsocketConnectionConnectionTypePropertyInfo = Soup.Enums.WebsocketConnectionType-    type AttrLabel WebsocketConnectionConnectionTypePropertyInfo = "connection-type"-    type AttrOrigin WebsocketConnectionConnectionTypePropertyInfo = WebsocketConnection-    attrGet _ = getWebsocketConnectionConnectionType-    attrSet _ = undefined-    attrConstruct _ = constructWebsocketConnectionConnectionType-    attrClear _ = undefined-#endif---- VVV Prop "io-stream"-   -- Type: TInterface (Name {namespace = "Gio", name = "IOStream"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@io-stream@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' websocketConnection #ioStream-@--}-getWebsocketConnectionIoStream :: (MonadIO m, IsWebsocketConnection o) => o -> m Gio.IOStream.IOStream-getWebsocketConnectionIoStream obj = liftIO $ checkUnexpectedNothing "getWebsocketConnectionIoStream" $ B.Properties.getObjectPropertyObject obj "io-stream" Gio.IOStream.IOStream--{- |-Construct a `GValueConstruct` with valid value for the “@io-stream@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructWebsocketConnectionIoStream :: (IsWebsocketConnection o, Gio.IOStream.IsIOStream a) => a -> IO (GValueConstruct o)-constructWebsocketConnectionIoStream val = B.Properties.constructObjectPropertyObject "io-stream" (Just val)--#if ENABLE_OVERLOADING-data WebsocketConnectionIoStreamPropertyInfo-instance AttrInfo WebsocketConnectionIoStreamPropertyInfo where-    type AttrAllowedOps WebsocketConnectionIoStreamPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint WebsocketConnectionIoStreamPropertyInfo = Gio.IOStream.IsIOStream-    type AttrBaseTypeConstraint WebsocketConnectionIoStreamPropertyInfo = IsWebsocketConnection-    type AttrGetType WebsocketConnectionIoStreamPropertyInfo = Gio.IOStream.IOStream-    type AttrLabel WebsocketConnectionIoStreamPropertyInfo = "io-stream"-    type AttrOrigin WebsocketConnectionIoStreamPropertyInfo = WebsocketConnection-    attrGet _ = getWebsocketConnectionIoStream-    attrSet _ = undefined-    attrConstruct _ = constructWebsocketConnectionIoStream-    attrClear _ = undefined-#endif---- VVV Prop "keepalive-interval"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@keepalive-interval@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' websocketConnection #keepaliveInterval-@--}-getWebsocketConnectionKeepaliveInterval :: (MonadIO m, IsWebsocketConnection o) => o -> m Word32-getWebsocketConnectionKeepaliveInterval obj = liftIO $ B.Properties.getObjectPropertyUInt32 obj "keepalive-interval"--{- |-Set the value of the “@keepalive-interval@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' websocketConnection [ #keepaliveInterval 'Data.GI.Base.Attributes.:=' value ]-@--}-setWebsocketConnectionKeepaliveInterval :: (MonadIO m, IsWebsocketConnection o) => o -> Word32 -> m ()-setWebsocketConnectionKeepaliveInterval obj val = liftIO $ B.Properties.setObjectPropertyUInt32 obj "keepalive-interval" val--{- |-Construct a `GValueConstruct` with valid value for the “@keepalive-interval@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructWebsocketConnectionKeepaliveInterval :: (IsWebsocketConnection o) => Word32 -> IO (GValueConstruct o)-constructWebsocketConnectionKeepaliveInterval val = B.Properties.constructObjectPropertyUInt32 "keepalive-interval" val--#if ENABLE_OVERLOADING-data WebsocketConnectionKeepaliveIntervalPropertyInfo-instance AttrInfo WebsocketConnectionKeepaliveIntervalPropertyInfo where-    type AttrAllowedOps WebsocketConnectionKeepaliveIntervalPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint WebsocketConnectionKeepaliveIntervalPropertyInfo = (~) Word32-    type AttrBaseTypeConstraint WebsocketConnectionKeepaliveIntervalPropertyInfo = IsWebsocketConnection-    type AttrGetType WebsocketConnectionKeepaliveIntervalPropertyInfo = Word32-    type AttrLabel WebsocketConnectionKeepaliveIntervalPropertyInfo = "keepalive-interval"-    type AttrOrigin WebsocketConnectionKeepaliveIntervalPropertyInfo = WebsocketConnection-    attrGet _ = getWebsocketConnectionKeepaliveInterval-    attrSet _ = setWebsocketConnectionKeepaliveInterval-    attrConstruct _ = constructWebsocketConnectionKeepaliveInterval-    attrClear _ = undefined-#endif---- VVV Prop "max-incoming-payload-size"-   -- Type: TBasicType TUInt64-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstruct]-   -- Nullable: (Just False,Just False)--{- |-Get the value of the “@max-incoming-payload-size@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' websocketConnection #maxIncomingPayloadSize-@--}-getWebsocketConnectionMaxIncomingPayloadSize :: (MonadIO m, IsWebsocketConnection o) => o -> m Word64-getWebsocketConnectionMaxIncomingPayloadSize obj = liftIO $ B.Properties.getObjectPropertyUInt64 obj "max-incoming-payload-size"--{- |-Set the value of the “@max-incoming-payload-size@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' websocketConnection [ #maxIncomingPayloadSize 'Data.GI.Base.Attributes.:=' value ]-@--}-setWebsocketConnectionMaxIncomingPayloadSize :: (MonadIO m, IsWebsocketConnection o) => o -> Word64 -> m ()-setWebsocketConnectionMaxIncomingPayloadSize obj val = liftIO $ B.Properties.setObjectPropertyUInt64 obj "max-incoming-payload-size" val--{- |-Construct a `GValueConstruct` with valid value for the “@max-incoming-payload-size@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructWebsocketConnectionMaxIncomingPayloadSize :: (IsWebsocketConnection o) => Word64 -> IO (GValueConstruct o)-constructWebsocketConnectionMaxIncomingPayloadSize val = B.Properties.constructObjectPropertyUInt64 "max-incoming-payload-size" val--#if ENABLE_OVERLOADING-data WebsocketConnectionMaxIncomingPayloadSizePropertyInfo-instance AttrInfo WebsocketConnectionMaxIncomingPayloadSizePropertyInfo where-    type AttrAllowedOps WebsocketConnectionMaxIncomingPayloadSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint WebsocketConnectionMaxIncomingPayloadSizePropertyInfo = (~) Word64-    type AttrBaseTypeConstraint WebsocketConnectionMaxIncomingPayloadSizePropertyInfo = IsWebsocketConnection-    type AttrGetType WebsocketConnectionMaxIncomingPayloadSizePropertyInfo = Word64-    type AttrLabel WebsocketConnectionMaxIncomingPayloadSizePropertyInfo = "max-incoming-payload-size"-    type AttrOrigin WebsocketConnectionMaxIncomingPayloadSizePropertyInfo = WebsocketConnection-    attrGet _ = getWebsocketConnectionMaxIncomingPayloadSize-    attrSet _ = setWebsocketConnectionMaxIncomingPayloadSize-    attrConstruct _ = constructWebsocketConnectionMaxIncomingPayloadSize-    attrClear _ = undefined-#endif---- VVV Prop "origin"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just True,Nothing)--{- |-Get the value of the “@origin@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' websocketConnection #origin-@--}-getWebsocketConnectionOrigin :: (MonadIO m, IsWebsocketConnection o) => o -> m (Maybe T.Text)-getWebsocketConnectionOrigin obj = liftIO $ B.Properties.getObjectPropertyString obj "origin"--{- |-Construct a `GValueConstruct` with valid value for the “@origin@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructWebsocketConnectionOrigin :: (IsWebsocketConnection o) => T.Text -> IO (GValueConstruct o)-constructWebsocketConnectionOrigin val = B.Properties.constructObjectPropertyString "origin" (Just val)--#if ENABLE_OVERLOADING-data WebsocketConnectionOriginPropertyInfo-instance AttrInfo WebsocketConnectionOriginPropertyInfo where-    type AttrAllowedOps WebsocketConnectionOriginPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint WebsocketConnectionOriginPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint WebsocketConnectionOriginPropertyInfo = IsWebsocketConnection-    type AttrGetType WebsocketConnectionOriginPropertyInfo = (Maybe T.Text)-    type AttrLabel WebsocketConnectionOriginPropertyInfo = "origin"-    type AttrOrigin WebsocketConnectionOriginPropertyInfo = WebsocketConnection-    attrGet _ = getWebsocketConnectionOrigin-    attrSet _ = undefined-    attrConstruct _ = constructWebsocketConnectionOrigin-    attrClear _ = undefined-#endif---- VVV Prop "protocol"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just True,Nothing)--{- |-Get the value of the “@protocol@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' websocketConnection #protocol-@--}-getWebsocketConnectionProtocol :: (MonadIO m, IsWebsocketConnection o) => o -> m (Maybe T.Text)-getWebsocketConnectionProtocol obj = liftIO $ B.Properties.getObjectPropertyString obj "protocol"--{- |-Construct a `GValueConstruct` with valid value for the “@protocol@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructWebsocketConnectionProtocol :: (IsWebsocketConnection o) => T.Text -> IO (GValueConstruct o)-constructWebsocketConnectionProtocol val = B.Properties.constructObjectPropertyString "protocol" (Just val)--#if ENABLE_OVERLOADING-data WebsocketConnectionProtocolPropertyInfo-instance AttrInfo WebsocketConnectionProtocolPropertyInfo where-    type AttrAllowedOps WebsocketConnectionProtocolPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint WebsocketConnectionProtocolPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint WebsocketConnectionProtocolPropertyInfo = IsWebsocketConnection-    type AttrGetType WebsocketConnectionProtocolPropertyInfo = (Maybe T.Text)-    type AttrLabel WebsocketConnectionProtocolPropertyInfo = "protocol"-    type AttrOrigin WebsocketConnectionProtocolPropertyInfo = WebsocketConnection-    attrGet _ = getWebsocketConnectionProtocol-    attrSet _ = undefined-    attrConstruct _ = constructWebsocketConnectionProtocol-    attrClear _ = undefined-#endif---- VVV Prop "state"-   -- Type: TInterface (Name {namespace = "Soup", name = "WebsocketState"})-   -- Flags: [PropertyReadable]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@state@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' websocketConnection #state-@--}-getWebsocketConnectionState :: (MonadIO m, IsWebsocketConnection o) => o -> m Soup.Enums.WebsocketState-getWebsocketConnectionState obj = liftIO $ B.Properties.getObjectPropertyEnum obj "state"--#if ENABLE_OVERLOADING-data WebsocketConnectionStatePropertyInfo-instance AttrInfo WebsocketConnectionStatePropertyInfo where-    type AttrAllowedOps WebsocketConnectionStatePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint WebsocketConnectionStatePropertyInfo = (~) ()-    type AttrBaseTypeConstraint WebsocketConnectionStatePropertyInfo = IsWebsocketConnection-    type AttrGetType WebsocketConnectionStatePropertyInfo = Soup.Enums.WebsocketState-    type AttrLabel WebsocketConnectionStatePropertyInfo = "state"-    type AttrOrigin WebsocketConnectionStatePropertyInfo = WebsocketConnection-    attrGet _ = getWebsocketConnectionState-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined-#endif---- VVV Prop "uri"-   -- Type: TInterface (Name {namespace = "Soup", name = "URI"})-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--{- |-Get the value of the “@uri@” property.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' websocketConnection #uri-@--}-getWebsocketConnectionUri :: (MonadIO m, IsWebsocketConnection o) => o -> m Soup.URI.URI-getWebsocketConnectionUri obj = liftIO $ checkUnexpectedNothing "getWebsocketConnectionUri" $ B.Properties.getObjectPropertyBoxed obj "uri" Soup.URI.URI--{- |-Construct a `GValueConstruct` with valid value for the “@uri@” property. This is rarely needed directly, but it is used by `Data.GI.Base.Constructible.new`.--}-constructWebsocketConnectionUri :: (IsWebsocketConnection o) => Soup.URI.URI -> IO (GValueConstruct o)-constructWebsocketConnectionUri val = B.Properties.constructObjectPropertyBoxed "uri" (Just val)--#if ENABLE_OVERLOADING-data WebsocketConnectionUriPropertyInfo-instance AttrInfo WebsocketConnectionUriPropertyInfo where-    type AttrAllowedOps WebsocketConnectionUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint WebsocketConnectionUriPropertyInfo = (~) Soup.URI.URI-    type AttrBaseTypeConstraint WebsocketConnectionUriPropertyInfo = IsWebsocketConnection-    type AttrGetType WebsocketConnectionUriPropertyInfo = Soup.URI.URI-    type AttrLabel WebsocketConnectionUriPropertyInfo = "uri"-    type AttrOrigin WebsocketConnectionUriPropertyInfo = WebsocketConnection-    attrGet _ = getWebsocketConnectionUri-    attrSet _ = undefined-    attrConstruct _ = constructWebsocketConnectionUri-    attrClear _ = undefined-#endif--#if ENABLE_OVERLOADING-instance O.HasAttributeList WebsocketConnection-type instance O.AttributeList WebsocketConnection = WebsocketConnectionAttributeList-type WebsocketConnectionAttributeList = ('[ '("connectionType", WebsocketConnectionConnectionTypePropertyInfo), '("ioStream", WebsocketConnectionIoStreamPropertyInfo), '("keepaliveInterval", WebsocketConnectionKeepaliveIntervalPropertyInfo), '("maxIncomingPayloadSize", WebsocketConnectionMaxIncomingPayloadSizePropertyInfo), '("origin", WebsocketConnectionOriginPropertyInfo), '("protocol", WebsocketConnectionProtocolPropertyInfo), '("state", WebsocketConnectionStatePropertyInfo), '("uri", WebsocketConnectionUriPropertyInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-websocketConnectionConnectionType :: AttrLabelProxy "connectionType"-websocketConnectionConnectionType = AttrLabelProxy--websocketConnectionIoStream :: AttrLabelProxy "ioStream"-websocketConnectionIoStream = AttrLabelProxy--websocketConnectionKeepaliveInterval :: AttrLabelProxy "keepaliveInterval"-websocketConnectionKeepaliveInterval = AttrLabelProxy--websocketConnectionMaxIncomingPayloadSize :: AttrLabelProxy "maxIncomingPayloadSize"-websocketConnectionMaxIncomingPayloadSize = AttrLabelProxy--websocketConnectionOrigin :: AttrLabelProxy "origin"-websocketConnectionOrigin = AttrLabelProxy--websocketConnectionProtocol :: AttrLabelProxy "protocol"-websocketConnectionProtocol = AttrLabelProxy--websocketConnectionState :: AttrLabelProxy "state"-websocketConnectionState = AttrLabelProxy--websocketConnectionUri :: AttrLabelProxy "uri"-websocketConnectionUri = AttrLabelProxy--#endif--#if ENABLE_OVERLOADING-data WebsocketConnectionClosedSignalInfo-instance SignalInfo WebsocketConnectionClosedSignalInfo where-    type HaskellCallbackType WebsocketConnectionClosedSignalInfo = WebsocketConnectionClosedCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_WebsocketConnectionClosedCallback cb-        cb'' <- mk_WebsocketConnectionClosedCallback cb'-        connectSignalFunPtr obj "closed" cb'' connectMode--data WebsocketConnectionClosingSignalInfo-instance SignalInfo WebsocketConnectionClosingSignalInfo where-    type HaskellCallbackType WebsocketConnectionClosingSignalInfo = WebsocketConnectionClosingCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_WebsocketConnectionClosingCallback cb-        cb'' <- mk_WebsocketConnectionClosingCallback cb'-        connectSignalFunPtr obj "closing" cb'' connectMode--data WebsocketConnectionErrorSignalInfo-instance SignalInfo WebsocketConnectionErrorSignalInfo where-    type HaskellCallbackType WebsocketConnectionErrorSignalInfo = WebsocketConnectionErrorCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_WebsocketConnectionErrorCallback cb-        cb'' <- mk_WebsocketConnectionErrorCallback cb'-        connectSignalFunPtr obj "error" cb'' connectMode--data WebsocketConnectionMessageSignalInfo-instance SignalInfo WebsocketConnectionMessageSignalInfo where-    type HaskellCallbackType WebsocketConnectionMessageSignalInfo = WebsocketConnectionMessageCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_WebsocketConnectionMessageCallback cb-        cb'' <- mk_WebsocketConnectionMessageCallback cb'-        connectSignalFunPtr obj "message" cb'' connectMode--data WebsocketConnectionPongSignalInfo-instance SignalInfo WebsocketConnectionPongSignalInfo where-    type HaskellCallbackType WebsocketConnectionPongSignalInfo = WebsocketConnectionPongCallback-    connectSignal _ obj cb connectMode = do-        let cb' = wrap_WebsocketConnectionPongCallback cb-        cb'' <- mk_WebsocketConnectionPongCallback cb'-        connectSignalFunPtr obj "pong" cb'' connectMode--type instance O.SignalList WebsocketConnection = WebsocketConnectionSignalList-type WebsocketConnectionSignalList = ('[ '("closed", WebsocketConnectionClosedSignalInfo), '("closing", WebsocketConnectionClosingSignalInfo), '("error", WebsocketConnectionErrorSignalInfo), '("message", WebsocketConnectionMessageSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("pong", WebsocketConnectionPongSignalInfo)] :: [(Symbol, *)])--#endif---- method WebsocketConnection::new--- method type : Constructor--- Args : [Arg {argCName = "stream", argType = TInterface (Name {namespace = "Gio", name = "IOStream"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GIOStream connected to the WebSocket server", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the URI of the connection", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface (Name {namespace = "Soup", name = "WebsocketConnectionType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the type of connection (client/side)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the Origin of the client", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the subprotocol in use", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "WebsocketConnection"}))--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_new" soup_websocket_connection_new :: -    Ptr Gio.IOStream.IOStream ->            -- stream : TInterface (Name {namespace = "Gio", name = "IOStream"})-    Ptr Soup.URI.URI ->                     -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    CUInt ->                                -- type : TInterface (Name {namespace = "Soup", name = "WebsocketConnectionType"})-    CString ->                              -- origin : TBasicType TUTF8-    CString ->                              -- protocol : TBasicType TUTF8-    IO (Ptr WebsocketConnection)--{- |-Creates a 'GI.Soup.Objects.WebsocketConnection.WebsocketConnection' on /@stream@/. This should be-called after completing the handshake to begin using the WebSocket-protocol.--/Since: 2.50/--}-websocketConnectionNew ::-    (B.CallStack.HasCallStack, MonadIO m, Gio.IOStream.IsIOStream a) =>-    a-    {- ^ /@stream@/: a 'GI.Gio.Objects.IOStream.IOStream' connected to the WebSocket server -}-    -> Soup.URI.URI-    {- ^ /@uri@/: the URI of the connection -}-    -> Soup.Enums.WebsocketConnectionType-    {- ^ /@type@/: the type of connection (client\/side) -}-    -> Maybe (T.Text)-    {- ^ /@origin@/: the Origin of the client -}-    -> Maybe (T.Text)-    {- ^ /@protocol@/: the subprotocol in use -}-    -> m WebsocketConnection-    {- ^ __Returns:__ a new 'GI.Soup.Objects.WebsocketConnection.WebsocketConnection' -}-websocketConnectionNew stream uri type_ origin protocol = liftIO $ do-    stream' <- unsafeManagedPtrCastPtr stream-    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 "websocketConnectionNew" result-    result' <- (wrapObject WebsocketConnection) result-    touchManagedPtr stream-    touchManagedPtr uri-    freeMem maybeOrigin-    freeMem maybeProtocol-    return result'--#if ENABLE_OVERLOADING-#endif---- method WebsocketConnection::close--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Soup", name = "WebsocketConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the WebSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "code", argType = TBasicType TUInt16, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "close code", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "close data", sinceVersion = Nothing}, 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 ->              -- self : TInterface (Name {namespace = "Soup", name = "WebsocketConnection"})-    Word16 ->                               -- code : TBasicType TUInt16-    CString ->                              -- data : TBasicType TUTF8-    IO ()--{- |-Close the connection in an orderly fashion.--Note that until the 'GI.Soup.Objects.WebsocketConnection.WebsocketConnection'::@/closed/@ signal fires, the connection-is not yet completely closed. The close message is not even sent until the-main loop runs.--The /@code@/ and /@data@/ are sent to the peer along with the close request.-Note that the /@data@/ must be UTF-8 valid.--/Since: 2.50/--}-websocketConnectionClose ::-    (B.CallStack.HasCallStack, MonadIO m, IsWebsocketConnection a) =>-    a-    {- ^ /@self@/: the WebSocket -}-    -> Word16-    {- ^ /@code@/: close code -}-    -> Maybe (T.Text)-    {- ^ /@data@/: close data -}-    -> m ()-websocketConnectionClose self code data_ = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    maybeData_ <- case data_ of-        Nothing -> return nullPtr-        Just jData_ -> do-            jData_' <- textToCString jData_-            return jData_'-    soup_websocket_connection_close self' code maybeData_-    touchManagedPtr self-    freeMem maybeData_-    return ()--#if ENABLE_OVERLOADING-data WebsocketConnectionCloseMethodInfo-instance (signature ~ (Word16 -> Maybe (T.Text) -> m ()), MonadIO m, IsWebsocketConnection a) => O.MethodInfo WebsocketConnectionCloseMethodInfo a signature where-    overloadedMethod _ = websocketConnectionClose--#endif---- method WebsocketConnection::get_close_code--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Soup", name = "WebsocketConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the WebSocket", sinceVersion = Nothing}, 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 ->              -- self : TInterface (Name {namespace = "Soup", name = "WebsocketConnection"})-    IO Word16--{- |-Get the close code received from the WebSocket peer.--This only becomes valid once the WebSocket is in the-'GI.Soup.Enums.WebsocketStateClosed' state. The value will often be in the-'GI.Soup.Enums.WebsocketCloseCode' enumeration, but may also be an application-defined close code.--/Since: 2.50/--}-websocketConnectionGetCloseCode ::-    (B.CallStack.HasCallStack, MonadIO m, IsWebsocketConnection a) =>-    a-    {- ^ /@self@/: the WebSocket -}-    -> m Word16-    {- ^ __Returns:__ the close code or zero. -}-websocketConnectionGetCloseCode self = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    result <- soup_websocket_connection_get_close_code self'-    touchManagedPtr self-    return result--#if ENABLE_OVERLOADING-data WebsocketConnectionGetCloseCodeMethodInfo-instance (signature ~ (m Word16), MonadIO m, IsWebsocketConnection a) => O.MethodInfo WebsocketConnectionGetCloseCodeMethodInfo a signature where-    overloadedMethod _ = websocketConnectionGetCloseCode--#endif---- method WebsocketConnection::get_close_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Soup", name = "WebsocketConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the WebSocket", sinceVersion = Nothing}, 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 ->              -- self : TInterface (Name {namespace = "Soup", name = "WebsocketConnection"})-    IO CString--{- |-Get the close data received from the WebSocket peer.--This only becomes valid once the WebSocket is in the-'GI.Soup.Enums.WebsocketStateClosed' state. The data may be freed once-the main loop is run, so copy it if you need to keep it around.--/Since: 2.50/--}-websocketConnectionGetCloseData ::-    (B.CallStack.HasCallStack, MonadIO m, IsWebsocketConnection a) =>-    a-    {- ^ /@self@/: the WebSocket -}-    -> m T.Text-    {- ^ __Returns:__ the close data or 'Nothing' -}-websocketConnectionGetCloseData self = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    result <- soup_websocket_connection_get_close_data self'-    checkUnexpectedReturnNULL "websocketConnectionGetCloseData" result-    result' <- cstringToText result-    touchManagedPtr self-    return result'--#if ENABLE_OVERLOADING-data WebsocketConnectionGetCloseDataMethodInfo-instance (signature ~ (m T.Text), MonadIO m, IsWebsocketConnection a) => O.MethodInfo WebsocketConnectionGetCloseDataMethodInfo a signature where-    overloadedMethod _ = websocketConnectionGetCloseData--#endif---- method WebsocketConnection::get_connection_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Soup", name = "WebsocketConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the WebSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "WebsocketConnectionType"}))--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_get_connection_type" soup_websocket_connection_get_connection_type :: -    Ptr WebsocketConnection ->              -- self : TInterface (Name {namespace = "Soup", name = "WebsocketConnection"})-    IO CUInt--{- |-Get the connection type (client\/server) of the connection.--/Since: 2.50/--}-websocketConnectionGetConnectionType ::-    (B.CallStack.HasCallStack, MonadIO m, IsWebsocketConnection a) =>-    a-    {- ^ /@self@/: the WebSocket -}-    -> m Soup.Enums.WebsocketConnectionType-    {- ^ __Returns:__ the connection type -}-websocketConnectionGetConnectionType self = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    result <- soup_websocket_connection_get_connection_type self'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr self-    return result'--#if ENABLE_OVERLOADING-data WebsocketConnectionGetConnectionTypeMethodInfo-instance (signature ~ (m Soup.Enums.WebsocketConnectionType), MonadIO m, IsWebsocketConnection a) => O.MethodInfo WebsocketConnectionGetConnectionTypeMethodInfo a signature where-    overloadedMethod _ = websocketConnectionGetConnectionType--#endif---- method WebsocketConnection::get_io_stream--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Soup", name = "WebsocketConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the WebSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "IOStream"}))--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_get_io_stream" soup_websocket_connection_get_io_stream :: -    Ptr WebsocketConnection ->              -- self : TInterface (Name {namespace = "Soup", name = "WebsocketConnection"})-    IO (Ptr Gio.IOStream.IOStream)--{- |-Get the I\/O stream the WebSocket is communicating over.--/Since: 2.50/--}-websocketConnectionGetIoStream ::-    (B.CallStack.HasCallStack, MonadIO m, IsWebsocketConnection a) =>-    a-    {- ^ /@self@/: the WebSocket -}-    -> m Gio.IOStream.IOStream-    {- ^ __Returns:__ the WebSocket\'s I\/O stream. -}-websocketConnectionGetIoStream self = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    result <- soup_websocket_connection_get_io_stream self'-    checkUnexpectedReturnNULL "websocketConnectionGetIoStream" result-    result' <- (newObject Gio.IOStream.IOStream) result-    touchManagedPtr self-    return result'--#if ENABLE_OVERLOADING-data WebsocketConnectionGetIoStreamMethodInfo-instance (signature ~ (m Gio.IOStream.IOStream), MonadIO m, IsWebsocketConnection a) => O.MethodInfo WebsocketConnectionGetIoStreamMethodInfo a signature where-    overloadedMethod _ = websocketConnectionGetIoStream--#endif---- method WebsocketConnection::get_keepalive_interval--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Soup", name = "WebsocketConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the WebSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_get_keepalive_interval" soup_websocket_connection_get_keepalive_interval :: -    Ptr WebsocketConnection ->              -- self : TInterface (Name {namespace = "Soup", name = "WebsocketConnection"})-    IO Word32--{- |-Gets the keepalive interval in seconds or 0 if disabled.--/Since: 2.58/--}-websocketConnectionGetKeepaliveInterval ::-    (B.CallStack.HasCallStack, MonadIO m, IsWebsocketConnection a) =>-    a-    {- ^ /@self@/: the WebSocket -}-    -> m Word32-    {- ^ __Returns:__ the keepalive interval. -}-websocketConnectionGetKeepaliveInterval self = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    result <- soup_websocket_connection_get_keepalive_interval self'-    touchManagedPtr self-    return result--#if ENABLE_OVERLOADING-data WebsocketConnectionGetKeepaliveIntervalMethodInfo-instance (signature ~ (m Word32), MonadIO m, IsWebsocketConnection a) => O.MethodInfo WebsocketConnectionGetKeepaliveIntervalMethodInfo a signature where-    overloadedMethod _ = websocketConnectionGetKeepaliveInterval--#endif---- method WebsocketConnection::get_max_incoming_payload_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Soup", name = "WebsocketConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the WebSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt64)--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_get_max_incoming_payload_size" soup_websocket_connection_get_max_incoming_payload_size :: -    Ptr WebsocketConnection ->              -- self : TInterface (Name {namespace = "Soup", name = "WebsocketConnection"})-    IO Word64--{- |-Gets the maximum payload size allowed for incoming packets.--/Since: 2.56/--}-websocketConnectionGetMaxIncomingPayloadSize ::-    (B.CallStack.HasCallStack, MonadIO m, IsWebsocketConnection a) =>-    a-    {- ^ /@self@/: the WebSocket -}-    -> m Word64-    {- ^ __Returns:__ the maximum payload size. -}-websocketConnectionGetMaxIncomingPayloadSize self = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    result <- soup_websocket_connection_get_max_incoming_payload_size self'-    touchManagedPtr self-    return result--#if ENABLE_OVERLOADING-data WebsocketConnectionGetMaxIncomingPayloadSizeMethodInfo-instance (signature ~ (m Word64), MonadIO m, IsWebsocketConnection a) => O.MethodInfo WebsocketConnectionGetMaxIncomingPayloadSizeMethodInfo a signature where-    overloadedMethod _ = websocketConnectionGetMaxIncomingPayloadSize--#endif---- method WebsocketConnection::get_origin--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Soup", name = "WebsocketConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the WebSocket", sinceVersion = Nothing}, 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 ->              -- self : TInterface (Name {namespace = "Soup", name = "WebsocketConnection"})-    IO CString--{- |-Get the origin of the WebSocket.--/Since: 2.50/--}-websocketConnectionGetOrigin ::-    (B.CallStack.HasCallStack, MonadIO m, IsWebsocketConnection a) =>-    a-    {- ^ /@self@/: the WebSocket -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ the origin, or 'Nothing' -}-websocketConnectionGetOrigin self = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    result <- soup_websocket_connection_get_origin self'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr self-    return maybeResult--#if ENABLE_OVERLOADING-data WebsocketConnectionGetOriginMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebsocketConnection a) => O.MethodInfo WebsocketConnectionGetOriginMethodInfo a signature where-    overloadedMethod _ = websocketConnectionGetOrigin--#endif---- method WebsocketConnection::get_protocol--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Soup", name = "WebsocketConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the WebSocket", sinceVersion = Nothing}, 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 ->              -- self : TInterface (Name {namespace = "Soup", name = "WebsocketConnection"})-    IO CString--{- |-Get the protocol chosen via negotiation with the peer.--/Since: 2.50/--}-websocketConnectionGetProtocol ::-    (B.CallStack.HasCallStack, MonadIO m, IsWebsocketConnection a) =>-    a-    {- ^ /@self@/: the WebSocket -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ the chosen protocol, or 'Nothing' -}-websocketConnectionGetProtocol self = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    result <- soup_websocket_connection_get_protocol self'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr self-    return maybeResult--#if ENABLE_OVERLOADING-data WebsocketConnectionGetProtocolMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsWebsocketConnection a) => O.MethodInfo WebsocketConnectionGetProtocolMethodInfo a signature where-    overloadedMethod _ = websocketConnectionGetProtocol--#endif---- method WebsocketConnection::get_state--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Soup", name = "WebsocketConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the WebSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "WebsocketState"}))--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_get_state" soup_websocket_connection_get_state :: -    Ptr WebsocketConnection ->              -- self : TInterface (Name {namespace = "Soup", name = "WebsocketConnection"})-    IO CUInt--{- |-Get the current state of the WebSocket.--/Since: 2.50/--}-websocketConnectionGetState ::-    (B.CallStack.HasCallStack, MonadIO m, IsWebsocketConnection a) =>-    a-    {- ^ /@self@/: the WebSocket -}-    -> m Soup.Enums.WebsocketState-    {- ^ __Returns:__ the state -}-websocketConnectionGetState self = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    result <- soup_websocket_connection_get_state self'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr self-    return result'--#if ENABLE_OVERLOADING-data WebsocketConnectionGetStateMethodInfo-instance (signature ~ (m Soup.Enums.WebsocketState), MonadIO m, IsWebsocketConnection a) => O.MethodInfo WebsocketConnectionGetStateMethodInfo a signature where-    overloadedMethod _ = websocketConnectionGetState--#endif---- method WebsocketConnection::get_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Soup", name = "WebsocketConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the WebSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "URI"}))--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_get_uri" soup_websocket_connection_get_uri :: -    Ptr WebsocketConnection ->              -- self : TInterface (Name {namespace = "Soup", name = "WebsocketConnection"})-    IO (Ptr Soup.URI.URI)--{- |-Get the URI of the WebSocket.--For servers this represents the address of the WebSocket, and-for clients it is the address connected to.--/Since: 2.50/--}-websocketConnectionGetUri ::-    (B.CallStack.HasCallStack, MonadIO m, IsWebsocketConnection a) =>-    a-    {- ^ /@self@/: the WebSocket -}-    -> m Soup.URI.URI-    {- ^ __Returns:__ the URI -}-websocketConnectionGetUri self = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    result <- soup_websocket_connection_get_uri self'-    checkUnexpectedReturnNULL "websocketConnectionGetUri" result-    result' <- (newBoxed Soup.URI.URI) result-    touchManagedPtr self-    return result'--#if ENABLE_OVERLOADING-data WebsocketConnectionGetUriMethodInfo-instance (signature ~ (m Soup.URI.URI), MonadIO m, IsWebsocketConnection a) => O.MethodInfo WebsocketConnectionGetUriMethodInfo a signature where-    overloadedMethod _ = websocketConnectionGetUri--#endif---- method WebsocketConnection::send_binary--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Soup", name = "WebsocketConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the WebSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the message contents", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of @data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of @data", sinceVersion = Nothing}, 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 ->              -- self : TInterface (Name {namespace = "Soup", name = "WebsocketConnection"})-    Ptr Word8 ->                            -- data : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- length : TBasicType TUInt64-    IO ()--{- |-Send a binary message to the peer.--The message is queued to be sent and will be sent when the main loop-is run.--/Since: 2.50/--}-websocketConnectionSendBinary ::-    (B.CallStack.HasCallStack, MonadIO m, IsWebsocketConnection a) =>-    a-    {- ^ /@self@/: the WebSocket -}-    -> ByteString-    {- ^ /@data@/: the message contents -}-    -> m ()-websocketConnectionSendBinary self data_ = liftIO $ do-    let length_ = fromIntegral $ B.length data_-    self' <- unsafeManagedPtrCastPtr self-    data_' <- packByteString data_-    soup_websocket_connection_send_binary self' data_' length_-    touchManagedPtr self-    freeMem data_'-    return ()--#if ENABLE_OVERLOADING-data WebsocketConnectionSendBinaryMethodInfo-instance (signature ~ (ByteString -> m ()), MonadIO m, IsWebsocketConnection a) => O.MethodInfo WebsocketConnectionSendBinaryMethodInfo a signature where-    overloadedMethod _ = websocketConnectionSendBinary--#endif---- method WebsocketConnection::send_text--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Soup", name = "WebsocketConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the WebSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the message contents", sinceVersion = Nothing}, 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 ->              -- self : TInterface (Name {namespace = "Soup", name = "WebsocketConnection"})-    CString ->                              -- text : TBasicType TUTF8-    IO ()--{- |-Send a text (UTF-8) message to the peer.--The message is queued to be sent and will be sent when the main loop-is run.--/Since: 2.50/--}-websocketConnectionSendText ::-    (B.CallStack.HasCallStack, MonadIO m, IsWebsocketConnection a) =>-    a-    {- ^ /@self@/: the WebSocket -}-    -> T.Text-    {- ^ /@text@/: the message contents -}-    -> m ()-websocketConnectionSendText self text = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    text' <- textToCString text-    soup_websocket_connection_send_text self' text'-    touchManagedPtr self-    freeMem text'-    return ()--#if ENABLE_OVERLOADING-data WebsocketConnectionSendTextMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, IsWebsocketConnection a) => O.MethodInfo WebsocketConnectionSendTextMethodInfo a signature where-    overloadedMethod _ = websocketConnectionSendText--#endif---- method WebsocketConnection::set_keepalive_interval--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Soup", name = "WebsocketConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the WebSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the interval to send a ping message or 0 to disable it", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_set_keepalive_interval" soup_websocket_connection_set_keepalive_interval :: -    Ptr WebsocketConnection ->              -- self : TInterface (Name {namespace = "Soup", name = "WebsocketConnection"})-    Word32 ->                               -- interval : TBasicType TUInt-    IO ()--{- |-Sets the interval in seconds on when to send a ping message which will serve-as a keepalive message. If set to 0 the keepalive message is disabled.--/Since: 2.58/--}-websocketConnectionSetKeepaliveInterval ::-    (B.CallStack.HasCallStack, MonadIO m, IsWebsocketConnection a) =>-    a-    {- ^ /@self@/: the WebSocket -}-    -> Word32-    {- ^ /@interval@/: the interval to send a ping message or 0 to disable it -}-    -> m ()-websocketConnectionSetKeepaliveInterval self interval = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    soup_websocket_connection_set_keepalive_interval self' interval-    touchManagedPtr self-    return ()--#if ENABLE_OVERLOADING-data WebsocketConnectionSetKeepaliveIntervalMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, IsWebsocketConnection a) => O.MethodInfo WebsocketConnectionSetKeepaliveIntervalMethodInfo a signature where-    overloadedMethod _ = websocketConnectionSetKeepaliveInterval--#endif---- method WebsocketConnection::set_max_incoming_payload_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Soup", name = "WebsocketConnection"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the WebSocket", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_incoming_payload_size", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the maximum payload size", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "soup_websocket_connection_set_max_incoming_payload_size" soup_websocket_connection_set_max_incoming_payload_size :: -    Ptr WebsocketConnection ->              -- self : TInterface (Name {namespace = "Soup", name = "WebsocketConnection"})-    Word64 ->                               -- max_incoming_payload_size : TBasicType TUInt64-    IO ()--{- |-Sets the maximum payload size allowed for incoming packets. It-does not limit the outgoing packet size.--/Since: 2.56/--}-websocketConnectionSetMaxIncomingPayloadSize ::-    (B.CallStack.HasCallStack, MonadIO m, IsWebsocketConnection a) =>-    a-    {- ^ /@self@/: the WebSocket -}-    -> Word64-    {- ^ /@maxIncomingPayloadSize@/: the maximum payload size -}-    -> m ()-websocketConnectionSetMaxIncomingPayloadSize self maxIncomingPayloadSize = liftIO $ do-    self' <- unsafeManagedPtrCastPtr self-    soup_websocket_connection_set_max_incoming_payload_size self' maxIncomingPayloadSize-    touchManagedPtr self-    return ()--#if ENABLE_OVERLOADING-data WebsocketConnectionSetMaxIncomingPayloadSizeMethodInfo-instance (signature ~ (Word64 -> m ()), MonadIO m, IsWebsocketConnection a) => O.MethodInfo WebsocketConnectionSetMaxIncomingPayloadSizeMethodInfo a signature where-    overloadedMethod _ = websocketConnectionSetMaxIncomingPayloadSize--#endif--
− GI/Soup/Objects/WebsocketConnection.hs-boot 
@@ -1,113 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Objects.WebsocketConnection where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype WebsocketConnection = WebsocketConnection (ManagedPtr WebsocketConnection)-instance GObject WebsocketConnection where-class (GObject o, O.IsDescendantOf WebsocketConnection o) => IsWebsocketConnection o-instance (GObject o, O.IsDescendantOf WebsocketConnection o) => IsWebsocketConnection o-instance O.HasParentTypes WebsocketConnection-#if ENABLE_OVERLOADING-data WebsocketConnectionConnectionTypePropertyInfo-#endif-#if ENABLE_OVERLOADING-data WebsocketConnectionIoStreamPropertyInfo-#endif-#if ENABLE_OVERLOADING-data WebsocketConnectionKeepaliveIntervalPropertyInfo-#endif-#if ENABLE_OVERLOADING-data WebsocketConnectionMaxIncomingPayloadSizePropertyInfo-#endif-#if ENABLE_OVERLOADING-data WebsocketConnectionOriginPropertyInfo-#endif-#if ENABLE_OVERLOADING-data WebsocketConnectionProtocolPropertyInfo-#endif-#if ENABLE_OVERLOADING-data WebsocketConnectionStatePropertyInfo-#endif-#if ENABLE_OVERLOADING-data WebsocketConnectionUriPropertyInfo-#endif-#if ENABLE_OVERLOADING-data WebsocketConnectionClosedSignalInfo-#endif-#if ENABLE_OVERLOADING-data WebsocketConnectionClosingSignalInfo-#endif-#if ENABLE_OVERLOADING-data WebsocketConnectionErrorSignalInfo-#endif-#if ENABLE_OVERLOADING-data WebsocketConnectionMessageSignalInfo-#endif-#if ENABLE_OVERLOADING-data WebsocketConnectionPongSignalInfo-#endif-#if ENABLE_OVERLOADING-data WebsocketConnectionCloseMethodInfo-#endif-#if ENABLE_OVERLOADING-data WebsocketConnectionGetCloseCodeMethodInfo-#endif-#if ENABLE_OVERLOADING-data WebsocketConnectionGetCloseDataMethodInfo-#endif-#if ENABLE_OVERLOADING-data WebsocketConnectionGetConnectionTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data WebsocketConnectionGetIoStreamMethodInfo-#endif-#if ENABLE_OVERLOADING-data WebsocketConnectionGetKeepaliveIntervalMethodInfo-#endif-#if ENABLE_OVERLOADING-data WebsocketConnectionGetMaxIncomingPayloadSizeMethodInfo-#endif-#if ENABLE_OVERLOADING-data WebsocketConnectionGetOriginMethodInfo-#endif-#if ENABLE_OVERLOADING-data WebsocketConnectionGetProtocolMethodInfo-#endif-#if ENABLE_OVERLOADING-data WebsocketConnectionGetStateMethodInfo-#endif-#if ENABLE_OVERLOADING-data WebsocketConnectionGetUriMethodInfo-#endif-#if ENABLE_OVERLOADING-data WebsocketConnectionSendBinaryMethodInfo-#endif-#if ENABLE_OVERLOADING-data WebsocketConnectionSendTextMethodInfo-#endif-#if ENABLE_OVERLOADING-data WebsocketConnectionSetKeepaliveIntervalMethodInfo-#endif-#if ENABLE_OVERLOADING-data WebsocketConnectionSetMaxIncomingPayloadSizeMethodInfo-#endif
− GI/Soup/Structs.hs 
@@ -1,67 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--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.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL---
− GI/Soup/Structs/Buffer.hs 
@@ -1,634 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--A data buffer, generally used to represent a chunk of a-'GI.Soup.Structs.MessageBody.MessageBody'.--/@data@/ is a @/char/@ because that\'s generally convenient; in some-situations you may need to cast it to @/guchar/@ or another type.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Structs.Buffer-    ( ---- * Exported types-    Buffer(..)                              ,-    newZeroBuffer                           ,-    noBuffer                                ,--- -- * Methods--- ** copy #method:copy#--#if ENABLE_OVERLOADING-    BufferCopyMethodInfo                    ,-#endif-    bufferCopy                              ,----- ** free #method:free#--#if ENABLE_OVERLOADING-    BufferFreeMethodInfo                    ,-#endif-    bufferFree                              ,----- ** getAsBytes #method:getAsBytes#--#if ENABLE_OVERLOADING-    BufferGetAsBytesMethodInfo              ,-#endif-    bufferGetAsBytes                        ,----- ** getData #method:getData#--#if ENABLE_OVERLOADING-    BufferGetDataMethodInfo                 ,-#endif-    bufferGetData                           ,----- ** getOwner #method:getOwner#--#if ENABLE_OVERLOADING-    BufferGetOwnerMethodInfo                ,-#endif-    bufferGetOwner                          ,----- ** new #method:new#--    bufferNew                               ,----- ** newSubbuffer #method:newSubbuffer#--#if ENABLE_OVERLOADING-    BufferNewSubbufferMethodInfo            ,-#endif-    bufferNewSubbuffer                      ,----- ** newWithOwner #method:newWithOwner#--    bufferNewWithOwner                      ,----- -- * Properties--- ** data #attr:data#-{- | the data--}-#if ENABLE_OVERLOADING-    buffer_data                             ,-#endif-    clearBufferData                         ,-    getBufferData                           ,-    setBufferData                           ,----- ** length #attr:length#-{- | length of /@data@/--}-#if ENABLE_OVERLOADING-    buffer_length                           ,-#endif-    getBufferLength                         ,-    setBufferLength                         ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GLib.Callbacks as GLib.Callbacks-import qualified GI.GLib.Structs.Bytes as GLib.Bytes---- | Memory-managed wrapper type.-newtype Buffer = Buffer (ManagedPtr 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----- | A convenience alias for `Nothing` :: `Maybe` `Buffer`.-noBuffer :: Maybe Buffer-noBuffer = Nothing--{- |-Get the value of the “@data@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' buffer #data-@--}-getBufferData :: MonadIO m => Buffer -> m (Ptr ())-getBufferData s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr ())-    return val--{- |-Set the value of the “@data@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' buffer [ #data 'Data.GI.Base.Attributes.:=' value ]-@--}-setBufferData :: MonadIO m => Buffer -> Ptr () -> m ()-setBufferData s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr ())--{- |-Set the value of the “@data@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #data-@--}-clearBufferData :: MonadIO m => Buffer -> m ()-clearBufferData s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (FP.nullPtr :: Ptr ())--#if ENABLE_OVERLOADING-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"-    type AttrOrigin BufferDataFieldInfo = Buffer-    attrGet _ = getBufferData-    attrSet _ = setBufferData-    attrConstruct = undefined-    attrClear _ = clearBufferData--buffer_data :: AttrLabelProxy "data"-buffer_data = AttrLabelProxy--#endif---{- |-Get the value of the “@length@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' buffer #length-@--}-getBufferLength :: MonadIO m => Buffer -> m Word64-getBufferLength s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Word64-    return val--{- |-Set the value of the “@length@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' buffer [ #length 'Data.GI.Base.Attributes.:=' value ]-@--}-setBufferLength :: MonadIO m => Buffer -> Word64 -> m ()-setBufferLength s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Word64)--#if ENABLE_OVERLOADING-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"-    type AttrOrigin BufferLengthFieldInfo = Buffer-    attrGet _ = getBufferLength-    attrSet _ = setBufferLength-    attrConstruct = undefined-    attrClear _ = undefined--buffer_length :: AttrLabelProxy "length"-buffer_length = AttrLabelProxy--#endif----#if ENABLE_OVERLOADING-instance O.HasAttributeList Buffer-type instance O.AttributeList Buffer = BufferAttributeList-type BufferAttributeList = ('[ '("data", BufferDataFieldInfo), '("length", BufferLengthFieldInfo)] :: [(Symbol, *)])-#endif---- method Buffer::new--- method type : Constructor--- Args : [Arg {argCName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "length of @data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "length of @data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TInterface (Name {namespace = "Soup", name = "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)--{- |-Creates a new 'GI.Soup.Structs.Buffer.Buffer' containing /@length@/ bytes from /@data@/.--This function is exactly equivalent to @/soup_buffer_new()/@ with-'GI.Soup.Enums.MemoryUseTake' as first argument; it exists mainly for-convenience and simplifying language bindings.--/Since: 2.32/--}-bufferNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    ByteString-    {- ^ /@data@/: data -}-    -> m Buffer-    {- ^ __Returns:__ the new 'GI.Soup.Structs.Buffer.Buffer'. -}-bufferNew data_ = liftIO $ do-    let length_ = fromIntegral $ B.length data_-    data_' <- packByteString data_-    result <- soup_buffer_new_take data_' length_-    checkUnexpectedReturnNULL "bufferNew" result-    result' <- (wrapBoxed Buffer) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method Buffer::new_with_owner--- method type : Constructor--- Args : [Arg {argCName = "data", argType = TCArray False (-1) 1 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "length of @data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "owner", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "pointer to an object that owns @data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "owner_dnotify", argType = TInterface (Name {namespace = "GLib", name = "DestroyNotify"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a function to free/unref @owner when\nthe buffer is freed", sinceVersion = Nothing}, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "length of @data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TInterface (Name {namespace = "Soup", name = "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.Callbacks.C_DestroyNotify -> -- owner_dnotify : TInterface (Name {namespace = "GLib", name = "DestroyNotify"})-    IO (Ptr Buffer)--{- |-Creates a new 'GI.Soup.Structs.Buffer.Buffer' containing /@length@/ bytes from /@data@/. When-the 'GI.Soup.Structs.Buffer.Buffer' is freed, it will call /@ownerDnotify@/, passing-/@owner@/ to it. You must ensure that /@data@/ will remain valid until-/@ownerDnotify@/ is called.--For example, you could use this to create a buffer containing data-returned from libxml without needing to do an extra copy:--\<informalexample>\<programlisting>-xmlDocDumpMemory (doc, &xmlbody, &len);-return soup_buffer_new_with_owner (xmlbody, len, xmlbody,-                                   (GDestroyNotify)xmlFree);-\<\/programlisting>\<\/informalexample>--In this example, /@data@/ and /@owner@/ are the same, but in other cases-they would be different (eg, /@owner@/ would be a object, and /@data@/-would be a pointer to one of the object\'s fields).--}-bufferNewWithOwner ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    ByteString-    {- ^ /@data@/: data -}-    -> Ptr ()-    {- ^ /@owner@/: pointer to an object that owns /@data@/ -}-    -> Maybe (GLib.Callbacks.DestroyNotify)-    {- ^ /@ownerDnotify@/: a function to free\/unref /@owner@/ when-the buffer is freed -}-    -> m Buffer-    {- ^ __Returns:__ the new 'GI.Soup.Structs.Buffer.Buffer'. -}-bufferNewWithOwner data_ owner ownerDnotify = liftIO $ do-    let length_ = fromIntegral $ B.length data_-    data_' <- packByteString data_-    maybeOwnerDnotify <- case ownerDnotify of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jOwnerDnotify -> do-            ptrownerDnotify <- callocMem :: IO (Ptr (FunPtr GLib.Callbacks.C_DestroyNotify))-            jOwnerDnotify' <- GLib.Callbacks.mk_DestroyNotify (GLib.Callbacks.wrap_DestroyNotify (Just ptrownerDnotify) jOwnerDnotify)-            poke ptrownerDnotify jOwnerDnotify'-            return jOwnerDnotify'-    result <- soup_buffer_new_with_owner data_' length_ owner maybeOwnerDnotify-    checkUnexpectedReturnNULL "bufferNewWithOwner" result-    result' <- (wrapBoxed Buffer) result-    freeMem data_'-    return result'--#if ENABLE_OVERLOADING-#endif---- method Buffer::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "buffer", argType = TInterface (Name {namespace = "Soup", name = "Buffer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupBuffer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Buffer"}))--- throws : False--- Skip return : False--foreign import ccall "soup_buffer_copy" soup_buffer_copy :: -    Ptr Buffer ->                           -- buffer : TInterface (Name {namespace = "Soup", name = "Buffer"})-    IO (Ptr Buffer)--{- |-Makes a copy of /@buffer@/. In reality, 'GI.Soup.Structs.Buffer.Buffer' is a refcounted-type, and calling 'GI.Soup.Structs.Buffer.bufferCopy' will normally just increment-the refcount on /@buffer@/ and return it. However, if /@buffer@/ was-created with @/SOUP_MEMORY_TEMPORARY/@ memory, then 'GI.Soup.Structs.Buffer.bufferCopy'-will actually return a copy of it, so that the data in the copy-will remain valid after the temporary buffer is freed.--}-bufferCopy ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Buffer-    {- ^ /@buffer@/: a 'GI.Soup.Structs.Buffer.Buffer' -}-    -> m Buffer-    {- ^ __Returns:__ the new (or newly-reffed) buffer -}-bufferCopy buffer = liftIO $ do-    buffer' <- unsafeManagedPtrGetPtr buffer-    result <- soup_buffer_copy buffer'-    checkUnexpectedReturnNULL "bufferCopy" result-    result' <- (wrapBoxed Buffer) result-    touchManagedPtr buffer-    return result'--#if ENABLE_OVERLOADING-data BufferCopyMethodInfo-instance (signature ~ (m Buffer), MonadIO m) => O.MethodInfo BufferCopyMethodInfo Buffer signature where-    overloadedMethod _ = bufferCopy--#endif---- method Buffer::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "buffer", argType = TInterface (Name {namespace = "Soup", name = "Buffer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupBuffer", sinceVersion = Nothing}, 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 ->                           -- buffer : TInterface (Name {namespace = "Soup", name = "Buffer"})-    IO ()--{- |-Frees /@buffer@/. (In reality, as described in the documentation for-'GI.Soup.Structs.Buffer.bufferCopy', this is actually an \"unref\" operation, and may-or may not actually free /@buffer@/.)--}-bufferFree ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Buffer-    {- ^ /@buffer@/: a 'GI.Soup.Structs.Buffer.Buffer' -}-    -> m ()-bufferFree buffer = liftIO $ do-    buffer' <- unsafeManagedPtrGetPtr buffer-    soup_buffer_free buffer'-    touchManagedPtr buffer-    return ()--#if ENABLE_OVERLOADING-data BufferFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo BufferFreeMethodInfo Buffer signature where-    overloadedMethod _ = bufferFree--#endif---- method Buffer::get_as_bytes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "buffer", argType = TInterface (Name {namespace = "Soup", name = "Buffer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupBuffer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "GLib", name = "Bytes"}))--- throws : False--- Skip return : False--foreign import ccall "soup_buffer_get_as_bytes" soup_buffer_get_as_bytes :: -    Ptr Buffer ->                           -- buffer : TInterface (Name {namespace = "Soup", name = "Buffer"})-    IO (Ptr GLib.Bytes.Bytes)--{- |-Creates a 'GI.GLib.Structs.Bytes.Bytes' pointing to the same memory as /@buffer@/. The-'GI.GLib.Structs.Bytes.Bytes' will hold a reference on /@buffer@/ to ensure that it is not-freed while the 'GI.GLib.Structs.Bytes.Bytes' is still valid.--/Since: 2.40/--}-bufferGetAsBytes ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Buffer-    {- ^ /@buffer@/: a 'GI.Soup.Structs.Buffer.Buffer' -}-    -> m GLib.Bytes.Bytes-    {- ^ __Returns:__ a new 'GI.GLib.Structs.Bytes.Bytes' which has the same content-as the 'GI.Soup.Structs.Buffer.Buffer'. -}-bufferGetAsBytes buffer = liftIO $ do-    buffer' <- unsafeManagedPtrGetPtr buffer-    result <- soup_buffer_get_as_bytes buffer'-    checkUnexpectedReturnNULL "bufferGetAsBytes" result-    result' <- (wrapBoxed GLib.Bytes.Bytes) result-    touchManagedPtr buffer-    return result'--#if ENABLE_OVERLOADING-data BufferGetAsBytesMethodInfo-instance (signature ~ (m GLib.Bytes.Bytes), MonadIO m) => O.MethodInfo BufferGetAsBytesMethodInfo Buffer signature where-    overloadedMethod _ = bufferGetAsBytes--#endif---- method Buffer::get_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "buffer", argType = TInterface (Name {namespace = "Soup", name = "Buffer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupBuffer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the pointer\nto the buffer data is stored here", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of the buffer data is stored here", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of the buffer data is stored here", sinceVersion = Nothing}, 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 ->                           -- buffer : TInterface (Name {namespace = "Soup", name = "Buffer"})-    Ptr (Ptr Word8) ->                      -- data : TCArray False (-1) 2 (TBasicType TUInt8)-    Ptr Word64 ->                           -- length : TBasicType TUInt64-    IO ()--{- |-This function exists for use by language bindings, because it\'s not-currently possible to get the right effect by annotating the fields-of 'GI.Soup.Structs.Buffer.Buffer'.--/Since: 2.32/--}-bufferGetData ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Buffer-    {- ^ /@buffer@/: a 'GI.Soup.Structs.Buffer.Buffer' -}-    -> m (ByteString)-bufferGetData buffer = liftIO $ do-    buffer' <- unsafeManagedPtrGetPtr buffer-    data_ <- allocMem :: IO (Ptr (Ptr Word8))-    length_ <- allocMem :: IO (Ptr Word64)-    soup_buffer_get_data buffer' data_ length_-    length_' <- peek length_-    data_' <- peek data_-    data_'' <- (unpackByteStringWithLength length_') data_'-    touchManagedPtr buffer-    freeMem data_-    freeMem length_-    return data_''--#if ENABLE_OVERLOADING-data BufferGetDataMethodInfo-instance (signature ~ (m (ByteString)), MonadIO m) => O.MethodInfo BufferGetDataMethodInfo Buffer signature where-    overloadedMethod _ = bufferGetData--#endif---- method Buffer::get_owner--- method type : OrdinaryMethod--- Args : [Arg {argCName = "buffer", argType = TInterface (Name {namespace = "Soup", name = "Buffer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupBuffer created with soup_buffer_new_with_owner()", sinceVersion = Nothing}, 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 ->                           -- buffer : TInterface (Name {namespace = "Soup", name = "Buffer"})-    IO (Ptr ())--{- |-Gets the \"owner\" object for a buffer created with-'GI.Soup.Structs.Buffer.bufferNewWithOwner'.--}-bufferGetOwner ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Buffer-    {- ^ /@buffer@/: a 'GI.Soup.Structs.Buffer.Buffer' created with 'GI.Soup.Structs.Buffer.bufferNewWithOwner' -}-    -> m (Ptr ())-    {- ^ __Returns:__ the owner pointer -}-bufferGetOwner buffer = liftIO $ do-    buffer' <- unsafeManagedPtrGetPtr buffer-    result <- soup_buffer_get_owner buffer'-    touchManagedPtr buffer-    return result--#if ENABLE_OVERLOADING-data BufferGetOwnerMethodInfo-instance (signature ~ (m (Ptr ())), MonadIO m) => O.MethodInfo BufferGetOwnerMethodInfo Buffer signature where-    overloadedMethod _ = bufferGetOwner--#endif---- method Buffer::new_subbuffer--- method type : OrdinaryMethod--- Args : [Arg {argCName = "parent", argType = TInterface (Name {namespace = "Soup", name = "Buffer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the parent #SoupBuffer", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "offset within @parent to start at", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "number of bytes to copy from @parent", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Buffer"}))--- throws : False--- Skip return : False--foreign import ccall "soup_buffer_new_subbuffer" soup_buffer_new_subbuffer :: -    Ptr Buffer ->                           -- parent : TInterface (Name {namespace = "Soup", name = "Buffer"})-    Word64 ->                               -- offset : TBasicType TUInt64-    Word64 ->                               -- length : TBasicType TUInt64-    IO (Ptr Buffer)--{- |-Creates a new 'GI.Soup.Structs.Buffer.Buffer' containing /@length@/ bytes \"copied\" from-/@parent@/ starting at /@offset@/. (Normally this will not actually copy-any data, but will instead simply reference the same data as-/@parent@/ does.)--}-bufferNewSubbuffer ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Buffer-    {- ^ /@parent@/: the parent 'GI.Soup.Structs.Buffer.Buffer' -}-    -> Word64-    {- ^ /@offset@/: offset within /@parent@/ to start at -}-    -> Word64-    {- ^ /@length@/: number of bytes to copy from /@parent@/ -}-    -> m Buffer-    {- ^ __Returns:__ the new 'GI.Soup.Structs.Buffer.Buffer'. -}-bufferNewSubbuffer parent offset length_ = liftIO $ do-    parent' <- unsafeManagedPtrGetPtr parent-    result <- soup_buffer_new_subbuffer parent' offset length_-    checkUnexpectedReturnNULL "bufferNewSubbuffer" result-    result' <- (wrapBoxed Buffer) result-    touchManagedPtr parent-    return result'--#if ENABLE_OVERLOADING-data BufferNewSubbufferMethodInfo-instance (signature ~ (Word64 -> Word64 -> m Buffer), MonadIO m) => O.MethodInfo BufferNewSubbufferMethodInfo Buffer signature where-    overloadedMethod _ = bufferNewSubbuffer--#endif--#if ENABLE_OVERLOADING-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 = O.MethodResolutionFailed l o--instance (info ~ ResolveBufferMethod t Buffer, O.MethodInfo info Buffer p) => OL.IsLabel t (Buffer -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--
− GI/Soup/Structs/Buffer.hs-boot 
@@ -1,44 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Structs.Buffer where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype Buffer = Buffer (ManagedPtr Buffer)-instance BoxedObject Buffer where-#if ENABLE_OVERLOADING-data BufferCopyMethodInfo-#endif-#if ENABLE_OVERLOADING-data BufferFreeMethodInfo-#endif-#if ENABLE_OVERLOADING-data BufferGetAsBytesMethodInfo-#endif-#if ENABLE_OVERLOADING-data BufferGetDataMethodInfo-#endif-#if ENABLE_OVERLOADING-data BufferGetOwnerMethodInfo-#endif-#if ENABLE_OVERLOADING-data BufferNewSubbufferMethodInfo-#endif
− GI/Soup/Structs/ClientContext.hs 
@@ -1,566 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--A 'GI.Soup.Structs.ClientContext.ClientContext' provides additional information about the-client making a particular request. In particular, you can use-'GI.Soup.Structs.ClientContext.clientContextGetAuthDomain' and-'GI.Soup.Structs.ClientContext.clientContextGetAuthUser' to determine if HTTP-authentication was used successfully.--'GI.Soup.Structs.ClientContext.clientContextGetRemoteAddress' and\/or-'GI.Soup.Structs.ClientContext.clientContextGetHost' can be used to get information for-logging or debugging purposes. 'GI.Soup.Structs.ClientContext.clientContextGetGsocket' may-also be of use in some situations (eg, tracking when multiple-requests are made on the same connection).--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Structs.ClientContext-    ( ---- * Exported types-    ClientContext(..)                       ,-    noClientContext                         ,--- -- * Methods--- ** getAddress #method:getAddress#--#if ENABLE_OVERLOADING-    ClientContextGetAddressMethodInfo       ,-#endif-    clientContextGetAddress                 ,----- ** getAuthDomain #method:getAuthDomain#--#if ENABLE_OVERLOADING-    ClientContextGetAuthDomainMethodInfo    ,-#endif-    clientContextGetAuthDomain              ,----- ** getAuthUser #method:getAuthUser#--#if ENABLE_OVERLOADING-    ClientContextGetAuthUserMethodInfo      ,-#endif-    clientContextGetAuthUser                ,----- ** getGsocket #method:getGsocket#--#if ENABLE_OVERLOADING-    ClientContextGetGsocketMethodInfo       ,-#endif-    clientContextGetGsocket                 ,----- ** getHost #method:getHost#--#if ENABLE_OVERLOADING-    ClientContextGetHostMethodInfo          ,-#endif-    clientContextGetHost                    ,----- ** getLocalAddress #method:getLocalAddress#--#if ENABLE_OVERLOADING-    ClientContextGetLocalAddressMethodInfo  ,-#endif-    clientContextGetLocalAddress            ,----- ** getRemoteAddress #method:getRemoteAddress#--#if ENABLE_OVERLOADING-    ClientContextGetRemoteAddressMethodInfo ,-#endif-    clientContextGetRemoteAddress           ,----- ** getSocket #method:getSocket#--#if ENABLE_OVERLOADING-    ClientContextGetSocketMethodInfo        ,-#endif-    clientContextGetSocket                  ,----- ** stealConnection #method:stealConnection#--#if ENABLE_OVERLOADING-    ClientContextStealConnectionMethodInfo  ,-#endif-    clientContextStealConnection            ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.Gio.Objects.IOStream as Gio.IOStream-import qualified GI.Gio.Objects.Socket as Gio.Socket-import qualified GI.Gio.Objects.SocketAddress as Gio.SocketAddress-import {-# SOURCE #-} qualified GI.Soup.Objects.Address as Soup.Address-import {-# SOURCE #-} qualified GI.Soup.Objects.AuthDomain as Soup.AuthDomain-import {-# SOURCE #-} qualified GI.Soup.Objects.Socket as Soup.Socket---- | Memory-managed wrapper type.-newtype ClientContext = ClientContext (ManagedPtr 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---- | A convenience alias for `Nothing` :: `Maybe` `ClientContext`.-noClientContext :: Maybe ClientContext-noClientContext = Nothing---#if ENABLE_OVERLOADING-instance O.HasAttributeList ClientContext-type instance O.AttributeList ClientContext = ClientContextAttributeList-type ClientContextAttributeList = ('[ ] :: [(Symbol, *)])-#endif---- method ClientContext::get_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Soup", name = "ClientContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupClientContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Address"}))--- throws : False--- Skip return : False--foreign import ccall "soup_client_context_get_address" soup_client_context_get_address :: -    Ptr ClientContext ->                    -- client : TInterface (Name {namespace = "Soup", name = "ClientContext"})-    IO (Ptr Soup.Address.Address)--{-# DEPRECATED clientContextGetAddress ["Use 'GI.Soup.Structs.ClientContext.clientContextGetRemoteAddress', which returns","a 'GI.Gio.Objects.SocketAddress.SocketAddress'."] #-}-{- |-Retrieves the 'GI.Soup.Objects.Address.Address' associated with the remote end-of a connection.--}-clientContextGetAddress ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    ClientContext-    {- ^ /@client@/: a 'GI.Soup.Structs.ClientContext.ClientContext' -}-    -> m (Maybe Soup.Address.Address)-    {- ^ __Returns:__ the 'GI.Soup.Objects.Address.Address'-associated with the remote end of a connection, it may be-'Nothing' if you used 'GI.Soup.Objects.Server.serverAcceptIostream'. -}-clientContextGetAddress client = liftIO $ do-    client' <- unsafeManagedPtrGetPtr client-    result <- soup_client_context_get_address client'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Soup.Address.Address) result'-        return result''-    touchManagedPtr client-    return maybeResult--#if ENABLE_OVERLOADING-data ClientContextGetAddressMethodInfo-instance (signature ~ (m (Maybe Soup.Address.Address)), MonadIO m) => O.MethodInfo ClientContextGetAddressMethodInfo ClientContext signature where-    overloadedMethod _ = clientContextGetAddress--#endif---- method ClientContext::get_auth_domain--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Soup", name = "ClientContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupClientContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "AuthDomain"}))--- throws : False--- Skip return : False--foreign import ccall "soup_client_context_get_auth_domain" soup_client_context_get_auth_domain :: -    Ptr ClientContext ->                    -- client : TInterface (Name {namespace = "Soup", name = "ClientContext"})-    IO (Ptr Soup.AuthDomain.AuthDomain)--{- |-Checks whether the request associated with /@client@/ has been-authenticated, and if so returns the 'GI.Soup.Objects.AuthDomain.AuthDomain' that-authenticated it.--}-clientContextGetAuthDomain ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    ClientContext-    {- ^ /@client@/: a 'GI.Soup.Structs.ClientContext.ClientContext' -}-    -> m (Maybe Soup.AuthDomain.AuthDomain)-    {- ^ __Returns:__ a 'GI.Soup.Objects.AuthDomain.AuthDomain', or-'Nothing' if the request was not authenticated. -}-clientContextGetAuthDomain client = liftIO $ do-    client' <- unsafeManagedPtrGetPtr client-    result <- soup_client_context_get_auth_domain client'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Soup.AuthDomain.AuthDomain) result'-        return result''-    touchManagedPtr client-    return maybeResult--#if ENABLE_OVERLOADING-data ClientContextGetAuthDomainMethodInfo-instance (signature ~ (m (Maybe Soup.AuthDomain.AuthDomain)), MonadIO m) => O.MethodInfo ClientContextGetAuthDomainMethodInfo ClientContext signature where-    overloadedMethod _ = clientContextGetAuthDomain--#endif---- method ClientContext::get_auth_user--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Soup", name = "ClientContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupClientContext", sinceVersion = Nothing}, 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 ->                    -- client : TInterface (Name {namespace = "Soup", name = "ClientContext"})-    IO CString--{- |-Checks whether the request associated with /@client@/ has been-authenticated, and if so returns the username that the client-authenticated as.--}-clientContextGetAuthUser ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    ClientContext-    {- ^ /@client@/: a 'GI.Soup.Structs.ClientContext.ClientContext' -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ the authenticated-as user, or 'Nothing' if-the request was not authenticated. -}-clientContextGetAuthUser client = liftIO $ do-    client' <- unsafeManagedPtrGetPtr client-    result <- soup_client_context_get_auth_user client'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr client-    return maybeResult--#if ENABLE_OVERLOADING-data ClientContextGetAuthUserMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m) => O.MethodInfo ClientContextGetAuthUserMethodInfo ClientContext signature where-    overloadedMethod _ = clientContextGetAuthUser--#endif---- method ClientContext::get_gsocket--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Soup", name = "ClientContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupClientContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "Socket"}))--- throws : False--- Skip return : False--foreign import ccall "soup_client_context_get_gsocket" soup_client_context_get_gsocket :: -    Ptr ClientContext ->                    -- client : TInterface (Name {namespace = "Soup", name = "ClientContext"})-    IO (Ptr Gio.Socket.Socket)--{- |-Retrieves the 'GI.Gio.Objects.Socket.Socket' that /@client@/ is associated with.--If you are using this method to observe when multiple requests are-made on the same persistent HTTP connection (eg, as the ntlm-test-test program does), you will need to pay attention to socket-destruction as well (eg, by using weak references), so that you do-not get fooled when the allocator reuses the memory address of a-previously-destroyed socket to represent a new socket.--/Since: 2.48/--}-clientContextGetGsocket ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    ClientContext-    {- ^ /@client@/: a 'GI.Soup.Structs.ClientContext.ClientContext' -}-    -> m (Maybe Gio.Socket.Socket)-    {- ^ __Returns:__ the 'GI.Gio.Objects.Socket.Socket' that /@client@/ is-associated with, 'Nothing' if you used 'GI.Soup.Objects.Server.serverAcceptIostream'. -}-clientContextGetGsocket client = liftIO $ do-    client' <- unsafeManagedPtrGetPtr client-    result <- soup_client_context_get_gsocket client'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Gio.Socket.Socket) result'-        return result''-    touchManagedPtr client-    return maybeResult--#if ENABLE_OVERLOADING-data ClientContextGetGsocketMethodInfo-instance (signature ~ (m (Maybe Gio.Socket.Socket)), MonadIO m) => O.MethodInfo ClientContextGetGsocketMethodInfo ClientContext signature where-    overloadedMethod _ = clientContextGetGsocket--#endif---- method ClientContext::get_host--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Soup", name = "ClientContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupClientContext", sinceVersion = Nothing}, 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 ->                    -- client : TInterface (Name {namespace = "Soup", name = "ClientContext"})-    IO CString--{- |-Retrieves the IP address associated with the remote end of a-connection.--}-clientContextGetHost ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    ClientContext-    {- ^ /@client@/: a 'GI.Soup.Structs.ClientContext.ClientContext' -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ the IP address associated with the remote-end of a connection, it may be 'Nothing' if you used-'GI.Soup.Objects.Server.serverAcceptIostream'. -}-clientContextGetHost client = liftIO $ do-    client' <- unsafeManagedPtrGetPtr client-    result <- soup_client_context_get_host client'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr client-    return maybeResult--#if ENABLE_OVERLOADING-data ClientContextGetHostMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m) => O.MethodInfo ClientContextGetHostMethodInfo ClientContext signature where-    overloadedMethod _ = clientContextGetHost--#endif---- method ClientContext::get_local_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Soup", name = "ClientContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupClientContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketAddress"}))--- throws : False--- Skip return : False--foreign import ccall "soup_client_context_get_local_address" soup_client_context_get_local_address :: -    Ptr ClientContext ->                    -- client : TInterface (Name {namespace = "Soup", name = "ClientContext"})-    IO (Ptr Gio.SocketAddress.SocketAddress)--{- |-Retrieves the 'GI.Gio.Objects.SocketAddress.SocketAddress' associated with the local end-of a connection.--/Since: 2.48/--}-clientContextGetLocalAddress ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    ClientContext-    {- ^ /@client@/: a 'GI.Soup.Structs.ClientContext.ClientContext' -}-    -> m (Maybe Gio.SocketAddress.SocketAddress)-    {- ^ __Returns:__ the 'GI.Gio.Objects.SocketAddress.SocketAddress'-associated with the local end of a connection, it may be-'Nothing' if you used 'GI.Soup.Objects.Server.serverAcceptIostream'. -}-clientContextGetLocalAddress client = liftIO $ do-    client' <- unsafeManagedPtrGetPtr client-    result <- soup_client_context_get_local_address client'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Gio.SocketAddress.SocketAddress) result'-        return result''-    touchManagedPtr client-    return maybeResult--#if ENABLE_OVERLOADING-data ClientContextGetLocalAddressMethodInfo-instance (signature ~ (m (Maybe Gio.SocketAddress.SocketAddress)), MonadIO m) => O.MethodInfo ClientContextGetLocalAddressMethodInfo ClientContext signature where-    overloadedMethod _ = clientContextGetLocalAddress--#endif---- method ClientContext::get_remote_address--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Soup", name = "ClientContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupClientContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "SocketAddress"}))--- throws : False--- Skip return : False--foreign import ccall "soup_client_context_get_remote_address" soup_client_context_get_remote_address :: -    Ptr ClientContext ->                    -- client : TInterface (Name {namespace = "Soup", name = "ClientContext"})-    IO (Ptr Gio.SocketAddress.SocketAddress)--{- |-Retrieves the 'GI.Gio.Objects.SocketAddress.SocketAddress' associated with the remote end-of a connection.--/Since: 2.48/--}-clientContextGetRemoteAddress ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    ClientContext-    {- ^ /@client@/: a 'GI.Soup.Structs.ClientContext.ClientContext' -}-    -> m (Maybe Gio.SocketAddress.SocketAddress)-    {- ^ __Returns:__ the 'GI.Gio.Objects.SocketAddress.SocketAddress'-associated with the remote end of a connection, it may be-'Nothing' if you used 'GI.Soup.Objects.Server.serverAcceptIostream'. -}-clientContextGetRemoteAddress client = liftIO $ do-    client' <- unsafeManagedPtrGetPtr client-    result <- soup_client_context_get_remote_address client'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Gio.SocketAddress.SocketAddress) result'-        return result''-    touchManagedPtr client-    return maybeResult--#if ENABLE_OVERLOADING-data ClientContextGetRemoteAddressMethodInfo-instance (signature ~ (m (Maybe Gio.SocketAddress.SocketAddress)), MonadIO m) => O.MethodInfo ClientContextGetRemoteAddressMethodInfo ClientContext signature where-    overloadedMethod _ = clientContextGetRemoteAddress--#endif---- method ClientContext::get_socket--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Soup", name = "ClientContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupClientContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Socket"}))--- throws : False--- Skip return : False--foreign import ccall "soup_client_context_get_socket" soup_client_context_get_socket :: -    Ptr ClientContext ->                    -- client : TInterface (Name {namespace = "Soup", name = "ClientContext"})-    IO (Ptr Soup.Socket.Socket)--{-# DEPRECATED clientContextGetSocket ["use 'GI.Soup.Structs.ClientContext.clientContextGetGsocket', which returns","a 'GI.Gio.Objects.Socket.Socket'."] #-}-{- |-Retrieves the 'GI.Soup.Objects.Socket.Socket' that /@client@/ is associated with.--If you are using this method to observe when multiple requests are-made on the same persistent HTTP connection (eg, as the ntlm-test-test program does), you will need to pay attention to socket-destruction as well (either by using weak references, or by-connecting to the 'GI.Soup.Objects.Socket.Socket'::@/disconnected/@ signal), so that you do-not get fooled when the allocator reuses the memory address of a-previously-destroyed socket to represent a new socket.--}-clientContextGetSocket ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    ClientContext-    {- ^ /@client@/: a 'GI.Soup.Structs.ClientContext.ClientContext' -}-    -> m Soup.Socket.Socket-    {- ^ __Returns:__ the 'GI.Soup.Objects.Socket.Socket' that /@client@/ is-associated with. -}-clientContextGetSocket client = liftIO $ do-    client' <- unsafeManagedPtrGetPtr client-    result <- soup_client_context_get_socket client'-    checkUnexpectedReturnNULL "clientContextGetSocket" result-    result' <- (newObject Soup.Socket.Socket) result-    touchManagedPtr client-    return result'--#if ENABLE_OVERLOADING-data ClientContextGetSocketMethodInfo-instance (signature ~ (m Soup.Socket.Socket), MonadIO m) => O.MethodInfo ClientContextGetSocketMethodInfo ClientContext signature where-    overloadedMethod _ = clientContextGetSocket--#endif---- method ClientContext::steal_connection--- method type : OrdinaryMethod--- Args : [Arg {argCName = "client", argType = TInterface (Name {namespace = "Soup", name = "ClientContext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupClientContext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Gio", name = "IOStream"}))--- throws : False--- Skip return : False--foreign import ccall "soup_client_context_steal_connection" soup_client_context_steal_connection :: -    Ptr ClientContext ->                    -- client : TInterface (Name {namespace = "Soup", name = "ClientContext"})-    IO (Ptr Gio.IOStream.IOStream)--{- |-\"Steals\" the HTTP connection associated with /@client@/ from its-'GI.Soup.Objects.Server.Server'. This happens immediately, regardless of the current-state of the connection; if the response to the current-'GI.Soup.Objects.Message.Message' has not yet finished being sent, then it will be-discarded; you can steal the connection from a-'GI.Soup.Objects.Message.Message':@/wrote-informational/@ or 'GI.Soup.Objects.Message.Message':@/wrote-body/@ signal-handler if you need to wait for part or all of the response to be-sent.--Note that when calling this function from C, /@client@/ will most-likely be freed as a side effect.--/Since: 2.50/--}-clientContextStealConnection ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    ClientContext-    {- ^ /@client@/: a 'GI.Soup.Structs.ClientContext.ClientContext' -}-    -> m Gio.IOStream.IOStream-    {- ^ __Returns:__ the 'GI.Gio.Objects.IOStream.IOStream' formerly associated-  with /@client@/ (or 'Nothing' if /@client@/ was no longer associated with a-  connection). No guarantees are made about what kind of 'GI.Gio.Objects.IOStream.IOStream'-  is returned. -}-clientContextStealConnection client = liftIO $ do-    client' <- unsafeManagedPtrGetPtr client-    result <- soup_client_context_steal_connection client'-    checkUnexpectedReturnNULL "clientContextStealConnection" result-    result' <- (wrapObject Gio.IOStream.IOStream) result-    touchManagedPtr client-    return result'--#if ENABLE_OVERLOADING-data ClientContextStealConnectionMethodInfo-instance (signature ~ (m Gio.IOStream.IOStream), MonadIO m) => O.MethodInfo ClientContextStealConnectionMethodInfo ClientContext signature where-    overloadedMethod _ = clientContextStealConnection--#endif--#if ENABLE_OVERLOADING-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 = O.MethodResolutionFailed l o--instance (info ~ ResolveClientContextMethod t ClientContext, O.MethodInfo info ClientContext p) => OL.IsLabel t (ClientContext -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--
− GI/Soup/Structs/ClientContext.hs-boot 
@@ -1,53 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Structs.ClientContext where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype ClientContext = ClientContext (ManagedPtr ClientContext)-instance BoxedObject ClientContext where-#if ENABLE_OVERLOADING-data ClientContextGetAddressMethodInfo-#endif-#if ENABLE_OVERLOADING-data ClientContextGetAuthDomainMethodInfo-#endif-#if ENABLE_OVERLOADING-data ClientContextGetAuthUserMethodInfo-#endif-#if ENABLE_OVERLOADING-data ClientContextGetGsocketMethodInfo-#endif-#if ENABLE_OVERLOADING-data ClientContextGetHostMethodInfo-#endif-#if ENABLE_OVERLOADING-data ClientContextGetLocalAddressMethodInfo-#endif-#if ENABLE_OVERLOADING-data ClientContextGetRemoteAddressMethodInfo-#endif-#if ENABLE_OVERLOADING-data ClientContextGetSocketMethodInfo-#endif-#if ENABLE_OVERLOADING-data ClientContextStealConnectionMethodInfo-#endif
− GI/Soup/Structs/Connection.hs 
@@ -1,77 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Structs.Connection-    ( ---- * Exported types-    Connection(..)                          ,-    noConnection                            ,---    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL----- | Memory-managed wrapper type.-newtype Connection = Connection (ManagedPtr 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---- | A convenience alias for `Nothing` :: `Maybe` `Connection`.-noConnection :: Maybe Connection-noConnection = Nothing---#if ENABLE_OVERLOADING-instance O.HasAttributeList Connection-type instance O.AttributeList Connection = ConnectionAttributeList-type ConnectionAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-type family ResolveConnectionMethod (t :: Symbol) (o :: *) :: * where-    ResolveConnectionMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveConnectionMethod t Connection, O.MethodInfo info Connection p) => OL.IsLabel t (Connection -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--
− GI/Soup/Structs/Connection.hs-boot 
@@ -1,26 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Structs.Connection where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype Connection = Connection (ManagedPtr Connection)-instance WrappedPtr Connection where
− GI/Soup/Structs/Cookie.hs 
@@ -1,1803 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--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-'Nothing' if the cookie uses either the original-\"expires\" attribute, or the newer \"max-age\" attribute. If /@expires@/-is 'Nothing', it indicates that neither \"expires\" nor \"max-age\" was-specified, and the cookie expires at the end of the session.--If /@httpOnly@/ 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.--/Since: 2.24/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Structs.Cookie-    ( ---- * Exported types-    Cookie(..)                              ,-    newZeroCookie                           ,-    noCookie                                ,--- -- * Methods--- ** appliesToUri #method:appliesToUri#--#if ENABLE_OVERLOADING-    CookieAppliesToUriMethodInfo            ,-#endif-    cookieAppliesToUri                      ,----- ** copy #method:copy#--#if ENABLE_OVERLOADING-    CookieCopyMethodInfo                    ,-#endif-    cookieCopy                              ,----- ** domainMatches #method:domainMatches#--#if ENABLE_OVERLOADING-    CookieDomainMatchesMethodInfo           ,-#endif-    cookieDomainMatches                     ,----- ** equal #method:equal#--#if ENABLE_OVERLOADING-    CookieEqualMethodInfo                   ,-#endif-    cookieEqual                             ,----- ** free #method:free#--#if ENABLE_OVERLOADING-    CookieFreeMethodInfo                    ,-#endif-    cookieFree                              ,----- ** getDomain #method:getDomain#--#if ENABLE_OVERLOADING-    CookieGetDomainMethodInfo               ,-#endif-    cookieGetDomain                         ,----- ** getExpires #method:getExpires#--#if ENABLE_OVERLOADING-    CookieGetExpiresMethodInfo              ,-#endif-    cookieGetExpires                        ,----- ** getHttpOnly #method:getHttpOnly#--#if ENABLE_OVERLOADING-    CookieGetHttpOnlyMethodInfo             ,-#endif-    cookieGetHttpOnly                       ,----- ** getName #method:getName#--#if ENABLE_OVERLOADING-    CookieGetNameMethodInfo                 ,-#endif-    cookieGetName                           ,----- ** getPath #method:getPath#--#if ENABLE_OVERLOADING-    CookieGetPathMethodInfo                 ,-#endif-    cookieGetPath                           ,----- ** getSecure #method:getSecure#--#if ENABLE_OVERLOADING-    CookieGetSecureMethodInfo               ,-#endif-    cookieGetSecure                         ,----- ** getValue #method:getValue#--#if ENABLE_OVERLOADING-    CookieGetValueMethodInfo                ,-#endif-    cookieGetValue                          ,----- ** new #method:new#--    cookieNew                               ,----- ** parse #method:parse#--    cookieParse                             ,----- ** setDomain #method:setDomain#--#if ENABLE_OVERLOADING-    CookieSetDomainMethodInfo               ,-#endif-    cookieSetDomain                         ,----- ** setExpires #method:setExpires#--#if ENABLE_OVERLOADING-    CookieSetExpiresMethodInfo              ,-#endif-    cookieSetExpires                        ,----- ** setHttpOnly #method:setHttpOnly#--#if ENABLE_OVERLOADING-    CookieSetHttpOnlyMethodInfo             ,-#endif-    cookieSetHttpOnly                       ,----- ** setMaxAge #method:setMaxAge#--#if ENABLE_OVERLOADING-    CookieSetMaxAgeMethodInfo               ,-#endif-    cookieSetMaxAge                         ,----- ** setName #method:setName#--#if ENABLE_OVERLOADING-    CookieSetNameMethodInfo                 ,-#endif-    cookieSetName                           ,----- ** setPath #method:setPath#--#if ENABLE_OVERLOADING-    CookieSetPathMethodInfo                 ,-#endif-    cookieSetPath                           ,----- ** setSecure #method:setSecure#--#if ENABLE_OVERLOADING-    CookieSetSecureMethodInfo               ,-#endif-    cookieSetSecure                         ,----- ** setValue #method:setValue#--#if ENABLE_OVERLOADING-    CookieSetValueMethodInfo                ,-#endif-    cookieSetValue                          ,----- ** toCookieHeader #method:toCookieHeader#--#if ENABLE_OVERLOADING-    CookieToCookieHeaderMethodInfo          ,-#endif-    cookieToCookieHeader                    ,----- ** toSetCookieHeader #method:toSetCookieHeader#--#if ENABLE_OVERLOADING-    CookieToSetCookieHeaderMethodInfo       ,-#endif-    cookieToSetCookieHeader                 ,----- -- * Properties--- ** domain #attr:domain#-{- | the \"domain\" attribute, or else the hostname that the-cookie came from.--}-    clearCookieDomain                       ,-#if ENABLE_OVERLOADING-    cookie_domain                           ,-#endif-    getCookieDomain                         ,-    setCookieDomain                         ,----- ** expires #attr:expires#-{- | the cookie expiration time, or 'Nothing' for a session cookie--}-    clearCookieExpires                      ,-#if ENABLE_OVERLOADING-    cookie_expires                          ,-#endif-    getCookieExpires                        ,-    setCookieExpires                        ,----- ** httpOnly #attr:httpOnly#-{- | 'True' if the cookie should not be exposed to scripts--}-#if ENABLE_OVERLOADING-    cookie_httpOnly                         ,-#endif-    getCookieHttpOnly                       ,-    setCookieHttpOnly                       ,----- ** name #attr:name#-{- | the cookie name--}-    clearCookieName                         ,-#if ENABLE_OVERLOADING-    cookie_name                             ,-#endif-    getCookieName                           ,-    setCookieName                           ,----- ** path #attr:path#-{- | the \"path\" attribute, or 'Nothing'--}-    clearCookiePath                         ,-#if ENABLE_OVERLOADING-    cookie_path                             ,-#endif-    getCookiePath                           ,-    setCookiePath                           ,----- ** secure #attr:secure#-{- | 'True' if the cookie should only be tranferred over SSL--}-#if ENABLE_OVERLOADING-    cookie_secure                           ,-#endif-    getCookieSecure                         ,-    setCookieSecure                         ,----- ** value #attr:value#-{- | the cookie value--}-    clearCookieValue                        ,-#if ENABLE_OVERLOADING-    cookie_value                            ,-#endif-    getCookieValue                          ,-    setCookieValue                          ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import {-# SOURCE #-} qualified GI.Soup.Structs.Date as Soup.Date-import {-# SOURCE #-} qualified GI.Soup.Structs.URI as Soup.URI---- | Memory-managed wrapper type.-newtype Cookie = Cookie (ManagedPtr 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----- | A convenience alias for `Nothing` :: `Maybe` `Cookie`.-noCookie :: Maybe Cookie-noCookie = Nothing--{- |-Get the value of the “@name@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' cookie #name-@--}-getCookieName :: MonadIO m => Cookie -> m (Maybe T.Text)-getCookieName s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CString-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--{- |-Set the value of the “@name@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' cookie [ #name 'Data.GI.Base.Attributes.:=' value ]-@--}-setCookieName :: MonadIO m => Cookie -> CString -> m ()-setCookieName s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: CString)--{- |-Set the value of the “@name@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #name-@--}-clearCookieName :: MonadIO m => Cookie -> m ()-clearCookieName s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (FP.nullPtr :: CString)--#if ENABLE_OVERLOADING-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"-    type AttrOrigin CookieNameFieldInfo = Cookie-    attrGet _ = getCookieName-    attrSet _ = setCookieName-    attrConstruct = undefined-    attrClear _ = clearCookieName--cookie_name :: AttrLabelProxy "name"-cookie_name = AttrLabelProxy--#endif---{- |-Get the value of the “@value@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' cookie #value-@--}-getCookieValue :: MonadIO m => Cookie -> m (Maybe T.Text)-getCookieValue s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--{- |-Set the value of the “@value@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' cookie [ #value 'Data.GI.Base.Attributes.:=' value ]-@--}-setCookieValue :: MonadIO m => Cookie -> CString -> m ()-setCookieValue s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: CString)--{- |-Set the value of the “@value@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #value-@--}-clearCookieValue :: MonadIO m => Cookie -> m ()-clearCookieValue s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (FP.nullPtr :: CString)--#if ENABLE_OVERLOADING-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"-    type AttrOrigin CookieValueFieldInfo = Cookie-    attrGet _ = getCookieValue-    attrSet _ = setCookieValue-    attrConstruct = undefined-    attrClear _ = clearCookieValue--cookie_value :: AttrLabelProxy "value"-cookie_value = AttrLabelProxy--#endif---{- |-Get the value of the “@domain@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' cookie #domain-@--}-getCookieDomain :: MonadIO m => Cookie -> m (Maybe T.Text)-getCookieDomain s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CString-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--{- |-Set the value of the “@domain@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' cookie [ #domain 'Data.GI.Base.Attributes.:=' value ]-@--}-setCookieDomain :: MonadIO m => Cookie -> CString -> m ()-setCookieDomain s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: CString)--{- |-Set the value of the “@domain@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #domain-@--}-clearCookieDomain :: MonadIO m => Cookie -> m ()-clearCookieDomain s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (FP.nullPtr :: CString)--#if ENABLE_OVERLOADING-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"-    type AttrOrigin CookieDomainFieldInfo = Cookie-    attrGet _ = getCookieDomain-    attrSet _ = setCookieDomain-    attrConstruct = undefined-    attrClear _ = clearCookieDomain--cookie_domain :: AttrLabelProxy "domain"-cookie_domain = AttrLabelProxy--#endif---{- |-Get the value of the “@path@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' cookie #path-@--}-getCookiePath :: MonadIO m => Cookie -> m (Maybe T.Text)-getCookiePath s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CString-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--{- |-Set the value of the “@path@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' cookie [ #path 'Data.GI.Base.Attributes.:=' value ]-@--}-setCookiePath :: MonadIO m => Cookie -> CString -> m ()-setCookiePath s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: CString)--{- |-Set the value of the “@path@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #path-@--}-clearCookiePath :: MonadIO m => Cookie -> m ()-clearCookiePath s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (FP.nullPtr :: CString)--#if ENABLE_OVERLOADING-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"-    type AttrOrigin CookiePathFieldInfo = Cookie-    attrGet _ = getCookiePath-    attrSet _ = setCookiePath-    attrConstruct = undefined-    attrClear _ = clearCookiePath--cookie_path :: AttrLabelProxy "path"-cookie_path = AttrLabelProxy--#endif---{- |-Get the value of the “@expires@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' cookie #expires-@--}-getCookieExpires :: MonadIO m => Cookie -> m (Maybe Soup.Date.Date)-getCookieExpires s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO (Ptr Soup.Date.Date)-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- (newBoxed Soup.Date.Date) val'-        return val''-    return result--{- |-Set the value of the “@expires@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' cookie [ #expires 'Data.GI.Base.Attributes.:=' value ]-@--}-setCookieExpires :: MonadIO m => Cookie -> Ptr Soup.Date.Date -> m ()-setCookieExpires s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (val :: Ptr Soup.Date.Date)--{- |-Set the value of the “@expires@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #expires-@--}-clearCookieExpires :: MonadIO m => Cookie -> m ()-clearCookieExpires s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (FP.nullPtr :: Ptr Soup.Date.Date)--#if ENABLE_OVERLOADING-data CookieExpiresFieldInfo-instance AttrInfo CookieExpiresFieldInfo where-    type AttrAllowedOps CookieExpiresFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint CookieExpiresFieldInfo = (~) (Ptr Soup.Date.Date)-    type AttrBaseTypeConstraint CookieExpiresFieldInfo = (~) Cookie-    type AttrGetType CookieExpiresFieldInfo = Maybe Soup.Date.Date-    type AttrLabel CookieExpiresFieldInfo = "expires"-    type AttrOrigin CookieExpiresFieldInfo = Cookie-    attrGet _ = getCookieExpires-    attrSet _ = setCookieExpires-    attrConstruct = undefined-    attrClear _ = clearCookieExpires--cookie_expires :: AttrLabelProxy "expires"-cookie_expires = AttrLabelProxy--#endif---{- |-Get the value of the “@secure@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' cookie #secure-@--}-getCookieSecure :: MonadIO m => Cookie -> m Bool-getCookieSecure s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO CInt-    let val' = (/= 0) val-    return val'--{- |-Set the value of the “@secure@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' cookie [ #secure 'Data.GI.Base.Attributes.:=' value ]-@--}-setCookieSecure :: MonadIO m => Cookie -> Bool -> m ()-setCookieSecure s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 40) (val' :: CInt)--#if ENABLE_OVERLOADING-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"-    type AttrOrigin CookieSecureFieldInfo = Cookie-    attrGet _ = getCookieSecure-    attrSet _ = setCookieSecure-    attrConstruct = undefined-    attrClear _ = undefined--cookie_secure :: AttrLabelProxy "secure"-cookie_secure = AttrLabelProxy--#endif---{- |-Get the value of the “@http_only@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' cookie #httpOnly-@--}-getCookieHttpOnly :: MonadIO m => Cookie -> m Bool-getCookieHttpOnly s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 44) :: IO CInt-    let val' = (/= 0) val-    return val'--{- |-Set the value of the “@http_only@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' cookie [ #httpOnly 'Data.GI.Base.Attributes.:=' value ]-@--}-setCookieHttpOnly :: MonadIO m => Cookie -> Bool -> m ()-setCookieHttpOnly s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 44) (val' :: CInt)--#if ENABLE_OVERLOADING-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"-    type AttrOrigin CookieHttpOnlyFieldInfo = Cookie-    attrGet _ = getCookieHttpOnly-    attrSet _ = setCookieHttpOnly-    attrConstruct = undefined-    attrClear _ = undefined--cookie_httpOnly :: AttrLabelProxy "httpOnly"-cookie_httpOnly = AttrLabelProxy--#endif----#if ENABLE_OVERLOADING-instance O.HasAttributeList Cookie-type instance O.AttributeList Cookie = CookieAttributeList-type CookieAttributeList = ('[ '("name", CookieNameFieldInfo), '("value", CookieValueFieldInfo), '("domain", CookieDomainFieldInfo), '("path", CookiePathFieldInfo), '("expires", CookieExpiresFieldInfo), '("secure", CookieSecureFieldInfo), '("httpOnly", CookieHttpOnlyFieldInfo)] :: [(Symbol, *)])-#endif---- method Cookie::new--- method type : Constructor--- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "cookie name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "cookie value", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "cookie domain or hostname", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "cookie path, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_age", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "max age of the cookie, or -1 for a session cookie", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "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)--{- |-Creates a new 'GI.Soup.Structs.Cookie.Cookie' with the given attributes. (Use-'GI.Soup.Structs.Cookie.cookieSetSecure' and 'GI.Soup.Structs.Cookie.cookieSetHttpOnly' if you-need to set those attributes on the returned cookie.)--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.--/@maxAge@/ is used to set the \"expires\" attribute on the cookie; pass--1 to not include the attribute (indicating that the cookie expires-with the current session), 0 for an already-expired cookie, or a-lifetime in seconds. You can use the constants-'GI.Soup.Constants.COOKIE_MAX_AGE_ONE_HOUR', 'GI.Soup.Constants.COOKIE_MAX_AGE_ONE_DAY',-'GI.Soup.Constants.COOKIE_MAX_AGE_ONE_WEEK' and 'GI.Soup.Constants.COOKIE_MAX_AGE_ONE_YEAR' (or-multiples thereof) to calculate this value. (If you really care-about setting the exact time that the cookie will expire, use-'GI.Soup.Structs.Cookie.cookieSetExpires'.)--/Since: 2.24/--}-cookieNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@name@/: cookie name -}-    -> T.Text-    {- ^ /@value@/: cookie value -}-    -> T.Text-    {- ^ /@domain@/: cookie domain or hostname -}-    -> T.Text-    {- ^ /@path@/: cookie path, or 'Nothing' -}-    -> Int32-    {- ^ /@maxAge@/: max age of the cookie, or -1 for a session cookie -}-    -> m Cookie-    {- ^ __Returns:__ a new 'GI.Soup.Structs.Cookie.Cookie'. -}-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 "cookieNew" result-    result' <- (wrapBoxed Cookie) result-    freeMem name'-    freeMem value'-    freeMem domain'-    freeMem path'-    return result'--#if ENABLE_OVERLOADING-#endif---- method Cookie::applies_to_uri--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cookie", argType = TInterface (Name {namespace = "Soup", name = "Cookie"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookie", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI", sinceVersion = Nothing}, 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 ->                           -- cookie : TInterface (Name {namespace = "Soup", name = "Cookie"})-    Ptr Soup.URI.URI ->                     -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    IO CInt--{- |-Tests if /@cookie@/ should be sent to /@uri@/.--(At the moment, this does not check that /@cookie@/\'s domain matches-/@uri@/, because it assumes that the caller has already done that.-But don\'t rely on that; it may change in the future.)--/Since: 2.24/--}-cookieAppliesToUri ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Cookie-    {- ^ /@cookie@/: a 'GI.Soup.Structs.Cookie.Cookie' -}-    -> Soup.URI.URI-    {- ^ /@uri@/: a 'GI.Soup.Structs.URI.URI' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@cookie@/ should be sent to /@uri@/, 'False' if-not -}-cookieAppliesToUri cookie uri = liftIO $ do-    cookie' <- unsafeManagedPtrGetPtr cookie-    uri' <- unsafeManagedPtrGetPtr uri-    result <- soup_cookie_applies_to_uri cookie' uri'-    let result' = (/= 0) result-    touchManagedPtr cookie-    touchManagedPtr uri-    return result'--#if ENABLE_OVERLOADING-data CookieAppliesToUriMethodInfo-instance (signature ~ (Soup.URI.URI -> m Bool), MonadIO m) => O.MethodInfo CookieAppliesToUriMethodInfo Cookie signature where-    overloadedMethod _ = cookieAppliesToUri--#endif---- method Cookie::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cookie", argType = TInterface (Name {namespace = "Soup", name = "Cookie"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookie", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Cookie"}))--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_copy" soup_cookie_copy :: -    Ptr Cookie ->                           -- cookie : TInterface (Name {namespace = "Soup", name = "Cookie"})-    IO (Ptr Cookie)--{- |-Copies /@cookie@/.--/Since: 2.24/--}-cookieCopy ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Cookie-    {- ^ /@cookie@/: a 'GI.Soup.Structs.Cookie.Cookie' -}-    -> m Cookie-    {- ^ __Returns:__ a copy of /@cookie@/ -}-cookieCopy cookie = liftIO $ do-    cookie' <- unsafeManagedPtrGetPtr cookie-    result <- soup_cookie_copy cookie'-    checkUnexpectedReturnNULL "cookieCopy" result-    result' <- (wrapBoxed Cookie) result-    touchManagedPtr cookie-    return result'--#if ENABLE_OVERLOADING-data CookieCopyMethodInfo-instance (signature ~ (m Cookie), MonadIO m) => O.MethodInfo CookieCopyMethodInfo Cookie signature where-    overloadedMethod _ = cookieCopy--#endif---- method Cookie::domain_matches--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cookie", argType = TInterface (Name {namespace = "Soup", name = "Cookie"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookie", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a URI", sinceVersion = Nothing}, 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 ->                           -- cookie : TInterface (Name {namespace = "Soup", name = "Cookie"})-    CString ->                              -- host : TBasicType TUTF8-    IO CInt--{- |-Checks if the /@cookie@/\'s domain and /@host@/ match in the sense that-/@cookie@/ should be sent when making a request to /@host@/, or that-/@cookie@/ should be accepted when receiving a response from /@host@/.--/Since: 2.30/--}-cookieDomainMatches ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Cookie-    {- ^ /@cookie@/: a 'GI.Soup.Structs.Cookie.Cookie' -}-    -> T.Text-    {- ^ /@host@/: a URI -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the domains match, 'False' otherwise -}-cookieDomainMatches cookie host = liftIO $ do-    cookie' <- unsafeManagedPtrGetPtr cookie-    host' <- textToCString host-    result <- soup_cookie_domain_matches cookie' host'-    let result' = (/= 0) result-    touchManagedPtr cookie-    freeMem host'-    return result'--#if ENABLE_OVERLOADING-data CookieDomainMatchesMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m) => O.MethodInfo CookieDomainMatchesMethodInfo Cookie signature where-    overloadedMethod _ = cookieDomainMatches--#endif---- method Cookie::equal--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cookie1", argType = TInterface (Name {namespace = "Soup", name = "Cookie"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookie", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cookie2", argType = TInterface (Name {namespace = "Soup", name = "Cookie"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookie", sinceVersion = Nothing}, 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 ->                           -- cookie1 : TInterface (Name {namespace = "Soup", name = "Cookie"})-    Ptr Cookie ->                           -- cookie2 : TInterface (Name {namespace = "Soup", name = "Cookie"})-    IO CInt--{- |-Tests if /@cookie1@/ and /@cookie2@/ are equal.--Note that currently, this does not check that the cookie domains-match. This may change in the future.--/Since: 2.24/--}-cookieEqual ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Cookie-    {- ^ /@cookie1@/: a 'GI.Soup.Structs.Cookie.Cookie' -}-    -> Cookie-    {- ^ /@cookie2@/: a 'GI.Soup.Structs.Cookie.Cookie' -}-    -> m Bool-    {- ^ __Returns:__ whether the cookies are equal. -}-cookieEqual cookie1 cookie2 = liftIO $ do-    cookie1' <- unsafeManagedPtrGetPtr cookie1-    cookie2' <- unsafeManagedPtrGetPtr cookie2-    result <- soup_cookie_equal cookie1' cookie2'-    let result' = (/= 0) result-    touchManagedPtr cookie1-    touchManagedPtr cookie2-    return result'--#if ENABLE_OVERLOADING-data CookieEqualMethodInfo-instance (signature ~ (Cookie -> m Bool), MonadIO m) => O.MethodInfo CookieEqualMethodInfo Cookie signature where-    overloadedMethod _ = cookieEqual--#endif---- method Cookie::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cookie", argType = TInterface (Name {namespace = "Soup", name = "Cookie"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookie", sinceVersion = Nothing}, 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 ->                           -- cookie : TInterface (Name {namespace = "Soup", name = "Cookie"})-    IO ()--{- |-Frees /@cookie@/--/Since: 2.24/--}-cookieFree ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Cookie-    {- ^ /@cookie@/: a 'GI.Soup.Structs.Cookie.Cookie' -}-    -> m ()-cookieFree cookie = liftIO $ do-    cookie' <- unsafeManagedPtrGetPtr cookie-    soup_cookie_free cookie'-    touchManagedPtr cookie-    return ()--#if ENABLE_OVERLOADING-data CookieFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo CookieFreeMethodInfo Cookie signature where-    overloadedMethod _ = cookieFree--#endif---- method Cookie::get_domain--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cookie", argType = TInterface (Name {namespace = "Soup", name = "Cookie"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookie", sinceVersion = Nothing}, 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 ->                           -- cookie : TInterface (Name {namespace = "Soup", name = "Cookie"})-    IO CString--{- |-Gets /@cookie@/\'s domain--/Since: 2.32/--}-cookieGetDomain ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Cookie-    {- ^ /@cookie@/: a 'GI.Soup.Structs.Cookie.Cookie' -}-    -> m T.Text-    {- ^ __Returns:__ /@cookie@/\'s domain -}-cookieGetDomain cookie = liftIO $ do-    cookie' <- unsafeManagedPtrGetPtr cookie-    result <- soup_cookie_get_domain cookie'-    checkUnexpectedReturnNULL "cookieGetDomain" result-    result' <- cstringToText result-    touchManagedPtr cookie-    return result'--#if ENABLE_OVERLOADING-data CookieGetDomainMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo CookieGetDomainMethodInfo Cookie signature where-    overloadedMethod _ = cookieGetDomain--#endif---- method Cookie::get_expires--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cookie", argType = TInterface (Name {namespace = "Soup", name = "Cookie"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookie", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Date"}))--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_get_expires" soup_cookie_get_expires :: -    Ptr Cookie ->                           -- cookie : TInterface (Name {namespace = "Soup", name = "Cookie"})-    IO (Ptr Soup.Date.Date)--{- |-Gets /@cookie@/\'s expiration time.--/Since: 2.32/--}-cookieGetExpires ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Cookie-    {- ^ /@cookie@/: a 'GI.Soup.Structs.Cookie.Cookie' -}-    -> m (Maybe Soup.Date.Date)-    {- ^ __Returns:__ /@cookie@/\'s expiration-time, which is owned by /@cookie@/ and should not be modified or-freed. -}-cookieGetExpires cookie = liftIO $ do-    cookie' <- unsafeManagedPtrGetPtr cookie-    result <- soup_cookie_get_expires cookie'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newBoxed Soup.Date.Date) result'-        return result''-    touchManagedPtr cookie-    return maybeResult--#if ENABLE_OVERLOADING-data CookieGetExpiresMethodInfo-instance (signature ~ (m (Maybe Soup.Date.Date)), MonadIO m) => O.MethodInfo CookieGetExpiresMethodInfo Cookie signature where-    overloadedMethod _ = cookieGetExpires--#endif---- method Cookie::get_http_only--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cookie", argType = TInterface (Name {namespace = "Soup", name = "Cookie"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookie", sinceVersion = Nothing}, 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 ->                           -- cookie : TInterface (Name {namespace = "Soup", name = "Cookie"})-    IO CInt--{- |-Gets /@cookie@/\'s HttpOnly attribute--/Since: 2.32/--}-cookieGetHttpOnly ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Cookie-    {- ^ /@cookie@/: a 'GI.Soup.Structs.Cookie.Cookie' -}-    -> m Bool-    {- ^ __Returns:__ /@cookie@/\'s HttpOnly attribute -}-cookieGetHttpOnly cookie = liftIO $ do-    cookie' <- unsafeManagedPtrGetPtr cookie-    result <- soup_cookie_get_http_only cookie'-    let result' = (/= 0) result-    touchManagedPtr cookie-    return result'--#if ENABLE_OVERLOADING-data CookieGetHttpOnlyMethodInfo-instance (signature ~ (m Bool), MonadIO m) => O.MethodInfo CookieGetHttpOnlyMethodInfo Cookie signature where-    overloadedMethod _ = cookieGetHttpOnly--#endif---- method Cookie::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cookie", argType = TInterface (Name {namespace = "Soup", name = "Cookie"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookie", sinceVersion = Nothing}, 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 ->                           -- cookie : TInterface (Name {namespace = "Soup", name = "Cookie"})-    IO CString--{- |-Gets /@cookie@/\'s name--/Since: 2.32/--}-cookieGetName ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Cookie-    {- ^ /@cookie@/: a 'GI.Soup.Structs.Cookie.Cookie' -}-    -> m T.Text-    {- ^ __Returns:__ /@cookie@/\'s name -}-cookieGetName cookie = liftIO $ do-    cookie' <- unsafeManagedPtrGetPtr cookie-    result <- soup_cookie_get_name cookie'-    checkUnexpectedReturnNULL "cookieGetName" result-    result' <- cstringToText result-    touchManagedPtr cookie-    return result'--#if ENABLE_OVERLOADING-data CookieGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo CookieGetNameMethodInfo Cookie signature where-    overloadedMethod _ = cookieGetName--#endif---- method Cookie::get_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cookie", argType = TInterface (Name {namespace = "Soup", name = "Cookie"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookie", sinceVersion = Nothing}, 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 ->                           -- cookie : TInterface (Name {namespace = "Soup", name = "Cookie"})-    IO CString--{- |-Gets /@cookie@/\'s path--/Since: 2.32/--}-cookieGetPath ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Cookie-    {- ^ /@cookie@/: a 'GI.Soup.Structs.Cookie.Cookie' -}-    -> m T.Text-    {- ^ __Returns:__ /@cookie@/\'s path -}-cookieGetPath cookie = liftIO $ do-    cookie' <- unsafeManagedPtrGetPtr cookie-    result <- soup_cookie_get_path cookie'-    checkUnexpectedReturnNULL "cookieGetPath" result-    result' <- cstringToText result-    touchManagedPtr cookie-    return result'--#if ENABLE_OVERLOADING-data CookieGetPathMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo CookieGetPathMethodInfo Cookie signature where-    overloadedMethod _ = cookieGetPath--#endif---- method Cookie::get_secure--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cookie", argType = TInterface (Name {namespace = "Soup", name = "Cookie"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookie", sinceVersion = Nothing}, 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 ->                           -- cookie : TInterface (Name {namespace = "Soup", name = "Cookie"})-    IO CInt--{- |-Gets /@cookie@/\'s secure attribute--/Since: 2.32/--}-cookieGetSecure ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Cookie-    {- ^ /@cookie@/: a 'GI.Soup.Structs.Cookie.Cookie' -}-    -> m Bool-    {- ^ __Returns:__ /@cookie@/\'s secure attribute -}-cookieGetSecure cookie = liftIO $ do-    cookie' <- unsafeManagedPtrGetPtr cookie-    result <- soup_cookie_get_secure cookie'-    let result' = (/= 0) result-    touchManagedPtr cookie-    return result'--#if ENABLE_OVERLOADING-data CookieGetSecureMethodInfo-instance (signature ~ (m Bool), MonadIO m) => O.MethodInfo CookieGetSecureMethodInfo Cookie signature where-    overloadedMethod _ = cookieGetSecure--#endif---- method Cookie::get_value--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cookie", argType = TInterface (Name {namespace = "Soup", name = "Cookie"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookie", sinceVersion = Nothing}, 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 ->                           -- cookie : TInterface (Name {namespace = "Soup", name = "Cookie"})-    IO CString--{- |-Gets /@cookie@/\'s value--/Since: 2.32/--}-cookieGetValue ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Cookie-    {- ^ /@cookie@/: a 'GI.Soup.Structs.Cookie.Cookie' -}-    -> m T.Text-    {- ^ __Returns:__ /@cookie@/\'s value -}-cookieGetValue cookie = liftIO $ do-    cookie' <- unsafeManagedPtrGetPtr cookie-    result <- soup_cookie_get_value cookie'-    checkUnexpectedReturnNULL "cookieGetValue" result-    result' <- cstringToText result-    touchManagedPtr cookie-    return result'--#if ENABLE_OVERLOADING-data CookieGetValueMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo CookieGetValueMethodInfo Cookie signature where-    overloadedMethod _ = cookieGetValue--#endif---- method Cookie::set_domain--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cookie", argType = TInterface (Name {namespace = "Soup", name = "Cookie"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookie", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "domain", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new domain", sinceVersion = Nothing}, 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 ->                           -- cookie : TInterface (Name {namespace = "Soup", name = "Cookie"})-    CString ->                              -- domain : TBasicType TUTF8-    IO ()--{- |-Sets /@cookie@/\'s domain to /@domain@/--/Since: 2.24/--}-cookieSetDomain ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Cookie-    {- ^ /@cookie@/: a 'GI.Soup.Structs.Cookie.Cookie' -}-    -> T.Text-    {- ^ /@domain@/: the new domain -}-    -> m ()-cookieSetDomain cookie domain = liftIO $ do-    cookie' <- unsafeManagedPtrGetPtr cookie-    domain' <- textToCString domain-    soup_cookie_set_domain cookie' domain'-    touchManagedPtr cookie-    freeMem domain'-    return ()--#if ENABLE_OVERLOADING-data CookieSetDomainMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m) => O.MethodInfo CookieSetDomainMethodInfo Cookie signature where-    overloadedMethod _ = cookieSetDomain--#endif---- method Cookie::set_expires--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cookie", argType = TInterface (Name {namespace = "Soup", name = "Cookie"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookie", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expires", argType = TInterface (Name {namespace = "Soup", name = "Date"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new expiration time, or %NULL", sinceVersion = Nothing}, 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 ->                           -- cookie : TInterface (Name {namespace = "Soup", name = "Cookie"})-    Ptr Soup.Date.Date ->                   -- expires : TInterface (Name {namespace = "Soup", name = "Date"})-    IO ()--{- |-Sets /@cookie@/\'s expiration time to /@expires@/. If /@expires@/ is 'Nothing',-/@cookie@/ will be a session cookie and will expire at the end of the-client\'s session.--(This sets the same property as 'GI.Soup.Structs.Cookie.cookieSetMaxAge'.)--/Since: 2.24/--}-cookieSetExpires ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Cookie-    {- ^ /@cookie@/: a 'GI.Soup.Structs.Cookie.Cookie' -}-    -> Soup.Date.Date-    {- ^ /@expires@/: the new expiration time, or 'Nothing' -}-    -> m ()-cookieSetExpires cookie expires = liftIO $ do-    cookie' <- unsafeManagedPtrGetPtr cookie-    expires' <- unsafeManagedPtrGetPtr expires-    soup_cookie_set_expires cookie' expires'-    touchManagedPtr cookie-    touchManagedPtr expires-    return ()--#if ENABLE_OVERLOADING-data CookieSetExpiresMethodInfo-instance (signature ~ (Soup.Date.Date -> m ()), MonadIO m) => O.MethodInfo CookieSetExpiresMethodInfo Cookie signature where-    overloadedMethod _ = cookieSetExpires--#endif---- method Cookie::set_http_only--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cookie", argType = TInterface (Name {namespace = "Soup", name = "Cookie"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookie", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "http_only", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new value for the HttpOnly attribute", sinceVersion = Nothing}, 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 ->                           -- cookie : TInterface (Name {namespace = "Soup", name = "Cookie"})-    CInt ->                                 -- http_only : TBasicType TBoolean-    IO ()--{- |-Sets /@cookie@/\'s HttpOnly attribute to /@httpOnly@/. If 'True', /@cookie@/-will be marked as \"http only\", meaning it should not be exposed to-web page scripts or other untrusted code.--/Since: 2.24/--}-cookieSetHttpOnly ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Cookie-    {- ^ /@cookie@/: a 'GI.Soup.Structs.Cookie.Cookie' -}-    -> Bool-    {- ^ /@httpOnly@/: the new value for the HttpOnly attribute -}-    -> m ()-cookieSetHttpOnly cookie httpOnly = liftIO $ do-    cookie' <- unsafeManagedPtrGetPtr cookie-    let httpOnly' = (fromIntegral . fromEnum) httpOnly-    soup_cookie_set_http_only cookie' httpOnly'-    touchManagedPtr cookie-    return ()--#if ENABLE_OVERLOADING-data CookieSetHttpOnlyMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m) => O.MethodInfo CookieSetHttpOnlyMethodInfo Cookie signature where-    overloadedMethod _ = cookieSetHttpOnly--#endif---- method Cookie::set_max_age--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cookie", argType = TInterface (Name {namespace = "Soup", name = "Cookie"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookie", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_age", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new max age", sinceVersion = Nothing}, 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 ->                           -- cookie : TInterface (Name {namespace = "Soup", name = "Cookie"})-    Int32 ->                                -- max_age : TBasicType TInt-    IO ()--{- |-Sets /@cookie@/\'s max age to /@maxAge@/. If /@maxAge@/ is -1, the cookie-is a session cookie, and will expire at the end of the client\'s-session. Otherwise, it is the number of seconds until the cookie-expires. You can use the constants 'GI.Soup.Constants.COOKIE_MAX_AGE_ONE_HOUR',-'GI.Soup.Constants.COOKIE_MAX_AGE_ONE_DAY', 'GI.Soup.Constants.COOKIE_MAX_AGE_ONE_WEEK' and-'GI.Soup.Constants.COOKIE_MAX_AGE_ONE_YEAR' (or multiples thereof) to calculate-this value. (A value of 0 indicates that the cookie should be-considered already-expired.)--(This sets the same property as 'GI.Soup.Structs.Cookie.cookieSetExpires'.)--/Since: 2.24/--}-cookieSetMaxAge ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Cookie-    {- ^ /@cookie@/: a 'GI.Soup.Structs.Cookie.Cookie' -}-    -> Int32-    {- ^ /@maxAge@/: the new max age -}-    -> m ()-cookieSetMaxAge cookie maxAge = liftIO $ do-    cookie' <- unsafeManagedPtrGetPtr cookie-    soup_cookie_set_max_age cookie' maxAge-    touchManagedPtr cookie-    return ()--#if ENABLE_OVERLOADING-data CookieSetMaxAgeMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m) => O.MethodInfo CookieSetMaxAgeMethodInfo Cookie signature where-    overloadedMethod _ = cookieSetMaxAge--#endif---- method Cookie::set_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cookie", argType = TInterface (Name {namespace = "Soup", name = "Cookie"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookie", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new name", sinceVersion = Nothing}, 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 ->                           -- cookie : TInterface (Name {namespace = "Soup", name = "Cookie"})-    CString ->                              -- name : TBasicType TUTF8-    IO ()--{- |-Sets /@cookie@/\'s name to /@name@/--/Since: 2.24/--}-cookieSetName ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Cookie-    {- ^ /@cookie@/: a 'GI.Soup.Structs.Cookie.Cookie' -}-    -> T.Text-    {- ^ /@name@/: the new name -}-    -> m ()-cookieSetName cookie name = liftIO $ do-    cookie' <- unsafeManagedPtrGetPtr cookie-    name' <- textToCString name-    soup_cookie_set_name cookie' name'-    touchManagedPtr cookie-    freeMem name'-    return ()--#if ENABLE_OVERLOADING-data CookieSetNameMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m) => O.MethodInfo CookieSetNameMethodInfo Cookie signature where-    overloadedMethod _ = cookieSetName--#endif---- method Cookie::set_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cookie", argType = TInterface (Name {namespace = "Soup", name = "Cookie"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookie", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new path", sinceVersion = Nothing}, 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 ->                           -- cookie : TInterface (Name {namespace = "Soup", name = "Cookie"})-    CString ->                              -- path : TBasicType TUTF8-    IO ()--{- |-Sets /@cookie@/\'s path to /@path@/--/Since: 2.24/--}-cookieSetPath ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Cookie-    {- ^ /@cookie@/: a 'GI.Soup.Structs.Cookie.Cookie' -}-    -> T.Text-    {- ^ /@path@/: the new path -}-    -> m ()-cookieSetPath cookie path = liftIO $ do-    cookie' <- unsafeManagedPtrGetPtr cookie-    path' <- textToCString path-    soup_cookie_set_path cookie' path'-    touchManagedPtr cookie-    freeMem path'-    return ()--#if ENABLE_OVERLOADING-data CookieSetPathMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m) => O.MethodInfo CookieSetPathMethodInfo Cookie signature where-    overloadedMethod _ = cookieSetPath--#endif---- method Cookie::set_secure--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cookie", argType = TInterface (Name {namespace = "Soup", name = "Cookie"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookie", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "secure", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new value for the secure attribute", sinceVersion = Nothing}, 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 ->                           -- cookie : TInterface (Name {namespace = "Soup", name = "Cookie"})-    CInt ->                                 -- secure : TBasicType TBoolean-    IO ()--{- |-Sets /@cookie@/\'s secure attribute to /@secure@/. If 'True', /@cookie@/ will-only be transmitted from the client to the server over secure-(https) connections.--/Since: 2.24/--}-cookieSetSecure ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Cookie-    {- ^ /@cookie@/: a 'GI.Soup.Structs.Cookie.Cookie' -}-    -> Bool-    {- ^ /@secure@/: the new value for the secure attribute -}-    -> m ()-cookieSetSecure cookie secure = liftIO $ do-    cookie' <- unsafeManagedPtrGetPtr cookie-    let secure' = (fromIntegral . fromEnum) secure-    soup_cookie_set_secure cookie' secure'-    touchManagedPtr cookie-    return ()--#if ENABLE_OVERLOADING-data CookieSetSecureMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m) => O.MethodInfo CookieSetSecureMethodInfo Cookie signature where-    overloadedMethod _ = cookieSetSecure--#endif---- method Cookie::set_value--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cookie", argType = TInterface (Name {namespace = "Soup", name = "Cookie"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookie", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new value", sinceVersion = Nothing}, 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 ->                           -- cookie : TInterface (Name {namespace = "Soup", name = "Cookie"})-    CString ->                              -- value : TBasicType TUTF8-    IO ()--{- |-Sets /@cookie@/\'s value to /@value@/--/Since: 2.24/--}-cookieSetValue ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Cookie-    {- ^ /@cookie@/: a 'GI.Soup.Structs.Cookie.Cookie' -}-    -> T.Text-    {- ^ /@value@/: the new value -}-    -> m ()-cookieSetValue cookie value = liftIO $ do-    cookie' <- unsafeManagedPtrGetPtr cookie-    value' <- textToCString value-    soup_cookie_set_value cookie' value'-    touchManagedPtr cookie-    freeMem value'-    return ()--#if ENABLE_OVERLOADING-data CookieSetValueMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m) => O.MethodInfo CookieSetValueMethodInfo Cookie signature where-    overloadedMethod _ = cookieSetValue--#endif---- method Cookie::to_cookie_header--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cookie", argType = TInterface (Name {namespace = "Soup", name = "Cookie"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookie", sinceVersion = Nothing}, 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 ->                           -- cookie : TInterface (Name {namespace = "Soup", name = "Cookie"})-    IO CString--{- |-Serializes /@cookie@/ in the format used by the Cookie header (ie, for-returning a cookie from a 'GI.Soup.Objects.Session.Session' to a server).--/Since: 2.24/--}-cookieToCookieHeader ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Cookie-    {- ^ /@cookie@/: a 'GI.Soup.Structs.Cookie.Cookie' -}-    -> m T.Text-    {- ^ __Returns:__ the header -}-cookieToCookieHeader cookie = liftIO $ do-    cookie' <- unsafeManagedPtrGetPtr cookie-    result <- soup_cookie_to_cookie_header cookie'-    checkUnexpectedReturnNULL "cookieToCookieHeader" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr cookie-    return result'--#if ENABLE_OVERLOADING-data CookieToCookieHeaderMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo CookieToCookieHeaderMethodInfo Cookie signature where-    overloadedMethod _ = cookieToCookieHeader--#endif---- method Cookie::to_set_cookie_header--- method type : OrdinaryMethod--- Args : [Arg {argCName = "cookie", argType = TInterface (Name {namespace = "Soup", name = "Cookie"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupCookie", sinceVersion = Nothing}, 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 ->                           -- cookie : TInterface (Name {namespace = "Soup", name = "Cookie"})-    IO CString--{- |-Serializes /@cookie@/ in the format used by the Set-Cookie header-(ie, for sending a cookie from a 'GI.Soup.Objects.Server.Server' to a client).--/Since: 2.24/--}-cookieToSetCookieHeader ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Cookie-    {- ^ /@cookie@/: a 'GI.Soup.Structs.Cookie.Cookie' -}-    -> m T.Text-    {- ^ __Returns:__ the header -}-cookieToSetCookieHeader cookie = liftIO $ do-    cookie' <- unsafeManagedPtrGetPtr cookie-    result <- soup_cookie_to_set_cookie_header cookie'-    checkUnexpectedReturnNULL "cookieToSetCookieHeader" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr cookie-    return result'--#if ENABLE_OVERLOADING-data CookieToSetCookieHeaderMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo CookieToSetCookieHeaderMethodInfo Cookie signature where-    overloadedMethod _ = cookieToSetCookieHeader--#endif---- method Cookie::parse--- method type : MemberFunction--- Args : [Arg {argCName = "header", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a cookie string (eg, the value of a Set-Cookie header)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "origin", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "origin of the cookie, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Cookie"}))--- throws : False--- Skip return : False--foreign import ccall "soup_cookie_parse" soup_cookie_parse :: -    CString ->                              -- header : TBasicType TUTF8-    Ptr Soup.URI.URI ->                     -- origin : TInterface (Name {namespace = "Soup", name = "URI"})-    IO (Ptr Cookie)--{- |-Parses /@header@/ and returns a 'GI.Soup.Structs.Cookie.Cookie'. (If /@header@/ contains-multiple cookies, only the first one will be parsed.)--If /@header@/ does not have \"path\" or \"domain\" attributes, they will-be defaulted from /@origin@/. If /@origin@/ is 'Nothing', path will default-to \"\/\", but domain will be left as 'Nothing'. Note that this is not a-valid state for a 'GI.Soup.Structs.Cookie.Cookie', and you will need to fill in some-appropriate string for the domain if you want to actually make use-of the cookie.--/Since: 2.24/--}-cookieParse ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@header@/: a cookie string (eg, the value of a Set-Cookie header) -}-    -> Soup.URI.URI-    {- ^ /@origin@/: origin of the cookie, or 'Nothing' -}-    -> m (Maybe Cookie)-    {- ^ __Returns:__ a new 'GI.Soup.Structs.Cookie.Cookie', or 'Nothing' if it could-not be parsed, or contained an illegal \"domain\" attribute for a-cookie originating from /@origin@/. -}-cookieParse header origin = liftIO $ do-    header' <- textToCString header-    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--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-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 = O.MethodResolutionFailed l o--instance (info ~ ResolveCookieMethod t Cookie, O.MethodInfo info Cookie p) => OL.IsLabel t (Cookie -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--
− GI/Soup/Structs/Cookie.hs-boot 
@@ -1,92 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Structs.Cookie where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype Cookie = Cookie (ManagedPtr Cookie)-instance BoxedObject Cookie where-#if ENABLE_OVERLOADING-data CookieAppliesToUriMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieCopyMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieDomainMatchesMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieEqualMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieFreeMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieGetDomainMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieGetExpiresMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieGetHttpOnlyMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieGetNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieGetPathMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieGetSecureMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieGetValueMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieSetDomainMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieSetExpiresMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieSetHttpOnlyMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieSetMaxAgeMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieSetNameMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieSetPathMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieSetSecureMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieSetValueMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieToCookieHeaderMethodInfo-#endif-#if ENABLE_OVERLOADING-data CookieToSetCookieHeaderMethodInfo-#endif
− GI/Soup/Structs/Date.hs 
@@ -1,1355 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--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.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Structs.Date-    ( ---- * Exported types-    Date(..)                                ,-    newZeroDate                             ,-    noDate                                  ,--- -- * Methods--- ** copy #method:copy#--#if ENABLE_OVERLOADING-    DateCopyMethodInfo                      ,-#endif-    dateCopy                                ,----- ** free #method:free#--#if ENABLE_OVERLOADING-    DateFreeMethodInfo                      ,-#endif-    dateFree                                ,----- ** getDay #method:getDay#--#if ENABLE_OVERLOADING-    DateGetDayMethodInfo                    ,-#endif-    dateGetDay                              ,----- ** getHour #method:getHour#--#if ENABLE_OVERLOADING-    DateGetHourMethodInfo                   ,-#endif-    dateGetHour                             ,----- ** getMinute #method:getMinute#--#if ENABLE_OVERLOADING-    DateGetMinuteMethodInfo                 ,-#endif-    dateGetMinute                           ,----- ** getMonth #method:getMonth#--#if ENABLE_OVERLOADING-    DateGetMonthMethodInfo                  ,-#endif-    dateGetMonth                            ,----- ** getOffset #method:getOffset#--#if ENABLE_OVERLOADING-    DateGetOffsetMethodInfo                 ,-#endif-    dateGetOffset                           ,----- ** getSecond #method:getSecond#--#if ENABLE_OVERLOADING-    DateGetSecondMethodInfo                 ,-#endif-    dateGetSecond                           ,----- ** getUtc #method:getUtc#--#if ENABLE_OVERLOADING-    DateGetUtcMethodInfo                    ,-#endif-    dateGetUtc                              ,----- ** getYear #method:getYear#--#if ENABLE_OVERLOADING-    DateGetYearMethodInfo                   ,-#endif-    dateGetYear                             ,----- ** isPast #method:isPast#--#if ENABLE_OVERLOADING-    DateIsPastMethodInfo                    ,-#endif-    dateIsPast                              ,----- ** new #method:new#--    dateNew                                 ,----- ** newFromNow #method:newFromNow#--    dateNewFromNow                          ,----- ** newFromString #method:newFromString#--    dateNewFromString                       ,----- ** newFromTimeT #method:newFromTimeT#--    dateNewFromTimeT                        ,----- ** toString #method:toString#--#if ENABLE_OVERLOADING-    DateToStringMethodInfo                  ,-#endif-    dateToString                            ,----- ** toTimeT #method:toTimeT#--#if ENABLE_OVERLOADING-    DateToTimeTMethodInfo                   ,-#endif-    dateToTimeT                             ,----- ** toTimeval #method:toTimeval#--#if ENABLE_OVERLOADING-    DateToTimevalMethodInfo                 ,-#endif-    dateToTimeval                           ,----- -- * Properties--- ** day #attr:day#-{- | day of the month, 1 to 31--}-#if ENABLE_OVERLOADING-    date_day                                ,-#endif-    getDateDay                              ,-    setDateDay                              ,----- ** hour #attr:hour#-{- | hour of the day, 0 to 23--}-#if ENABLE_OVERLOADING-    date_hour                               ,-#endif-    getDateHour                             ,-    setDateHour                             ,----- ** minute #attr:minute#-{- | minute, 0 to 59--}-#if ENABLE_OVERLOADING-    date_minute                             ,-#endif-    getDateMinute                           ,-    setDateMinute                           ,----- ** month #attr:month#-{- | the month, 1 to 12--}-#if ENABLE_OVERLOADING-    date_month                              ,-#endif-    getDateMonth                            ,-    setDateMonth                            ,----- ** offset #attr:offset#-{- | offset from UTC--}-#if ENABLE_OVERLOADING-    date_offset                             ,-#endif-    getDateOffset                           ,-    setDateOffset                           ,----- ** second #attr:second#-{- | second, 0 to 59 (or up to 61 in the case of leap seconds)--}-#if ENABLE_OVERLOADING-    date_second                             ,-#endif-    getDateSecond                           ,-    setDateSecond                           ,----- ** utc #attr:utc#-{- | 'True' if the date is in UTC--}-#if ENABLE_OVERLOADING-    date_utc                                ,-#endif-    getDateUtc                              ,-    setDateUtc                              ,----- ** year #attr:year#-{- | the year, 1 to 9999--}-#if ENABLE_OVERLOADING-    date_year                               ,-#endif-    getDateYear                             ,-    setDateYear                             ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.GLib.Structs.TimeVal as GLib.TimeVal-import {-# SOURCE #-} qualified GI.Soup.Enums as Soup.Enums---- | Memory-managed wrapper type.-newtype Date = Date (ManagedPtr 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----- | A convenience alias for `Nothing` :: `Maybe` `Date`.-noDate :: Maybe Date-noDate = Nothing--{- |-Get the value of the “@year@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' date #year-@--}-getDateYear :: MonadIO m => Date -> m Int32-getDateYear s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--{- |-Set the value of the “@year@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' date [ #year 'Data.GI.Base.Attributes.:=' value ]-@--}-setDateYear :: MonadIO m => Date -> Int32 -> m ()-setDateYear s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Int32)--#if ENABLE_OVERLOADING-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"-    type AttrOrigin DateYearFieldInfo = Date-    attrGet _ = getDateYear-    attrSet _ = setDateYear-    attrConstruct = undefined-    attrClear _ = undefined--date_year :: AttrLabelProxy "year"-date_year = AttrLabelProxy--#endif---{- |-Get the value of the “@month@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' date #month-@--}-getDateMonth :: MonadIO m => Date -> m Int32-getDateMonth s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 4) :: IO Int32-    return val--{- |-Set the value of the “@month@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' date [ #month 'Data.GI.Base.Attributes.:=' value ]-@--}-setDateMonth :: MonadIO m => Date -> Int32 -> m ()-setDateMonth s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 4) (val :: Int32)--#if ENABLE_OVERLOADING-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"-    type AttrOrigin DateMonthFieldInfo = Date-    attrGet _ = getDateMonth-    attrSet _ = setDateMonth-    attrConstruct = undefined-    attrClear _ = undefined--date_month :: AttrLabelProxy "month"-date_month = AttrLabelProxy--#endif---{- |-Get the value of the “@day@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' date #day-@--}-getDateDay :: MonadIO m => Date -> m Int32-getDateDay s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Int32-    return val--{- |-Set the value of the “@day@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' date [ #day 'Data.GI.Base.Attributes.:=' value ]-@--}-setDateDay :: MonadIO m => Date -> Int32 -> m ()-setDateDay s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Int32)--#if ENABLE_OVERLOADING-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"-    type AttrOrigin DateDayFieldInfo = Date-    attrGet _ = getDateDay-    attrSet _ = setDateDay-    attrConstruct = undefined-    attrClear _ = undefined--date_day :: AttrLabelProxy "day"-date_day = AttrLabelProxy--#endif---{- |-Get the value of the “@hour@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' date #hour-@--}-getDateHour :: MonadIO m => Date -> m Int32-getDateHour s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 12) :: IO Int32-    return val--{- |-Set the value of the “@hour@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' date [ #hour 'Data.GI.Base.Attributes.:=' value ]-@--}-setDateHour :: MonadIO m => Date -> Int32 -> m ()-setDateHour s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 12) (val :: Int32)--#if ENABLE_OVERLOADING-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"-    type AttrOrigin DateHourFieldInfo = Date-    attrGet _ = getDateHour-    attrSet _ = setDateHour-    attrConstruct = undefined-    attrClear _ = undefined--date_hour :: AttrLabelProxy "hour"-date_hour = AttrLabelProxy--#endif---{- |-Get the value of the “@minute@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' date #minute-@--}-getDateMinute :: MonadIO m => Date -> m Int32-getDateMinute s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int32-    return val--{- |-Set the value of the “@minute@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' date [ #minute 'Data.GI.Base.Attributes.:=' value ]-@--}-setDateMinute :: MonadIO m => Date -> Int32 -> m ()-setDateMinute s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Int32)--#if ENABLE_OVERLOADING-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"-    type AttrOrigin DateMinuteFieldInfo = Date-    attrGet _ = getDateMinute-    attrSet _ = setDateMinute-    attrConstruct = undefined-    attrClear _ = undefined--date_minute :: AttrLabelProxy "minute"-date_minute = AttrLabelProxy--#endif---{- |-Get the value of the “@second@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' date #second-@--}-getDateSecond :: MonadIO m => Date -> m Int32-getDateSecond s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO Int32-    return val--{- |-Set the value of the “@second@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' date [ #second 'Data.GI.Base.Attributes.:=' value ]-@--}-setDateSecond :: MonadIO m => Date -> Int32 -> m ()-setDateSecond s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 20) (val :: Int32)--#if ENABLE_OVERLOADING-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"-    type AttrOrigin DateSecondFieldInfo = Date-    attrGet _ = getDateSecond-    attrSet _ = setDateSecond-    attrConstruct = undefined-    attrClear _ = undefined--date_second :: AttrLabelProxy "second"-date_second = AttrLabelProxy--#endif---{- |-Get the value of the “@utc@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' date #utc-@--}-getDateUtc :: MonadIO m => Date -> m Bool-getDateUtc s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CInt-    let val' = (/= 0) val-    return val'--{- |-Set the value of the “@utc@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' date [ #utc 'Data.GI.Base.Attributes.:=' value ]-@--}-setDateUtc :: MonadIO m => Date -> Bool -> m ()-setDateUtc s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 24) (val' :: CInt)--#if ENABLE_OVERLOADING-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"-    type AttrOrigin DateUtcFieldInfo = Date-    attrGet _ = getDateUtc-    attrSet _ = setDateUtc-    attrConstruct = undefined-    attrClear _ = undefined--date_utc :: AttrLabelProxy "utc"-date_utc = AttrLabelProxy--#endif---{- |-Get the value of the “@offset@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' date #offset-@--}-getDateOffset :: MonadIO m => Date -> m Int32-getDateOffset s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 28) :: IO Int32-    return val--{- |-Set the value of the “@offset@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' date [ #offset 'Data.GI.Base.Attributes.:=' value ]-@--}-setDateOffset :: MonadIO m => Date -> Int32 -> m ()-setDateOffset s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 28) (val :: Int32)--#if ENABLE_OVERLOADING-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"-    type AttrOrigin DateOffsetFieldInfo = Date-    attrGet _ = getDateOffset-    attrSet _ = setDateOffset-    attrConstruct = undefined-    attrClear _ = undefined--date_offset :: AttrLabelProxy "offset"-date_offset = AttrLabelProxy--#endif----#if ENABLE_OVERLOADING-instance O.HasAttributeList Date-type instance O.AttributeList Date = DateAttributeList-type DateAttributeList = ('[ '("year", DateYearFieldInfo), '("month", DateMonthFieldInfo), '("day", DateDayFieldInfo), '("hour", DateHourFieldInfo), '("minute", DateMinuteFieldInfo), '("second", DateSecondFieldInfo), '("utc", DateUtcFieldInfo), '("offset", DateOffsetFieldInfo)] :: [(Symbol, *)])-#endif---- method Date::new--- method type : Constructor--- Args : [Arg {argCName = "year", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the year (1-9999)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "month", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the month (1-12)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "day", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the day of the month (1-31, as appropriate for @month)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hour", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the hour (0-23)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minute", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the minute (0-59)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "second", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the second (0-59, or up to 61 for leap seconds)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "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)--{- |-Creates a 'GI.Soup.Structs.Date.Date' representing the indicated time, UTC.--}-dateNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Int32-    {- ^ /@year@/: the year (1-9999) -}-    -> Int32-    {- ^ /@month@/: the month (1-12) -}-    -> Int32-    {- ^ /@day@/: the day of the month (1-31, as appropriate for /@month@/) -}-    -> Int32-    {- ^ /@hour@/: the hour (0-23) -}-    -> Int32-    {- ^ /@minute@/: the minute (0-59) -}-    -> Int32-    {- ^ /@second@/: the second (0-59, or up to 61 for leap seconds) -}-    -> m Date-    {- ^ __Returns:__ a new 'GI.Soup.Structs.Date.Date' -}-dateNew year month day hour minute second = liftIO $ do-    result <- soup_date_new year month day hour minute second-    checkUnexpectedReturnNULL "dateNew" result-    result' <- (wrapBoxed Date) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method Date::new_from_now--- method type : Constructor--- Args : [Arg {argCName = "offset_seconds", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "offset from current time", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "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)--{- |-Creates a 'GI.Soup.Structs.Date.Date' representing a time /@offsetSeconds@/ after the-current time (or before it, if /@offsetSeconds@/ is negative). If-offset_seconds is 0, returns the current time.--If /@offsetSeconds@/ would indicate a time not expressible as a-\<type>time_t\<\/type>, the return value will be clamped into range.--}-dateNewFromNow ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Int32-    {- ^ /@offsetSeconds@/: offset from current time -}-    -> m Date-    {- ^ __Returns:__ a new 'GI.Soup.Structs.Date.Date' -}-dateNewFromNow offsetSeconds = liftIO $ do-    result <- soup_date_new_from_now offsetSeconds-    checkUnexpectedReturnNULL "dateNewFromNow" result-    result' <- (wrapBoxed Date) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method Date::new_from_string--- method type : Constructor--- Args : [Arg {argCName = "date_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the date in some plausible format", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "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)--{- |-Parses /@dateString@/ and tries to extract a date from it. This-recognizes all of the \"HTTP-date\" formats from RFC 2616, all ISO-8601 formats containing both a time and a date, RFC 2822 dates,-and reasonable approximations thereof. (Eg, it is lenient about-whitespace, leading \"0\"s, etc.)--}-dateNewFromString ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@dateString@/: the date in some plausible format -}-    -> m (Maybe Date)-    {- ^ __Returns:__ a new 'GI.Soup.Structs.Date.Date', or 'Nothing' if /@dateString@/-could not be parsed. -}-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--#if ENABLE_OVERLOADING-#endif---- method Date::new_from_time_t--- method type : Constructor--- Args : [Arg {argCName = "when", argType = TBasicType TLong, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a <type>time_t</type>", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "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)--{- |-Creates a 'GI.Soup.Structs.Date.Date' corresponding to /@when@/--}-dateNewFromTimeT ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    CLong-    {- ^ /@when@/: a \<type>time_t\<\/type> -}-    -> m Date-    {- ^ __Returns:__ a new 'GI.Soup.Structs.Date.Date' -}-dateNewFromTimeT when_ = liftIO $ do-    result <- soup_date_new_from_time_t when_-    checkUnexpectedReturnNULL "dateNewFromTimeT" result-    result' <- (wrapBoxed Date) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method Date::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "date", argType = TInterface (Name {namespace = "Soup", name = "Date"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupDate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Date"}))--- throws : False--- Skip return : False--foreign import ccall "soup_date_copy" soup_date_copy :: -    Ptr Date ->                             -- date : TInterface (Name {namespace = "Soup", name = "Date"})-    IO (Ptr Date)--{- |-Copies /@date@/.--/Since: 2.24/--}-dateCopy ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Date-    {- ^ /@date@/: a 'GI.Soup.Structs.Date.Date' -}-    -> m Date-dateCopy date = liftIO $ do-    date' <- unsafeManagedPtrGetPtr date-    result <- soup_date_copy date'-    checkUnexpectedReturnNULL "dateCopy" result-    result' <- (wrapBoxed Date) result-    touchManagedPtr date-    return result'--#if ENABLE_OVERLOADING-data DateCopyMethodInfo-instance (signature ~ (m Date), MonadIO m) => O.MethodInfo DateCopyMethodInfo Date signature where-    overloadedMethod _ = dateCopy--#endif---- method Date::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "date", argType = TInterface (Name {namespace = "Soup", name = "Date"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupDate", sinceVersion = Nothing}, 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 ->                             -- date : TInterface (Name {namespace = "Soup", name = "Date"})-    IO ()--{- |-Frees /@date@/.--/Since: 2.24/--}-dateFree ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Date-    {- ^ /@date@/: a 'GI.Soup.Structs.Date.Date' -}-    -> m ()-dateFree date = liftIO $ do-    date' <- unsafeManagedPtrGetPtr date-    soup_date_free date'-    touchManagedPtr date-    return ()--#if ENABLE_OVERLOADING-data DateFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo DateFreeMethodInfo Date signature where-    overloadedMethod _ = dateFree--#endif---- method Date::get_day--- method type : OrdinaryMethod--- Args : [Arg {argCName = "date", argType = TInterface (Name {namespace = "Soup", name = "Date"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupDate", sinceVersion = Nothing}, 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 ->                             -- date : TInterface (Name {namespace = "Soup", name = "Date"})-    IO Int32--{- |-Gets /@date@/\'s day.--/Since: 2.32/--}-dateGetDay ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Date-    {- ^ /@date@/: a 'GI.Soup.Structs.Date.Date' -}-    -> m Int32-    {- ^ __Returns:__ /@date@/\'s day -}-dateGetDay date = liftIO $ do-    date' <- unsafeManagedPtrGetPtr date-    result <- soup_date_get_day date'-    touchManagedPtr date-    return result--#if ENABLE_OVERLOADING-data DateGetDayMethodInfo-instance (signature ~ (m Int32), MonadIO m) => O.MethodInfo DateGetDayMethodInfo Date signature where-    overloadedMethod _ = dateGetDay--#endif---- method Date::get_hour--- method type : OrdinaryMethod--- Args : [Arg {argCName = "date", argType = TInterface (Name {namespace = "Soup", name = "Date"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupDate", sinceVersion = Nothing}, 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 ->                             -- date : TInterface (Name {namespace = "Soup", name = "Date"})-    IO Int32--{- |-Gets /@date@/\'s hour.--/Since: 2.32/--}-dateGetHour ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Date-    {- ^ /@date@/: a 'GI.Soup.Structs.Date.Date' -}-    -> m Int32-    {- ^ __Returns:__ /@date@/\'s hour -}-dateGetHour date = liftIO $ do-    date' <- unsafeManagedPtrGetPtr date-    result <- soup_date_get_hour date'-    touchManagedPtr date-    return result--#if ENABLE_OVERLOADING-data DateGetHourMethodInfo-instance (signature ~ (m Int32), MonadIO m) => O.MethodInfo DateGetHourMethodInfo Date signature where-    overloadedMethod _ = dateGetHour--#endif---- method Date::get_minute--- method type : OrdinaryMethod--- Args : [Arg {argCName = "date", argType = TInterface (Name {namespace = "Soup", name = "Date"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupDate", sinceVersion = Nothing}, 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 ->                             -- date : TInterface (Name {namespace = "Soup", name = "Date"})-    IO Int32--{- |-Gets /@date@/\'s minute.--/Since: 2.32/--}-dateGetMinute ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Date-    {- ^ /@date@/: a 'GI.Soup.Structs.Date.Date' -}-    -> m Int32-    {- ^ __Returns:__ /@date@/\'s minute -}-dateGetMinute date = liftIO $ do-    date' <- unsafeManagedPtrGetPtr date-    result <- soup_date_get_minute date'-    touchManagedPtr date-    return result--#if ENABLE_OVERLOADING-data DateGetMinuteMethodInfo-instance (signature ~ (m Int32), MonadIO m) => O.MethodInfo DateGetMinuteMethodInfo Date signature where-    overloadedMethod _ = dateGetMinute--#endif---- method Date::get_month--- method type : OrdinaryMethod--- Args : [Arg {argCName = "date", argType = TInterface (Name {namespace = "Soup", name = "Date"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupDate", sinceVersion = Nothing}, 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 ->                             -- date : TInterface (Name {namespace = "Soup", name = "Date"})-    IO Int32--{- |-Gets /@date@/\'s month.--/Since: 2.32/--}-dateGetMonth ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Date-    {- ^ /@date@/: a 'GI.Soup.Structs.Date.Date' -}-    -> m Int32-    {- ^ __Returns:__ /@date@/\'s month -}-dateGetMonth date = liftIO $ do-    date' <- unsafeManagedPtrGetPtr date-    result <- soup_date_get_month date'-    touchManagedPtr date-    return result--#if ENABLE_OVERLOADING-data DateGetMonthMethodInfo-instance (signature ~ (m Int32), MonadIO m) => O.MethodInfo DateGetMonthMethodInfo Date signature where-    overloadedMethod _ = dateGetMonth--#endif---- method Date::get_offset--- method type : OrdinaryMethod--- Args : [Arg {argCName = "date", argType = TInterface (Name {namespace = "Soup", name = "Date"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupDate", sinceVersion = Nothing}, 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 ->                             -- date : TInterface (Name {namespace = "Soup", name = "Date"})-    IO Int32--{- |-Gets /@date@/\'s offset from UTC.--/Since: 2.32/--}-dateGetOffset ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Date-    {- ^ /@date@/: a 'GI.Soup.Structs.Date.Date' -}-    -> m Int32-    {- ^ __Returns:__ /@date@/\'s offset from UTC. If 'GI.Soup.Structs.Date.dateGetUtc'-returns 'False' but 'GI.Soup.Structs.Date.dateGetOffset' returns 0, that means the-date is a \"floating\" time with no associated offset information. -}-dateGetOffset date = liftIO $ do-    date' <- unsafeManagedPtrGetPtr date-    result <- soup_date_get_offset date'-    touchManagedPtr date-    return result--#if ENABLE_OVERLOADING-data DateGetOffsetMethodInfo-instance (signature ~ (m Int32), MonadIO m) => O.MethodInfo DateGetOffsetMethodInfo Date signature where-    overloadedMethod _ = dateGetOffset--#endif---- method Date::get_second--- method type : OrdinaryMethod--- Args : [Arg {argCName = "date", argType = TInterface (Name {namespace = "Soup", name = "Date"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupDate", sinceVersion = Nothing}, 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 ->                             -- date : TInterface (Name {namespace = "Soup", name = "Date"})-    IO Int32--{- |-Gets /@date@/\'s second.--/Since: 2.32/--}-dateGetSecond ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Date-    {- ^ /@date@/: a 'GI.Soup.Structs.Date.Date' -}-    -> m Int32-    {- ^ __Returns:__ /@date@/\'s second -}-dateGetSecond date = liftIO $ do-    date' <- unsafeManagedPtrGetPtr date-    result <- soup_date_get_second date'-    touchManagedPtr date-    return result--#if ENABLE_OVERLOADING-data DateGetSecondMethodInfo-instance (signature ~ (m Int32), MonadIO m) => O.MethodInfo DateGetSecondMethodInfo Date signature where-    overloadedMethod _ = dateGetSecond--#endif---- method Date::get_utc--- method type : OrdinaryMethod--- Args : [Arg {argCName = "date", argType = TInterface (Name {namespace = "Soup", name = "Date"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupDate", sinceVersion = Nothing}, 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 ->                             -- date : TInterface (Name {namespace = "Soup", name = "Date"})-    IO Int32--{- |-Gets /@date@/\'s UTC flag--/Since: 2.32/--}-dateGetUtc ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Date-    {- ^ /@date@/: a 'GI.Soup.Structs.Date.Date' -}-    -> m Int32-    {- ^ __Returns:__ 'True' if /@date@/ is UTC. -}-dateGetUtc date = liftIO $ do-    date' <- unsafeManagedPtrGetPtr date-    result <- soup_date_get_utc date'-    touchManagedPtr date-    return result--#if ENABLE_OVERLOADING-data DateGetUtcMethodInfo-instance (signature ~ (m Int32), MonadIO m) => O.MethodInfo DateGetUtcMethodInfo Date signature where-    overloadedMethod _ = dateGetUtc--#endif---- method Date::get_year--- method type : OrdinaryMethod--- Args : [Arg {argCName = "date", argType = TInterface (Name {namespace = "Soup", name = "Date"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupDate", sinceVersion = Nothing}, 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 ->                             -- date : TInterface (Name {namespace = "Soup", name = "Date"})-    IO Int32--{- |-Gets /@date@/\'s year.--/Since: 2.32/--}-dateGetYear ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Date-    {- ^ /@date@/: a 'GI.Soup.Structs.Date.Date' -}-    -> m Int32-    {- ^ __Returns:__ /@date@/\'s year -}-dateGetYear date = liftIO $ do-    date' <- unsafeManagedPtrGetPtr date-    result <- soup_date_get_year date'-    touchManagedPtr date-    return result--#if ENABLE_OVERLOADING-data DateGetYearMethodInfo-instance (signature ~ (m Int32), MonadIO m) => O.MethodInfo DateGetYearMethodInfo Date signature where-    overloadedMethod _ = dateGetYear--#endif---- method Date::is_past--- method type : OrdinaryMethod--- Args : [Arg {argCName = "date", argType = TInterface (Name {namespace = "Soup", name = "Date"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupDate", sinceVersion = Nothing}, 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 ->                             -- date : TInterface (Name {namespace = "Soup", name = "Date"})-    IO CInt--{- |-Determines if /@date@/ is in the past.--/Since: 2.24/--}-dateIsPast ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Date-    {- ^ /@date@/: a 'GI.Soup.Structs.Date.Date' -}-    -> m Bool-    {- ^ __Returns:__ 'True' if /@date@/ is in the past -}-dateIsPast date = liftIO $ do-    date' <- unsafeManagedPtrGetPtr date-    result <- soup_date_is_past date'-    let result' = (/= 0) result-    touchManagedPtr date-    return result'--#if ENABLE_OVERLOADING-data DateIsPastMethodInfo-instance (signature ~ (m Bool), MonadIO m) => O.MethodInfo DateIsPastMethodInfo Date signature where-    overloadedMethod _ = dateIsPast--#endif---- method Date::to_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "date", argType = TInterface (Name {namespace = "Soup", name = "Date"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupDate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TInterface (Name {namespace = "Soup", name = "DateFormat"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the format to generate the date in", sinceVersion = Nothing}, 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 ->                             -- date : TInterface (Name {namespace = "Soup", name = "Date"})-    CUInt ->                                -- format : TInterface (Name {namespace = "Soup", name = "DateFormat"})-    IO CString--{- |-Converts /@date@/ to a string in the format described by /@format@/.--}-dateToString ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Date-    {- ^ /@date@/: a 'GI.Soup.Structs.Date.Date' -}-    -> Soup.Enums.DateFormat-    {- ^ /@format@/: the format to generate the date in -}-    -> m T.Text-    {- ^ __Returns:__ /@date@/ as a string -}-dateToString date format = liftIO $ do-    date' <- unsafeManagedPtrGetPtr date-    let format' = (fromIntegral . fromEnum) format-    result <- soup_date_to_string date' format'-    checkUnexpectedReturnNULL "dateToString" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr date-    return result'--#if ENABLE_OVERLOADING-data DateToStringMethodInfo-instance (signature ~ (Soup.Enums.DateFormat -> m T.Text), MonadIO m) => O.MethodInfo DateToStringMethodInfo Date signature where-    overloadedMethod _ = dateToString--#endif---- method Date::to_time_t--- method type : OrdinaryMethod--- Args : [Arg {argCName = "date", argType = TInterface (Name {namespace = "Soup", name = "Date"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupDate", sinceVersion = Nothing}, 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 ->                             -- date : TInterface (Name {namespace = "Soup", name = "Date"})-    IO CLong--{- |-Converts /@date@/ to a \<type>time_t\<\/type>.--If /@date@/ is not representable as a \<type>time_t\<\/type>, it will be-clamped into range. (In particular, some HTTP cookies have-expiration dates after \"Y2.038k\" (2038-01-19T03:14:07Z).)--}-dateToTimeT ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Date-    {- ^ /@date@/: a 'GI.Soup.Structs.Date.Date' -}-    -> m CLong-    {- ^ __Returns:__ /@date@/ as a \<type>time_t\<\/type> -}-dateToTimeT date = liftIO $ do-    date' <- unsafeManagedPtrGetPtr date-    result <- soup_date_to_time_t date'-    touchManagedPtr date-    return result--#if ENABLE_OVERLOADING-data DateToTimeTMethodInfo-instance (signature ~ (m CLong), MonadIO m) => O.MethodInfo DateToTimeTMethodInfo Date signature where-    overloadedMethod _ = dateToTimeT--#endif---- method Date::to_timeval--- method type : OrdinaryMethod--- Args : [Arg {argCName = "date", argType = TInterface (Name {namespace = "Soup", name = "Date"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupDate", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time", argType = TInterface (Name {namespace = "GLib", name = "TimeVal"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GTimeVal structure in which to store the converted time.", sinceVersion = Nothing}, 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 ->                             -- date : TInterface (Name {namespace = "Soup", name = "Date"})-    Ptr GLib.TimeVal.TimeVal ->             -- time : TInterface (Name {namespace = "GLib", name = "TimeVal"})-    IO ()--{- |-Converts /@date@/ to a 'GI.GLib.Structs.TimeVal.TimeVal'.--/Since: 2.24/--}-dateToTimeval ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Date-    {- ^ /@date@/: a 'GI.Soup.Structs.Date.Date' -}-    -> m (GLib.TimeVal.TimeVal)-dateToTimeval date = liftIO $ do-    date' <- unsafeManagedPtrGetPtr date-    time <- callocBytes 16 :: IO (Ptr GLib.TimeVal.TimeVal)-    soup_date_to_timeval date' time-    time' <- (wrapPtr GLib.TimeVal.TimeVal) time-    touchManagedPtr date-    return time'--#if ENABLE_OVERLOADING-data DateToTimevalMethodInfo-instance (signature ~ (m (GLib.TimeVal.TimeVal)), MonadIO m) => O.MethodInfo DateToTimevalMethodInfo Date signature where-    overloadedMethod _ = dateToTimeval--#endif--#if ENABLE_OVERLOADING-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 = O.MethodResolutionFailed l o--instance (info ~ ResolveDateMethod t Date, O.MethodInfo info Date p) => OL.IsLabel t (Date -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--
− GI/Soup/Structs/Date.hs-boot 
@@ -1,68 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Structs.Date where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype Date = Date (ManagedPtr Date)-instance BoxedObject Date where-#if ENABLE_OVERLOADING-data DateCopyMethodInfo-#endif-#if ENABLE_OVERLOADING-data DateFreeMethodInfo-#endif-#if ENABLE_OVERLOADING-data DateGetDayMethodInfo-#endif-#if ENABLE_OVERLOADING-data DateGetHourMethodInfo-#endif-#if ENABLE_OVERLOADING-data DateGetMinuteMethodInfo-#endif-#if ENABLE_OVERLOADING-data DateGetMonthMethodInfo-#endif-#if ENABLE_OVERLOADING-data DateGetOffsetMethodInfo-#endif-#if ENABLE_OVERLOADING-data DateGetSecondMethodInfo-#endif-#if ENABLE_OVERLOADING-data DateGetUtcMethodInfo-#endif-#if ENABLE_OVERLOADING-data DateGetYearMethodInfo-#endif-#if ENABLE_OVERLOADING-data DateIsPastMethodInfo-#endif-#if ENABLE_OVERLOADING-data DateToStringMethodInfo-#endif-#if ENABLE_OVERLOADING-data DateToTimeTMethodInfo-#endif-#if ENABLE_OVERLOADING-data DateToTimevalMethodInfo-#endif
− GI/Soup/Structs/MessageBody.hs 
@@ -1,843 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--A 'GI.Soup.Objects.Message.Message' request or response body.--Note that while /@length@/ always reflects the full length of the-message body, /@data@/ is normally 'Nothing', and will only be filled in-after 'GI.Soup.Structs.MessageBody.messageBodyFlatten' is called. For client-side-messages, this automatically happens for the response body after it-has been fully read, unless you set the-'GI.Soup.Flags.MessageFlagsOverwriteChunks' 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@/).--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Structs.MessageBody-    ( ---- * Exported types-    MessageBody(..)                         ,-    newZeroMessageBody                      ,-    noMessageBody                           ,--- -- * Methods--- ** append #method:append#--#if ENABLE_OVERLOADING-    MessageBodyAppendMethodInfo             ,-#endif-    messageBodyAppend                       ,----- ** appendBuffer #method:appendBuffer#--#if ENABLE_OVERLOADING-    MessageBodyAppendBufferMethodInfo       ,-#endif-    messageBodyAppendBuffer                 ,----- ** complete #method:complete#--#if ENABLE_OVERLOADING-    MessageBodyCompleteMethodInfo           ,-#endif-    messageBodyComplete                     ,----- ** flatten #method:flatten#--#if ENABLE_OVERLOADING-    MessageBodyFlattenMethodInfo            ,-#endif-    messageBodyFlatten                      ,----- ** free #method:free#--#if ENABLE_OVERLOADING-    MessageBodyFreeMethodInfo               ,-#endif-    messageBodyFree                         ,----- ** getAccumulate #method:getAccumulate#--#if ENABLE_OVERLOADING-    MessageBodyGetAccumulateMethodInfo      ,-#endif-    messageBodyGetAccumulate                ,----- ** getChunk #method:getChunk#--#if ENABLE_OVERLOADING-    MessageBodyGetChunkMethodInfo           ,-#endif-    messageBodyGetChunk                     ,----- ** gotChunk #method:gotChunk#--#if ENABLE_OVERLOADING-    MessageBodyGotChunkMethodInfo           ,-#endif-    messageBodyGotChunk                     ,----- ** new #method:new#--    messageBodyNew                          ,----- ** setAccumulate #method:setAccumulate#--#if ENABLE_OVERLOADING-    MessageBodySetAccumulateMethodInfo      ,-#endif-    messageBodySetAccumulate                ,----- ** truncate #method:truncate#--#if ENABLE_OVERLOADING-    MessageBodyTruncateMethodInfo           ,-#endif-    messageBodyTruncate                     ,----- ** wroteChunk #method:wroteChunk#--#if ENABLE_OVERLOADING-    MessageBodyWroteChunkMethodInfo         ,-#endif-    messageBodyWroteChunk                   ,----- -- * Properties--- ** data #attr:data#-{- | the data--}-    clearMessageBodyData                    ,-    getMessageBodyData                      ,-#if ENABLE_OVERLOADING-    messageBody_data                        ,-#endif-    setMessageBodyData                      ,----- ** length #attr:length#-{- | length of /@data@/--}-    getMessageBodyLength                    ,-#if ENABLE_OVERLOADING-    messageBody_length                      ,-#endif-    setMessageBodyLength                    ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import {-# SOURCE #-} qualified GI.Soup.Structs.Buffer as Soup.Buffer---- | Memory-managed wrapper type.-newtype MessageBody = MessageBody (ManagedPtr 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----- | A convenience alias for `Nothing` :: `Maybe` `MessageBody`.-noMessageBody :: Maybe MessageBody-noMessageBody = Nothing--{- |-Get the value of the “@data@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' messageBody #data-@--}-getMessageBodyData :: MonadIO m => MessageBody -> m (Maybe T.Text)-getMessageBodyData s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CString-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--{- |-Set the value of the “@data@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' messageBody [ #data 'Data.GI.Base.Attributes.:=' value ]-@--}-setMessageBodyData :: MonadIO m => MessageBody -> CString -> m ()-setMessageBodyData s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: CString)--{- |-Set the value of the “@data@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #data-@--}-clearMessageBodyData :: MonadIO m => MessageBody -> m ()-clearMessageBodyData s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (FP.nullPtr :: CString)--#if ENABLE_OVERLOADING-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"-    type AttrOrigin MessageBodyDataFieldInfo = MessageBody-    attrGet _ = getMessageBodyData-    attrSet _ = setMessageBodyData-    attrConstruct = undefined-    attrClear _ = clearMessageBodyData--messageBody_data :: AttrLabelProxy "data"-messageBody_data = AttrLabelProxy--#endif---{- |-Get the value of the “@length@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' messageBody #length-@--}-getMessageBodyLength :: MonadIO m => MessageBody -> m Int64-getMessageBodyLength s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Int64-    return val--{- |-Set the value of the “@length@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' messageBody [ #length 'Data.GI.Base.Attributes.:=' value ]-@--}-setMessageBodyLength :: MonadIO m => MessageBody -> Int64 -> m ()-setMessageBodyLength s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Int64)--#if ENABLE_OVERLOADING-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"-    type AttrOrigin MessageBodyLengthFieldInfo = MessageBody-    attrGet _ = getMessageBodyLength-    attrSet _ = setMessageBodyLength-    attrConstruct = undefined-    attrClear _ = undefined--messageBody_length :: AttrLabelProxy "length"-messageBody_length = AttrLabelProxy--#endif----#if ENABLE_OVERLOADING-instance O.HasAttributeList MessageBody-type instance O.AttributeList MessageBody = MessageBodyAttributeList-type MessageBodyAttributeList = ('[ '("data", MessageBodyDataFieldInfo), '("length", MessageBodyLengthFieldInfo)] :: [(Symbol, *)])-#endif---- method MessageBody::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "MessageBody"}))--- throws : False--- Skip return : False--foreign import ccall "soup_message_body_new" soup_message_body_new :: -    IO (Ptr MessageBody)--{- |-Creates a new 'GI.Soup.Structs.MessageBody.MessageBody'. 'GI.Soup.Objects.Message.Message' uses this internally; you-will not normally need to call it yourself.--}-messageBodyNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    m MessageBody-    {- ^ __Returns:__ a new 'GI.Soup.Structs.MessageBody.MessageBody'. -}-messageBodyNew  = liftIO $ do-    result <- soup_message_body_new-    checkUnexpectedReturnNULL "messageBodyNew" result-    result' <- (wrapBoxed MessageBody) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method MessageBody::append_buffer--- method type : OrdinaryMethod--- Args : [Arg {argCName = "body", argType = TInterface (Name {namespace = "Soup", name = "MessageBody"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageBody", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer", argType = TInterface (Name {namespace = "Soup", name = "Buffer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupBuffer", sinceVersion = Nothing}, 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 ->                      -- body : TInterface (Name {namespace = "Soup", name = "MessageBody"})-    Ptr Soup.Buffer.Buffer ->               -- buffer : TInterface (Name {namespace = "Soup", name = "Buffer"})-    IO ()--{- |-Appends the data from /@buffer@/ to /@body@/. ('GI.Soup.Structs.MessageBody.MessageBody' uses-@/SoupBuffers/@ internally, so this is normally a constant-time-operation that doesn\'t actually require copying the data in-/@buffer@/.)--}-messageBodyAppendBuffer ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageBody-    {- ^ /@body@/: a 'GI.Soup.Structs.MessageBody.MessageBody' -}-    -> Soup.Buffer.Buffer-    {- ^ /@buffer@/: a 'GI.Soup.Structs.Buffer.Buffer' -}-    -> m ()-messageBodyAppendBuffer body buffer = liftIO $ do-    body' <- unsafeManagedPtrGetPtr body-    buffer' <- unsafeManagedPtrGetPtr buffer-    soup_message_body_append_buffer body' buffer'-    touchManagedPtr body-    touchManagedPtr buffer-    return ()--#if ENABLE_OVERLOADING-data MessageBodyAppendBufferMethodInfo-instance (signature ~ (Soup.Buffer.Buffer -> m ()), MonadIO m) => O.MethodInfo MessageBodyAppendBufferMethodInfo MessageBody signature where-    overloadedMethod _ = messageBodyAppendBuffer--#endif---- method MessageBody::append--- method type : OrdinaryMethod--- Args : [Arg {argCName = "body", argType = TInterface (Name {namespace = "Soup", name = "MessageBody"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageBody", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TCArray False (-1) 2 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "data to append", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "length of @data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "length of @data", sinceVersion = Nothing}, 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 ->                      -- body : TInterface (Name {namespace = "Soup", name = "MessageBody"})-    Ptr Word8 ->                            -- data : TCArray False (-1) 2 (TBasicType TUInt8)-    Word64 ->                               -- length : TBasicType TUInt64-    IO ()--{- |-Appends /@length@/ bytes from /@data@/ to /@body@/.--This function is exactly equivalent to @/soup_message_body_append()/@-with 'GI.Soup.Enums.MemoryUseTake' as second argument; it exists mainly for-convenience and simplifying language bindings.--/Since: 2.32/--}-messageBodyAppend ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageBody-    {- ^ /@body@/: a 'GI.Soup.Structs.MessageBody.MessageBody' -}-    -> ByteString-    {- ^ /@data@/: data to append -}-    -> m ()-messageBodyAppend body data_ = liftIO $ do-    let length_ = fromIntegral $ B.length data_-    body' <- unsafeManagedPtrGetPtr body-    data_' <- packByteString data_-    soup_message_body_append_take body' data_' length_-    touchManagedPtr body-    return ()--#if ENABLE_OVERLOADING-data MessageBodyAppendMethodInfo-instance (signature ~ (ByteString -> m ()), MonadIO m) => O.MethodInfo MessageBodyAppendMethodInfo MessageBody signature where-    overloadedMethod _ = messageBodyAppend--#endif---- method MessageBody::complete--- method type : OrdinaryMethod--- Args : [Arg {argCName = "body", argType = TInterface (Name {namespace = "Soup", name = "MessageBody"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageBody", sinceVersion = Nothing}, 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 ->                      -- body : TInterface (Name {namespace = "Soup", name = "MessageBody"})-    IO ()--{- |-Tags /@body@/ as being complete; Call this when using chunked encoding-after you have appended the last chunk.--}-messageBodyComplete ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageBody-    {- ^ /@body@/: a 'GI.Soup.Structs.MessageBody.MessageBody' -}-    -> m ()-messageBodyComplete body = liftIO $ do-    body' <- unsafeManagedPtrGetPtr body-    soup_message_body_complete body'-    touchManagedPtr body-    return ()--#if ENABLE_OVERLOADING-data MessageBodyCompleteMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo MessageBodyCompleteMethodInfo MessageBody signature where-    overloadedMethod _ = messageBodyComplete--#endif---- method MessageBody::flatten--- method type : OrdinaryMethod--- Args : [Arg {argCName = "body", argType = TInterface (Name {namespace = "Soup", name = "MessageBody"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageBody", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Buffer"}))--- throws : False--- Skip return : False--foreign import ccall "soup_message_body_flatten" soup_message_body_flatten :: -    Ptr MessageBody ->                      -- body : TInterface (Name {namespace = "Soup", name = "MessageBody"})-    IO (Ptr Soup.Buffer.Buffer)--{- |-Fills in /@body@/\'s data field with a buffer containing all of the-data in /@body@/ (plus an additional \'\\0\' byte not counted by /@body@/\'s-length field).--}-messageBodyFlatten ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageBody-    {- ^ /@body@/: a 'GI.Soup.Structs.MessageBody.MessageBody' -}-    -> m Soup.Buffer.Buffer-    {- ^ __Returns:__ a 'GI.Soup.Structs.Buffer.Buffer' containing the same data as /@body@/.-(You must free this buffer if you do not want it.) -}-messageBodyFlatten body = liftIO $ do-    body' <- unsafeManagedPtrGetPtr body-    result <- soup_message_body_flatten body'-    checkUnexpectedReturnNULL "messageBodyFlatten" result-    result' <- (wrapBoxed Soup.Buffer.Buffer) result-    touchManagedPtr body-    return result'--#if ENABLE_OVERLOADING-data MessageBodyFlattenMethodInfo-instance (signature ~ (m Soup.Buffer.Buffer), MonadIO m) => O.MethodInfo MessageBodyFlattenMethodInfo MessageBody signature where-    overloadedMethod _ = messageBodyFlatten--#endif---- method MessageBody::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "body", argType = TInterface (Name {namespace = "Soup", name = "MessageBody"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageBody", sinceVersion = Nothing}, 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 ->                      -- body : TInterface (Name {namespace = "Soup", name = "MessageBody"})-    IO ()--{- |-Frees /@body@/. You will not normally need to use this, as-'GI.Soup.Objects.Message.Message' frees its associated message bodies automatically.--}-messageBodyFree ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageBody-    {- ^ /@body@/: a 'GI.Soup.Structs.MessageBody.MessageBody' -}-    -> m ()-messageBodyFree body = liftIO $ do-    body' <- unsafeManagedPtrGetPtr body-    soup_message_body_free body'-    touchManagedPtr body-    return ()--#if ENABLE_OVERLOADING-data MessageBodyFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo MessageBodyFreeMethodInfo MessageBody signature where-    overloadedMethod _ = messageBodyFree--#endif---- method MessageBody::get_accumulate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "body", argType = TInterface (Name {namespace = "Soup", name = "MessageBody"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageBody", sinceVersion = Nothing}, 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 ->                      -- body : TInterface (Name {namespace = "Soup", name = "MessageBody"})-    IO CInt--{- |-Gets the accumulate flag on /@body@/; see-'GI.Soup.Structs.MessageBody.messageBodySetAccumulate' for details.--/Since: 2.24/--}-messageBodyGetAccumulate ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageBody-    {- ^ /@body@/: a 'GI.Soup.Structs.MessageBody.MessageBody' -}-    -> m Bool-    {- ^ __Returns:__ the accumulate flag for /@body@/. -}-messageBodyGetAccumulate body = liftIO $ do-    body' <- unsafeManagedPtrGetPtr body-    result <- soup_message_body_get_accumulate body'-    let result' = (/= 0) result-    touchManagedPtr body-    return result'--#if ENABLE_OVERLOADING-data MessageBodyGetAccumulateMethodInfo-instance (signature ~ (m Bool), MonadIO m) => O.MethodInfo MessageBodyGetAccumulateMethodInfo MessageBody signature where-    overloadedMethod _ = messageBodyGetAccumulate--#endif---- method MessageBody::get_chunk--- method type : OrdinaryMethod--- Args : [Arg {argCName = "body", argType = TInterface (Name {namespace = "Soup", name = "MessageBody"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageBody", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an offset", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Buffer"}))--- throws : False--- Skip return : False--foreign import ccall "soup_message_body_get_chunk" soup_message_body_get_chunk :: -    Ptr MessageBody ->                      -- body : TInterface (Name {namespace = "Soup", name = "MessageBody"})-    Int64 ->                                -- offset : TBasicType TInt64-    IO (Ptr Soup.Buffer.Buffer)--{- |-Gets a 'GI.Soup.Structs.Buffer.Buffer' containing data from /@body@/ starting at /@offset@/.-The size of the returned chunk is unspecified. You can iterate-through the entire body by first calling-'GI.Soup.Structs.MessageBody.messageBodyGetChunk' with an offset of 0, and then on each-successive call, increment the offset by the length of the-previously-returned chunk.--If /@offset@/ is greater than or equal to the total length of /@body@/,-then the return value depends on whether or not-'GI.Soup.Structs.MessageBody.messageBodyComplete' has been called or not; if it has,-then 'GI.Soup.Structs.MessageBody.messageBodyGetChunk' will return a 0-length chunk-(indicating the end of /@body@/). If it has not, then-'GI.Soup.Structs.MessageBody.messageBodyGetChunk' will return 'Nothing' (indicating that-/@body@/ may still potentially have more data, but that data is not-currently available).--}-messageBodyGetChunk ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageBody-    {- ^ /@body@/: a 'GI.Soup.Structs.MessageBody.MessageBody' -}-    -> Int64-    {- ^ /@offset@/: an offset -}-    -> m (Maybe Soup.Buffer.Buffer)-    {- ^ __Returns:__ a 'GI.Soup.Structs.Buffer.Buffer', or 'Nothing'. -}-messageBodyGetChunk body offset = liftIO $ do-    body' <- unsafeManagedPtrGetPtr body-    result <- soup_message_body_get_chunk body' offset-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapBoxed Soup.Buffer.Buffer) result'-        return result''-    touchManagedPtr body-    return maybeResult--#if ENABLE_OVERLOADING-data MessageBodyGetChunkMethodInfo-instance (signature ~ (Int64 -> m (Maybe Soup.Buffer.Buffer)), MonadIO m) => O.MethodInfo MessageBodyGetChunkMethodInfo MessageBody signature where-    overloadedMethod _ = messageBodyGetChunk--#endif---- method MessageBody::got_chunk--- method type : OrdinaryMethod--- Args : [Arg {argCName = "body", argType = TInterface (Name {namespace = "Soup", name = "MessageBody"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageBody", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chunk", argType = TInterface (Name {namespace = "Soup", name = "Buffer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupBuffer received from the network", sinceVersion = Nothing}, 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 ->                      -- body : TInterface (Name {namespace = "Soup", name = "MessageBody"})-    Ptr Soup.Buffer.Buffer ->               -- chunk : TInterface (Name {namespace = "Soup", name = "Buffer"})-    IO ()--{- |-Handles the 'GI.Soup.Structs.MessageBody.MessageBody' part of receiving a chunk of data from-the network. Normally this means appending /@chunk@/ to /@body@/, exactly-as with 'GI.Soup.Structs.MessageBody.messageBodyAppendBuffer', but if you have set-/@body@/\'s accumulate flag to 'False', then that will not happen.--This is a low-level method which you should not normally need to-use.--/Since: 2.24/--}-messageBodyGotChunk ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageBody-    {- ^ /@body@/: a 'GI.Soup.Structs.MessageBody.MessageBody' -}-    -> Soup.Buffer.Buffer-    {- ^ /@chunk@/: a 'GI.Soup.Structs.Buffer.Buffer' received from the network -}-    -> m ()-messageBodyGotChunk body chunk = liftIO $ do-    body' <- unsafeManagedPtrGetPtr body-    chunk' <- unsafeManagedPtrGetPtr chunk-    soup_message_body_got_chunk body' chunk'-    touchManagedPtr body-    touchManagedPtr chunk-    return ()--#if ENABLE_OVERLOADING-data MessageBodyGotChunkMethodInfo-instance (signature ~ (Soup.Buffer.Buffer -> m ()), MonadIO m) => O.MethodInfo MessageBodyGotChunkMethodInfo MessageBody signature where-    overloadedMethod _ = messageBodyGotChunk--#endif---- method MessageBody::set_accumulate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "body", argType = TInterface (Name {namespace = "Soup", name = "MessageBody"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageBody", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accumulate", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "whether or not to accumulate body chunks in @body", sinceVersion = Nothing}, 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 ->                      -- body : TInterface (Name {namespace = "Soup", name = "MessageBody"})-    CInt ->                                 -- accumulate : TBasicType TBoolean-    IO ()--{- |-Sets or clears the accumulate flag on /@body@/. (The default value is-'True'.) If set to 'False', /@body@/\'s @/data/@ field will not be filled in-after the body is fully sent\/received, and the chunks that make up-/@body@/ may be discarded when they are no longer needed.--In particular, if you set this flag to 'False' on an \"incoming\"-message body (that is, the 'GI.Soup.Objects.Message.Message':@/response_body/@ of a-client-side message, or 'GI.Soup.Objects.Message.Message':@/request_body/@ of a server-side-message), this will cause each chunk of the body to be discarded-after its corresponding 'GI.Soup.Objects.Message.Message'::@/got_chunk/@ signal is emitted.-(This is equivalent to setting the deprecated-'GI.Soup.Flags.MessageFlagsOverwriteChunks' flag on the message.)--If you set this flag to 'False' on the 'GI.Soup.Objects.Message.Message':@/response_body/@ of-a server-side message, it will cause each chunk of the body to be-discarded after its corresponding 'GI.Soup.Objects.Message.Message'::@/wrote_chunk/@ signal-is emitted.--If you set the flag to 'False' on the 'GI.Soup.Objects.Message.Message':@/request_body/@ of a-client-side message, it will block the accumulation of chunks into-/@body@/\'s @/data/@ field, but it will not normally cause the chunks to-be discarded after being written like in the server-side-'GI.Soup.Objects.Message.Message':@/response_body/@ case, because the request body needs to-be kept around in case the request needs to be sent a second time-due to redirection or authentication. However, if you set the-'GI.Soup.Flags.MessageFlagsCanRebuild' flag on the message, then the chunks will-be discarded, and you will be responsible for recreating the-request body after the 'GI.Soup.Objects.Message.Message'::@/restarted/@ signal is emitted.--/Since: 2.24/--}-messageBodySetAccumulate ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageBody-    {- ^ /@body@/: a 'GI.Soup.Structs.MessageBody.MessageBody' -}-    -> Bool-    {- ^ /@accumulate@/: whether or not to accumulate body chunks in /@body@/ -}-    -> m ()-messageBodySetAccumulate body accumulate = liftIO $ do-    body' <- unsafeManagedPtrGetPtr body-    let accumulate' = (fromIntegral . fromEnum) accumulate-    soup_message_body_set_accumulate body' accumulate'-    touchManagedPtr body-    return ()--#if ENABLE_OVERLOADING-data MessageBodySetAccumulateMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m) => O.MethodInfo MessageBodySetAccumulateMethodInfo MessageBody signature where-    overloadedMethod _ = messageBodySetAccumulate--#endif---- method MessageBody::truncate--- method type : OrdinaryMethod--- Args : [Arg {argCName = "body", argType = TInterface (Name {namespace = "Soup", name = "MessageBody"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageBody", sinceVersion = Nothing}, 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 ->                      -- body : TInterface (Name {namespace = "Soup", name = "MessageBody"})-    IO ()--{- |-Deletes all of the data in /@body@/.--}-messageBodyTruncate ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageBody-    {- ^ /@body@/: a 'GI.Soup.Structs.MessageBody.MessageBody' -}-    -> m ()-messageBodyTruncate body = liftIO $ do-    body' <- unsafeManagedPtrGetPtr body-    soup_message_body_truncate body'-    touchManagedPtr body-    return ()--#if ENABLE_OVERLOADING-data MessageBodyTruncateMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo MessageBodyTruncateMethodInfo MessageBody signature where-    overloadedMethod _ = messageBodyTruncate--#endif---- method MessageBody::wrote_chunk--- method type : OrdinaryMethod--- Args : [Arg {argCName = "body", argType = TInterface (Name {namespace = "Soup", name = "MessageBody"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageBody", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "chunk", argType = TInterface (Name {namespace = "Soup", name = "Buffer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupBuffer returned from soup_message_body_get_chunk()", sinceVersion = Nothing}, 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 ->                      -- body : TInterface (Name {namespace = "Soup", name = "MessageBody"})-    Ptr Soup.Buffer.Buffer ->               -- chunk : TInterface (Name {namespace = "Soup", name = "Buffer"})-    IO ()--{- |-Handles the 'GI.Soup.Structs.MessageBody.MessageBody' part of writing a chunk of data to the-network. Normally this is a no-op, but if you have set /@body@/\'s-accumulate flag to 'False', then this will cause /@chunk@/ to be-discarded to free up memory.--This is a low-level method which you should not need to use, and-there are further restrictions on its proper use which are not-documented here.--/Since: 2.24/--}-messageBodyWroteChunk ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageBody-    {- ^ /@body@/: a 'GI.Soup.Structs.MessageBody.MessageBody' -}-    -> Soup.Buffer.Buffer-    {- ^ /@chunk@/: a 'GI.Soup.Structs.Buffer.Buffer' returned from 'GI.Soup.Structs.MessageBody.messageBodyGetChunk' -}-    -> m ()-messageBodyWroteChunk body chunk = liftIO $ do-    body' <- unsafeManagedPtrGetPtr body-    chunk' <- unsafeManagedPtrGetPtr chunk-    soup_message_body_wrote_chunk body' chunk'-    touchManagedPtr body-    touchManagedPtr chunk-    return ()--#if ENABLE_OVERLOADING-data MessageBodyWroteChunkMethodInfo-instance (signature ~ (Soup.Buffer.Buffer -> m ()), MonadIO m) => O.MethodInfo MessageBodyWroteChunkMethodInfo MessageBody signature where-    overloadedMethod _ = messageBodyWroteChunk--#endif--#if ENABLE_OVERLOADING-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 = O.MethodResolutionFailed l o--instance (info ~ ResolveMessageBodyMethod t MessageBody, O.MethodInfo info MessageBody p) => OL.IsLabel t (MessageBody -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--
− GI/Soup/Structs/MessageBody.hs-boot 
@@ -1,59 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Structs.MessageBody where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype MessageBody = MessageBody (ManagedPtr MessageBody)-instance BoxedObject MessageBody where-#if ENABLE_OVERLOADING-data MessageBodyAppendBufferMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageBodyAppendMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageBodyCompleteMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageBodyFlattenMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageBodyFreeMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageBodyGetAccumulateMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageBodyGetChunkMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageBodyGotChunkMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageBodySetAccumulateMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageBodyTruncateMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageBodyWroteChunkMethodInfo-#endif
− GI/Soup/Structs/MessageHeaders.hs 
@@ -1,1764 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--The HTTP message headers associated with a request or response.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Structs.MessageHeaders-    ( ---- * Exported types-    MessageHeaders(..)                      ,-    noMessageHeaders                        ,--- -- * Methods--- ** append #method:append#--#if ENABLE_OVERLOADING-    MessageHeadersAppendMethodInfo          ,-#endif-    messageHeadersAppend                    ,----- ** cleanConnectionHeaders #method:cleanConnectionHeaders#--#if ENABLE_OVERLOADING-    MessageHeadersCleanConnectionHeadersMethodInfo,-#endif-    messageHeadersCleanConnectionHeaders    ,----- ** clear #method:clear#--#if ENABLE_OVERLOADING-    MessageHeadersClearMethodInfo           ,-#endif-    messageHeadersClear                     ,----- ** foreach #method:foreach#--#if ENABLE_OVERLOADING-    MessageHeadersForeachMethodInfo         ,-#endif-    messageHeadersForeach                   ,----- ** free #method:free#--#if ENABLE_OVERLOADING-    MessageHeadersFreeMethodInfo            ,-#endif-    messageHeadersFree                      ,----- ** freeRanges #method:freeRanges#--#if ENABLE_OVERLOADING-    MessageHeadersFreeRangesMethodInfo      ,-#endif-    messageHeadersFreeRanges                ,----- ** get #method:get#--#if ENABLE_OVERLOADING-    MessageHeadersGetMethodInfo             ,-#endif-    messageHeadersGet                       ,----- ** getContentDisposition #method:getContentDisposition#--#if ENABLE_OVERLOADING-    MessageHeadersGetContentDispositionMethodInfo,-#endif-    messageHeadersGetContentDisposition     ,----- ** getContentLength #method:getContentLength#--#if ENABLE_OVERLOADING-    MessageHeadersGetContentLengthMethodInfo,-#endif-    messageHeadersGetContentLength          ,----- ** getContentRange #method:getContentRange#--#if ENABLE_OVERLOADING-    MessageHeadersGetContentRangeMethodInfo ,-#endif-    messageHeadersGetContentRange           ,----- ** getContentType #method:getContentType#--#if ENABLE_OVERLOADING-    MessageHeadersGetContentTypeMethodInfo  ,-#endif-    messageHeadersGetContentType            ,----- ** getEncoding #method:getEncoding#--#if ENABLE_OVERLOADING-    MessageHeadersGetEncodingMethodInfo     ,-#endif-    messageHeadersGetEncoding               ,----- ** getExpectations #method:getExpectations#--#if ENABLE_OVERLOADING-    MessageHeadersGetExpectationsMethodInfo ,-#endif-    messageHeadersGetExpectations           ,----- ** getHeadersType #method:getHeadersType#--#if ENABLE_OVERLOADING-    MessageHeadersGetHeadersTypeMethodInfo  ,-#endif-    messageHeadersGetHeadersType            ,----- ** getList #method:getList#--#if ENABLE_OVERLOADING-    MessageHeadersGetListMethodInfo         ,-#endif-    messageHeadersGetList                   ,----- ** getOne #method:getOne#--#if ENABLE_OVERLOADING-    MessageHeadersGetOneMethodInfo          ,-#endif-    messageHeadersGetOne                    ,----- ** getRanges #method:getRanges#--#if ENABLE_OVERLOADING-    MessageHeadersGetRangesMethodInfo       ,-#endif-    messageHeadersGetRanges                 ,----- ** headerContains #method:headerContains#--#if ENABLE_OVERLOADING-    MessageHeadersHeaderContainsMethodInfo  ,-#endif-    messageHeadersHeaderContains            ,----- ** headerEquals #method:headerEquals#--#if ENABLE_OVERLOADING-    MessageHeadersHeaderEqualsMethodInfo    ,-#endif-    messageHeadersHeaderEquals              ,----- ** new #method:new#--    messageHeadersNew                       ,----- ** remove #method:remove#--#if ENABLE_OVERLOADING-    MessageHeadersRemoveMethodInfo          ,-#endif-    messageHeadersRemove                    ,----- ** replace #method:replace#--#if ENABLE_OVERLOADING-    MessageHeadersReplaceMethodInfo         ,-#endif-    messageHeadersReplace                   ,----- ** setContentDisposition #method:setContentDisposition#--#if ENABLE_OVERLOADING-    MessageHeadersSetContentDispositionMethodInfo,-#endif-    messageHeadersSetContentDisposition     ,----- ** setContentLength #method:setContentLength#--#if ENABLE_OVERLOADING-    MessageHeadersSetContentLengthMethodInfo,-#endif-    messageHeadersSetContentLength          ,----- ** setContentRange #method:setContentRange#--#if ENABLE_OVERLOADING-    MessageHeadersSetContentRangeMethodInfo ,-#endif-    messageHeadersSetContentRange           ,----- ** setContentType #method:setContentType#--#if ENABLE_OVERLOADING-    MessageHeadersSetContentTypeMethodInfo  ,-#endif-    messageHeadersSetContentType            ,----- ** setEncoding #method:setEncoding#--#if ENABLE_OVERLOADING-    MessageHeadersSetEncodingMethodInfo     ,-#endif-    messageHeadersSetEncoding               ,----- ** setExpectations #method:setExpectations#--#if ENABLE_OVERLOADING-    MessageHeadersSetExpectationsMethodInfo ,-#endif-    messageHeadersSetExpectations           ,----- ** setRange #method:setRange#--#if ENABLE_OVERLOADING-    MessageHeadersSetRangeMethodInfo        ,-#endif-    messageHeadersSetRange                  ,----- ** setRanges #method:setRanges#--#if ENABLE_OVERLOADING-    MessageHeadersSetRangesMethodInfo       ,-#endif-    messageHeadersSetRanges                 ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import qualified GI.Soup.Callbacks as Soup.Callbacks-import {-# SOURCE #-} qualified GI.Soup.Enums as Soup.Enums-import {-# SOURCE #-} qualified GI.Soup.Flags as Soup.Flags-import {-# SOURCE #-} qualified GI.Soup.Structs.Range as Soup.Range---- | Memory-managed wrapper type.-newtype MessageHeaders = MessageHeaders (ManagedPtr 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---- | A convenience alias for `Nothing` :: `Maybe` `MessageHeaders`.-noMessageHeaders :: Maybe MessageHeaders-noMessageHeaders = Nothing---#if ENABLE_OVERLOADING-instance O.HasAttributeList MessageHeaders-type instance O.AttributeList MessageHeaders = MessageHeadersAttributeList-type MessageHeadersAttributeList = ('[ ] :: [(Symbol, *)])-#endif---- method MessageHeaders::new--- method type : Constructor--- Args : [Arg {argCName = "type", argType = TInterface (Name {namespace = "Soup", name = "MessageHeadersType"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the type of headers", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "MessageHeaders"}))--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_new" soup_message_headers_new :: -    CUInt ->                                -- type : TInterface (Name {namespace = "Soup", name = "MessageHeadersType"})-    IO (Ptr MessageHeaders)--{- |-Creates a 'GI.Soup.Structs.MessageHeaders.MessageHeaders'. ('GI.Soup.Objects.Message.Message' does this-automatically for its own headers. You would only need to use this-method if you are manually parsing or generating message headers.)--}-messageHeadersNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Soup.Enums.MessageHeadersType-    {- ^ /@type@/: the type of headers -}-    -> m MessageHeaders-    {- ^ __Returns:__ a new 'GI.Soup.Structs.MessageHeaders.MessageHeaders' -}-messageHeadersNew type_ = liftIO $ do-    let type_' = (fromIntegral . fromEnum) type_-    result <- soup_message_headers_new type_'-    checkUnexpectedReturnNULL "messageHeadersNew" result-    result' <- (wrapBoxed MessageHeaders) result-    return result'--#if ENABLE_OVERLOADING-#endif---- method MessageHeaders::append--- method type : OrdinaryMethod--- Args : [Arg {argCName = "hdrs", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageHeaders", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the header name to add", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new value of @name", sinceVersion = Nothing}, 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 ->                   -- hdrs : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- value : TBasicType TUTF8-    IO ()--{- |-Appends a new header with name /@name@/ and value /@value@/ to /@hdrs@/. (If-there is an existing header with name /@name@/, then this creates a-second one, which is only allowed for list-valued headers; see also-'GI.Soup.Structs.MessageHeaders.messageHeadersReplace'.)--The caller is expected to make sure that /@name@/ and /@value@/ are-syntactically correct.--}-messageHeadersAppend ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageHeaders-    {- ^ /@hdrs@/: a 'GI.Soup.Structs.MessageHeaders.MessageHeaders' -}-    -> T.Text-    {- ^ /@name@/: the header name to add -}-    -> T.Text-    {- ^ /@value@/: the new value of /@name@/ -}-    -> m ()-messageHeadersAppend hdrs name value = liftIO $ do-    hdrs' <- unsafeManagedPtrGetPtr hdrs-    name' <- textToCString name-    value' <- textToCString value-    soup_message_headers_append hdrs' name' value'-    touchManagedPtr hdrs-    freeMem name'-    freeMem value'-    return ()--#if ENABLE_OVERLOADING-data MessageHeadersAppendMethodInfo-instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m) => O.MethodInfo MessageHeadersAppendMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersAppend--#endif---- method MessageHeaders::clean_connection_headers--- method type : OrdinaryMethod--- Args : [Arg {argCName = "hdrs", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageHeaders", sinceVersion = Nothing}, 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 ->                   -- hdrs : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    IO ()--{- |-Removes all the headers listed in the Connection header.--/Since: 2.36/--}-messageHeadersCleanConnectionHeaders ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageHeaders-    {- ^ /@hdrs@/: a 'GI.Soup.Structs.MessageHeaders.MessageHeaders' -}-    -> m ()-messageHeadersCleanConnectionHeaders hdrs = liftIO $ do-    hdrs' <- unsafeManagedPtrGetPtr hdrs-    soup_message_headers_clean_connection_headers hdrs'-    touchManagedPtr hdrs-    return ()--#if ENABLE_OVERLOADING-data MessageHeadersCleanConnectionHeadersMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo MessageHeadersCleanConnectionHeadersMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersCleanConnectionHeaders--#endif---- method MessageHeaders::clear--- method type : OrdinaryMethod--- Args : [Arg {argCName = "hdrs", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageHeaders", sinceVersion = Nothing}, 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 ->                   -- hdrs : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    IO ()--{- |-Clears /@hdrs@/.--}-messageHeadersClear ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageHeaders-    {- ^ /@hdrs@/: a 'GI.Soup.Structs.MessageHeaders.MessageHeaders' -}-    -> m ()-messageHeadersClear hdrs = liftIO $ do-    hdrs' <- unsafeManagedPtrGetPtr hdrs-    soup_message_headers_clear hdrs'-    touchManagedPtr hdrs-    return ()--#if ENABLE_OVERLOADING-data MessageHeadersClearMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo MessageHeadersClearMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersClear--#endif---- method MessageHeaders::foreach--- method type : OrdinaryMethod--- Args : [Arg {argCName = "hdrs", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageHeaders", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface (Name {namespace = "Soup", name = "MessageHeadersForeachFunc"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "callback function to run for each header", sinceVersion = Nothing}, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "data to pass to @func", sinceVersion = Nothing}, 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 ->                   -- hdrs : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    FunPtr Soup.Callbacks.C_MessageHeadersForeachFunc -> -- func : TInterface (Name {namespace = "Soup", name = "MessageHeadersForeachFunc"})-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()--{- |-Calls /@func@/ once for each header value in /@hdrs@/.--Beware that unlike 'GI.Soup.Structs.MessageHeaders.messageHeadersGet', this processes the-headers in exactly the way they were added, rather than-concatenating multiple same-named headers into a single value.-(This is intentional; it ensures that if you call-'GI.Soup.Structs.MessageHeaders.messageHeadersAppend' multiple times with the same name,-then the I\/O code will output multiple copies of the header when-sending the message to the remote implementation, which may be-required for interoperability in some cases.)--You may not modify the headers from /@func@/.--}-messageHeadersForeach ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageHeaders-    {- ^ /@hdrs@/: a 'GI.Soup.Structs.MessageHeaders.MessageHeaders' -}-    -> Soup.Callbacks.MessageHeadersForeachFunc-    {- ^ /@func@/: callback function to run for each header -}-    -> m ()-messageHeadersForeach hdrs func = liftIO $ do-    hdrs' <- unsafeManagedPtrGetPtr hdrs-    func' <- Soup.Callbacks.mk_MessageHeadersForeachFunc (Soup.Callbacks.wrap_MessageHeadersForeachFunc Nothing (Soup.Callbacks.drop_closures_MessageHeadersForeachFunc func))-    let userData = nullPtr-    soup_message_headers_foreach hdrs' func' userData-    safeFreeFunPtr $ castFunPtrToPtr func'-    touchManagedPtr hdrs-    return ()--#if ENABLE_OVERLOADING-data MessageHeadersForeachMethodInfo-instance (signature ~ (Soup.Callbacks.MessageHeadersForeachFunc -> m ()), MonadIO m) => O.MethodInfo MessageHeadersForeachMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersForeach--#endif---- method MessageHeaders::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "hdrs", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageHeaders", sinceVersion = Nothing}, 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 ->                   -- hdrs : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    IO ()--{- |-Frees /@hdrs@/.--}-messageHeadersFree ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageHeaders-    {- ^ /@hdrs@/: a 'GI.Soup.Structs.MessageHeaders.MessageHeaders' -}-    -> m ()-messageHeadersFree hdrs = liftIO $ do-    hdrs' <- unsafeManagedPtrGetPtr hdrs-    soup_message_headers_free hdrs'-    touchManagedPtr hdrs-    return ()--#if ENABLE_OVERLOADING-data MessageHeadersFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo MessageHeadersFreeMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersFree--#endif---- method MessageHeaders::free_ranges--- method type : OrdinaryMethod--- Args : [Arg {argCName = "hdrs", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageHeaders", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ranges", argType = TInterface (Name {namespace = "Soup", name = "Range"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an array of #SoupRange", sinceVersion = Nothing}, 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 ->                   -- hdrs : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    Ptr Soup.Range.Range ->                 -- ranges : TInterface (Name {namespace = "Soup", name = "Range"})-    IO ()--{- |-Frees the array of ranges returned from 'GI.Soup.Structs.MessageHeaders.messageHeadersGetRanges'.--/Since: 2.26/--}-messageHeadersFreeRanges ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageHeaders-    {- ^ /@hdrs@/: a 'GI.Soup.Structs.MessageHeaders.MessageHeaders' -}-    -> Soup.Range.Range-    {- ^ /@ranges@/: an array of 'GI.Soup.Structs.Range.Range' -}-    -> m ()-messageHeadersFreeRanges hdrs ranges = liftIO $ do-    hdrs' <- unsafeManagedPtrGetPtr hdrs-    ranges' <- unsafeManagedPtrGetPtr ranges-    soup_message_headers_free_ranges hdrs' ranges'-    touchManagedPtr hdrs-    touchManagedPtr ranges-    return ()--#if ENABLE_OVERLOADING-data MessageHeadersFreeRangesMethodInfo-instance (signature ~ (Soup.Range.Range -> m ()), MonadIO m) => O.MethodInfo MessageHeadersFreeRangesMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersFreeRanges--#endif---- method MessageHeaders::get--- method type : OrdinaryMethod--- Args : [Arg {argCName = "hdrs", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageHeaders", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "header name", sinceVersion = Nothing}, 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 ->                   -- hdrs : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    CString ->                              -- name : TBasicType TUTF8-    IO CString--{-# DEPRECATED messageHeadersGet ["Use 'GI.Soup.Structs.MessageHeaders.messageHeadersGetOne' or","'GI.Soup.Structs.MessageHeaders.messageHeadersGetList' instead."] #-}-{- |-Gets the value of header /@name@/ in /@hdrs@/.--This method was supposed to work correctly for both single-valued-and list-valued headers, but because some HTTP clients\/servers-mistakenly send multiple copies of headers that are supposed to be-single-valued, it sometimes returns incorrect results. To fix this,-the methods 'GI.Soup.Structs.MessageHeaders.messageHeadersGetOne' and-'GI.Soup.Structs.MessageHeaders.messageHeadersGetList' were introduced, so callers can-explicitly state which behavior they are expecting.--}-messageHeadersGet ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageHeaders-    {- ^ /@hdrs@/: a 'GI.Soup.Structs.MessageHeaders.MessageHeaders' -}-    -> T.Text-    {- ^ /@name@/: header name -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ as with 'GI.Soup.Structs.MessageHeaders.messageHeadersGetList'. -}-messageHeadersGet hdrs name = liftIO $ do-    hdrs' <- unsafeManagedPtrGetPtr hdrs-    name' <- textToCString name-    result <- soup_message_headers_get hdrs' name'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr hdrs-    freeMem name'-    return maybeResult--#if ENABLE_OVERLOADING-data MessageHeadersGetMethodInfo-instance (signature ~ (T.Text -> m (Maybe T.Text)), MonadIO m) => O.MethodInfo MessageHeadersGetMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersGet--#endif---- method MessageHeaders::get_content_disposition--- method type : OrdinaryMethod--- Args : [Arg {argCName = "hdrs", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageHeaders", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "disposition", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the\ndisposition-type, or %NULL", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return\nlocation for the Content-Disposition parameters, or %NULL", sinceVersion = Nothing}, 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 ->                   -- hdrs : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    Ptr CString ->                          -- disposition : TBasicType TUTF8-    Ptr (Ptr (GHashTable CString CString)) -> -- params : TGHash (TBasicType TUTF8) (TBasicType TUTF8)-    IO CInt--{- |-Looks up the \"Content-Disposition\" header in /@hdrs@/, parses it, and-returns its value in */@disposition@/ and */@params@/. /@params@/ can be-'Nothing' if you are only interested in the disposition-type.--In HTTP, the most common use of this header is to set a-disposition-type of \"attachment\", to suggest to the browser that a-response should be saved to disk rather than displayed in the-browser. If /@params@/ contains a \"filename\" parameter, this is a-suggestion of a filename to use. (If the parameter value in the-header contains an absolute or relative path, libsoup will truncate-it down to just the final path component, so you do not need to-test this yourself.)--Content-Disposition is also used in \"multipart\/form-data\", however-this is handled automatically by 'GI.Soup.Structs.Multipart.Multipart' and the associated-form methods.--/Since: 2.26/--}-messageHeadersGetContentDisposition ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageHeaders-    {- ^ /@hdrs@/: a 'GI.Soup.Structs.MessageHeaders.MessageHeaders' -}-    -> m ((Bool, T.Text, Map.Map T.Text T.Text))-    {- ^ __Returns:__ 'True' if /@hdrs@/ contains a \"Content-Disposition\"-header, 'False' if not (in which case */@disposition@/ and */@params@/-will be unchanged). -}-messageHeadersGetContentDisposition hdrs = liftIO $ do-    hdrs' <- unsafeManagedPtrGetPtr hdrs-    disposition <- allocMem :: IO (Ptr CString)-    params <- allocMem :: IO (Ptr (Ptr (GHashTable CString CString)))-    result <- soup_message_headers_get_content_disposition hdrs' 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 hdrs-    freeMem disposition-    freeMem params-    return (result', disposition'', params''''''')--#if ENABLE_OVERLOADING-data MessageHeadersGetContentDispositionMethodInfo-instance (signature ~ (m ((Bool, T.Text, Map.Map T.Text T.Text))), MonadIO m) => O.MethodInfo MessageHeadersGetContentDispositionMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersGetContentDisposition--#endif---- method MessageHeaders::get_content_length--- method type : OrdinaryMethod--- Args : [Arg {argCName = "hdrs", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageHeaders", sinceVersion = Nothing}, 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 ->                   -- hdrs : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    IO Int64--{- |-Gets the message body length that /@hdrs@/ declare. This will only-be non-0 if 'GI.Soup.Structs.MessageHeaders.messageHeadersGetEncoding' returns-'GI.Soup.Enums.EncodingContentLength'.--}-messageHeadersGetContentLength ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageHeaders-    {- ^ /@hdrs@/: a 'GI.Soup.Structs.MessageHeaders.MessageHeaders' -}-    -> m Int64-    {- ^ __Returns:__ the message body length declared by /@hdrs@/. -}-messageHeadersGetContentLength hdrs = liftIO $ do-    hdrs' <- unsafeManagedPtrGetPtr hdrs-    result <- soup_message_headers_get_content_length hdrs'-    touchManagedPtr hdrs-    return result--#if ENABLE_OVERLOADING-data MessageHeadersGetContentLengthMethodInfo-instance (signature ~ (m Int64), MonadIO m) => O.MethodInfo MessageHeadersGetContentLengthMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersGetContentLength--#endif---- method MessageHeaders::get_content_range--- method type : OrdinaryMethod--- Args : [Arg {argCName = "hdrs", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageHeaders", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return value for the start of the range", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "end", argType = TBasicType TInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return value for the end of the range", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "total_length", argType = TBasicType TInt64, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return value for the total length of the\nresource, or %NULL if you don't care.", sinceVersion = Nothing}, 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_range" soup_message_headers_get_content_range :: -    Ptr MessageHeaders ->                   -- hdrs : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    Ptr Int64 ->                            -- start : TBasicType TInt64-    Ptr Int64 ->                            -- end : TBasicType TInt64-    Ptr Int64 ->                            -- total_length : TBasicType TInt64-    IO CInt--{- |-Parses /@hdrs@/\'s Content-Range header and returns it in /@start@/,-/@end@/, and /@totalLength@/. If the total length field in the header-was specified as \"*\", then /@totalLength@/ will be set to -1.--/Since: 2.26/--}-messageHeadersGetContentRange ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageHeaders-    {- ^ /@hdrs@/: a 'GI.Soup.Structs.MessageHeaders.MessageHeaders' -}-    -> m ((Bool, Int64, Int64, Int64))-    {- ^ __Returns:__ 'True' if /@hdrs@/ contained a \"Content-Range\" header-containing a byte range which could be parsed, 'False' otherwise. -}-messageHeadersGetContentRange hdrs = liftIO $ do-    hdrs' <- unsafeManagedPtrGetPtr hdrs-    start <- allocMem :: IO (Ptr Int64)-    end <- allocMem :: IO (Ptr Int64)-    totalLength <- allocMem :: IO (Ptr Int64)-    result <- soup_message_headers_get_content_range hdrs' start end totalLength-    let result' = (/= 0) result-    start' <- peek start-    end' <- peek end-    totalLength' <- peek totalLength-    touchManagedPtr hdrs-    freeMem start-    freeMem end-    freeMem totalLength-    return (result', start', end', totalLength')--#if ENABLE_OVERLOADING-data MessageHeadersGetContentRangeMethodInfo-instance (signature ~ (m ((Bool, Int64, Int64, Int64))), MonadIO m) => O.MethodInfo MessageHeadersGetContentRangeMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersGetContentRange--#endif---- method MessageHeaders::get_content_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "hdrs", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageHeaders", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "\n  return location for the Content-Type parameters (eg, \"charset\"), or\n  %NULL", sinceVersion = Nothing}, 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 ->                   -- hdrs : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    Ptr (Ptr (GHashTable CString CString)) -> -- params : TGHash (TBasicType TUTF8) (TBasicType TUTF8)-    IO CString--{- |-Looks up the \"Content-Type\" header in /@hdrs@/, parses it, and returns-its value in */@contentType@/ and */@params@/. /@params@/ can be 'Nothing' if you-are only interested in the content type itself.--/Since: 2.26/--}-messageHeadersGetContentType ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageHeaders-    {- ^ /@hdrs@/: a 'GI.Soup.Structs.MessageHeaders.MessageHeaders' -}-    -> m ((Maybe T.Text, Map.Map T.Text T.Text))-    {- ^ __Returns:__ a string with the value of the-\"Content-Type\" header or 'Nothing' if /@hdrs@/ does not contain that-header or it cannot be parsed (in which case */@params@/ will be-unchanged). -}-messageHeadersGetContentType hdrs = liftIO $ do-    hdrs' <- unsafeManagedPtrGetPtr hdrs-    params <- allocMem :: IO (Ptr (Ptr (GHashTable CString CString)))-    result <- soup_message_headers_get_content_type hdrs' 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 hdrs-    freeMem params-    return (maybeResult, params''''''')--#if ENABLE_OVERLOADING-data MessageHeadersGetContentTypeMethodInfo-instance (signature ~ (m ((Maybe T.Text, Map.Map T.Text T.Text))), MonadIO m) => O.MethodInfo MessageHeadersGetContentTypeMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersGetContentType--#endif---- method MessageHeaders::get_encoding--- method type : OrdinaryMethod--- Args : [Arg {argCName = "hdrs", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageHeaders", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Encoding"}))--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_get_encoding" soup_message_headers_get_encoding :: -    Ptr MessageHeaders ->                   -- hdrs : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    IO CUInt--{- |-Gets the message body encoding that /@hdrs@/ declare. This may not-always correspond to the encoding used on the wire; eg, a HEAD-response may declare a Content-Length or Transfer-Encoding, but-it will never actually include a body.--}-messageHeadersGetEncoding ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageHeaders-    {- ^ /@hdrs@/: a 'GI.Soup.Structs.MessageHeaders.MessageHeaders' -}-    -> m Soup.Enums.Encoding-    {- ^ __Returns:__ the encoding declared by /@hdrs@/. -}-messageHeadersGetEncoding hdrs = liftIO $ do-    hdrs' <- unsafeManagedPtrGetPtr hdrs-    result <- soup_message_headers_get_encoding hdrs'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr hdrs-    return result'--#if ENABLE_OVERLOADING-data MessageHeadersGetEncodingMethodInfo-instance (signature ~ (m Soup.Enums.Encoding), MonadIO m) => O.MethodInfo MessageHeadersGetEncodingMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersGetEncoding--#endif---- method MessageHeaders::get_expectations--- method type : OrdinaryMethod--- Args : [Arg {argCName = "hdrs", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageHeaders", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Expectation"}))--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_get_expectations" soup_message_headers_get_expectations :: -    Ptr MessageHeaders ->                   -- hdrs : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    IO CUInt--{- |-Gets the expectations declared by /@hdrs@/\'s \"Expect\" header.-Currently this will either be 'GI.Soup.Flags.ExpectationContinue' or-'GI.Soup.Flags.ExpectationUnrecognized'.--}-messageHeadersGetExpectations ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageHeaders-    {- ^ /@hdrs@/: a 'GI.Soup.Structs.MessageHeaders.MessageHeaders' -}-    -> m [Soup.Flags.Expectation]-    {- ^ __Returns:__ the contents of /@hdrs@/\'s \"Expect\" header -}-messageHeadersGetExpectations hdrs = liftIO $ do-    hdrs' <- unsafeManagedPtrGetPtr hdrs-    result <- soup_message_headers_get_expectations hdrs'-    let result' = wordToGFlags result-    touchManagedPtr hdrs-    return result'--#if ENABLE_OVERLOADING-data MessageHeadersGetExpectationsMethodInfo-instance (signature ~ (m [Soup.Flags.Expectation]), MonadIO m) => O.MethodInfo MessageHeadersGetExpectationsMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersGetExpectations--#endif---- method MessageHeaders::get_headers_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "hdrs", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageHeaders", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "MessageHeadersType"}))--- throws : False--- Skip return : False--foreign import ccall "soup_message_headers_get_headers_type" soup_message_headers_get_headers_type :: -    Ptr MessageHeaders ->                   -- hdrs : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    IO CUInt--{- |-Gets the type of headers.--/Since: 2.50/--}-messageHeadersGetHeadersType ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageHeaders-    {- ^ /@hdrs@/: a 'GI.Soup.Structs.MessageHeaders.MessageHeaders' -}-    -> m Soup.Enums.MessageHeadersType-    {- ^ __Returns:__ the header\'s type. -}-messageHeadersGetHeadersType hdrs = liftIO $ do-    hdrs' <- unsafeManagedPtrGetPtr hdrs-    result <- soup_message_headers_get_headers_type hdrs'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr hdrs-    return result'--#if ENABLE_OVERLOADING-data MessageHeadersGetHeadersTypeMethodInfo-instance (signature ~ (m Soup.Enums.MessageHeadersType), MonadIO m) => O.MethodInfo MessageHeadersGetHeadersTypeMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersGetHeadersType--#endif---- method MessageHeaders::get_list--- method type : OrdinaryMethod--- Args : [Arg {argCName = "hdrs", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageHeaders", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "header name", sinceVersion = Nothing}, 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 ->                   -- hdrs : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    CString ->                              -- name : TBasicType TUTF8-    IO CString--{- |-Gets the value of header /@name@/ in /@hdrs@/. Use this for headers whose-values are comma-delimited lists, and which are therefore allowed-to appear multiple times in the headers. For non-list-valued-headers, use 'GI.Soup.Structs.MessageHeaders.messageHeadersGetOne'.--If /@name@/ appears multiple times in /@hdrs@/,-'GI.Soup.Structs.MessageHeaders.messageHeadersGetList' will concatenate all of the values-together, separated by commas. This is sometimes awkward to parse-(eg, WWW-Authenticate, Set-Cookie), but you have to be able to deal-with it anyway, because the HTTP spec explicitly states that this-transformation is allowed, and so an upstream proxy could do the-same thing.--/Since: 2.28/--}-messageHeadersGetList ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageHeaders-    {- ^ /@hdrs@/: a 'GI.Soup.Structs.MessageHeaders.MessageHeaders' -}-    -> T.Text-    {- ^ /@name@/: header name -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ the header\'s value or 'Nothing' if not found. -}-messageHeadersGetList hdrs name = liftIO $ do-    hdrs' <- unsafeManagedPtrGetPtr hdrs-    name' <- textToCString name-    result <- soup_message_headers_get_list hdrs' name'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr hdrs-    freeMem name'-    return maybeResult--#if ENABLE_OVERLOADING-data MessageHeadersGetListMethodInfo-instance (signature ~ (T.Text -> m (Maybe T.Text)), MonadIO m) => O.MethodInfo MessageHeadersGetListMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersGetList--#endif---- method MessageHeaders::get_one--- method type : OrdinaryMethod--- Args : [Arg {argCName = "hdrs", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageHeaders", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "header name", sinceVersion = Nothing}, 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 ->                   -- hdrs : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    CString ->                              -- name : TBasicType TUTF8-    IO CString--{- |-Gets the value of header /@name@/ in /@hdrs@/. Use this for headers whose-values are \<emphasis>not\<\/emphasis> comma-delimited lists, and-which therefore can only appear at most once in the headers. For-list-valued headers, use 'GI.Soup.Structs.MessageHeaders.messageHeadersGetList'.--If /@hdrs@/ does erroneously contain multiple copies of the header, it-is not defined which one will be returned. (Ideally, it will return-whichever one makes libsoup most compatible with other HTTP-implementations.)--/Since: 2.28/--}-messageHeadersGetOne ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageHeaders-    {- ^ /@hdrs@/: a 'GI.Soup.Structs.MessageHeaders.MessageHeaders' -}-    -> T.Text-    {- ^ /@name@/: header name -}-    -> m (Maybe T.Text)-    {- ^ __Returns:__ the header\'s value or 'Nothing' if not found. -}-messageHeadersGetOne hdrs name = liftIO $ do-    hdrs' <- unsafeManagedPtrGetPtr hdrs-    name' <- textToCString name-    result <- soup_message_headers_get_one hdrs' name'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr hdrs-    freeMem name'-    return maybeResult--#if ENABLE_OVERLOADING-data MessageHeadersGetOneMethodInfo-instance (signature ~ (T.Text -> m (Maybe T.Text)), MonadIO m) => O.MethodInfo MessageHeadersGetOneMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersGetOne--#endif---- method MessageHeaders::get_ranges--- method type : OrdinaryMethod--- Args : [Arg {argCName = "hdrs", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageHeaders", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "total_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the total_length of the response body", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ranges", argType = TCArray False (-1) 3 (TInterface (Name {namespace = "Soup", name = "Range"})), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for an array\nof #SoupRange", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of the returned array", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of the returned array", sinceVersion = Nothing}, 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 ->                   -- hdrs : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    Int64 ->                                -- total_length : TBasicType TInt64-    Ptr (Ptr Soup.Range.Range) ->           -- ranges : TCArray False (-1) 3 (TInterface (Name {namespace = "Soup", name = "Range"}))-    Ptr Int32 ->                            -- length : TBasicType TInt-    IO CInt--{- |-Parses /@hdrs@/\'s Range header and returns an array of the requested-byte ranges. The returned array must be freed with-'GI.Soup.Structs.MessageHeaders.messageHeadersFreeRanges'.--If /@totalLength@/ is non-0, its value will be used to adjust the-returned ranges to have explicit start and end values, and the-returned ranges will be sorted and non-overlapping. If-/@totalLength@/ is 0, then some ranges may have an end value of -1,-as described under 'GI.Soup.Structs.Range.Range', and some of the ranges may be-redundant.--Beware that even if given a /@totalLength@/, this function does not-check that the ranges are satisfiable.--\<note>\<para>-'GI.Soup.Objects.Server.Server' has built-in handling for range requests. If your-server handler returns a 'GI.Soup.Enums.StatusOk' response containing the-complete response body (rather than pausing the message and-returning some of the response body later), and there is a Range-header in the request, then libsoup will automatically convert the-response to a 'GI.Soup.Enums.StatusPartialContent' response containing only-the range(s) requested by the client.--The only time you need to process the Range header yourself is if-either you need to stream the response body rather than returning-it all at once, or you do not already have the complete response-body available, and only want to generate the parts that were-actually requested by the client.-\<\/para>\<\/note>--/Since: 2.26/--}-messageHeadersGetRanges ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageHeaders-    {- ^ /@hdrs@/: a 'GI.Soup.Structs.MessageHeaders.MessageHeaders' -}-    -> Int64-    {- ^ /@totalLength@/: the total_length of the response body -}-    -> m ((Bool, [Soup.Range.Range]))-    {- ^ __Returns:__ 'True' if /@hdrs@/ contained a syntactically-valid-\"Range\" header, 'False' otherwise (in which case /@range@/ and /@length@/-will not be set). -}-messageHeadersGetRanges hdrs totalLength = liftIO $ do-    hdrs' <- unsafeManagedPtrGetPtr hdrs-    ranges <- allocMem :: IO (Ptr (Ptr Soup.Range.Range))-    length_ <- allocMem :: IO (Ptr Int32)-    result <- soup_message_headers_get_ranges hdrs' totalLength ranges length_-    length_' <- peek length_-    let result' = (/= 0) result-    ranges' <- peek ranges-    ranges'' <- (unpackBlockArrayWithLength 16 length_') ranges'-    ranges''' <- mapM (wrapPtr Soup.Range.Range) ranges''-    freeMem ranges'-    touchManagedPtr hdrs-    freeMem ranges-    freeMem length_-    return (result', ranges''')--#if ENABLE_OVERLOADING-data MessageHeadersGetRangesMethodInfo-instance (signature ~ (Int64 -> m ((Bool, [Soup.Range.Range]))), MonadIO m) => O.MethodInfo MessageHeadersGetRangesMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersGetRanges--#endif---- method MessageHeaders::header_contains--- method type : OrdinaryMethod--- Args : [Arg {argCName = "hdrs", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageHeaders", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "header name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "token", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "token to look for", sinceVersion = Nothing}, 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 ->                   -- hdrs : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- token : TBasicType TUTF8-    IO CInt--{- |-Checks whether the list-valued header /@name@/ is present in /@hdrs@/,-and contains a case-insensitive match for /@token@/.--(If /@name@/ is present in /@hdrs@/, then this is equivalent to calling-'GI.Soup.Functions.headerContains' on its value.)--/Since: 2.50/--}-messageHeadersHeaderContains ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageHeaders-    {- ^ /@hdrs@/: a 'GI.Soup.Structs.MessageHeaders.MessageHeaders' -}-    -> T.Text-    {- ^ /@name@/: header name -}-    -> T.Text-    {- ^ /@token@/: token to look for -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the header is present and contains /@token@/,-  'False' otherwise. -}-messageHeadersHeaderContains hdrs name token = liftIO $ do-    hdrs' <- unsafeManagedPtrGetPtr hdrs-    name' <- textToCString name-    token' <- textToCString token-    result <- soup_message_headers_header_contains hdrs' name' token'-    let result' = (/= 0) result-    touchManagedPtr hdrs-    freeMem name'-    freeMem token'-    return result'--#if ENABLE_OVERLOADING-data MessageHeadersHeaderContainsMethodInfo-instance (signature ~ (T.Text -> T.Text -> m Bool), MonadIO m) => O.MethodInfo MessageHeadersHeaderContainsMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersHeaderContains--#endif---- method MessageHeaders::header_equals--- method type : OrdinaryMethod--- Args : [Arg {argCName = "hdrs", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageHeaders", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "header name", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "expected value", sinceVersion = Nothing}, 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 ->                   -- hdrs : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- value : TBasicType TUTF8-    IO CInt--{- |-Checks whether the header /@name@/ is present in /@hdrs@/ and is-(case-insensitively) equal to /@value@/.--/Since: 2.50/--}-messageHeadersHeaderEquals ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageHeaders-    {- ^ /@hdrs@/: a 'GI.Soup.Structs.MessageHeaders.MessageHeaders' -}-    -> T.Text-    {- ^ /@name@/: header name -}-    -> T.Text-    {- ^ /@value@/: expected value -}-    -> m Bool-    {- ^ __Returns:__ 'True' if the header is present and its value is-  /@value@/, 'False' otherwise. -}-messageHeadersHeaderEquals hdrs name value = liftIO $ do-    hdrs' <- unsafeManagedPtrGetPtr hdrs-    name' <- textToCString name-    value' <- textToCString value-    result <- soup_message_headers_header_equals hdrs' name' value'-    let result' = (/= 0) result-    touchManagedPtr hdrs-    freeMem name'-    freeMem value'-    return result'--#if ENABLE_OVERLOADING-data MessageHeadersHeaderEqualsMethodInfo-instance (signature ~ (T.Text -> T.Text -> m Bool), MonadIO m) => O.MethodInfo MessageHeadersHeaderEqualsMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersHeaderEquals--#endif---- method MessageHeaders::remove--- method type : OrdinaryMethod--- Args : [Arg {argCName = "hdrs", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageHeaders", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the header name to remove", sinceVersion = Nothing}, 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 ->                   -- hdrs : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    CString ->                              -- name : TBasicType TUTF8-    IO ()--{- |-Removes /@name@/ from /@hdrs@/. If there are multiple values for /@name@/,-they are all removed.--}-messageHeadersRemove ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageHeaders-    {- ^ /@hdrs@/: a 'GI.Soup.Structs.MessageHeaders.MessageHeaders' -}-    -> T.Text-    {- ^ /@name@/: the header name to remove -}-    -> m ()-messageHeadersRemove hdrs name = liftIO $ do-    hdrs' <- unsafeManagedPtrGetPtr hdrs-    name' <- textToCString name-    soup_message_headers_remove hdrs' name'-    touchManagedPtr hdrs-    freeMem name'-    return ()--#if ENABLE_OVERLOADING-data MessageHeadersRemoveMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m) => O.MethodInfo MessageHeadersRemoveMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersRemove--#endif---- method MessageHeaders::replace--- method type : OrdinaryMethod--- Args : [Arg {argCName = "hdrs", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageHeaders", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the header name to replace", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new value of @name", sinceVersion = Nothing}, 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 ->                   -- hdrs : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    CString ->                              -- name : TBasicType TUTF8-    CString ->                              -- value : TBasicType TUTF8-    IO ()--{- |-Replaces the value of the header /@name@/ in /@hdrs@/ with /@value@/. (See-also 'GI.Soup.Structs.MessageHeaders.messageHeadersAppend'.)--The caller is expected to make sure that /@name@/ and /@value@/ are-syntactically correct.--}-messageHeadersReplace ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageHeaders-    {- ^ /@hdrs@/: a 'GI.Soup.Structs.MessageHeaders.MessageHeaders' -}-    -> T.Text-    {- ^ /@name@/: the header name to replace -}-    -> T.Text-    {- ^ /@value@/: the new value of /@name@/ -}-    -> m ()-messageHeadersReplace hdrs name value = liftIO $ do-    hdrs' <- unsafeManagedPtrGetPtr hdrs-    name' <- textToCString name-    value' <- textToCString value-    soup_message_headers_replace hdrs' name' value'-    touchManagedPtr hdrs-    freeMem name'-    freeMem value'-    return ()--#if ENABLE_OVERLOADING-data MessageHeadersReplaceMethodInfo-instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m) => O.MethodInfo MessageHeadersReplaceMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersReplace--#endif---- method MessageHeaders::set_content_disposition--- method type : OrdinaryMethod--- Args : [Arg {argCName = "hdrs", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageHeaders", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "disposition", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the disposition-type", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "additional\nparameters, or %NULL", sinceVersion = Nothing}, 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 ->                   -- hdrs : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    CString ->                              -- disposition : TBasicType TUTF8-    Ptr (GHashTable CString CString) ->     -- params : TGHash (TBasicType TUTF8) (TBasicType TUTF8)-    IO ()--{- |-Sets the \"Content-Disposition\" header in /@hdrs@/ to /@disposition@/,-optionally with additional parameters specified in /@params@/.--See 'GI.Soup.Structs.MessageHeaders.messageHeadersGetContentDisposition' for a discussion-of how Content-Disposition is used in HTTP.--/Since: 2.26/--}-messageHeadersSetContentDisposition ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageHeaders-    {- ^ /@hdrs@/: a 'GI.Soup.Structs.MessageHeaders.MessageHeaders' -}-    -> T.Text-    {- ^ /@disposition@/: the disposition-type -}-    -> Maybe (Map.Map T.Text T.Text)-    {- ^ /@params@/: additional-parameters, or 'Nothing' -}-    -> m ()-messageHeadersSetContentDisposition hdrs disposition params = liftIO $ do-    hdrs' <- unsafeManagedPtrGetPtr hdrs-    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 hdrs' disposition' maybeParams-    touchManagedPtr hdrs-    freeMem disposition'-    unrefGHashTable maybeParams-    return ()--#if ENABLE_OVERLOADING-data MessageHeadersSetContentDispositionMethodInfo-instance (signature ~ (T.Text -> Maybe (Map.Map T.Text T.Text) -> m ()), MonadIO m) => O.MethodInfo MessageHeadersSetContentDispositionMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersSetContentDisposition--#endif---- method MessageHeaders::set_content_length--- method type : OrdinaryMethod--- Args : [Arg {argCName = "hdrs", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageHeaders", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the message body length", sinceVersion = Nothing}, 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 ->                   -- hdrs : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    Int64 ->                                -- content_length : TBasicType TInt64-    IO ()--{- |-Sets the message body length that /@hdrs@/ will declare, and sets-/@hdrs@/\'s encoding to 'GI.Soup.Enums.EncodingContentLength'.--You do not normally need to call this; if /@hdrs@/ is set to use-Content-Length encoding, libsoup will automatically set its-Content-Length header for you immediately before sending the-headers. One situation in which this method is useful is when-generating the response to a HEAD request; Calling-'GI.Soup.Structs.MessageHeaders.messageHeadersSetContentLength' allows you to put the-correct content length into the response without needing to waste-memory by filling in a response body which won\'t actually be sent.--}-messageHeadersSetContentLength ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageHeaders-    {- ^ /@hdrs@/: a 'GI.Soup.Structs.MessageHeaders.MessageHeaders' -}-    -> Int64-    {- ^ /@contentLength@/: the message body length -}-    -> m ()-messageHeadersSetContentLength hdrs contentLength = liftIO $ do-    hdrs' <- unsafeManagedPtrGetPtr hdrs-    soup_message_headers_set_content_length hdrs' contentLength-    touchManagedPtr hdrs-    return ()--#if ENABLE_OVERLOADING-data MessageHeadersSetContentLengthMethodInfo-instance (signature ~ (Int64 -> m ()), MonadIO m) => O.MethodInfo MessageHeadersSetContentLengthMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersSetContentLength--#endif---- method MessageHeaders::set_content_range--- method type : OrdinaryMethod--- Args : [Arg {argCName = "hdrs", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageHeaders", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the start of the range", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the end of the range", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "total_length", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the total length of the resource, or -1 if unknown", sinceVersion = Nothing}, 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 ->                   -- hdrs : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    Int64 ->                                -- start : TBasicType TInt64-    Int64 ->                                -- end : TBasicType TInt64-    Int64 ->                                -- total_length : TBasicType TInt64-    IO ()--{- |-Sets /@hdrs@/\'s Content-Range header according to the given values.-(Note that /@totalLength@/ is the total length of the entire resource-that this is a range of, not simply /@end@/ - /@start@/ + 1.)--\<note>\<para>-'GI.Soup.Objects.Server.Server' has built-in handling for range requests, and you do-not normally need to call this function youself. See-'GI.Soup.Structs.MessageHeaders.messageHeadersGetRanges' for more details.-\<\/para>\<\/note>--/Since: 2.26/--}-messageHeadersSetContentRange ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageHeaders-    {- ^ /@hdrs@/: a 'GI.Soup.Structs.MessageHeaders.MessageHeaders' -}-    -> Int64-    {- ^ /@start@/: the start of the range -}-    -> Int64-    {- ^ /@end@/: the end of the range -}-    -> Int64-    {- ^ /@totalLength@/: the total length of the resource, or -1 if unknown -}-    -> m ()-messageHeadersSetContentRange hdrs start end totalLength = liftIO $ do-    hdrs' <- unsafeManagedPtrGetPtr hdrs-    soup_message_headers_set_content_range hdrs' start end totalLength-    touchManagedPtr hdrs-    return ()--#if ENABLE_OVERLOADING-data MessageHeadersSetContentRangeMethodInfo-instance (signature ~ (Int64 -> Int64 -> Int64 -> m ()), MonadIO m) => O.MethodInfo MessageHeadersSetContentRangeMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersSetContentRange--#endif---- method MessageHeaders::set_content_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "hdrs", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageHeaders", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the MIME type", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "params", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "additional\nparameters, or %NULL", sinceVersion = Nothing}, 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 ->                   -- hdrs : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    CString ->                              -- content_type : TBasicType TUTF8-    Ptr (GHashTable CString CString) ->     -- params : TGHash (TBasicType TUTF8) (TBasicType TUTF8)-    IO ()--{- |-Sets the \"Content-Type\" header in /@hdrs@/ to /@contentType@/,-optionally with additional parameters specified in /@params@/.--/Since: 2.26/--}-messageHeadersSetContentType ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageHeaders-    {- ^ /@hdrs@/: a 'GI.Soup.Structs.MessageHeaders.MessageHeaders' -}-    -> T.Text-    {- ^ /@contentType@/: the MIME type -}-    -> Maybe (Map.Map T.Text T.Text)-    {- ^ /@params@/: additional-parameters, or 'Nothing' -}-    -> m ()-messageHeadersSetContentType hdrs contentType params = liftIO $ do-    hdrs' <- unsafeManagedPtrGetPtr hdrs-    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 hdrs' contentType' maybeParams-    touchManagedPtr hdrs-    freeMem contentType'-    unrefGHashTable maybeParams-    return ()--#if ENABLE_OVERLOADING-data MessageHeadersSetContentTypeMethodInfo-instance (signature ~ (T.Text -> Maybe (Map.Map T.Text T.Text) -> m ()), MonadIO m) => O.MethodInfo MessageHeadersSetContentTypeMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersSetContentType--#endif---- method MessageHeaders::set_encoding--- method type : OrdinaryMethod--- Args : [Arg {argCName = "hdrs", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageHeaders", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "encoding", argType = TInterface (Name {namespace = "Soup", name = "Encoding"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupEncoding", sinceVersion = Nothing}, 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 ->                   -- hdrs : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    CUInt ->                                -- encoding : TInterface (Name {namespace = "Soup", name = "Encoding"})-    IO ()--{- |-Sets the message body encoding that /@hdrs@/ will declare. In particular,-you should use this if you are going to send a request or response in-chunked encoding.--}-messageHeadersSetEncoding ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageHeaders-    {- ^ /@hdrs@/: a 'GI.Soup.Structs.MessageHeaders.MessageHeaders' -}-    -> Soup.Enums.Encoding-    {- ^ /@encoding@/: a 'GI.Soup.Enums.Encoding' -}-    -> m ()-messageHeadersSetEncoding hdrs encoding = liftIO $ do-    hdrs' <- unsafeManagedPtrGetPtr hdrs-    let encoding' = (fromIntegral . fromEnum) encoding-    soup_message_headers_set_encoding hdrs' encoding'-    touchManagedPtr hdrs-    return ()--#if ENABLE_OVERLOADING-data MessageHeadersSetEncodingMethodInfo-instance (signature ~ (Soup.Enums.Encoding -> m ()), MonadIO m) => O.MethodInfo MessageHeadersSetEncodingMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersSetEncoding--#endif---- method MessageHeaders::set_expectations--- method type : OrdinaryMethod--- Args : [Arg {argCName = "hdrs", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageHeaders", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expectations", argType = TInterface (Name {namespace = "Soup", name = "Expectation"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the expectations to set", sinceVersion = Nothing}, 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 ->                   -- hdrs : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    CUInt ->                                -- expectations : TInterface (Name {namespace = "Soup", name = "Expectation"})-    IO ()--{- |-Sets /@hdrs@/\'s \"Expect\" header according to /@expectations@/.--Currently 'GI.Soup.Flags.ExpectationContinue' is the only known expectation-value. You should set this value on a request if you are sending a-large message body (eg, via POST or PUT), and want to give the-server a chance to reject the request after seeing just the headers-(eg, because it will require authentication before allowing you to-post, or because you\'re POSTing to a URL that doesn\'t exist). This-saves you from having to transmit the large request body when the-server is just going to ignore it anyway.--}-messageHeadersSetExpectations ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageHeaders-    {- ^ /@hdrs@/: a 'GI.Soup.Structs.MessageHeaders.MessageHeaders' -}-    -> [Soup.Flags.Expectation]-    {- ^ /@expectations@/: the expectations to set -}-    -> m ()-messageHeadersSetExpectations hdrs expectations = liftIO $ do-    hdrs' <- unsafeManagedPtrGetPtr hdrs-    let expectations' = gflagsToWord expectations-    soup_message_headers_set_expectations hdrs' expectations'-    touchManagedPtr hdrs-    return ()--#if ENABLE_OVERLOADING-data MessageHeadersSetExpectationsMethodInfo-instance (signature ~ ([Soup.Flags.Expectation] -> m ()), MonadIO m) => O.MethodInfo MessageHeadersSetExpectationsMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersSetExpectations--#endif---- method MessageHeaders::set_range--- method type : OrdinaryMethod--- Args : [Arg {argCName = "hdrs", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageHeaders", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "start", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the start of the range to request", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "end", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the end of the range to request", sinceVersion = Nothing}, 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 ->                   -- hdrs : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    Int64 ->                                -- start : TBasicType TInt64-    Int64 ->                                -- end : TBasicType TInt64-    IO ()--{- |-Sets /@hdrs@/\'s Range header to request the indicated range.-/@start@/ and /@end@/ are interpreted as in a 'GI.Soup.Structs.Range.Range'.--If you need to request multiple ranges, use-'GI.Soup.Structs.MessageHeaders.messageHeadersSetRanges'.--/Since: 2.26/--}-messageHeadersSetRange ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageHeaders-    {- ^ /@hdrs@/: a 'GI.Soup.Structs.MessageHeaders.MessageHeaders' -}-    -> Int64-    {- ^ /@start@/: the start of the range to request -}-    -> Int64-    {- ^ /@end@/: the end of the range to request -}-    -> m ()-messageHeadersSetRange hdrs start end = liftIO $ do-    hdrs' <- unsafeManagedPtrGetPtr hdrs-    soup_message_headers_set_range hdrs' start end-    touchManagedPtr hdrs-    return ()--#if ENABLE_OVERLOADING-data MessageHeadersSetRangeMethodInfo-instance (signature ~ (Int64 -> Int64 -> m ()), MonadIO m) => O.MethodInfo MessageHeadersSetRangeMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersSetRange--#endif---- method MessageHeaders::set_ranges--- method type : OrdinaryMethod--- Args : [Arg {argCName = "hdrs", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMessageHeaders", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "ranges", argType = TInterface (Name {namespace = "Soup", name = "Range"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an array of #SoupRange", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the length of @range", sinceVersion = Nothing}, 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 ->                   -- hdrs : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    Ptr Soup.Range.Range ->                 -- ranges : TInterface (Name {namespace = "Soup", name = "Range"})-    Int32 ->                                -- length : TBasicType TInt-    IO ()--{- |-Sets /@hdrs@/\'s Range header to request the indicated ranges. (If you-only want to request a single range, you can use-'GI.Soup.Structs.MessageHeaders.messageHeadersSetRange'.)--/Since: 2.26/--}-messageHeadersSetRanges ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageHeaders-    {- ^ /@hdrs@/: a 'GI.Soup.Structs.MessageHeaders.MessageHeaders' -}-    -> Soup.Range.Range-    {- ^ /@ranges@/: an array of 'GI.Soup.Structs.Range.Range' -}-    -> Int32-    {- ^ /@length@/: the length of /@range@/ -}-    -> m ()-messageHeadersSetRanges hdrs ranges length_ = liftIO $ do-    hdrs' <- unsafeManagedPtrGetPtr hdrs-    ranges' <- unsafeManagedPtrGetPtr ranges-    soup_message_headers_set_ranges hdrs' ranges' length_-    touchManagedPtr hdrs-    touchManagedPtr ranges-    return ()--#if ENABLE_OVERLOADING-data MessageHeadersSetRangesMethodInfo-instance (signature ~ (Soup.Range.Range -> Int32 -> m ()), MonadIO m) => O.MethodInfo MessageHeadersSetRangesMethodInfo MessageHeaders signature where-    overloadedMethod _ = messageHeadersSetRanges--#endif--#if ENABLE_OVERLOADING-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 = O.MethodResolutionFailed l o--instance (info ~ ResolveMessageHeadersMethod t MessageHeaders, O.MethodInfo info MessageHeaders p) => OL.IsLabel t (MessageHeaders -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--
− GI/Soup/Structs/MessageHeaders.hs-boot 
@@ -1,113 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Structs.MessageHeaders where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype MessageHeaders = MessageHeaders (ManagedPtr MessageHeaders)-instance BoxedObject MessageHeaders where-#if ENABLE_OVERLOADING-data MessageHeadersAppendMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageHeadersCleanConnectionHeadersMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageHeadersClearMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageHeadersForeachMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageHeadersFreeMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageHeadersFreeRangesMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageHeadersGetMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageHeadersGetContentDispositionMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageHeadersGetContentLengthMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageHeadersGetContentRangeMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageHeadersGetContentTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageHeadersGetEncodingMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageHeadersGetExpectationsMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageHeadersGetHeadersTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageHeadersGetListMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageHeadersGetOneMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageHeadersGetRangesMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageHeadersHeaderContainsMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageHeadersHeaderEqualsMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageHeadersRemoveMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageHeadersReplaceMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageHeadersSetContentDispositionMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageHeadersSetContentLengthMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageHeadersSetContentRangeMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageHeadersSetContentTypeMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageHeadersSetEncodingMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageHeadersSetExpectationsMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageHeadersSetRangeMethodInfo-#endif-#if ENABLE_OVERLOADING-data MessageHeadersSetRangesMethodInfo-#endif
− GI/Soup/Structs/MessageHeadersIter.hs 
@@ -1,194 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--An opaque type used to iterate over a @/SoupMessageHeaders/@-structure.--After intializing the iterator with-'GI.Soup.Functions.messageHeadersIterInit', call-'GI.Soup.Structs.MessageHeadersIter.messageHeadersIterNext' to fetch data from it.--You may not modify the headers while iterating over them.--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Structs.MessageHeadersIter-    ( ---- * Exported types-    MessageHeadersIter(..)                  ,-    newZeroMessageHeadersIter               ,-    noMessageHeadersIter                    ,--- -- * Methods--- ** init #method:init#--    messageHeadersIterInit                  ,----- ** next #method:next#--#if ENABLE_OVERLOADING-    MessageHeadersIterNextMethodInfo        ,-#endif-    messageHeadersIterNext                  ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import {-# SOURCE #-} qualified GI.Soup.Structs.MessageHeaders as Soup.MessageHeaders---- | Memory-managed wrapper type.-newtype MessageHeadersIter = MessageHeadersIter (ManagedPtr MessageHeadersIter)-instance WrappedPtr MessageHeadersIter where-    wrappedPtrCalloc = callocBytes 24-    wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 24 >=> wrapPtr MessageHeadersIter)-    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----- | A convenience alias for `Nothing` :: `Maybe` `MessageHeadersIter`.-noMessageHeadersIter :: Maybe MessageHeadersIter-noMessageHeadersIter = Nothing---#if ENABLE_OVERLOADING-instance O.HasAttributeList MessageHeadersIter-type instance O.AttributeList MessageHeadersIter = MessageHeadersIterAttributeList-type MessageHeadersIterAttributeList = ('[ ] :: [(Symbol, *)])-#endif---- method MessageHeadersIter::next--- method type : OrdinaryMethod--- Args : [Arg {argCName = "iter", argType = TInterface (Name {namespace = "Soup", name = "MessageHeadersIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a %SoupMessageHeadersIter", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "pointer to a variable to return\nthe header name in", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TUTF8, direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "pointer to a variable to return\nthe header value in", sinceVersion = Nothing}, 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 ->               -- iter : TInterface (Name {namespace = "Soup", name = "MessageHeadersIter"})-    Ptr CString ->                          -- name : TBasicType TUTF8-    Ptr CString ->                          -- value : TBasicType TUTF8-    IO CInt--{- |-Yields the next name\/value pair in the @/SoupMessageHeaders/@ being-iterated by /@iter@/. If /@iter@/ has already yielded the last header,-then 'GI.Soup.Structs.MessageHeadersIter.messageHeadersIterNext' will return 'False' and /@name@/-and /@value@/ will be unchanged.--}-messageHeadersIterNext ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    MessageHeadersIter-    {- ^ /@iter@/: a @/SoupMessageHeadersIter/@ -}-    -> m ((Bool, T.Text, T.Text))-    {- ^ __Returns:__ 'True' if another name and value were returned, 'False'-if the end of the headers has been reached. -}-messageHeadersIterNext iter = liftIO $ do-    iter' <- unsafeManagedPtrGetPtr iter-    name <- allocMem :: IO (Ptr CString)-    value <- allocMem :: IO (Ptr CString)-    result <- soup_message_headers_iter_next iter' name value-    let result' = (/= 0) result-    name' <- peek name-    name'' <- cstringToText name'-    value' <- peek value-    value'' <- cstringToText value'-    touchManagedPtr iter-    freeMem name-    freeMem value-    return (result', name'', value'')--#if ENABLE_OVERLOADING-data MessageHeadersIterNextMethodInfo-instance (signature ~ (m ((Bool, T.Text, T.Text))), MonadIO m) => O.MethodInfo MessageHeadersIterNextMethodInfo MessageHeadersIter signature where-    overloadedMethod _ = messageHeadersIterNext--#endif---- method MessageHeadersIter::init--- method type : MemberFunction--- Args : [Arg {argCName = "iter", argType = TInterface (Name {namespace = "Soup", name = "MessageHeadersIter"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a pointer to a %SoupMessageHeadersIter\nstructure", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "hdrs", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a %SoupMessageHeaders", sinceVersion = Nothing}, 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 (Name {namespace = "Soup", name = "MessageHeadersIter"})-    Ptr Soup.MessageHeaders.MessageHeaders -> -- hdrs : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    IO ()--{- |-Initializes /@iter@/ for iterating /@hdrs@/.--}-messageHeadersIterInit ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Soup.MessageHeaders.MessageHeaders-    {- ^ /@hdrs@/: a @/SoupMessageHeaders/@ -}-    -> m (MessageHeadersIter)-messageHeadersIterInit hdrs = liftIO $ do-    iter <- callocBytes 24 :: IO (Ptr MessageHeadersIter)-    hdrs' <- unsafeManagedPtrGetPtr hdrs-    soup_message_headers_iter_init iter hdrs'-    iter' <- (wrapPtr MessageHeadersIter) iter-    touchManagedPtr hdrs-    return iter'--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-type family ResolveMessageHeadersIterMethod (t :: Symbol) (o :: *) :: * where-    ResolveMessageHeadersIterMethod "next" o = MessageHeadersIterNextMethodInfo-    ResolveMessageHeadersIterMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveMessageHeadersIterMethod t MessageHeadersIter, O.MethodInfo info MessageHeadersIter p) => OL.IsLabel t (MessageHeadersIter -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--
− GI/Soup/Structs/MessageHeadersIter.hs-boot 
@@ -1,29 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Structs.MessageHeadersIter where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype MessageHeadersIter = MessageHeadersIter (ManagedPtr MessageHeadersIter)-instance WrappedPtr MessageHeadersIter where-#if ENABLE_OVERLOADING-data MessageHeadersIterNextMethodInfo-#endif
− GI/Soup/Structs/MessageQueue.hs 
@@ -1,77 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Structs.MessageQueue-    ( ---- * Exported types-    MessageQueue(..)                        ,-    noMessageQueue                          ,---    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL----- | Memory-managed wrapper type.-newtype MessageQueue = MessageQueue (ManagedPtr 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---- | A convenience alias for `Nothing` :: `Maybe` `MessageQueue`.-noMessageQueue :: Maybe MessageQueue-noMessageQueue = Nothing---#if ENABLE_OVERLOADING-instance O.HasAttributeList MessageQueue-type instance O.AttributeList MessageQueue = MessageQueueAttributeList-type MessageQueueAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-type family ResolveMessageQueueMethod (t :: Symbol) (o :: *) :: * where-    ResolveMessageQueueMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveMessageQueueMethod t MessageQueue, O.MethodInfo info MessageQueue p) => OL.IsLabel t (MessageQueue -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--
− GI/Soup/Structs/MessageQueue.hs-boot 
@@ -1,26 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Structs.MessageQueue where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype MessageQueue = MessageQueue (ManagedPtr MessageQueue)-instance WrappedPtr MessageQueue where
− GI/Soup/Structs/MessageQueueItem.hs 
@@ -1,77 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--/No description available in the introspection data./--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Structs.MessageQueueItem-    ( ---- * Exported types-    MessageQueueItem(..)                    ,-    noMessageQueueItem                      ,---    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL----- | Memory-managed wrapper type.-newtype MessageQueueItem = MessageQueueItem (ManagedPtr 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---- | A convenience alias for `Nothing` :: `Maybe` `MessageQueueItem`.-noMessageQueueItem :: Maybe MessageQueueItem-noMessageQueueItem = Nothing---#if ENABLE_OVERLOADING-instance O.HasAttributeList MessageQueueItem-type instance O.AttributeList MessageQueueItem = MessageQueueItemAttributeList-type MessageQueueItemAttributeList = ('[ ] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-type family ResolveMessageQueueItemMethod (t :: Symbol) (o :: *) :: * where-    ResolveMessageQueueItemMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveMessageQueueItemMethod t MessageQueueItem, O.MethodInfo info MessageQueueItem p) => OL.IsLabel t (MessageQueueItem -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--
− GI/Soup/Structs/MessageQueueItem.hs-boot 
@@ -1,26 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Structs.MessageQueueItem where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype MessageQueueItem = MessageQueueItem (ManagedPtr MessageQueueItem)-instance WrappedPtr MessageQueueItem where
− GI/Soup/Structs/Multipart.hs 
@@ -1,566 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--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 'GI.Soup.Structs.Multipart.Multipart' 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-'GI.Soup.Structs.Multipart.Multipart' for handling real MIME multiparts.--/Since: 2.26/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Structs.Multipart-    ( ---- * Exported types-    Multipart(..)                           ,-    noMultipart                             ,--- -- * Methods--- ** appendFormFile #method:appendFormFile#--#if ENABLE_OVERLOADING-    MultipartAppendFormFileMethodInfo       ,-#endif-    multipartAppendFormFile                 ,----- ** appendFormString #method:appendFormString#--#if ENABLE_OVERLOADING-    MultipartAppendFormStringMethodInfo     ,-#endif-    multipartAppendFormString               ,----- ** appendPart #method:appendPart#--#if ENABLE_OVERLOADING-    MultipartAppendPartMethodInfo           ,-#endif-    multipartAppendPart                     ,----- ** free #method:free#--#if ENABLE_OVERLOADING-    MultipartFreeMethodInfo                 ,-#endif-    multipartFree                           ,----- ** getLength #method:getLength#--#if ENABLE_OVERLOADING-    MultipartGetLengthMethodInfo            ,-#endif-    multipartGetLength                      ,----- ** getPart #method:getPart#--#if ENABLE_OVERLOADING-    MultipartGetPartMethodInfo              ,-#endif-    multipartGetPart                        ,----- ** new #method:new#--    multipartNew                            ,----- ** newFromMessage #method:newFromMessage#--    multipartNewFromMessage                 ,----- ** toMessage #method:toMessage#--#if ENABLE_OVERLOADING-    MultipartToMessageMethodInfo            ,-#endif-    multipartToMessage                      ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--import {-# SOURCE #-} qualified GI.Soup.Structs.Buffer as Soup.Buffer-import {-# SOURCE #-} qualified GI.Soup.Structs.MessageBody as Soup.MessageBody-import {-# SOURCE #-} qualified GI.Soup.Structs.MessageHeaders as Soup.MessageHeaders---- | Memory-managed wrapper type.-newtype Multipart = Multipart (ManagedPtr 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---- | A convenience alias for `Nothing` :: `Maybe` `Multipart`.-noMultipart :: Maybe Multipart-noMultipart = Nothing---#if ENABLE_OVERLOADING-instance O.HasAttributeList Multipart-type instance O.AttributeList Multipart = MultipartAttributeList-type MultipartAttributeList = ('[ ] :: [(Symbol, *)])-#endif---- method Multipart::new--- method type : Constructor--- Args : [Arg {argCName = "mime_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the MIME type of the multipart to create.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Multipart"}))--- throws : False--- Skip return : False--foreign import ccall "soup_multipart_new" soup_multipart_new :: -    CString ->                              -- mime_type : TBasicType TUTF8-    IO (Ptr Multipart)--{- |-Creates a new empty 'GI.Soup.Structs.Multipart.Multipart' with a randomly-generated-boundary string. Note that /@mimeType@/ must be the full MIME type,-including \"multipart\/\".--/Since: 2.26/--}-multipartNew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@mimeType@/: the MIME type of the multipart to create. -}-    -> m Multipart-    {- ^ __Returns:__ a new empty 'GI.Soup.Structs.Multipart.Multipart' of the given /@mimeType@/ -}-multipartNew mimeType = liftIO $ do-    mimeType' <- textToCString mimeType-    result <- soup_multipart_new mimeType'-    checkUnexpectedReturnNULL "multipartNew" result-    result' <- (wrapBoxed Multipart) result-    freeMem mimeType'-    return result'--#if ENABLE_OVERLOADING-#endif---- method Multipart::new_from_message--- method type : Constructor--- Args : [Arg {argCName = "headers", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the headers of the HTTP message to parse", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "body", argType = TInterface (Name {namespace = "Soup", name = "MessageBody"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the body of the HTTP message to parse", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "Multipart"}))--- throws : False--- Skip return : False--foreign import ccall "soup_multipart_new_from_message" soup_multipart_new_from_message :: -    Ptr Soup.MessageHeaders.MessageHeaders -> -- headers : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    Ptr Soup.MessageBody.MessageBody ->     -- body : TInterface (Name {namespace = "Soup", name = "MessageBody"})-    IO (Ptr Multipart)--{- |-Parses /@headers@/ and /@body@/ to form a new 'GI.Soup.Structs.Multipart.Multipart'--/Since: 2.26/--}-multipartNewFromMessage ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Soup.MessageHeaders.MessageHeaders-    {- ^ /@headers@/: the headers of the HTTP message to parse -}-    -> Soup.MessageBody.MessageBody-    {- ^ /@body@/: the body of the HTTP message to parse -}-    -> m (Maybe Multipart)-    {- ^ __Returns:__ a new 'GI.Soup.Structs.Multipart.Multipart' (or 'Nothing' if the-message couldn\'t be parsed or wasn\'t multipart). -}-multipartNewFromMessage headers body = liftIO $ do-    headers' <- unsafeManagedPtrGetPtr headers-    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--#if ENABLE_OVERLOADING-#endif---- method Multipart::append_form_file--- method type : OrdinaryMethod--- Args : [Arg {argCName = "multipart", argType = TInterface (Name {namespace = "Soup", name = "Multipart"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a multipart (presumably of type \"multipart/form-data\")", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the control associated with this file", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "filename", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the file, or %NULL if not known", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the MIME type of the file, or %NULL if not known", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "body", argType = TInterface (Name {namespace = "Soup", name = "Buffer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the file data", sinceVersion = Nothing}, 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 ->                        -- multipart : TInterface (Name {namespace = "Soup", name = "Multipart"})-    CString ->                              -- control_name : TBasicType TUTF8-    CString ->                              -- filename : TBasicType TUTF8-    CString ->                              -- content_type : TBasicType TUTF8-    Ptr Soup.Buffer.Buffer ->               -- body : TInterface (Name {namespace = "Soup", name = "Buffer"})-    IO ()--{- |-Adds a new MIME part containing /@body@/ to /@multipart@/, using-\"Content-Disposition: form-data\", as per the HTML forms-specification. See 'GI.Soup.Functions.formRequestNewFromMultipart' for more-details.--/Since: 2.26/--}-multipartAppendFormFile ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Multipart-    {- ^ /@multipart@/: a multipart (presumably of type \"multipart\/form-data\") -}-    -> T.Text-    {- ^ /@controlName@/: the name of the control associated with this file -}-    -> T.Text-    {- ^ /@filename@/: the name of the file, or 'Nothing' if not known -}-    -> T.Text-    {- ^ /@contentType@/: the MIME type of the file, or 'Nothing' if not known -}-    -> Soup.Buffer.Buffer-    {- ^ /@body@/: the file data -}-    -> m ()-multipartAppendFormFile multipart controlName filename contentType body = liftIO $ do-    multipart' <- unsafeManagedPtrGetPtr multipart-    controlName' <- textToCString controlName-    filename' <- textToCString filename-    contentType' <- textToCString contentType-    body' <- unsafeManagedPtrGetPtr body-    soup_multipart_append_form_file multipart' controlName' filename' contentType' body'-    touchManagedPtr multipart-    touchManagedPtr body-    freeMem controlName'-    freeMem filename'-    freeMem contentType'-    return ()--#if ENABLE_OVERLOADING-data MultipartAppendFormFileMethodInfo-instance (signature ~ (T.Text -> T.Text -> T.Text -> Soup.Buffer.Buffer -> m ()), MonadIO m) => O.MethodInfo MultipartAppendFormFileMethodInfo Multipart signature where-    overloadedMethod _ = multipartAppendFormFile--#endif---- method Multipart::append_form_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "multipart", argType = TInterface (Name {namespace = "Soup", name = "Multipart"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a multipart (presumably of type \"multipart/form-data\")", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "control_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the name of the control associated with @data", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the body data", sinceVersion = Nothing}, 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 ->                        -- multipart : TInterface (Name {namespace = "Soup", name = "Multipart"})-    CString ->                              -- control_name : TBasicType TUTF8-    CString ->                              -- data : TBasicType TUTF8-    IO ()--{- |-Adds a new MIME part containing /@data@/ to /@multipart@/, using-\"Content-Disposition: form-data\", as per the HTML forms-specification. See 'GI.Soup.Functions.formRequestNewFromMultipart' for more-details.--/Since: 2.26/--}-multipartAppendFormString ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Multipart-    {- ^ /@multipart@/: a multipart (presumably of type \"multipart\/form-data\") -}-    -> T.Text-    {- ^ /@controlName@/: the name of the control associated with /@data@/ -}-    -> T.Text-    {- ^ /@data@/: the body data -}-    -> m ()-multipartAppendFormString multipart controlName data_ = liftIO $ do-    multipart' <- unsafeManagedPtrGetPtr multipart-    controlName' <- textToCString controlName-    data_' <- textToCString data_-    soup_multipart_append_form_string multipart' controlName' data_'-    touchManagedPtr multipart-    freeMem controlName'-    freeMem data_'-    return ()--#if ENABLE_OVERLOADING-data MultipartAppendFormStringMethodInfo-instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m) => O.MethodInfo MultipartAppendFormStringMethodInfo Multipart signature where-    overloadedMethod _ = multipartAppendFormString--#endif---- method Multipart::append_part--- method type : OrdinaryMethod--- Args : [Arg {argCName = "multipart", argType = TInterface (Name {namespace = "Soup", name = "Multipart"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMultipart", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "headers", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the MIME part headers", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "body", argType = TInterface (Name {namespace = "Soup", name = "Buffer"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the MIME part body", sinceVersion = Nothing}, 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 ->                        -- multipart : TInterface (Name {namespace = "Soup", name = "Multipart"})-    Ptr Soup.MessageHeaders.MessageHeaders -> -- headers : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    Ptr Soup.Buffer.Buffer ->               -- body : TInterface (Name {namespace = "Soup", name = "Buffer"})-    IO ()--{- |-Adds a new MIME part to /@multipart@/ with the given headers and body.-(The multipart will make its own copies of /@headers@/ and /@body@/, so-you should free your copies if you are not using them for anything-else.)--/Since: 2.26/--}-multipartAppendPart ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Multipart-    {- ^ /@multipart@/: a 'GI.Soup.Structs.Multipart.Multipart' -}-    -> Soup.MessageHeaders.MessageHeaders-    {- ^ /@headers@/: the MIME part headers -}-    -> Soup.Buffer.Buffer-    {- ^ /@body@/: the MIME part body -}-    -> m ()-multipartAppendPart multipart headers body = liftIO $ do-    multipart' <- unsafeManagedPtrGetPtr multipart-    headers' <- unsafeManagedPtrGetPtr headers-    body' <- unsafeManagedPtrGetPtr body-    soup_multipart_append_part multipart' headers' body'-    touchManagedPtr multipart-    touchManagedPtr headers-    touchManagedPtr body-    return ()--#if ENABLE_OVERLOADING-data MultipartAppendPartMethodInfo-instance (signature ~ (Soup.MessageHeaders.MessageHeaders -> Soup.Buffer.Buffer -> m ()), MonadIO m) => O.MethodInfo MultipartAppendPartMethodInfo Multipart signature where-    overloadedMethod _ = multipartAppendPart--#endif---- method Multipart::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "multipart", argType = TInterface (Name {namespace = "Soup", name = "Multipart"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMultipart", sinceVersion = Nothing}, 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 ->                        -- multipart : TInterface (Name {namespace = "Soup", name = "Multipart"})-    IO ()--{- |-Frees /@multipart@/--/Since: 2.26/--}-multipartFree ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Multipart-    {- ^ /@multipart@/: a 'GI.Soup.Structs.Multipart.Multipart' -}-    -> m ()-multipartFree multipart = liftIO $ do-    multipart' <- unsafeManagedPtrGetPtr multipart-    soup_multipart_free multipart'-    touchManagedPtr multipart-    return ()--#if ENABLE_OVERLOADING-data MultipartFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo MultipartFreeMethodInfo Multipart signature where-    overloadedMethod _ = multipartFree--#endif---- method Multipart::get_length--- method type : OrdinaryMethod--- Args : [Arg {argCName = "multipart", argType = TInterface (Name {namespace = "Soup", name = "Multipart"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMultipart", sinceVersion = Nothing}, 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 ->                        -- multipart : TInterface (Name {namespace = "Soup", name = "Multipart"})-    IO Int32--{- |-Gets the number of body parts in /@multipart@/--/Since: 2.26/--}-multipartGetLength ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Multipart-    {- ^ /@multipart@/: a 'GI.Soup.Structs.Multipart.Multipart' -}-    -> m Int32-    {- ^ __Returns:__ the number of body parts in /@multipart@/ -}-multipartGetLength multipart = liftIO $ do-    multipart' <- unsafeManagedPtrGetPtr multipart-    result <- soup_multipart_get_length multipart'-    touchManagedPtr multipart-    return result--#if ENABLE_OVERLOADING-data MultipartGetLengthMethodInfo-instance (signature ~ (m Int32), MonadIO m) => O.MethodInfo MultipartGetLengthMethodInfo Multipart signature where-    overloadedMethod _ = multipartGetLength--#endif---- method Multipart::get_part--- method type : OrdinaryMethod--- Args : [Arg {argCName = "multipart", argType = TInterface (Name {namespace = "Soup", name = "Multipart"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMultipart", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "part", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the part number to get (counting from 0)", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "headers", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the MIME part\nheaders", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "body", argType = TInterface (Name {namespace = "Soup", name = "Buffer"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "return location for the MIME part\nbody", sinceVersion = Nothing}, 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 ->                        -- multipart : TInterface (Name {namespace = "Soup", name = "Multipart"})-    Int32 ->                                -- part : TBasicType TInt-    Ptr (Ptr Soup.MessageHeaders.MessageHeaders) -> -- headers : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    Ptr (Ptr Soup.Buffer.Buffer) ->         -- body : TInterface (Name {namespace = "Soup", name = "Buffer"})-    IO CInt--{- |-Gets the indicated body part from /@multipart@/.--/Since: 2.26/--}-multipartGetPart ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Multipart-    {- ^ /@multipart@/: a 'GI.Soup.Structs.Multipart.Multipart' -}-    -> Int32-    {- ^ /@part@/: the part number to get (counting from 0) -}-    -> m ((Bool, Soup.MessageHeaders.MessageHeaders, Soup.Buffer.Buffer))-    {- ^ __Returns:__ 'True' on success, 'False' if /@part@/ is out of range (in-which case /@headers@/ and /@body@/ won\'t be set) -}-multipartGetPart multipart part = liftIO $ do-    multipart' <- unsafeManagedPtrGetPtr multipart-    headers <- allocMem :: IO (Ptr (Ptr Soup.MessageHeaders.MessageHeaders))-    body <- allocMem :: IO (Ptr (Ptr Soup.Buffer.Buffer))-    result <- soup_multipart_get_part multipart' part headers body-    let result' = (/= 0) result-    headers' <- peek headers-    headers'' <- (newBoxed Soup.MessageHeaders.MessageHeaders) headers'-    body' <- peek body-    body'' <- (newBoxed Soup.Buffer.Buffer) body'-    touchManagedPtr multipart-    freeMem headers-    freeMem body-    return (result', headers'', body'')--#if ENABLE_OVERLOADING-data MultipartGetPartMethodInfo-instance (signature ~ (Int32 -> m ((Bool, Soup.MessageHeaders.MessageHeaders, Soup.Buffer.Buffer))), MonadIO m) => O.MethodInfo MultipartGetPartMethodInfo Multipart signature where-    overloadedMethod _ = multipartGetPart--#endif---- method Multipart::to_message--- method type : OrdinaryMethod--- Args : [Arg {argCName = "multipart", argType = TInterface (Name {namespace = "Soup", name = "Multipart"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupMultipart", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_headers", argType = TInterface (Name {namespace = "Soup", name = "MessageHeaders"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the headers of the HTTP message to serialize @multipart to", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_body", argType = TInterface (Name {namespace = "Soup", name = "MessageBody"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the body of the HTTP message to serialize @multipart to", sinceVersion = Nothing}, 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 ->                        -- multipart : TInterface (Name {namespace = "Soup", name = "Multipart"})-    Ptr Soup.MessageHeaders.MessageHeaders -> -- dest_headers : TInterface (Name {namespace = "Soup", name = "MessageHeaders"})-    Ptr Soup.MessageBody.MessageBody ->     -- dest_body : TInterface (Name {namespace = "Soup", name = "MessageBody"})-    IO ()--{- |-Serializes /@multipart@/ to /@destHeaders@/ and /@destBody@/.--/Since: 2.26/--}-multipartToMessage ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Multipart-    {- ^ /@multipart@/: a 'GI.Soup.Structs.Multipart.Multipart' -}-    -> Soup.MessageHeaders.MessageHeaders-    {- ^ /@destHeaders@/: the headers of the HTTP message to serialize /@multipart@/ to -}-    -> Soup.MessageBody.MessageBody-    {- ^ /@destBody@/: the body of the HTTP message to serialize /@multipart@/ to -}-    -> m ()-multipartToMessage multipart destHeaders destBody = liftIO $ do-    multipart' <- unsafeManagedPtrGetPtr multipart-    destHeaders' <- unsafeManagedPtrGetPtr destHeaders-    destBody' <- unsafeManagedPtrGetPtr destBody-    soup_multipart_to_message multipart' destHeaders' destBody'-    touchManagedPtr multipart-    touchManagedPtr destHeaders-    touchManagedPtr destBody-    return ()--#if ENABLE_OVERLOADING-data MultipartToMessageMethodInfo-instance (signature ~ (Soup.MessageHeaders.MessageHeaders -> Soup.MessageBody.MessageBody -> m ()), MonadIO m) => O.MethodInfo MultipartToMessageMethodInfo Multipart signature where-    overloadedMethod _ = multipartToMessage--#endif--#if ENABLE_OVERLOADING-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 = O.MethodResolutionFailed l o--instance (info ~ ResolveMultipartMethod t Multipart, O.MethodInfo info Multipart p) => OL.IsLabel t (Multipart -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--
− GI/Soup/Structs/Multipart.hs-boot 
@@ -1,47 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Structs.Multipart where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype Multipart = Multipart (ManagedPtr Multipart)-instance BoxedObject Multipart where-#if ENABLE_OVERLOADING-data MultipartAppendFormFileMethodInfo-#endif-#if ENABLE_OVERLOADING-data MultipartAppendFormStringMethodInfo-#endif-#if ENABLE_OVERLOADING-data MultipartAppendPartMethodInfo-#endif-#if ENABLE_OVERLOADING-data MultipartFreeMethodInfo-#endif-#if ENABLE_OVERLOADING-data MultipartGetLengthMethodInfo-#endif-#if ENABLE_OVERLOADING-data MultipartGetPartMethodInfo-#endif-#if ENABLE_OVERLOADING-data MultipartToMessageMethodInfo-#endif
− GI/Soup/Structs/Range.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 (inaki@blueleaf.cc)--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.)--/Since: 2.26/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Structs.Range-    ( ---- * Exported types-    Range(..)                               ,-    newZeroRange                            ,-    noRange                                 ,--- -- * Properties--- ** end #attr:end#-{- | the end of the range--}-    getRangeEnd                             ,-#if ENABLE_OVERLOADING-    range_end                               ,-#endif-    setRangeEnd                             ,----- ** start #attr:start#-{- | the start of the range--}-    getRangeStart                           ,-#if ENABLE_OVERLOADING-    range_start                             ,-#endif-    setRangeStart                           ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL----- | Memory-managed wrapper type.-newtype Range = Range (ManagedPtr Range)-instance WrappedPtr Range where-    wrappedPtrCalloc = callocBytes 16-    wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 16 >=> wrapPtr Range)-    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----- | A convenience alias for `Nothing` :: `Maybe` `Range`.-noRange :: Maybe Range-noRange = Nothing--{- |-Get the value of the “@start@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' range #start-@--}-getRangeStart :: MonadIO m => Range -> m Int64-getRangeStart s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int64-    return val--{- |-Set the value of the “@start@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' range [ #start 'Data.GI.Base.Attributes.:=' value ]-@--}-setRangeStart :: MonadIO m => Range -> Int64 -> m ()-setRangeStart s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Int64)--#if ENABLE_OVERLOADING-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"-    type AttrOrigin RangeStartFieldInfo = Range-    attrGet _ = getRangeStart-    attrSet _ = setRangeStart-    attrConstruct = undefined-    attrClear _ = undefined--range_start :: AttrLabelProxy "start"-range_start = AttrLabelProxy--#endif---{- |-Get the value of the “@end@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' range #end-@--}-getRangeEnd :: MonadIO m => Range -> m Int64-getRangeEnd s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Int64-    return val--{- |-Set the value of the “@end@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' range [ #end 'Data.GI.Base.Attributes.:=' value ]-@--}-setRangeEnd :: MonadIO m => Range -> Int64 -> m ()-setRangeEnd s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Int64)--#if ENABLE_OVERLOADING-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"-    type AttrOrigin RangeEndFieldInfo = Range-    attrGet _ = getRangeEnd-    attrSet _ = setRangeEnd-    attrConstruct = undefined-    attrClear _ = undefined--range_end :: AttrLabelProxy "end"-range_end = AttrLabelProxy--#endif----#if ENABLE_OVERLOADING-instance O.HasAttributeList Range-type instance O.AttributeList Range = RangeAttributeList-type RangeAttributeList = ('[ '("start", RangeStartFieldInfo), '("end", RangeEndFieldInfo)] :: [(Symbol, *)])-#endif--#if ENABLE_OVERLOADING-type family ResolveRangeMethod (t :: Symbol) (o :: *) :: * where-    ResolveRangeMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveRangeMethod t Range, O.MethodInfo info Range p) => OL.IsLabel t (Range -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--
− GI/Soup/Structs/Range.hs-boot 
@@ -1,26 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Structs.Range where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype Range = Range (ManagedPtr Range)-instance WrappedPtr Range where
− GI/Soup/Structs/URI.hs 
@@ -1,2145 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--A 'GI.Soup.Structs.URI.URI' represents a (parsed) URI. 'GI.Soup.Structs.URI.URI' 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 'GI.Soup.Structs.URI.URI' 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 'GI.Soup.Structs.URI.uRIToString'. libsoup does not normally use these-fields; authentication is handled via 'GI.Soup.Objects.Session.Session' signals.--/@host@/ contains the hostname, and /@port@/ the port specified in the-URI. If the URI doesn\'t contain a hostname, /@host@/ will be 'Nothing',-and if it doesn\'t specify a port, /@port@/ may be 0. However, for-\"http\" and \"https\" URIs, /@host@/ is guaranteed to be non-'Nothing'-(trying to parse an http URI with no /@host@/ will return 'Nothing'), 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-'Nothing'. For http\/https URIs, /@path@/ will never be-an empty string either; if the input URI has no path, the parsed-'GI.Soup.Structs.URI.URI' will have a /@path@/ of \"\/\".--/@query@/ and /@fragment@/ are optional for all URI types.-'GI.Soup.Functions.formDecode' may be useful for parsing /@query@/.--Note that /@path@/, /@query@/, and /@fragment@/ may contain-%\<!-- -->-encoded characters. 'GI.Soup.Structs.URI.uRINew' calls-'GI.Soup.Functions.uriNormalize' on them, but not 'GI.Soup.Functions.uriDecode'. This is-necessary to ensure that 'GI.Soup.Structs.URI.uRIToString' will generate a URI-that has exactly the same meaning as the original. (In theory,-'GI.Soup.Structs.URI.URI' should leave /@user@/, /@password@/, and /@host@/ partially-encoded-as well, but this would be more annoying than useful.)--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Structs.URI-    ( ---- * Exported types-    URI(..)                                 ,-    newZeroURI                              ,-    noURI                                   ,--- -- * Methods--- ** copy #method:copy#--#if ENABLE_OVERLOADING-    URICopyMethodInfo                       ,-#endif-    uRICopy                                 ,----- ** copyHost #method:copyHost#--#if ENABLE_OVERLOADING-    URICopyHostMethodInfo                   ,-#endif-    uRICopyHost                             ,----- ** decode #method:decode#--    uRIDecode                               ,----- ** encode #method:encode#--    uRIEncode                               ,----- ** equal #method:equal#--#if ENABLE_OVERLOADING-    URIEqualMethodInfo                      ,-#endif-    uRIEqual                                ,----- ** free #method:free#--#if ENABLE_OVERLOADING-    URIFreeMethodInfo                       ,-#endif-    uRIFree                                 ,----- ** getFragment #method:getFragment#--#if ENABLE_OVERLOADING-    URIGetFragmentMethodInfo                ,-#endif-    uRIGetFragment                          ,----- ** getHost #method:getHost#--#if ENABLE_OVERLOADING-    URIGetHostMethodInfo                    ,-#endif-    uRIGetHost                              ,----- ** getPassword #method:getPassword#--#if ENABLE_OVERLOADING-    URIGetPasswordMethodInfo                ,-#endif-    uRIGetPassword                          ,----- ** getPath #method:getPath#--#if ENABLE_OVERLOADING-    URIGetPathMethodInfo                    ,-#endif-    uRIGetPath                              ,----- ** getPort #method:getPort#--#if ENABLE_OVERLOADING-    URIGetPortMethodInfo                    ,-#endif-    uRIGetPort                              ,----- ** getQuery #method:getQuery#--#if ENABLE_OVERLOADING-    URIGetQueryMethodInfo                   ,-#endif-    uRIGetQuery                             ,----- ** getScheme #method:getScheme#--#if ENABLE_OVERLOADING-    URIGetSchemeMethodInfo                  ,-#endif-    uRIGetScheme                            ,----- ** getUser #method:getUser#--#if ENABLE_OVERLOADING-    URIGetUserMethodInfo                    ,-#endif-    uRIGetUser                              ,----- ** hostEqual #method:hostEqual#--#if ENABLE_OVERLOADING-    URIHostEqualMethodInfo                  ,-#endif-    uRIHostEqual                            ,----- ** hostHash #method:hostHash#--#if ENABLE_OVERLOADING-    URIHostHashMethodInfo                   ,-#endif-    uRIHostHash                             ,----- ** new #method:new#--    uRINew                                  ,----- ** newWithBase #method:newWithBase#--    uRINewWithBase                          ,----- ** normalize #method:normalize#--    uRINormalize                            ,----- ** setFragment #method:setFragment#--#if ENABLE_OVERLOADING-    URISetFragmentMethodInfo                ,-#endif-    uRISetFragment                          ,----- ** setHost #method:setHost#--#if ENABLE_OVERLOADING-    URISetHostMethodInfo                    ,-#endif-    uRISetHost                              ,----- ** setPassword #method:setPassword#--#if ENABLE_OVERLOADING-    URISetPasswordMethodInfo                ,-#endif-    uRISetPassword                          ,----- ** setPath #method:setPath#--#if ENABLE_OVERLOADING-    URISetPathMethodInfo                    ,-#endif-    uRISetPath                              ,----- ** setPort #method:setPort#--#if ENABLE_OVERLOADING-    URISetPortMethodInfo                    ,-#endif-    uRISetPort                              ,----- ** setQuery #method:setQuery#--#if ENABLE_OVERLOADING-    URISetQueryMethodInfo                   ,-#endif-    uRISetQuery                             ,----- ** setQueryFromForm #method:setQueryFromForm#--#if ENABLE_OVERLOADING-    URISetQueryFromFormMethodInfo           ,-#endif-    uRISetQueryFromForm                     ,----- ** setScheme #method:setScheme#--#if ENABLE_OVERLOADING-    URISetSchemeMethodInfo                  ,-#endif-    uRISetScheme                            ,----- ** setUser #method:setUser#--#if ENABLE_OVERLOADING-    URISetUserMethodInfo                    ,-#endif-    uRISetUser                              ,----- ** toString #method:toString#--#if ENABLE_OVERLOADING-    URIToStringMethodInfo                   ,-#endif-    uRIToString                             ,----- ** usesDefaultPort #method:usesDefaultPort#--#if ENABLE_OVERLOADING-    URIUsesDefaultPortMethodInfo            ,-#endif-    uRIUsesDefaultPort                      ,----- -- * Properties--- ** fragment #attr:fragment#-{- | a fragment identifier within /@path@/, or 'Nothing'--}-    clearURIFragment                        ,-    getURIFragment                          ,-    setURIFragment                          ,-#if ENABLE_OVERLOADING-    uRI_fragment                            ,-#endif----- ** host #attr:host#-{- | the hostname or IP address, or 'Nothing'--}-    clearURIHost                            ,-    getURIHost                              ,-    setURIHost                              ,-#if ENABLE_OVERLOADING-    uRI_host                                ,-#endif----- ** password #attr:password#-{- | a password, or 'Nothing'--}-    clearURIPassword                        ,-    getURIPassword                          ,-    setURIPassword                          ,-#if ENABLE_OVERLOADING-    uRI_password                            ,-#endif----- ** path #attr:path#-{- | the path on /@host@/--}-    clearURIPath                            ,-    getURIPath                              ,-    setURIPath                              ,-#if ENABLE_OVERLOADING-    uRI_path                                ,-#endif----- ** port #attr:port#-{- | the port number on /@host@/--}-    getURIPort                              ,-    setURIPort                              ,-#if ENABLE_OVERLOADING-    uRI_port                                ,-#endif----- ** query #attr:query#-{- | a query for /@path@/, or 'Nothing'--}-    clearURIQuery                           ,-    getURIQuery                             ,-    setURIQuery                             ,-#if ENABLE_OVERLOADING-    uRI_query                               ,-#endif----- ** scheme #attr:scheme#-{- | the URI scheme (eg, \"http\")--}-    clearURIScheme                          ,-    getURIScheme                            ,-    setURIScheme                            ,-#if ENABLE_OVERLOADING-    uRI_scheme                              ,-#endif----- ** user #attr:user#-{- | a username, or 'Nothing'--}-    clearURIUser                            ,-    getURIUser                              ,-    setURIUser                              ,-#if ENABLE_OVERLOADING-    uRI_user                                ,-#endif-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL----- | Memory-managed wrapper type.-newtype URI = URI (ManagedPtr 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----- | A convenience alias for `Nothing` :: `Maybe` `URI`.-noURI :: Maybe URI-noURI = Nothing--{- |-Get the value of the “@scheme@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' uRI #scheme-@--}-getURIScheme :: MonadIO m => URI -> m (Maybe T.Text)-getURIScheme s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CString-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--{- |-Set the value of the “@scheme@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' uRI [ #scheme 'Data.GI.Base.Attributes.:=' value ]-@--}-setURIScheme :: MonadIO m => URI -> CString -> m ()-setURIScheme s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: CString)--{- |-Set the value of the “@scheme@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #scheme-@--}-clearURIScheme :: MonadIO m => URI -> m ()-clearURIScheme s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (FP.nullPtr :: CString)--#if ENABLE_OVERLOADING-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"-    type AttrOrigin URISchemeFieldInfo = URI-    attrGet _ = getURIScheme-    attrSet _ = setURIScheme-    attrConstruct = undefined-    attrClear _ = clearURIScheme--uRI_scheme :: AttrLabelProxy "scheme"-uRI_scheme = AttrLabelProxy--#endif---{- |-Get the value of the “@user@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' uRI #user-@--}-getURIUser :: MonadIO m => URI -> m (Maybe T.Text)-getURIUser s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CString-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--{- |-Set the value of the “@user@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' uRI [ #user 'Data.GI.Base.Attributes.:=' value ]-@--}-setURIUser :: MonadIO m => URI -> CString -> m ()-setURIUser s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: CString)--{- |-Set the value of the “@user@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #user-@--}-clearURIUser :: MonadIO m => URI -> m ()-clearURIUser s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (FP.nullPtr :: CString)--#if ENABLE_OVERLOADING-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"-    type AttrOrigin URIUserFieldInfo = URI-    attrGet _ = getURIUser-    attrSet _ = setURIUser-    attrConstruct = undefined-    attrClear _ = clearURIUser--uRI_user :: AttrLabelProxy "user"-uRI_user = AttrLabelProxy--#endif---{- |-Get the value of the “@password@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' uRI #password-@--}-getURIPassword :: MonadIO m => URI -> m (Maybe T.Text)-getURIPassword s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CString-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--{- |-Set the value of the “@password@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' uRI [ #password 'Data.GI.Base.Attributes.:=' value ]-@--}-setURIPassword :: MonadIO m => URI -> CString -> m ()-setURIPassword s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: CString)--{- |-Set the value of the “@password@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #password-@--}-clearURIPassword :: MonadIO m => URI -> m ()-clearURIPassword s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (FP.nullPtr :: CString)--#if ENABLE_OVERLOADING-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"-    type AttrOrigin URIPasswordFieldInfo = URI-    attrGet _ = getURIPassword-    attrSet _ = setURIPassword-    attrConstruct = undefined-    attrClear _ = clearURIPassword--uRI_password :: AttrLabelProxy "password"-uRI_password = AttrLabelProxy--#endif---{- |-Get the value of the “@host@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' uRI #host-@--}-getURIHost :: MonadIO m => URI -> m (Maybe T.Text)-getURIHost s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CString-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--{- |-Set the value of the “@host@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' uRI [ #host 'Data.GI.Base.Attributes.:=' value ]-@--}-setURIHost :: MonadIO m => URI -> CString -> m ()-setURIHost s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: CString)--{- |-Set the value of the “@host@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #host-@--}-clearURIHost :: MonadIO m => URI -> m ()-clearURIHost s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (FP.nullPtr :: CString)--#if ENABLE_OVERLOADING-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"-    type AttrOrigin URIHostFieldInfo = URI-    attrGet _ = getURIHost-    attrSet _ = setURIHost-    attrConstruct = undefined-    attrClear _ = clearURIHost--uRI_host :: AttrLabelProxy "host"-uRI_host = AttrLabelProxy--#endif---{- |-Get the value of the “@port@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' uRI #port-@--}-getURIPort :: MonadIO m => URI -> m Word32-getURIPort s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO Word32-    return val--{- |-Set the value of the “@port@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' uRI [ #port 'Data.GI.Base.Attributes.:=' value ]-@--}-setURIPort :: MonadIO m => URI -> Word32 -> m ()-setURIPort s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (val :: Word32)--#if ENABLE_OVERLOADING-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"-    type AttrOrigin URIPortFieldInfo = URI-    attrGet _ = getURIPort-    attrSet _ = setURIPort-    attrConstruct = undefined-    attrClear _ = undefined--uRI_port :: AttrLabelProxy "port"-uRI_port = AttrLabelProxy--#endif---{- |-Get the value of the “@path@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' uRI #path-@--}-getURIPath :: MonadIO m => URI -> m (Maybe T.Text)-getURIPath s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO CString-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--{- |-Set the value of the “@path@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' uRI [ #path 'Data.GI.Base.Attributes.:=' value ]-@--}-setURIPath :: MonadIO m => URI -> CString -> m ()-setURIPath s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 40) (val :: CString)--{- |-Set the value of the “@path@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #path-@--}-clearURIPath :: MonadIO m => URI -> m ()-clearURIPath s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 40) (FP.nullPtr :: CString)--#if ENABLE_OVERLOADING-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"-    type AttrOrigin URIPathFieldInfo = URI-    attrGet _ = getURIPath-    attrSet _ = setURIPath-    attrConstruct = undefined-    attrClear _ = clearURIPath--uRI_path :: AttrLabelProxy "path"-uRI_path = AttrLabelProxy--#endif---{- |-Get the value of the “@query@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' uRI #query-@--}-getURIQuery :: MonadIO m => URI -> m (Maybe T.Text)-getURIQuery s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO CString-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--{- |-Set the value of the “@query@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' uRI [ #query 'Data.GI.Base.Attributes.:=' value ]-@--}-setURIQuery :: MonadIO m => URI -> CString -> m ()-setURIQuery s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 48) (val :: CString)--{- |-Set the value of the “@query@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #query-@--}-clearURIQuery :: MonadIO m => URI -> m ()-clearURIQuery s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 48) (FP.nullPtr :: CString)--#if ENABLE_OVERLOADING-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"-    type AttrOrigin URIQueryFieldInfo = URI-    attrGet _ = getURIQuery-    attrSet _ = setURIQuery-    attrConstruct = undefined-    attrClear _ = clearURIQuery--uRI_query :: AttrLabelProxy "query"-uRI_query = AttrLabelProxy--#endif---{- |-Get the value of the “@fragment@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.get' uRI #fragment-@--}-getURIFragment :: MonadIO m => URI -> m (Maybe T.Text)-getURIFragment s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 56) :: IO CString-    result <- SP.convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--{- |-Set the value of the “@fragment@” field.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.set' uRI [ #fragment 'Data.GI.Base.Attributes.:=' value ]-@--}-setURIFragment :: MonadIO m => URI -> CString -> m ()-setURIFragment s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 56) (val :: CString)--{- |-Set the value of the “@fragment@” field to `Nothing`.-When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to--@-'Data.GI.Base.Attributes.clear' #fragment-@--}-clearURIFragment :: MonadIO m => URI -> m ()-clearURIFragment s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 56) (FP.nullPtr :: CString)--#if ENABLE_OVERLOADING-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"-    type AttrOrigin URIFragmentFieldInfo = URI-    attrGet _ = getURIFragment-    attrSet _ = setURIFragment-    attrConstruct = undefined-    attrClear _ = clearURIFragment--uRI_fragment :: AttrLabelProxy "fragment"-uRI_fragment = AttrLabelProxy--#endif----#if ENABLE_OVERLOADING-instance O.HasAttributeList URI-type instance O.AttributeList URI = URIAttributeList-type URIAttributeList = ('[ '("scheme", URISchemeFieldInfo), '("user", URIUserFieldInfo), '("password", URIPasswordFieldInfo), '("host", URIHostFieldInfo), '("port", URIPortFieldInfo), '("path", URIPathFieldInfo), '("query", URIQueryFieldInfo), '("fragment", URIFragmentFieldInfo)] :: [(Symbol, *)])-#endif---- method URI::new--- method type : Constructor--- Args : [Arg {argCName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a URI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "URI"}))--- throws : False--- Skip return : False--foreign import ccall "soup_uri_new" soup_uri_new :: -    CString ->                              -- uri_string : TBasicType TUTF8-    IO (Ptr URI)--{- |-Parses an absolute URI.--You can also pass 'Nothing' for /@uriString@/ if you want to get back an-\"empty\" 'GI.Soup.Structs.URI.URI' that you can fill in by hand. (You will need to-call at least 'GI.Soup.Structs.URI.uRISetScheme' and 'GI.Soup.Structs.URI.uRISetPath', since-those fields are required.)--}-uRINew ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    Maybe (T.Text)-    {- ^ /@uriString@/: a URI -}-    -> m (Maybe URI)-    {- ^ __Returns:__ a 'GI.Soup.Structs.URI.URI', or 'Nothing' if the given string- was found to be invalid. -}-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--#if ENABLE_OVERLOADING-#endif---- method URI::new_with_base--- method type : Constructor--- Args : [Arg {argCName = "base", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a base URI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the URI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "URI"}))--- throws : False--- Skip return : False--foreign import ccall "soup_uri_new_with_base" soup_uri_new_with_base :: -    Ptr URI ->                              -- base : TInterface (Name {namespace = "Soup", name = "URI"})-    CString ->                              -- uri_string : TBasicType TUTF8-    IO (Ptr URI)--{- |-Parses /@uriString@/ relative to /@base@/.--}-uRINewWithBase ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    URI-    {- ^ /@base@/: a base URI -}-    -> T.Text-    {- ^ /@uriString@/: the URI -}-    -> m URI-    {- ^ __Returns:__ a parsed 'GI.Soup.Structs.URI.URI'. -}-uRINewWithBase base uriString = liftIO $ do-    base' <- unsafeManagedPtrGetPtr base-    uriString' <- textToCString uriString-    result <- soup_uri_new_with_base base' uriString'-    checkUnexpectedReturnNULL "uRINewWithBase" result-    result' <- (wrapBoxed URI) result-    touchManagedPtr base-    freeMem uriString'-    return result'--#if ENABLE_OVERLOADING-#endif---- method URI::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "URI"}))--- throws : False--- Skip return : False--foreign import ccall "soup_uri_copy" soup_uri_copy :: -    Ptr URI ->                              -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    IO (Ptr URI)--{- |-Copies /@uri@/--}-uRICopy ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    URI-    {- ^ /@uri@/: a 'GI.Soup.Structs.URI.URI' -}-    -> m URI-    {- ^ __Returns:__ a copy of /@uri@/, which must be freed with 'GI.Soup.Structs.URI.uRIFree' -}-uRICopy uri = liftIO $ do-    uri' <- unsafeManagedPtrGetPtr uri-    result <- soup_uri_copy uri'-    checkUnexpectedReturnNULL "uRICopy" result-    result' <- (wrapBoxed URI) result-    touchManagedPtr uri-    return result'--#if ENABLE_OVERLOADING-data URICopyMethodInfo-instance (signature ~ (m URI), MonadIO m) => O.MethodInfo URICopyMethodInfo URI signature where-    overloadedMethod _ = uRICopy--#endif---- method URI::copy_host--- method type : OrdinaryMethod--- Args : [Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface (Name {namespace = "Soup", name = "URI"}))--- throws : False--- Skip return : False--foreign import ccall "soup_uri_copy_host" soup_uri_copy_host :: -    Ptr URI ->                              -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    IO (Ptr URI)--{- |-Makes a copy of /@uri@/, considering only the protocol, host, and port--/Since: 2.28/--}-uRICopyHost ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    URI-    {- ^ /@uri@/: a 'GI.Soup.Structs.URI.URI' -}-    -> m URI-    {- ^ __Returns:__ the new 'GI.Soup.Structs.URI.URI' -}-uRICopyHost uri = liftIO $ do-    uri' <- unsafeManagedPtrGetPtr uri-    result <- soup_uri_copy_host uri'-    checkUnexpectedReturnNULL "uRICopyHost" result-    result' <- (wrapBoxed URI) result-    touchManagedPtr uri-    return result'--#if ENABLE_OVERLOADING-data URICopyHostMethodInfo-instance (signature ~ (m URI), MonadIO m) => O.MethodInfo URICopyHostMethodInfo URI signature where-    overloadedMethod _ = uRICopyHost--#endif---- method URI::equal--- method type : OrdinaryMethod--- Args : [Arg {argCName = "uri1", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "uri2", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "another #SoupURI", sinceVersion = Nothing}, 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 ->                              -- uri1 : TInterface (Name {namespace = "Soup", name = "URI"})-    Ptr URI ->                              -- uri2 : TInterface (Name {namespace = "Soup", name = "URI"})-    IO CInt--{- |-Tests whether or not /@uri1@/ and /@uri2@/ are equal in all parts--}-uRIEqual ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    URI-    {- ^ /@uri1@/: a 'GI.Soup.Structs.URI.URI' -}-    -> URI-    {- ^ /@uri2@/: another 'GI.Soup.Structs.URI.URI' -}-    -> m Bool-    {- ^ __Returns:__ 'True' or 'False' -}-uRIEqual uri1 uri2 = liftIO $ do-    uri1' <- unsafeManagedPtrGetPtr uri1-    uri2' <- unsafeManagedPtrGetPtr uri2-    result <- soup_uri_equal uri1' uri2'-    let result' = (/= 0) result-    touchManagedPtr uri1-    touchManagedPtr uri2-    return result'--#if ENABLE_OVERLOADING-data URIEqualMethodInfo-instance (signature ~ (URI -> m Bool), MonadIO m) => O.MethodInfo URIEqualMethodInfo URI signature where-    overloadedMethod _ = uRIEqual--#endif---- method URI::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI", sinceVersion = Nothing}, 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 ->                              -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    IO ()--{- |-Frees /@uri@/.--}-uRIFree ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    URI-    {- ^ /@uri@/: a 'GI.Soup.Structs.URI.URI' -}-    -> m ()-uRIFree uri = liftIO $ do-    uri' <- unsafeManagedPtrGetPtr uri-    soup_uri_free uri'-    touchManagedPtr uri-    return ()--#if ENABLE_OVERLOADING-data URIFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo URIFreeMethodInfo URI signature where-    overloadedMethod _ = uRIFree--#endif---- method URI::get_fragment--- method type : OrdinaryMethod--- Args : [Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI", sinceVersion = Nothing}, 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 ->                              -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    IO CString--{- |-Gets /@uri@/\'s fragment.--/Since: 2.32/--}-uRIGetFragment ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    URI-    {- ^ /@uri@/: a 'GI.Soup.Structs.URI.URI' -}-    -> m T.Text-    {- ^ __Returns:__ /@uri@/\'s fragment. -}-uRIGetFragment uri = liftIO $ do-    uri' <- unsafeManagedPtrGetPtr uri-    result <- soup_uri_get_fragment uri'-    checkUnexpectedReturnNULL "uRIGetFragment" result-    result' <- cstringToText result-    touchManagedPtr uri-    return result'--#if ENABLE_OVERLOADING-data URIGetFragmentMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo URIGetFragmentMethodInfo URI signature where-    overloadedMethod _ = uRIGetFragment--#endif---- method URI::get_host--- method type : OrdinaryMethod--- Args : [Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI", sinceVersion = Nothing}, 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 ->                              -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    IO CString--{- |-Gets /@uri@/\'s host.--/Since: 2.32/--}-uRIGetHost ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    URI-    {- ^ /@uri@/: a 'GI.Soup.Structs.URI.URI' -}-    -> m T.Text-    {- ^ __Returns:__ /@uri@/\'s host. -}-uRIGetHost uri = liftIO $ do-    uri' <- unsafeManagedPtrGetPtr uri-    result <- soup_uri_get_host uri'-    checkUnexpectedReturnNULL "uRIGetHost" result-    result' <- cstringToText result-    touchManagedPtr uri-    return result'--#if ENABLE_OVERLOADING-data URIGetHostMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo URIGetHostMethodInfo URI signature where-    overloadedMethod _ = uRIGetHost--#endif---- method URI::get_password--- method type : OrdinaryMethod--- Args : [Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI", sinceVersion = Nothing}, 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 ->                              -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    IO CString--{- |-Gets /@uri@/\'s password.--/Since: 2.32/--}-uRIGetPassword ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    URI-    {- ^ /@uri@/: a 'GI.Soup.Structs.URI.URI' -}-    -> m T.Text-    {- ^ __Returns:__ /@uri@/\'s password. -}-uRIGetPassword uri = liftIO $ do-    uri' <- unsafeManagedPtrGetPtr uri-    result <- soup_uri_get_password uri'-    checkUnexpectedReturnNULL "uRIGetPassword" result-    result' <- cstringToText result-    touchManagedPtr uri-    return result'--#if ENABLE_OVERLOADING-data URIGetPasswordMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo URIGetPasswordMethodInfo URI signature where-    overloadedMethod _ = uRIGetPassword--#endif---- method URI::get_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI", sinceVersion = Nothing}, 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 ->                              -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    IO CString--{- |-Gets /@uri@/\'s path.--/Since: 2.32/--}-uRIGetPath ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    URI-    {- ^ /@uri@/: a 'GI.Soup.Structs.URI.URI' -}-    -> m T.Text-    {- ^ __Returns:__ /@uri@/\'s path. -}-uRIGetPath uri = liftIO $ do-    uri' <- unsafeManagedPtrGetPtr uri-    result <- soup_uri_get_path uri'-    checkUnexpectedReturnNULL "uRIGetPath" result-    result' <- cstringToText result-    touchManagedPtr uri-    return result'--#if ENABLE_OVERLOADING-data URIGetPathMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo URIGetPathMethodInfo URI signature where-    overloadedMethod _ = uRIGetPath--#endif---- method URI::get_port--- method type : OrdinaryMethod--- Args : [Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI", sinceVersion = Nothing}, 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 ->                              -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    IO Word32--{- |-Gets /@uri@/\'s port.--/Since: 2.32/--}-uRIGetPort ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    URI-    {- ^ /@uri@/: a 'GI.Soup.Structs.URI.URI' -}-    -> m Word32-    {- ^ __Returns:__ /@uri@/\'s port. -}-uRIGetPort uri = liftIO $ do-    uri' <- unsafeManagedPtrGetPtr uri-    result <- soup_uri_get_port uri'-    touchManagedPtr uri-    return result--#if ENABLE_OVERLOADING-data URIGetPortMethodInfo-instance (signature ~ (m Word32), MonadIO m) => O.MethodInfo URIGetPortMethodInfo URI signature where-    overloadedMethod _ = uRIGetPort--#endif---- method URI::get_query--- method type : OrdinaryMethod--- Args : [Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI", sinceVersion = Nothing}, 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 ->                              -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    IO CString--{- |-Gets /@uri@/\'s query.--/Since: 2.32/--}-uRIGetQuery ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    URI-    {- ^ /@uri@/: a 'GI.Soup.Structs.URI.URI' -}-    -> m T.Text-    {- ^ __Returns:__ /@uri@/\'s query. -}-uRIGetQuery uri = liftIO $ do-    uri' <- unsafeManagedPtrGetPtr uri-    result <- soup_uri_get_query uri'-    checkUnexpectedReturnNULL "uRIGetQuery" result-    result' <- cstringToText result-    touchManagedPtr uri-    return result'--#if ENABLE_OVERLOADING-data URIGetQueryMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo URIGetQueryMethodInfo URI signature where-    overloadedMethod _ = uRIGetQuery--#endif---- method URI::get_scheme--- method type : OrdinaryMethod--- Args : [Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI", sinceVersion = Nothing}, 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 ->                              -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    IO CString--{- |-Gets /@uri@/\'s scheme.--/Since: 2.32/--}-uRIGetScheme ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    URI-    {- ^ /@uri@/: a 'GI.Soup.Structs.URI.URI' -}-    -> m T.Text-    {- ^ __Returns:__ /@uri@/\'s scheme. -}-uRIGetScheme uri = liftIO $ do-    uri' <- unsafeManagedPtrGetPtr uri-    result <- soup_uri_get_scheme uri'-    checkUnexpectedReturnNULL "uRIGetScheme" result-    result' <- cstringToText result-    touchManagedPtr uri-    return result'--#if ENABLE_OVERLOADING-data URIGetSchemeMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo URIGetSchemeMethodInfo URI signature where-    overloadedMethod _ = uRIGetScheme--#endif---- method URI::get_user--- method type : OrdinaryMethod--- Args : [Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI", sinceVersion = Nothing}, 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 ->                              -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    IO CString--{- |-Gets /@uri@/\'s user.--/Since: 2.32/--}-uRIGetUser ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    URI-    {- ^ /@uri@/: a 'GI.Soup.Structs.URI.URI' -}-    -> m T.Text-    {- ^ __Returns:__ /@uri@/\'s user. -}-uRIGetUser uri = liftIO $ do-    uri' <- unsafeManagedPtrGetPtr uri-    result <- soup_uri_get_user uri'-    checkUnexpectedReturnNULL "uRIGetUser" result-    result' <- cstringToText result-    touchManagedPtr uri-    return result'--#if ENABLE_OVERLOADING-data URIGetUserMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo URIGetUserMethodInfo URI signature where-    overloadedMethod _ = uRIGetUser--#endif---- method URI::host_equal--- method type : OrdinaryMethod--- Args : [Arg {argCName = "v1", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI with a non-%NULL @host member", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "v2", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI with a non-%NULL @host member", sinceVersion = Nothing}, 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 ->                              -- v1 : TInterface (Name {namespace = "Soup", name = "URI"})-    Ptr URI ->                              -- v2 : TInterface (Name {namespace = "Soup", name = "URI"})-    IO CInt--{- |-Compares /@v1@/ and /@v2@/, considering only the scheme, host, and port.--/Since: 2.28/--}-uRIHostEqual ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    URI-    {- ^ /@v1@/: a 'GI.Soup.Structs.URI.URI' with a non-'Nothing' /@host@/ member -}-    -> URI-    {- ^ /@v2@/: a 'GI.Soup.Structs.URI.URI' with a non-'Nothing' /@host@/ member -}-    -> m Bool-    {- ^ __Returns:__ whether or not the URIs are equal in scheme, host,-and port. -}-uRIHostEqual v1 v2 = liftIO $ do-    v1' <- unsafeManagedPtrGetPtr v1-    v2' <- unsafeManagedPtrGetPtr v2-    result <- soup_uri_host_equal v1' v2'-    let result' = (/= 0) result-    touchManagedPtr v1-    touchManagedPtr v2-    return result'--#if ENABLE_OVERLOADING-data URIHostEqualMethodInfo-instance (signature ~ (URI -> m Bool), MonadIO m) => O.MethodInfo URIHostEqualMethodInfo URI signature where-    overloadedMethod _ = uRIHostEqual--#endif---- method URI::host_hash--- method type : OrdinaryMethod--- Args : [Arg {argCName = "key", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI with a non-%NULL @host member", sinceVersion = Nothing}, 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 ->                              -- key : TInterface (Name {namespace = "Soup", name = "URI"})-    IO Word32--{- |-Hashes /@key@/, considering only the scheme, host, and port.--/Since: 2.28/--}-uRIHostHash ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    URI-    {- ^ /@key@/: a 'GI.Soup.Structs.URI.URI' with a non-'Nothing' /@host@/ member -}-    -> m Word32-    {- ^ __Returns:__ a hash -}-uRIHostHash key = liftIO $ do-    key' <- unsafeManagedPtrGetPtr key-    result <- soup_uri_host_hash key'-    touchManagedPtr key-    return result--#if ENABLE_OVERLOADING-data URIHostHashMethodInfo-instance (signature ~ (m Word32), MonadIO m) => O.MethodInfo URIHostHashMethodInfo URI signature where-    overloadedMethod _ = uRIHostHash--#endif---- method URI::set_fragment--- method type : OrdinaryMethod--- Args : [Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fragment", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the fragment", sinceVersion = Nothing}, 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 ->                              -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    CString ->                              -- fragment : TBasicType TUTF8-    IO ()--{- |-Sets /@uri@/\'s fragment to /@fragment@/.--}-uRISetFragment ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    URI-    {- ^ /@uri@/: a 'GI.Soup.Structs.URI.URI' -}-    -> Maybe (T.Text)-    {- ^ /@fragment@/: the fragment -}-    -> m ()-uRISetFragment uri fragment = liftIO $ do-    uri' <- unsafeManagedPtrGetPtr uri-    maybeFragment <- case fragment of-        Nothing -> return nullPtr-        Just jFragment -> do-            jFragment' <- textToCString jFragment-            return jFragment'-    soup_uri_set_fragment uri' maybeFragment-    touchManagedPtr uri-    freeMem maybeFragment-    return ()--#if ENABLE_OVERLOADING-data URISetFragmentMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m) => O.MethodInfo URISetFragmentMethodInfo URI signature where-    overloadedMethod _ = uRISetFragment--#endif---- method URI::set_host--- method type : OrdinaryMethod--- Args : [Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "host", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the hostname or IP address, or %NULL", sinceVersion = Nothing}, 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 ->                              -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    CString ->                              -- host : TBasicType TUTF8-    IO ()--{- |-Sets /@uri@/\'s host to /@host@/.--If /@host@/ is an IPv6 IP address, it should not include the brackets-required by the URI syntax; they will be added automatically when-converting /@uri@/ to a string.--http and https URIs should not have a 'Nothing' /@host@/.--}-uRISetHost ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    URI-    {- ^ /@uri@/: a 'GI.Soup.Structs.URI.URI' -}-    -> Maybe (T.Text)-    {- ^ /@host@/: the hostname or IP address, or 'Nothing' -}-    -> m ()-uRISetHost uri host = liftIO $ do-    uri' <- unsafeManagedPtrGetPtr uri-    maybeHost <- case host of-        Nothing -> return nullPtr-        Just jHost -> do-            jHost' <- textToCString jHost-            return jHost'-    soup_uri_set_host uri' maybeHost-    touchManagedPtr uri-    freeMem maybeHost-    return ()--#if ENABLE_OVERLOADING-data URISetHostMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m) => O.MethodInfo URISetHostMethodInfo URI signature where-    overloadedMethod _ = uRISetHost--#endif---- method URI::set_password--- method type : OrdinaryMethod--- Args : [Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "password", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the password, or %NULL", sinceVersion = Nothing}, 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 ->                              -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    CString ->                              -- password : TBasicType TUTF8-    IO ()--{- |-Sets /@uri@/\'s password to /@password@/.--}-uRISetPassword ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    URI-    {- ^ /@uri@/: a 'GI.Soup.Structs.URI.URI' -}-    -> Maybe (T.Text)-    {- ^ /@password@/: the password, or 'Nothing' -}-    -> m ()-uRISetPassword uri password = liftIO $ do-    uri' <- unsafeManagedPtrGetPtr uri-    maybePassword <- case password of-        Nothing -> return nullPtr-        Just jPassword -> do-            jPassword' <- textToCString jPassword-            return jPassword'-    soup_uri_set_password uri' maybePassword-    touchManagedPtr uri-    freeMem maybePassword-    return ()--#if ENABLE_OVERLOADING-data URISetPasswordMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m) => O.MethodInfo URISetPasswordMethodInfo URI signature where-    overloadedMethod _ = uRISetPassword--#endif---- method URI::set_path--- method type : OrdinaryMethod--- Args : [Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the non-%NULL path", sinceVersion = Nothing}, 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 ->                              -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    CString ->                              -- path : TBasicType TUTF8-    IO ()--{- |-Sets /@uri@/\'s path to /@path@/.--}-uRISetPath ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    URI-    {- ^ /@uri@/: a 'GI.Soup.Structs.URI.URI' -}-    -> T.Text-    {- ^ /@path@/: the non-'Nothing' path -}-    -> m ()-uRISetPath uri path = liftIO $ do-    uri' <- unsafeManagedPtrGetPtr uri-    path' <- textToCString path-    soup_uri_set_path uri' path'-    touchManagedPtr uri-    freeMem path'-    return ()--#if ENABLE_OVERLOADING-data URISetPathMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m) => O.MethodInfo URISetPathMethodInfo URI signature where-    overloadedMethod _ = uRISetPath--#endif---- method URI::set_port--- method type : OrdinaryMethod--- Args : [Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "port", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the port, or 0", sinceVersion = Nothing}, 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 ->                              -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    Word32 ->                               -- port : TBasicType TUInt-    IO ()--{- |-Sets /@uri@/\'s port to /@port@/. If /@port@/ is 0, /@uri@/ will not have an-explicitly-specified port.--}-uRISetPort ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    URI-    {- ^ /@uri@/: a 'GI.Soup.Structs.URI.URI' -}-    -> Word32-    {- ^ /@port@/: the port, or 0 -}-    -> m ()-uRISetPort uri port = liftIO $ do-    uri' <- unsafeManagedPtrGetPtr uri-    soup_uri_set_port uri' port-    touchManagedPtr uri-    return ()--#if ENABLE_OVERLOADING-data URISetPortMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m) => O.MethodInfo URISetPortMethodInfo URI signature where-    overloadedMethod _ = uRISetPort--#endif---- method URI::set_query--- method type : OrdinaryMethod--- Args : [Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "query", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the query", sinceVersion = Nothing}, 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 ->                              -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    CString ->                              -- query : TBasicType TUTF8-    IO ()--{- |-Sets /@uri@/\'s query to /@query@/.--}-uRISetQuery ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    URI-    {- ^ /@uri@/: a 'GI.Soup.Structs.URI.URI' -}-    -> Maybe (T.Text)-    {- ^ /@query@/: the query -}-    -> m ()-uRISetQuery uri query = liftIO $ do-    uri' <- unsafeManagedPtrGetPtr uri-    maybeQuery <- case query of-        Nothing -> return nullPtr-        Just jQuery -> do-            jQuery' <- textToCString jQuery-            return jQuery'-    soup_uri_set_query uri' maybeQuery-    touchManagedPtr uri-    freeMem maybeQuery-    return ()--#if ENABLE_OVERLOADING-data URISetQueryMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m) => O.MethodInfo URISetQueryMethodInfo URI signature where-    overloadedMethod _ = uRISetQuery--#endif---- method URI::set_query_from_form--- method type : OrdinaryMethod--- Args : [Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "form", argType = TGHash (TBasicType TUTF8) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GHashTable containing HTML form\ninformation", sinceVersion = Nothing}, 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 ->                              -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    Ptr (GHashTable CString CString) ->     -- form : TGHash (TBasicType TUTF8) (TBasicType TUTF8)-    IO ()--{- |-Sets /@uri@/\'s query to the result of encoding /@form@/ according to the-HTML form rules. See 'GI.Soup.Functions.formEncodeHash' for more information.--}-uRISetQueryFromForm ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    URI-    {- ^ /@uri@/: a 'GI.Soup.Structs.URI.URI' -}-    -> Map.Map T.Text T.Text-    {- ^ /@form@/: a 'GI.GLib.Structs.HashTable.HashTable' containing HTML form-information -}-    -> m ()-uRISetQueryFromForm uri form = liftIO $ do-    uri' <- unsafeManagedPtrGetPtr uri-    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 uri' form''''''-    touchManagedPtr uri-    unrefGHashTable form''''''-    return ()--#if ENABLE_OVERLOADING-data URISetQueryFromFormMethodInfo-instance (signature ~ (Map.Map T.Text T.Text -> m ()), MonadIO m) => O.MethodInfo URISetQueryFromFormMethodInfo URI signature where-    overloadedMethod _ = uRISetQueryFromForm--#endif---- method URI::set_scheme--- method type : OrdinaryMethod--- Args : [Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scheme", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the URI scheme", sinceVersion = Nothing}, 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 ->                              -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    CString ->                              -- scheme : TBasicType TUTF8-    IO ()--{- |-Sets /@uri@/\'s scheme to /@scheme@/. This will also set /@uri@/\'s port to-the default port for /@scheme@/, if known.--}-uRISetScheme ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    URI-    {- ^ /@uri@/: a 'GI.Soup.Structs.URI.URI' -}-    -> T.Text-    {- ^ /@scheme@/: the URI scheme -}-    -> m ()-uRISetScheme uri scheme = liftIO $ do-    uri' <- unsafeManagedPtrGetPtr uri-    scheme' <- textToCString scheme-    soup_uri_set_scheme uri' scheme'-    touchManagedPtr uri-    freeMem scheme'-    return ()--#if ENABLE_OVERLOADING-data URISetSchemeMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m) => O.MethodInfo URISetSchemeMethodInfo URI signature where-    overloadedMethod _ = uRISetScheme--#endif---- method URI::set_user--- method type : OrdinaryMethod--- Args : [Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the username, or %NULL", sinceVersion = Nothing}, 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 ->                              -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    CString ->                              -- user : TBasicType TUTF8-    IO ()--{- |-Sets /@uri@/\'s user to /@user@/.--}-uRISetUser ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    URI-    {- ^ /@uri@/: a 'GI.Soup.Structs.URI.URI' -}-    -> Maybe (T.Text)-    {- ^ /@user@/: the username, or 'Nothing' -}-    -> m ()-uRISetUser uri user = liftIO $ do-    uri' <- unsafeManagedPtrGetPtr uri-    maybeUser <- case user of-        Nothing -> return nullPtr-        Just jUser -> do-            jUser' <- textToCString jUser-            return jUser'-    soup_uri_set_user uri' maybeUser-    touchManagedPtr uri-    freeMem maybeUser-    return ()--#if ENABLE_OVERLOADING-data URISetUserMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m) => O.MethodInfo URISetUserMethodInfo URI signature where-    overloadedMethod _ = uRISetUser--#endif---- method URI::to_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "just_path_and_query", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "if %TRUE, output just the path and query portions", sinceVersion = Nothing}, 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 ->                              -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    CInt ->                                 -- just_path_and_query : TBasicType TBoolean-    IO CString--{- |-Returns a string representing /@uri@/.--If /@justPathAndQuery@/ is 'True', this concatenates the path and query-together. That is, it constructs the string that would be needed in-the Request-Line of an HTTP request for /@uri@/.--Note that the output will never contain a password, even if /@uri@/-does.--}-uRIToString ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    URI-    {- ^ /@uri@/: a 'GI.Soup.Structs.URI.URI' -}-    -> Bool-    {- ^ /@justPathAndQuery@/: if 'True', output just the path and query portions -}-    -> m T.Text-    {- ^ __Returns:__ a string representing /@uri@/, which the caller must free. -}-uRIToString uri justPathAndQuery = liftIO $ do-    uri' <- unsafeManagedPtrGetPtr uri-    let justPathAndQuery' = (fromIntegral . fromEnum) justPathAndQuery-    result <- soup_uri_to_string uri' justPathAndQuery'-    checkUnexpectedReturnNULL "uRIToString" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr uri-    return result'--#if ENABLE_OVERLOADING-data URIToStringMethodInfo-instance (signature ~ (Bool -> m T.Text), MonadIO m) => O.MethodInfo URIToStringMethodInfo URI signature where-    overloadedMethod _ = uRIToString--#endif---- method URI::uses_default_port--- method type : OrdinaryMethod--- Args : [Arg {argCName = "uri", argType = TInterface (Name {namespace = "Soup", name = "URI"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #SoupURI", sinceVersion = Nothing}, 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 ->                              -- uri : TInterface (Name {namespace = "Soup", name = "URI"})-    IO CInt--{- |-Tests if /@uri@/ uses the default port for its scheme. (Eg, 80 for-http.) (This only works for http, https and ftp; libsoup does not know-the default ports of other protocols.)--}-uRIUsesDefaultPort ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    URI-    {- ^ /@uri@/: a 'GI.Soup.Structs.URI.URI' -}-    -> m Bool-    {- ^ __Returns:__ 'True' or 'False' -}-uRIUsesDefaultPort uri = liftIO $ do-    uri' <- unsafeManagedPtrGetPtr uri-    result <- soup_uri_uses_default_port uri'-    let result' = (/= 0) result-    touchManagedPtr uri-    return result'--#if ENABLE_OVERLOADING-data URIUsesDefaultPortMethodInfo-instance (signature ~ (m Bool), MonadIO m) => O.MethodInfo URIUsesDefaultPortMethodInfo URI signature where-    overloadedMethod _ = uRIUsesDefaultPort--#endif---- method URI::decode--- method type : MemberFunction--- Args : [Arg {argCName = "part", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a URI part", sinceVersion = Nothing}, 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--{- |-Fully %\<!-- -->-decodes /@part@/.--In the past, this would return 'Nothing' if /@part@/ contained invalid-percent-encoding, but now it just ignores the problem (as-'GI.Soup.Structs.URI.uRINew' already did).--}-uRIDecode ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@part@/: a URI part -}-    -> m T.Text-    {- ^ __Returns:__ the decoded URI part. -}-uRIDecode part = liftIO $ do-    part' <- textToCString part-    result <- soup_uri_decode part'-    checkUnexpectedReturnNULL "uRIDecode" result-    result' <- cstringToText result-    freeMem result-    freeMem part'-    return result'--#if ENABLE_OVERLOADING-#endif---- method URI::encode--- method type : MemberFunction--- Args : [Arg {argCName = "part", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a URI part", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "escape_extra", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "additional reserved characters to\nescape (or %NULL)", sinceVersion = Nothing}, 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--{- |-This %\<!-- -->-encodes the given URI part and returns the escaped-version in allocated memory, which the caller must free when it is-done.--}-uRIEncode ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@part@/: a URI part -}-    -> Maybe (T.Text)-    {- ^ /@escapeExtra@/: additional reserved characters to-escape (or 'Nothing') -}-    -> m T.Text-    {- ^ __Returns:__ the encoded URI part -}-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 "uRIEncode" result-    result' <- cstringToText result-    freeMem result-    freeMem part'-    freeMem maybeEscapeExtra-    return result'--#if ENABLE_OVERLOADING-#endif---- method URI::normalize--- method type : MemberFunction--- Args : [Arg {argCName = "part", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a URI part", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unescape_extra", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "reserved characters to unescape (or %NULL)", sinceVersion = Nothing}, 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--{- |-%\<!-- -->-decodes any \"unreserved\" characters (or characters in-/@unescapeExtra@/) in /@part@/, and %\<!-- -->-encodes any non-ASCII-characters, spaces, and non-printing characters in /@part@/.--\"Unreserved\" characters are those that are not allowed to be used-for punctuation according to the URI spec. For example, letters are-unreserved, so 'GI.Soup.Functions.uriNormalize' will turn-\<literal>http:\/\/example.com\/foo\/b%\<!-- -->61r\<\/literal> into-\<literal>http:\/\/example.com\/foo\/bar\<\/literal>, which is guaranteed-to mean the same thing. However, \"\/\" is \"reserved\", so-\<literal>http:\/\/example.com\/foo%\<!-- -->2Fbar\<\/literal> would not-be changed, because it might mean something different to the-server.--In the past, this would return 'Nothing' if /@part@/ contained invalid-percent-encoding, but now it just ignores the problem (as-'GI.Soup.Structs.URI.uRINew' already did).--}-uRINormalize ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    T.Text-    {- ^ /@part@/: a URI part -}-    -> Maybe (T.Text)-    {- ^ /@unescapeExtra@/: reserved characters to unescape (or 'Nothing') -}-    -> m T.Text-    {- ^ __Returns:__ the normalized URI part -}-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 "uRINormalize" result-    result' <- cstringToText result-    freeMem result-    freeMem part'-    freeMem maybeUnescapeExtra-    return result'--#if ENABLE_OVERLOADING-#endif--#if ENABLE_OVERLOADING-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 "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 = O.MethodResolutionFailed l o--instance (info ~ ResolveURIMethod t URI, O.MethodInfo info URI p) => OL.IsLabel t (URI -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--
− GI/Soup/Structs/URI.hs-boot 
@@ -1,101 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Structs.URI where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype URI = URI (ManagedPtr URI)-instance BoxedObject URI where-#if ENABLE_OVERLOADING-data URICopyMethodInfo-#endif-#if ENABLE_OVERLOADING-data URICopyHostMethodInfo-#endif-#if ENABLE_OVERLOADING-data URIEqualMethodInfo-#endif-#if ENABLE_OVERLOADING-data URIFreeMethodInfo-#endif-#if ENABLE_OVERLOADING-data URIGetFragmentMethodInfo-#endif-#if ENABLE_OVERLOADING-data URIGetHostMethodInfo-#endif-#if ENABLE_OVERLOADING-data URIGetPasswordMethodInfo-#endif-#if ENABLE_OVERLOADING-data URIGetPathMethodInfo-#endif-#if ENABLE_OVERLOADING-data URIGetPortMethodInfo-#endif-#if ENABLE_OVERLOADING-data URIGetQueryMethodInfo-#endif-#if ENABLE_OVERLOADING-data URIGetSchemeMethodInfo-#endif-#if ENABLE_OVERLOADING-data URIGetUserMethodInfo-#endif-#if ENABLE_OVERLOADING-data URIHostEqualMethodInfo-#endif-#if ENABLE_OVERLOADING-data URIHostHashMethodInfo-#endif-#if ENABLE_OVERLOADING-data URISetFragmentMethodInfo-#endif-#if ENABLE_OVERLOADING-data URISetHostMethodInfo-#endif-#if ENABLE_OVERLOADING-data URISetPasswordMethodInfo-#endif-#if ENABLE_OVERLOADING-data URISetPathMethodInfo-#endif-#if ENABLE_OVERLOADING-data URISetPortMethodInfo-#endif-#if ENABLE_OVERLOADING-data URISetQueryMethodInfo-#endif-#if ENABLE_OVERLOADING-data URISetQueryFromFormMethodInfo-#endif-#if ENABLE_OVERLOADING-data URISetSchemeMethodInfo-#endif-#if ENABLE_OVERLOADING-data URISetUserMethodInfo-#endif-#if ENABLE_OVERLOADING-data URIToStringMethodInfo-#endif-#if ENABLE_OVERLOADING-data URIUsesDefaultPortMethodInfo-#endif
− GI/Soup/Structs/XMLRPCParams.hs 
@@ -1,208 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (inaki@blueleaf.cc)--Opaque structure containing XML-RPC methodCall parameter values.-Can be parsed using 'GI.Soup.Structs.XMLRPCParams.xMLRPCParamsParse' and freed with-'GI.Soup.Structs.XMLRPCParams.xMLRPCParamsFree'.--/Since: 2.52/--}--#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))--module GI.Soup.Structs.XMLRPCParams-    ( ---- * Exported types-    XMLRPCParams(..)                        ,-    noXMLRPCParams                          ,--- -- * Methods--- ** free #method:free#--#if ENABLE_OVERLOADING-    XMLRPCParamsFreeMethodInfo              ,-#endif-    xMLRPCParamsFree                        ,----- ** parse #method:parse#--#if ENABLE_OVERLOADING-    XMLRPCParamsParseMethodInfo             ,-#endif-    xMLRPCParamsParse                       ,-----    ) where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL----- | Memory-managed wrapper type.-newtype XMLRPCParams = XMLRPCParams (ManagedPtr 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---- | A convenience alias for `Nothing` :: `Maybe` `XMLRPCParams`.-noXMLRPCParams :: Maybe XMLRPCParams-noXMLRPCParams = Nothing---#if ENABLE_OVERLOADING-instance O.HasAttributeList XMLRPCParams-type instance O.AttributeList XMLRPCParams = XMLRPCParamsAttributeList-type XMLRPCParamsAttributeList = ('[ ] :: [(Symbol, *)])-#endif---- method XMLRPCParams::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Soup", name = "XMLRPCParams"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a SoupXMLRPCParams", sinceVersion = Nothing}, 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 ->                     -- self : TInterface (Name {namespace = "Soup", name = "XMLRPCParams"})-    IO ()--{- |-Free a 'GI.Soup.Structs.XMLRPCParams.XMLRPCParams' returned by 'GI.Soup.Functions.xmlrpcParseRequest'.--/Since: 2.52/--}-xMLRPCParamsFree ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    XMLRPCParams-    {- ^ /@self@/: a SoupXMLRPCParams -}-    -> m ()-xMLRPCParamsFree self = liftIO $ do-    self' <- unsafeManagedPtrGetPtr self-    soup_xmlrpc_params_free self'-    touchManagedPtr self-    return ()--#if ENABLE_OVERLOADING-data XMLRPCParamsFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => O.MethodInfo XMLRPCParamsFreeMethodInfo XMLRPCParams signature where-    overloadedMethod _ = xMLRPCParamsFree--#endif---- method XMLRPCParams::parse--- method type : OrdinaryMethod--- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "Soup", name = "XMLRPCParams"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #SoupXMLRPCParams", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "signature", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A valid #GVariant type string, or %NULL", sinceVersion = Nothing}, 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 ->                     -- self : TInterface (Name {namespace = "Soup", name = "XMLRPCParams"})-    CString ->                              -- signature : TBasicType TUTF8-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GVariant)--{- |-Parse method parameters returned by 'GI.Soup.Functions.xmlrpcParseRequest'.--Deserialization details:- - If /@signature@/ is provided, &lt;int&gt; and &lt;i4&gt; can be deserialized-   to byte, int16, uint16, int32, uint32, int64 or uint64. Otherwise-   it will be deserialized to int32. If the value is out of range-   for the target type it will return an error.- - &lt;struct&gt; will be deserialized to \"a{sv}\". /@signature@/ could define-   another value type (e.g. \"a{ss}\").- - &lt;array&gt; will be deserialized to \"av\". /@signature@/ could define-   another element type (e.g. \"as\") or could be a tuple (e.g. \"(ss)\").- - &lt;base64&gt; will be deserialized to \"ay\".- - &lt;string&gt; will be deserialized to \"s\".- - &lt;dateTime.iso8601&gt; will be deserialized to an unspecified variant-   type. If /@signature@/ is provided it must have the generic \"v\" type, which-   means there is no guarantee that it\'s actually a datetime that has been-   received. 'GI.Soup.Functions.xmlrpcVariantGetDatetime' must be used to parse and-   type check this special variant.- - /@signature@/ must not have maybes, otherwise an error is returned.- - Dictionaries must have string keys, otherwise an error is returned.--/Since: 2.52/--}-xMLRPCParamsParse ::-    (B.CallStack.HasCallStack, MonadIO m) =>-    XMLRPCParams-    {- ^ /@self@/: A 'GI.Soup.Structs.XMLRPCParams.XMLRPCParams' -}-    -> Maybe (T.Text)-    {- ^ /@signature@/: A valid 'GVariant' type string, or 'Nothing' -}-    -> m GVariant-    {- ^ __Returns:__ a new (non-floating) 'GVariant', or 'Nothing' /(Can throw 'Data.GI.Base.GError.GError')/ -}-xMLRPCParamsParse self signature = liftIO $ do-    self' <- unsafeManagedPtrGetPtr self-    maybeSignature <- case signature of-        Nothing -> return nullPtr-        Just jSignature -> do-            jSignature' <- textToCString jSignature-            return jSignature'-    onException (do-        result <- propagateGError $ soup_xmlrpc_params_parse self' maybeSignature-        checkUnexpectedReturnNULL "xMLRPCParamsParse" result-        result' <- B.GVariant.wrapGVariantPtr result-        touchManagedPtr self-        freeMem maybeSignature-        return result'-     ) (do-        freeMem maybeSignature-     )--#if ENABLE_OVERLOADING-data XMLRPCParamsParseMethodInfo-instance (signature ~ (Maybe (T.Text) -> m GVariant), MonadIO m) => O.MethodInfo XMLRPCParamsParseMethodInfo XMLRPCParams signature where-    overloadedMethod _ = xMLRPCParamsParse--#endif--#if ENABLE_OVERLOADING-type family ResolveXMLRPCParamsMethod (t :: Symbol) (o :: *) :: * where-    ResolveXMLRPCParamsMethod "free" o = XMLRPCParamsFreeMethodInfo-    ResolveXMLRPCParamsMethod "parse" o = XMLRPCParamsParseMethodInfo-    ResolveXMLRPCParamsMethod l o = O.MethodResolutionFailed l o--instance (info ~ ResolveXMLRPCParamsMethod t XMLRPCParams, O.MethodInfo info XMLRPCParams p) => OL.IsLabel t (XMLRPCParams -> p) where-#if MIN_VERSION_base(4,10,0)-    fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#else-    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)-#endif--#endif--
− GI/Soup/Structs/XMLRPCParams.hs-boot 
@@ -1,32 +0,0 @@-#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \-       && !defined(__HADDOCK_VERSION__))-module GI.Soup.Structs.XMLRPCParams where--import Data.GI.Base.ShortPrelude-import qualified Data.GI.Base.ShortPrelude as SP-import qualified Data.GI.Base.Overloading as O-import qualified Prelude as P--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr-import qualified Data.GI.Base.GClosure as B.GClosure-import qualified Data.GI.Base.GError as B.GError-import qualified Data.GI.Base.GVariant as B.GVariant-import qualified Data.GI.Base.GValue as B.GValue-import qualified Data.GI.Base.GParamSpec as B.GParamSpec-import qualified Data.GI.Base.CallStack as B.CallStack-import qualified Data.GI.Base.Properties as B.Properties-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map-import qualified Foreign.Ptr as FP-import qualified GHC.OverloadedLabels as OL--newtype XMLRPCParams = XMLRPCParams (ManagedPtr XMLRPCParams)-instance WrappedPtr XMLRPCParams where-#if ENABLE_OVERLOADING-data XMLRPCParamsFreeMethodInfo-#endif-#if ENABLE_OVERLOADING-data XMLRPCParamsParseMethodInfo-#endif
README.md view
@@ -1,6 +1,6 @@ # Documentation Autogenerated documentation for this package can be found at -[https://hackage.haskell.org/package/gi-soup-2.4.18/docs/GI-Soup.html](https://hackage.haskell.org/package/gi-soup-2.4.18/docs/GI-Soup.html)+[https://hackage.haskell.org/package/gi-soup-2.4.19/docs/GI-Soup.html](https://hackage.haskell.org/package/gi-soup-2.4.19/docs/GI-Soup.html)  For general documentation on using [haskell-gi](https://github.com/haskell-gi/haskell-gi) based bindings, see [the project page](https://github.com/haskell-gi/haskell-gi) or [the Wiki](https://github.com/haskell-gi/haskell-gi/wiki).
gi-soup.cabal view
@@ -1,5 +1,5 @@ name:                 gi-soup-version:              2.4.18+version:              2.4.19 synopsis:             Libsoup bindings description:          Bindings for Libsoup, autogenerated by haskell-gi. homepage:             https://github.com/haskell-gi/haskell-gi@@ -43,6 +43,65 @@               build-depends: haskell-gi-overloading == 0.0        exposed-modules: 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.ProxyResolver,+                       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.AuthNegotiate,+                       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++      autogen-modules: GI.Soup,                        GI.Soup.Callbacks,                        GI.Soup.Constants,                        GI.Soup.Enums,